Mostrar mensajes previos
Ordenar por
por hackmin Delirios esporádicos
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: Seleccionar todo

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: Seleccionar todo

Private Sub Label1_Click()
Text1.Text = "Balón"
End Sub
Ahora con Raqueta:

Código: Seleccionar todo

Private Sub Label2_Click()
Text1.Text = "Raqueta"
End Sub
Ahora con Ordenador:

Código: Seleccionar todo

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: Seleccionar todo

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: Seleccionar todo

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: Seleccionar todo

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 halla gustado en el próximo tema hablaremos de Select Case

Saludos
por Metal_Kingdom Incurable
Muy bien explicado compañero.. gracias.

Tambien en lugar de usar if "tal" then se puede usar If Not "tal" then que viene a ser lo mismo pero siendo "si no se cumple tal condición hacer.."

Un saludo!
UDTools.net
GitHub: https://github.com/MetalUDT
por DD Se medica
Gracias, pero esto no va aqui ñ_ñ
Noticia: 51mpl3x dice que si fuera chica, se casaría conmigo. (1/Agosto/2011 at 5:52 pm)
Esperandote verte diciendo que eres gay no seas malito y pasate unas fotos ¿si?
Temas similares
Aprender a hackear whatssap por Rosa Rosa en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “Otros lenguajes”