[Tutorial] Aprender a usar If

Bueno vamos a aprender a usar If... empecemos

Abrimos vb6 y presionamos EXE estándar...

Bien entonces vamos hacer un proyecto y a medidas que vamos avanzando explicare cada linea..

El proyecto sera que vamos a poner un texto que al presionarlo muestre el precio dentro de un label(bastante básico pero bastante fácil de comprender y eso es lo que cuenta)...

Bueno colocamos un textBox y borramos el contenido dentro que esta en la propiedad text

colocamos 3 labels y los colocamos abajo del todo y quitamos su propiedad caption y ponemos los siguientes:

Caption label1: Balón (Atención cuidado con las mañusculas ponedlo todo igual que yo)
Caption Label2: Raqueta
Caption Label3: Ordenador

Ahora colocamos un commandButton al lado del textBox y modificamos solo la propiedad caption poniendo:
Mostrar Precios

Luego abajo de Mostrar precios ponéis otro label y en la propiedad caption de dicho label la quitáis y no pongáis nada..

Bien, ahora llego la parte del código, para ello damos doble clic a Mostrar precios (CommandButton)
y escribimos lo siguiente:

Código:

Private Sub Command1_Click()
If Text1.Text = "Balón" Then
Label4.Caption = "Balón"
End If
If Text1.Text = "Raqueta" Then
Label4.Caption = "Raqueta"
End If
If Text1.Text = "Ordenador" Then
Label4.Caption = Ordenador
End If
End Sub

Bien ahora modifiquemos los 3 labels de abajo..osea los 3 labels con los caption = Balon,Raqueta y ordenador

Bueno empezamos con Balón: Damos doble clic a Balón

Código:

Private Sub Label1_Click()
Text1.Text = "Balón"
End Sub

Ahora con Raqueta:

Código:

Private Sub Label2_Click()
Text1.Text = "Raqueta"
End Sub

Ahora con Ordenador:

Código:

Private Sub Label3_Click()
Text1.Text = "Ordenador"
End Sub

Bien ahora amos hacer correr la aplicación dandole a tecla f5
denle clic a Balón o raqueta o ordenador y veréis que pasa y luego denle a Mostrar precio...

Como veis funciona correctamente.

vamos a explicar los códigos..

Código:

Private Sub Command1_Click

Aquí le estamos diciendo que al hacer click en command1 haga lo siguiente osea todo el código que viene a continuación... osea el objeto separado con _ del evento que en este caso es click

Código:

If Text1.Text = "Balón" Then

Bueno aquí si lo traducimos seria asín: Si Text1.text = "Balon" Entonces... (y ahora continuamos con el siguiente trozo)

Código:

Label4.Caption = "Balón"

Entonces atendiendo a la explicación anterior seria: If text1.text = "Balon" Entonces label4.caption = "Balon" entonces estamos diciendo que si text1.text tiene como text Balón pues se muestra en el label4.caption el nombre de Balón

Atención: Hay una cosa que no e puesto en el código y es ELSE esto sirve para cuando la condición sea falsa pues lo que haría si fuese Falsa..

y ya lo demás ya lo debéis de entender si no es asín decirmelo que lo pongo no hay problema..

Saludos y espero que os haya gustado en el próximo tema hablaremos de Select Case ;-)

Bueno saludos y espero que os guste