Ejercicios Select CASE VB

Cerrado
Angel - 4 may 2009 a las 14:49
 Abraham - 23 abr 2018 a las 06:09
Hola,
Algun Gran Genio de la programación podria colaborarme con unos ejemplos sobre ejercicios que se puedan realizar en Visual Basic utilizando esta estructura de Case - end Select Case, o tal vez recomendarme alguna pagina en la que encuentre buenos y bastantes ejemplitos!!!
De antemano Gracias!!!

3 respuestas

AHI TE VA UN EJEMPLO, TENGO UTILIZANDO LOS CONTROLES, COMBOBOX, COMMAND Y UN TEXT

Private Sub Command1_Click()
Dim a As String
a = Combo1.Text
Select Case a
Case "LACTEOS"
Text1.Text = 1
Case "FRUTAS"
Text1.Text = 2
Case "VERDURAS"
Text1.Text = 3
Case "BOTANA"
Text1.Text = 4
Case "CARNES"
Text1.Text = 5
Case "ENLATADOS"
Text1.Text = 6
End Select
End Sub
42
holap pero cual es el encabezado para este ejercicio
0
pero que hace
0
me preguntaba que es lo que hace
0
de que se trata, cual es el objetivo de este ejercicio
0
Resuelvo la duda:
Con el select Case es reducir si usuaras una gran cadena de If y Else...

Por ejemplo, (siguiendo el ejemplo de arriba) si deseas ver el numero de departamento de un supermercado, tomas de un combo (cargado previamente con los nombres de departamentos) y te arrojará el numero de cada departamento en el cuadro de texto Text1

Si usaras un if seria If combo.text = lacteos then text1.text = 1
else if combo.text = frutas then text1.text = 2
else if combo.text = verduras then text1.text = 3
....

y asi...

el select case te ayuda a abreviar esta gran cadena de comandos.

Yo agregaría al final (antes del End Select) las lineas:
Case Elese
text1.text= "Departamento no existente"

Para que en este caso, si pones un valor no contemplado arroje un resultado. Eso en caso de que permitas que coloquen valores en el combo.

Saludos
0