OPERACION MENSAJE

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.