Buenas, veo que hay gente que quiere aprender este lenguaje, espero que le haga un favor..
Nivel de dificultad:
Muy Facil.
PracticaEmpezamos creando un nuevo proyecto,
Archivo > Nuevo Proyecto. Vale, pero para hacer este ejercicio, que necesitamos?. Necesitamos 2 TextBoxs, y 1 CommandButton.
Los ponemos dentro del Form, de manera que tienen que quedar asi.
Vale, ya podemos proceder a poner el codigo.
Preguntas Frecuentes¿Como modifico el nombre que sale en los botones y en los textos? Primero de todo teneis que clikar a los objetos que querais modificar y a la derecha se mostrara su menu, lo podeis ver
aqui. En los botones, en el menu de propiedades de la derecha, en
Caption, escribis lo que querais que salga. Y en los textos, lo mismo pero no a Caption, sino a
Text.
El CodigoBien, ahora pondremos el codigo, que ara la funcion. Para poner un codigo, simplemente teneis que clikar dentro del objeto que quereis que haga la funcion del codigo, en este caso, el CommandButton.
Antes de poner en practica añadir un nuevo Form,
Private Sub Command1_Click()
If Text1.Text = "PHPeros" And Text2.Text = "Foro" Then
MsgBox "La contraseña es correcta", vbInformation
Form2.Show
Else
MsgBox "La contraseña es incorrecta", vbCritical
End If
End Sub
Explicacion del codigoIf Text1.Text = "PHPeros" And Text2.Text = "Foro" Then ' Abrimos un IF, que representa que, si el Text1.text hay escrito "PHPeros" y en el Text2.Text hay escrito "Foro", hara la siguiente accion:
MsgBox "La contraseña es correcta", vbInformation ' Mostrara una alerta diciendo que es correcto..
Form2.Show ' Y abrira el Form2...
Else ' Por el contrario, (si no hay escrito lo que hemos nombrado anteriormente en los TextBox)..
MsgBox "La contraseña o el usuario no son correctos", vbCritical ' Nos dira que la contraseña o usuario no es correcto..
End If ' cerramos el if
End Sub
Esto es todo..
Hasta Pronto!
EDIT: Os dejo el ejemplo del tutorial ^^
http://www.megaupload.com/?d=0H0PBP3Q
