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:
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
Private Sub Label1_Click()
Text1.Text = "Balón"
End Sub
Ahora con Raqueta:
Private Sub Label2_Click()
Text1.Text = "Raqueta"
End Sub
Ahora con Ordenador:
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..
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
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)
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
Mostrar Mensajes
