Capítulo 4:

 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

Cursos similares a Manual de Visual Basic Intermedio

1. Manual de Visual Basic Principiante En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]				155.711
2. Visual Basic Express. Crear alarma (1/4) Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]				884
3. Visual Basic Express. Crear una alarma (2/4) Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]				352