Manual de Visual Basic Intermedio
Lección: 4
Capítulo: Ejercicio 4: Cálculo de Ventas
Crea un formulario con ocho etiquetas, ocho cajas de texto,
un control Microsoft Hierarchical FlexGrid
(haz clic con el botón derecho del ratón sobre la
caja de herramientas y haz clic en Componentes, selecciona
la casilla Microsoft Hierarchical FlexGrid
Control 6.0 y haz clic en Aceptar) tres botones y
escribe el siguiente código:
Doble clic sobre el formulario
Private Sub
Form_Load()
grdmenu.Cols = 2
grdmenu.Rows = 8
grdmenu.FixedCols = 0
grdmenu.FixedRows = 1
grdmenu.TextArray(0) = "Menú"
grdmenu.TextArray(1) = "Precio"
grdmenu.TextArray(2) = "Burrito"
grdmenu.TextArray(3)
= "9.50"
grdmenu.TextArray(4)
= "Burger"
grdmenu.TextArray(5)
= "12.75"
grdmenu.TextArray(6)
= "Torta"
grdmenu.TextArray(7)
= "8.25"
grdmenu.TextArray(8)
= "Refresco"
grdmenu.TextArray(9)
= "4.00"
grdmenu.TextArray(10)
= "Cerveza"
grdmenu.TextArray(11)
= "15.60"
grdmenu.TextArray(12)
= "Ensalada"
grdmenu.TextArray(13)
= "14.45"
grdmenu.TextArray(14)
= "Hot Dog"
grdmenu.TextArray(15)
= "6.90"
End Sub
El botón
Aceptar
Private Sub
Command1_Click()
Dim burrito
As Integer, burger As Integer
Dim torta As Integer,
refresco As Integer
Dim cerveza As Integer,
ensalada As Integer
Dim hotdog
As Integer, ventatotal As Double
burrito = Val(Text1)
burger = Val(Text2)
torta = Val(Text3)
refresco = Val(Text4)
cerveza = Val(Text5)
ensalada = Val(Text6)
hotdog = Val(Text7)
ventatotal = burrito * 9.5 + burger * 12.75 + torta * 8.25 + refresco * 4.60 + cerveza *
15.6 + ensalada * 14.45 + hotdog * 6.9
Text8 = Str(ventatotal)
End Sub
El botón Limpiar
Private Sub
Command2_Click()
Text1 = "": Text2 = ""
Text3 = "": Text4 = ""
Text5 = "": Text6 = ""
Text7 = "": Text8 = ""
text9 = "": Text1.SetFocus
End Sub
El botón Salir
Private Sub
Command3_Click()
Unload Me
End
End Sub