Calculadora Sencilla en VB

[Draco_X]

He aquí un día que me aburría en clase, (Hoy) y me puse con un colegui a escribir el código para este programa, ahi lo tienen;

Añaden tres CommandButton

CmdSuma
CmdResta
CmdMultiplicac ión

Un label

Label1 en medio de TxtOpen1 y TxtOpen2 (Más abajo)

Añaden 3 TextBox

TxtOpen1 (Primer numero)
TxtOpen2 (Segundo Numero)
TxtResultat (Resultado de la operación...

__

Private Sub CmdResta_Click()
TxResultat = Val(TxtOpen1) - Val(TxtOpen2)
Label1.Caption = "-"
End Sub

Private Sub CmdSuma_Click()
TxResultat = Val(TxtOpen1) + Val(TxtOpen2)
Label1.Caption = "+"
End Sub

Private Sub CmdMultiplicac ión_Click()
TxtResultat = Val(TxtOpen1) * Val(TxtOpen2)
Label1.Caption = "x"
End Sub

__

Manual del Calculeitor;

Herramientas para usar el calculeitor;

· Una máquina
· Un ratón
· Un teclado

Pasos a segir

· Pones el primer numero a operar en el primer TxtBox
· Pones el segundo numero a operar en el segundo TxtBox
· Eliges la operación que desees hacer; Suma, Resta o Multiplicación
· ¡Aparece el resultado de la operación en el TxtResultado

He aqui una imágen Payo!!!


Para ver este enlace Registrate o Inicia Sesion

Alguna sugerencia/Crítica/Comentario

No acepto criticas

[RaKi0N]

Mi problema esque tengo un VB estilo prototipo.. Solo me deja crear Standar exe o algo así, no me sale nada más... y cuando hago un form no se como compilarlo... Es decir... Que cuando guardo el form y se me guarda lo habro y se me habre con el bloc de notas... :S

[ginobili]

Hola

He visto muchos codigos de calculadoras como el tuyo, pero yo las calculadoras las hago de diferente manera.
Ejemplo:

Añade dos botones, uno llamado cmdmultiplicac ión y otro cmddivision
Luego 2  texbox, llamados text1 y text2 respectivament e
Luego introduce el codigo:
-----------------------------------------------------------------------------------------------------
Private Sub cmdmultiplicac ión_click()

msgbox text1.text * text2.text

end sub
-----------------------------------------------------------------------------------------------------
Private sub cmddivison_cli ck()

msgbox text1.text / text2.text

End Sub
---------------------------------------------------------------------------------------------------

[ginobili]

Perdon por postear otra vez, pero se me olvido decir que con el metodo que he puesto tambien se pueden hacer diferentes operaciones:

Para sumar:
msgbox  text1.text + text2.text

Para restar:
msgbox text1.text - text2.text

Para multiplicar:
msgbox text1.text * text2.text

Para dividir:
msgbox text1.text / text2.text