Calculadora en batch
 

parceros, aqui les dejo mi primer programa en batch, pa que lo usen...es una bobada pero es lo primero que hago.

copien este codigo, lo pegan en el bloc de notas, lo guardan como "calculadora.bat" (sin comillas)y listo.....lo abren y ahi corre mi primer programa
suerte



@echo off
title CALCULADORA
color 17
:menu
cls
echo.
echo ºººººººººººººººººººººººººººººººººººººººººººººººººº
echo ºººººººººººººººº CALCULADORA ººººººººººººººº
echo ºº ________ ºº
echo ºº -OPCIONES- ºº
echo ºº----------------------------------------------ºº
echo ºº ºº
echo ºº 1. REALIZAR UNA SUMA ºº
echo ºº 2. REALIZAR UN MULTIPLICACION ºº
echo ºº 3. REALIZAR UNA RESTA ºº
echo ºº 4. REALIZAR UNA DIVISION ºº
echo ºº 5. CREDITOS ºº
echo ºº 6. SALIR ºº
echo ºº ºº
echo ºººººººººººººººººººººººººººººººººººººººººººººººººº
echo.
echo.
set /p var= Digita el numero de la opcion a escoger:
if %var%==1 (goto suma) else goto com1
:com1
if %var%==2 (goto mul) else goto com2
:com2
if %var%==3 (goto resta) else goto com3
:com3
if %var%==4 (goto division) else goto com4
:com4
if %var%==5 (goto creditos) else goto com5
:com5
if %var%==6 (goto fin) else echo el numero pulsado es incorrecto && pause && goto menu

:suma
echo.
set /p a=escribe el primer numero a sumar:
set /p b=escribe el segundo numero a sumar:
cls
set /a resultado=a+b
echo.
echo resultado: %resultado%
pause
goto menu
cls

:mul
echo.
set /p a=escribe el multiplicando:
set /p b=escribe el multiplicador:
cls
set /a resultado=a*b
echo.
echo resultado: %resultado%
pause
goto menu
cls

:resta
set /p a=escribe el primer numero a restar:
set /p b=escribe el segundo numero a restar:
cls
set /a resultado=a-b
echo resultado: %resultado%
pause
goto menu
cls

:division
set /p a=escribe el numero del dividendo:
set /p b=escribe el numero del divisor:
cls
set /a resultado=a/b
echo resultado: %resultado%
pause
goto menu
cls

:creditos
cls
echo.
echo.
echo.
echo _________________________________________________
echo ººººººººººººººººººººººººººººººººººººººººººººººººº
echo ºººº ºººº
echo ºººº realizado por: neo3 ºººº
echo ºººº_________________________________________ºººº
echo ºººº ºººº
echo ºººº para: usuarios de denunciando.com ºººº
echo ºººº ºººº
echo ººººººººººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººº
echo ººººººººººººººººººººº
echo ººººººººººººººººº
echo ººººººººººººº
echo ººººººººº
echo ººººº
echo ?
echo.
pause
goto menu
cls

:fin
cls
exit

esta bacano, pero mas de 12 digitos no calcula, imprime -2

RE:
 

garcias parcero por el comentario...voy a ver si se puede mejorar lo de los 12 digitos...Aqui dejo los creditos...

sta sencilla pero bn......

si, esta como buena. s gano reputacion por ser su primer trabajo

muy bien home, asi se empieza despues cuando hagas programs en .net no se te hará tan dificil. y en .net si quedan brutales los software.

gracias por los comentarios parceros.....mañana les voy a poner la version 2 de la calculadora, que hace otras cositas....ojala les guste
suertes...

version 1.2 de la calculadora.....espero y les guste.....den comentarios
pueden copiar este codigo fuente o lo pueden descargar, esta en .zip


@echo off
title CALCULADORA v1.2
color 17
:menu
cls
echo.
echo ºººººººººººººººººººººººººººººººººººººººººººººººººº
echo ºººººººººººººººº CALCULADORA ººººººººººººººº
echo ºº ________ ºº
echo ºº -OPCIONES- ºº
echo ºº----------------------------------------------ºº
echo ºº ºº
echo ºº 1. REALIZAR UNA SUMA ºº
echo ºº 2. REALIZAR UN MULTIPLICACION ºº
echo ºº 3. REALIZAR UNA RESTA ºº
echo ºº 4. REALIZAR UNA DIVISION ºº
echo ºº______________________________________________ºº
echo ºº----------------------------------------------ºº
echo ºº OPCIONES ESPECIALES ºº
echo ºº----------------------------------------------ºº
echo ºº ºº
echo ºº 5. AREA DE UN CUADRADO ºº
echo ºº 6. AREA DE UN RECTANGULO ºº
echo ºº 7. CREDITOS ºº
echo ºº 8. SALIR ºº
echo ºº ºº
echo ºººººººººººººººººººººººººººººººººººººººººººººººººº
echo.
echo.
set /p var= Digita el numero de la opcion a escoger:
if %var%==1 (goto suma) else goto leo
: leo
if %var%==2 (goto mul) else goto leo1
: leo1
if %var%==3 (goto resta) else goto leo2
: leo2
if %var%==4 (goto division) else goto leo3
: leo3
if %var%==5 (goto cuadrado) else goto leo4
: leo4
if %var%==6 (goto rectangulo) else goto leo5
: leo5
if %var%==7 (goto creditos) else goto leo6
: leo6
if %var%==8 (goto fin) else echo el numero pulsado es incorrecto && pause && goto menu
:suma
echo.
set /p a=escribe el primer numero a sumar:
set /p b=escribe el segundo numero a sumar:
cls
set /a resultado=a+b
echo.
echo resultado: %resultado%
pause
goto menu
cls
:mul
echo.
set /p a=escribe el multiplicando:
set /p b=escribe el multiplicador:
cls
set /a resultado=a*b
echo.
echo resultado: %resultado%
pause
goto menu
cls
:resta
set /p a=escribe el primer numero a restar:
set /p b=escribe el segundo numero a restar:
cls
set /a resultado=a-b
echo resultado: %resultado%
pause
goto menu
cls
:division
set /p a=escribe el numero del dividendo:
set /p b=escribe el numero del divisor:
cls
set /a resultado=a/b
echo resultado: %resultado%
pause
goto menu
cls
:cuadrado
echo.
cls
set /p a= Escribe el lado del cuadrado:
cls
echo.
set /a are=a*a
echo El area del cuadrado es: %are%
pause
goto menu
cls
:rectangulo
echo.
cls
set /p b= Escribe la base del rectangulo:
set /p h= Escribe la altura del rectangulo:
cls
echo.
set /a bas=b*h
echo El area del rectangulo es: %bas%
pause
goto menu
cls
:creditos
cls
echo.
echo.
echo.
echo _________________________________________________
echo ººººººººººººººººººººººººººººººººººººººººººººººººº
echo ºººº ºººº
echo ºººº realizado por: neo3 ºººº
echo ºººº_________________________________________ºººº
echo ºººº ºººº
echo ºººº UNDERN3O ºººº
echo ºººº ºººº
echo ººººººººººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººººººº
echo ººººººººººººººººººººººººº
echo ººººººººººººººººººººº
echo ººººººººººººººººº
echo ººººººººººººº
echo ººººººººº
echo ººººº
echo ?
echo.
pause
goto menu
cls
:fin
cls
color 0a
:matrix
echo 1010100011010001010101010 REALIZADO POR Undern3o 10111011101001
echo 1010010100010101001001010 REALIZADO POR Undern3o 01011000101000
echo 0010101010010101010001010 REALIZADO POR Undern3o 00010101010101
echo 0101000101000100011111011 REALIZADO POR Undern3o 01010001011110
echo 0100110000001000001110101 REALIZADO POR Undern3o 10011001001110
echo 0011010001001011111011000 REALIZADO POR Undern3o 00110000110011
echo 0110011010011001000101000 REALIZADO POR Undern3o 00100100001100
echo 1010100011011100010000111 REALIZADO POR Undern3o 10111011101001
echo 1010010100010010110010100 REALIZADO POR Undern3o 01011000101000
echo 0010101010010010101101010 REALIZADO POR Undern3o 00010101010101
echo 0101000101001010101010011 REALIZADO POR Undern3o 01010001011110
echo 0100110000010012101010010 REALIZADO POR Undern3o 10011001001110
echo 0011010001010100011100110 REALIZADO POR Undern3o 00110000110011
echo 0110011010010101010010101 REALIZADO POR Undern3o 00100100001100
goto matrix

vuelvanla a ver