InicioInfoComo crear tu propia calculadora (batch y Visual Basic)

Como crear tu propia calculadora (batch y Visual Basic)

Info2/7/2009
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 = / Ok, esto lo hice yo ... Saludos GuisX comentar es la mejor forma de agradecer
Datos archivados del Taringa! original
53puntos
8,824visitas
0comentarios
Actividad nueva en Posteamelo
0puntos
1visitas
0comentarios
Dar puntos:

Dejá tu comentario

0/2000

Autor del Post

G
GuisoX🇦🇷
Usuario
Puntos0
Posts4
Ver perfil →
PosteameloArchivo Histórico de Taringa! (2004-2017). Preservando la inteligencia colectiva de la internet hispanohablante.

CONTACTO

18 de Septiembre 455, Casilla 52

Chillán, Región de Ñuble, Chile

Solo correo postal

© 2026 Posteamelo.com. No afiliado con Taringa! ni sus sucesores.

Contenido preservado con fines históricos y culturales.