Ejercicios Select CASE VB [Cerrado]

Angel - 4 may 2009 a las 14:49 - Última respuesta:  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!!!
Ver más 

9 respuestas

HANZOSLASHER - 6 jul 2011 a las 20:26
+34
Vota
6
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
pero que hace
me preguntaba que es lo que hace
de que se trata, cual es el objetivo de este ejercicio
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
Súper entendible tu ejemplo. Mil gracias.
+14
Vota
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select
este le puede servir yo lo utilice y me sirbio
dark_zen 153 Publicaciones lunes, 6 de septiembre de 2010Fecha de inscripción martes, 3 de enero de 2012 Última intervención - 9 jul 2011 a las 02:26
+9
Vota
Select Case VALOR
Case 1, 2
Case Is > 0
Case Else

End Select

ENTRE OTROS... >_<