Ejercicios Select CASE VB [Cerrado]

- - Ú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 

3 respuestas

Mejor respuesta
37
Gracias
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

Deja un "Gracias" 37

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 23955 usuarios nos han dicho gracias este mes

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
Gracias
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select
este le puede servir yo lo utilice y me sirbio
Publicaciones
152
Fecha de inscripción
lunes, 6 de septiembre de 2010
Última intervención
martes, 3 de enero de 2012
166
9
Gracias
Select Case VALOR
Case 1, 2
Case Is > 0
Case Else

End Select

ENTRE OTROS... >_<