Se desea construir una aplicación que calcule las ventas totales al final del día, así como los impuestos a pagar (18 por 100).
Para el diseño del cuadro de menú utilizaremos el control Microsoft Hierarchical FlexGrid. Para tal fin, seleccione el Menú Proyecto y elija la opción Componentes:
A continuación active la casilla de verificación Microsoft Hierarchical FlexGrid Control 6.0 OLEDB y haga click sobre el botón Aceptar. En seguida este control se añadirá al Cuadro de Herramientas.
Ubicar los siguientes controles en el formulario:
10 etiquetas
10 cajas de texto
1 control MSHFlexGrid
3 botones de comando
En seguida, elabore el diseño de entrada y salida. Para ello proceda a establecer las propiedades según se indica a continuación:
Form1
Nombre:FrmRestaurante
BorderStyle:3-Fixed Dialog
Caption:Restaurante
Moveable:False
StartUpPosition:2-CenterScreen
Label1
Nombre:LblHamburguesa
AutoSize:True
Caption:Hamburguesa:
Label2
Nombre:LblCerveza
AutoSize:True
Caption:Cerveza
Label3
Nombre:LblGaseosa
AutoSize:True
Caption:Gaseosa
Label4
Nombre:LblEnsalada
AutoSize:True
Caption:Ensalada
Label5
Nombre:LblSalchichas
AutoSize:True
Caption:Salchichas
Label6
Nombre:LblRefresco
AutoSize:True
Caption:Refresco
Label7
Nombre:LblSopa
AutoSize:True
Caption:Sopa
Label8
Nombre:LblPostre
AutoSize:True
Caption:Postre
Label9
Nombre:LblVentaTotal
Caption:Venta total S/.
Label10
Nombre:LblImpuesto
Caption:Impuesto S/.
MSHFlexGrid1
Nombre:GrdMenu
Font:Arial (Negrita 10)
FontFixed:Arial (Negrita 10)
Text1
Nombre:TxtHamburguesa
Text:
Text2
Nombre:TxtCerveza
Text:
Text3
Nombre
TxtGaseosa
Text
Text4
Nombre
TxtEnsalada
Text
Text5
Nombre
TxtSalchichas
Text
Text6
Nombre
TxtRefresco
Text
Text7
Nombre
TxtSopa
Text
Text8
Nombre
TxtPostre
Text
Text9
Nombre
TxtVentaTotal
Locked
True
Text
Text10
Nombre
TxtImpuesto
Locked
True
Text
Command1
Nombre
CmdAceptar
Caption
&Aceptar
Command2
Nombre
CmdLimpiar
Caption
&Limpiar
Command3
Nombre
CmdSalir
Caption
&Salir
Picture
C:\Archivos de programa\Microsoft Visual
Studio\Common\Graphics\Icons\Arrows\Point04.ico
Style
1-Graphical
En primer lugar debemos cargar los datos a la cuadrícula. Esto lo vamos a realizar en tiempo de ejecución al momento de cargarse en memoria el formulario. Para ello, haga doble click sobre el formulario y añada el siguiente código:
Private Sub Form_Load()
GrdMenu.Cols = 2
GrdMenu.Rows = 9
GrdMenu.FixedCols = 0
GrdMenu.FixedRows = 1
GrdMenu.TextArray(0) = “Menú”
GrdMenu.TextArray(1) = “Precio”
GrdMenu.TextArray(2) = “Hamburguesa”
GrdMenu.TextArray(3) = “2.50”
GrdMenu.TextArray(4) = “Cerveza”
GrdMenu.TextArray(5) = “4.00”
GrdMenu.TextArray(6) = “Gaseosa”
GrdMenu.TextArray(7) = “3.00”
GrdMenu.TextArray(8) = “Ensalada”
GrdMenu.TextArray(9) = “1.50”
GrdMenu.TextArray(10) = “Salchichas”
GrdMenu.TextArray(11) = “2.00”
GrdMenu.TextArray(12) = “Refresco”
GrdMenu.TextArray(13) = “1.00”
GrdMenu.TextArray(14) = “Sopa”
GrdMenu.TextArray(15) = “1.50”
GrdMenu.TextArray(16) = “Postre”
GrdMenu.TextArray(17) = “1.50”
End Sub
Luego debemos añadir el código que se encargará de realizar los cálculos. Para tal fin haga doble click sobre el botón Aceptar y proceda a ingresar lo siguiente:
Private Sub CmdAceptar_Click()
Dim Hamburguesa As Integer, Cerveza As Integer
Dim Gaseosa As Integer, Ensalada As Integer
Dim Salchichas As Integer, Refresco As Integer
Dim Sopa As Integer, Postre As Integer
Dim VentaTotal As Double, Impuesto As Double
Hamburguesa = Val(TxtHamburguesa)
Cerveza = Val(TxtCerveza)
Gaseosa = Val(TxtGaseosa)
Ensalada = Val(TxtEnsalada)
Salchichas = Val(TxtSalchichas)
Refresco = Val(TxtRefresco)
Sopa = Val(TxtSopa)
Postre = Val(TxtPostre)
VentaTotal = Hamburguesa * 2.5 + Cerveza * 4.0 _
+ Gaseosa * 3.0 + Ensalada * 1.5 + Salchichas * 2.0 _
+ Refresco * 1.0 + Sopa * 1.5 + Postre * 1.5
Impuesto = 0.18 * VentaTotal
TxtVentaTotal = Str(VentaTotal)
TxtImpuesto = Str(Impuesto)
End Sub
Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:
Private Sub CmdLimpiar_Click()
TxtHamburguesa = “” : TxtCerveza = “”
TxtGaseosa = “” : TxtEnsalada = “”
TxtSalchichas = “” : TxtRefresco = “”
TxtSopa = “” : TxtPostre = “”
TxtVentaTotal = “” : TxtImpuesto = “”
TxtHamburguesa.SetFocus
End Sub
A continuación haga doble click sobre el botón Salir y añada el siguiente código:
Private Sub CmdSalir_Click()
End
End Sub
2 comentarios:
hola megustaria que me enviara los codigos de ese programa a mi correo por favor al thepimpsex@live.com
espero su respuesta
Típico de Capricornio
Publicar un comentario