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
|