RESTAURANTE

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