Ayuda cómo plantear programa reservas restaurante Visual Basic

[brayan1993]

Hola Saludos a todos, mi Nombre es Brian y quisiera saber si me pueden ayudar con una tarea con VISUAL BASIC es que tengo que hacer un programa pero, nose como realizar la parte de Reservas y bueno en general, porfavor ayudenme...les dejo el problema:

El restaurante  desea automatizar el proceso de asignación de mesas así como el de registro de los pedidos de consumo de las mesas.Las mesas están separadas en sector fumadores y no fumadores y además cada una indica la cantidad de personas que puede atender.
Cada cliente puede elegir que mesa desea reservar. Indica sus datos cantidad de personas, fecha y horario de la reserva (almuerzo o cena). Cuando un cliente sin reserva llega al restaurante el encargado, en caso de haber disponibilidad, le asigna una mesa. Todos los pedidos de platos y bebidas que haga se asocian a la mesa. Cada plato y bebida tiene asignado un precio.

Se desea poder calcular automáticamente el total de lo consumido por la mesa.

Considere:
•   Menú 1 $ 5.500
•   Menú 2 $ 6.500
•   Menú 3 $ 4.500
•   Las bebidas, jugos y cervezas no están consideradas en el menú y tienen un costo de $ 1.500 cada una.

Especificaciones:

•   El N° de mesa asignado debe aparecer en lista mesa reservada, para luego asociar el consumo a ella.
•   Botón Cancelar limpia todas los controles asociados al marco de asignación.
•   Botón Aceptar entrega el total del consumo para la mesa.
•   No considerar:Botón Anular ni Totales

ESPERO PUEDAN AYUDARME 

[Alex Rodríguez]

Hola Brian, te doy una orientación inicial. En primer lugar crea un proyecto con un formulario y un label denominado Label1.

Luego podríamos partir del código que te indico más abajo. A partir de aquí habría que pensar si usar UDT (User Defined Types de Visual Basic) o si trabajarlo todo con arrays (por ejemplo un array de coste asociado a la mesa, un array de estado de la mesa como ocupada o libre, etc.). Elige una opción, de las que te he indicado o la que se te ocurra como mejor y trata de desarrollar el código. Cuando hayas desarrollado algo pega el código que tengas y lo revisamos y tratamos de mejorar o completar. Saludos



Option Base 1
Dim i%, j%, k%

Dim mesa() As Integer
Dim numeroMesasMaxSector As Integer
Const numeroDeSectores As Integer = 2

Private Sub Form_Load()
numeroMesasMaxSector = 10 'Suponemos que hay 10 mesas máximo por sector, total máximo 20 mesas
ReDim mesa(numeroMesasMaxSector, numeroDeSectores)  'Primer indice: numero de mesa, segundo índice sector (No fumador=1, Fumador=2)

mesa(1, 1) = 4 'Interpretación: la mesa 1 del sector 1 tiene capacidad para 4 personas
mesa(2, 1) = 2
mesa(3, 1) = 5

mesa(1, 2) = 2 'Interpretación: la mesa 1 del sector 2 tiene capacidad para 2 personas
mesa(2, 2) = 7
mesa(3, 2) = 3
mesa(4, 2) = 6
mesa(5, 2) = 5

Label1.Caption = ""

i = 1
j = 1

Do While j <= numeroDeSectores
Do While i <= numeroMesasMaxSector And mesa(i, j) <> 0
Label1.Caption = Label1.Caption & "La mesa " & i & " del sector" & j & " tiene capacidad para " & mesa(i, j) & " comensales" & vbCrLf
i = i + 1
Loop
i = 1
j = j + 1
Loop


End Sub