Select Case - End Select Structure
En el tutorial anterior, hemos aprendidoa controlar el flujo del programa con el IF y la estructura ElseIf. En este tutorial, ustedes aprenderemos otra manera de controlar el flujo del programa con SELECT CASE. Sin embargo, la estructura del SELECT CASE es ligeramente diferente a la del IF ELSE. La diferencia es que la estructura del SELECT CASE, básicamente, sólo tomar la decisión en una expresión o dimensión (por ejemplo, la calificación del examen), mientras que el IF ... sentencia ELSEIF estructura de control puede evaluar sólo una expresión, cada uno .... IF sentencia ELSEIF puede también calcular las dimensiones totalmente diferentes. Select Case es el preferido cuando existen muchas condiciones diferentes porque el uso de Si ... Entonces .. ElseIf declaraciones podría llegar a ser demasiado complicado.
Espero darme a comprender bueno esto quiere decir que el IF ELSE si se usa pero cuando son pocas cosas que se van a a comprobar pero cuando son demasiadas cosas a evaluar es mejor usar el SELECT CASE por motivos de su minimo código.
El formato de dicha función es la siguiente :
Bueno aquí unos ejemplos para analizar:
1.- Para empezar vamos a crear un ejemplo el cual llamaremos "Las calificaciones de los exámenes", este ejemplo constará del siguiente código en un botón de Visual Basic que por cierto ya no debería ser nada nuevo para ustedes.
Espero darme a comprender bueno esto quiere decir que el IF ELSE si se usa pero cuando son pocas cosas que se van a a comprobar pero cuando son demasiadas cosas a evaluar es mejor usar el SELECT CASE por motivos de su minimo código.
El formato de dicha función es la siguiente :
Select Case test expression
Case expression list 1
Block of one or more VB statements
Case expression list 2
Block of one or more VB Statements
Case expression list 3
Block of one or more VB statements
Case expression list 4
Block of one or more VB statements
Case Else
Block of one or more VB Statements
End Select
Bueno como podemos observar la sintaxis del código es totalmente diferente pero realiza casi la misma función que el IF ELSE.Bueno aquí unos ejemplos para analizar:
1.- Para empezar vamos a crear un ejemplo el cual llamaremos "Las calificaciones de los exámenes", este ejemplo constará del siguiente código en un botón de Visual Basic que por cierto ya no debería ser nada nuevo para ustedes.
Dim grado As String
Private Sub Button1_Click( )
grado=txtgrado.Text
Select Case Grado
Case "A"
Label1.Text="Alumno altamente distinguido"
Case "A-"
Label2.Text="Alumno distinguido"
Case "B"
Label3.Text="Bueno"
Case "C"
Label4.Text="Regular"
Case Else
Label5.Text="Reprobado"
End Select
Bueno por ahora sólo pondremos un ejemplo espero que sea suficiente porque en realidad es casi lo mismo que el IF ELSE y también por falta de dispocición de tiempo, si desean otros ejemplos o incluso ejercicios para que realicen y yo conteste si estan bien o mal no duden en contactarme en la parte de arriba del blog se encuentr mi Twitter, Facebook y para que se suscriban al blog.
Esperen el proximo tutorial hablaremos sobre cómo hacer un ciclo FOR.
Hola me llamo diego y soy de bolivia, tengo una pregunta.
ResponderEliminarestoy haciendo un keygen con 2 textbox y cuando le doy generar en la depuración, me sale los seriales de diferentes CASE ejemplo:
case 0
textbox1.text = "1234-5678-9012"
case 3
textbox2.text = "1256-5677-9612"
case 5
textbox3.text = "1574-8778-1512"
asi me sale al depurarlo y darle clic en generar y e probado al registrar algun programa con mi keygen y me sale erroneo y cuando uso un keygen del internet para ese programa lo registra bien, que podria hacer para que al darle generar los todos los CASE de textbox1 - textbox2 y textbox3 sean iguales y asi poder registrar cualquier programa????
me escribes a: diego_2004_13@hotmail.com
Para este caso podrias usar el MaskedTextBox de esta menera :)
ResponderEliminarPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If MaskedTextBox1.Text = "555-55-1212" _
And MaskedTextBox2.Text = "54321" Then
MsgBox("Welcome to the system!")
Else
MsgBox("I don't recognize this number")
End If
End Sub
End Class