crear calculadora

como crear una calculadora en batch y en visual basic


Hola, aqui les dejo como crear calculadoras utilizando Visual Basic o Notepad (Batch)

Batch:

@echo off
title Calculadora
color 0a
:start
set /p n1=Primer numero:
set /p signo=Signo de operacion:
set /p n2=Segundo numero:
if %signo%==+ goto mas
if %signo%==- goto menos
if %signo%==* goto por
if %signo%==/ goto dividir
if %signo%==%signo% goto error
:mas
cls
set /a opmas=%n1% + %n2%
echo %opmas%
pause>nul
goto start
:menos
cls
set /a opmenos=%n1% - %n2%
echo %opmenos%
pause>nul
goto start
:por
cls
set /a oppor=%n1% * %n2%
echo %oppor%
pause>nul
goto start
:dividir
cls
set /a opdividir=%n1% / %n2%
echo %opdividir%
pause>nul
goto start
:error
msg * Solo son validos signos como + - * /
goto start
exit


Despues hay que guardar como .BAT ... no?

Visual Basic:

• 2 labels (Representa al signo = y los signos de operacion)
• 3 cajas de texto (2 para los numeros y una para el resultado)
• 4 botones (+,-,*,/)

Codigo:

Private Sub Form_Load()
Label1 = ""
Label2 = "="
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command1_click()
Label1 = "+"
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_click()
Label1 = "-"
Text3 = Val(Text1) - Val(Text2)
End Sub
Private Sub Command3_click()
Label1 = "*"
Text3 = Val(Text1) * Val(Text2)
End Sub
Private Sub Command4_click()
Label1 = "/"
Text3 = Val(Text1) / Val(Text2)
End Sub


Ya saben que el Label1 hay que colocarlo entre Text1 y Text2 ... y el Label2 va entre Text2 y Text3 !!!
En la propiedad 'Caption' de los 'Command' asignar signos de operacion ...
Command1 = +
Command2 = -
Command3 = *
Command4 = / 

Comentarios