Hola!, esta es la segunda parte de Te enseño Visual Basic desde Cero.
Te perdiste la primera parte?
Bueno, ya aprendieron a como utilizar el entorno de Vb 6.0, e hicieron un programa sencillo como para saber de que se trata. También aprendieron a como guardar un proyecto y compilar una vez terminado.
Paso a explicar el codigo que utilizamos en la vez anterior.
si no recuerdan el codigo lo pongo acá:
Private Sub Command1_CLick()
Text1.BackColor = "vbRed"
Text1.Text = "Rojo"
End Sub
Private Sub Command2_CLick()
Text1.BackColor = "vbGreen"
Text1.Text = "Verde"
End Sub
Private Sub Command3_CLick()
Text1.BackColor = "vbBlue"
Text1.Text = "Azul"
End Sub
Private Sub: esto es para iniciar una indicación a un objeto (ya decimos control), por ejemplo ayer trabajamos con botones que por defecto tiene CommandX (X es un numero cualquiera). Despues del _ (guión bajo) indica cuando se va a iniciar la orden (hay varias: Click=cuando 1 haces click, DLBClick= cuando haces 2 clicks; entre otras que se iran agregando con otros controles) y al final termina con End Sub.
Text1.BackColor= : Le está indicando al cuadro de texto de que color debe tener su fondo.
Text1.Text = "Azul" : indica al cuadro de texto que debe decir en su interior, entre las comillas se puede colocar lo que ustedes deseen; por ejemplo: si en vez de azul ponen "hola Juan" cuando clickeen el boton va a decir "hola Juan". Prueben es cuestion de interactuar con el programa!.
Bueno, con esto finaliza el tema.
Ahora veremos que es If:
If es una orden de comprobación, y la sintaxis es así
If *control*.*forma* = *variable* then
lo que va hacer si esta asi
else
lo que va hacer si no es asi
end if
es medio confuso pero veremos un claro ejemplo:
If Text1.Text = "Taringa!" then
Text1.Text = "max_pc"
else
Text1.Text = "Taringa!"
end if
Explicación: ordena a que se fije si en el cuadro de texto dice Taringa! y, si es así, que ponga max_pc en el cuadro de texto. Si no es así, que ponga Taringa! en el cuadro de texto.
Ejercicio Nº 2
Para ello necesitan:
* 1 Commandbutton
* 1 Textbox
Video
-------------------------------------------------------------------
Despues del video pongan el siguiente codigo en el Command1
If text1.text = "Taringa!" then
text1.text = "Estoy aprendiendo Visual Basic desde cero"
msgbox "Ya logré hacer mi segundo programa", vbinformation, "Ok!"
else
text1.text = "Taringa!"
end If
Espero que hayan podido aprender un poco mas.
Cualquier duda manden un MP, estoy dispuesto a ayudar!
Como puse en el otro post, esto lo hice yo en un %100 sin sacar de otro lado, asi que no lo encontraras en otro lugar!
Hasta Mañana!
Comentario Por Favor?