Ingresamos la siguiente tabla, que viene a ser las opciones del menú del restaurante:
Luego crearemos un formulario con el siguiente detalle:
El código del botón calcular, calculará cual es el precio de la orden que ingrese, este botón tiene el siguiente código:
Private Sub Precio_Click()
Dim E As Integer Dim S As Integer Dim P As Integer
E = TextBox1.Text S = TextBox2.Text P = TextBox3.Text
Select Case E Case 0 To 2 P1 = 2 Case 3 To 4 P1 = 3 Case 5 To other MsgBox "El número ingresado como Entrada, pertenece a un segundo o postre" End Select
Select Case S Case 0 To 4 MsgBox "El número ingresado como segundo, pertenece a una entrada" Case 5 To 9 P2 = 5 Case 10 To 14 MsgBox "El número ingresado como segundo, pertenece a un postre" (MENSAJE DE ERROR PARA NÚMEROS QUE NO SE ENCUENTREN EN EL MENÚ)
End Select
Select Case P Case 0 To 9 MsgBox "El numero ingresado como postre, pertenece a una entrada o segundo" Case 10 To 13 P3 = 1 Case 14 P3 = 2
TextBox4.Text = P1 + P2 + P3 End Select
End Sub
A continuación un ejemplo:
A continuación el archivo:
Elaborado por: RICHARD SANTILLÁN TAFUR
12/01/2014 a las 11:34 am
Hola. mi consulta es si en excel puedo.
ingresar datos de un puerto serial del a1 a a20
y si puedo enviar datos desde b1 a b20.
por puerto serial. todo esto en linea para comunicarme con cualquier placa sea arduino o micro controlador.
Saludos cordiales.
Y un excel lente año
20/02/2015 a las 2:53 pm
En el ejemplo no se muestra el precio. Se corrige poniendo el TextoBox4.Text después del End Select.
End Select
TextBox4.Text = P1 + P2 + P3
De esta manera se muestra el precio total del Menú.
18/05/2018 a las 4:52 pm
muchas gracias maestro