Make your own free website on Tripod.com

 

Menú del Restaurante

 

 

El menú de un restaurante rápido se muestra a continuación:

 

 

MENÚ

PRECIO

 

 

Hamburguesa

2.50

 

 

Cerveza

4.00

 

 

Jugo

3.00

 

 

Ensalada

1.50

 

 

Papitas

2.00

 

 

Refresco

1.00

 

 

Sopa

1.50

 

 

Postre

1.50

 

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).

La interfaz de entrada y salida deberá ser similar a la figura mostrada a continuación:

 

Para el diseño del cuadro de menú utilizaremos el control Microsoft Hierarchical FlexGrid. Para tal fin, seleccione el Menú Proyect 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.

Para el desarrollo de esta aplicación, proceda a 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

LblJugo

 

AutoSize

True

 

Caption

Jugo:

 

Label4

 

Nombre

LblEnsalada

 

AutoSize

True

 

Caption

Ensalada:

 

Label5

 

Nombre

LblPapitas

 

AutoSize

True

 

Caption

Papitas:

 

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

TxtJugo

 

Text

 

 

Text4

 

Nombre

TxtEnsalada

 

Text

 

 

Text5

 

Nombre

TxtPapitas

 

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

 

Arrays

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:

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:

Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:

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

 

Home | VB |