12.213 cursos gratis
8.307.734 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:
9,45/10 (20 opiniones) |22740 alumnos|Fecha publicación: 17/03/2006
Envía un mensaje al autor

Capítulo 4:

 Ejercicio 4: Cálculo de Ventas

                            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

Capítulo siguiente - Ejercicio 5: Fecha Escrita

Nuestras novedades en tu e-mail

Escribe tu e-mail:

Al presionar "Recibir" estás dándote de alta y aceptas las condiciones legales de mailxmail

Cursos similares a Manual de Visual Basic Intermedio


  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
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
Curso con video
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
Curso con video

El blog de mailxmail|¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail


¿Te gustaría visitar más cursos gratis de Diseño?