Autor
El programa consiste en elegir un elemento o más de entre tres listas. Y al oprimir el boton "generar" arroja dos textos, uno para el nombre del cóctel y otro para los ingredientes. Así como una imagen distinta por cada bebida. El programa se puede decir ya está terminado, solo faltan algunos detalles, entre ellos destaca uno que cuando se elige un solo elemento genera una bebida cualquiera pero cuando se eligen 3 y no coinciden con la combinación, no genera bebida alguna.
Escuché que con una negación, hacía que al elegir un solo elemento no generaría nada. Saben que tipo de negación puedo usar? o algún otro recurso?
espero haberme dado a entender. Saludos
Aquí pongo un pequeño ejemplo, solo son dos combinaciones (bebidas) en total son 17.
Citar
Private Sub Command1_Click()
If (List1.List(List1.ListIndex) = "Vermú") And (List2.List(List2.ListIndex) = "Whisky") And (List3.List(List3.ListIndex) = "Angostura") Or (List3.List(List3.ListIndex) = "Hielo") Then
Text1.Text = "Manhattan"
Text2.Text = "5 cl. de whisky de centeno" + vbCrLf + "o whisky canadiense" + vbCrLf + "2 cl. de vermú rojo" + vbCrLf + "1 gota de angostura"
Dim Ruta As String
Ruta = "C:\fotos\manhattan.jpg"
Image1.Picture = LoadPicture("C:\fotos\manhattan.jpg")
End If
If (List1.List(List1.ListIndex) = "Triple sec") Or (List1.List(List1.ListIndex) = "Jugo de Lima") And (List2.List(List2.ListIndex) = "Tequila") And (List3.List(List3.ListIndex) = "Sal") Or (List3.List(List3.ListIndex) = "Hielo") Or (List3.List(List3.ListIndex) = "Limón") Then
Text1.Text = "Margarita"
Text2.Text = "35ml. de Tequila" + vbCrLf + "20ml. de Triple sec" + vbCrLf + "15ml. Jugo de Lima"
Ruta = "C:\fotos\margarita.jpg"
Image1.Picture = LoadPicture("C:\fotos\margarita.jpg")
End If
If (List1.List(List1.ListIndex) = "Vermú") And (List2.List(List2.ListIndex) = "Whisky") And (List3.List(List3.ListIndex) = "Angostura") Or (List3.List(List3.ListIndex) = "Hielo") Then
Text1.Text = "Manhattan"
Text2.Text = "5 cl. de whisky de centeno" + vbCrLf + "o whisky canadiense" + vbCrLf + "2 cl. de vermú rojo" + vbCrLf + "1 gota de angostura"
Dim Ruta As String
Ruta = "C:\fotos\manhattan.jpg"
Image1.Picture = LoadPicture("C:\fotos\manhattan.jpg")
End If
If (List1.List(List1.ListIndex) = "Triple sec") Or (List1.List(List1.ListIndex) = "Jugo de Lima") And (List2.List(List2.ListIndex) = "Tequila") And (List3.List(List3.ListIndex) = "Sal") Or (List3.List(List3.ListIndex) = "Hielo") Or (List3.List(List3.ListIndex) = "Limón") Then
Text1.Text = "Margarita"
Text2.Text = "35ml. de Tequila" + vbCrLf + "20ml. de Triple sec" + vbCrLf + "15ml. Jugo de Lima"
Ruta = "C:\fotos\margarita.jpg"
Image1.Picture = LoadPicture("C:\fotos\margarita.jpg")
End If
En línea
