PASOS:
1. Abrí el programa visual BASIC
2. le di doble clic en proyecto para cambiarle el nombre.
3. al primero formulario lo llame form1.
4. cree, 7 objetos, los cuales se llaman comand1 comand2 etc, a cada uno le puse la indicación, se la cambie en caption y también les puse su código.
5. el primero le puse (CLIC AQUI).
6. le di doble clic y me abrió el cuadro de código, el código fue:
*prívate sub comand1_click ()
*print “visual basic es fácil si pones atención”
*print “hola”,, “saludos”
*print “suerte”
end sub
7. segundo RESTA
*prívate sub command2_click ()
*resta.show
*end sub
8. tercero SUMA.
*prívate sub command3_click ()
*suma.show
*end sub
9. SALIR
*end
*end sub
10. MENSAJE
*prívate sub comand4_clic ()
*MsgBox “sigue participando” & vbCrLf & “falta mucho por aprender”, vbcritical, “mensaje1”
*end sub
11. CLIC CUADRO Y ESE SE RELACIONA CON OTRO LLAMADO TEX1 .
*prívate sub command5_clic ()
*text1.tex = ”hola”
*end sub.
formulario 2. (RESTA)
1. después me fui a menú para agregar un formulario al cual llame resta.
2. ya que lo agrege hice lo mismo que con el primero, inserte 6 objetos, les puse su código y declare variables, a los objetos los cuales llame,
3. *clic aquí.
4. le di doble clic y me abrió el cuadro de códigos, entonces al principio de todo ese cuadro hay un cuadrito el cual nos indica en que formulario estamos, hay declare las variables qe fueron:
5. Dim A as interger
Dim B as interger
Dim C as interger
Dim D as interger
YA QUE LAS DECLARE AHORA SI EMPECE A PONER CODIGOS.
*CLIC AQUÍ.
*prívate sub command1_click ()
*print “resta”
*print “5-5”
*print “ “
*print “resultado”
end sub
6. *suma
*prívate sub command2_click ()
*suma.show
end sub
7. *inicio
*prívate sub command3_clic ()
*form1.show
end sub
8. *salir
*prívate sub command4_click ()
*end
end sub
9. *mensaje
*prívate sub command5_click ()
MsgBox “suerte con la resta “ &vbcrlf & ”¿es correcto el resultado”, vbQuestion “mesaje2”
10. *clic cuadro relacionado con el objeto tex1.
*prívate sub command6_click ()
*a =5
*b=5
*c=a-b
*text1.text =c
end sub.
**formulario 3 (SUMA)
1. de nuevo me fui a menú para insertar orto formulario a este lo llame suma.
2. de nuevo lo mismo, le agrege 6 objetos con sus códigos.
3. *clic aquí
*prívate sub command1_click ()
*print “suma”
*print “5+5+2”
*print “ “
*print “resultado”
end sub
4. *resta
*prívate sub command2_clic ()
*resta.show
*end sub
5. *inicio
*prívate sub command3_click ()
*form1.show
end sub
6. *mensaje
*prívate sub command5_clic ()
msgBox “esto es una suma” & vbcrlf & “felicidades es correcto el resultado”, vb exclamation, “mesaje3”
7. *clic cuadro se relaciona con otro llamado text1.
prívate sub command6_click ()
*a=5
*b=5
*c=2
*d=a+b+c
*text1.text = d
*end sub.
8. SALIR.
private sub command4_click ()
end
ens sub.
NOTA: Para cambiar el color del fondo del formulario me fui a la ventana de propiedades y en la opción blackcolor.
*Le inserte una imagen al primer formulario, también me fui a la ventana propiedades y en la opción picture.
* Y por ultimo le cambie el color, tipo de letra y tamaño a todos los mensajes o letras que ivan aparecer en mi proyecto, ventana de propiedades opción Font.
DESPUES DE TODO ESO...
Lo guarde y lo corri.
