Meu primeiro Software! Modelo básico de uma calculadora no DOS

Em 2015 tive minha primeira experiência em criação de software. Em um curso de Hardware (sim! Hardware) tive uma breve apresentação ao MS-DOS.
É claro que não é possível fazer muita coisa com a linguagem primitiva do Windows, mas consegui fazer uma simples e singela calculadora.

Você pode usar essa calculadora baixando o arquivo executável neste link

Abaixo você consegue ver o código:

title Calculadora v. 1.0 Alpha created by JM712. Agosto de 2015
color 1e
@echo off
cls
:start
echo Ola, sou JOAO MARCOS, e bem vindo ao Simple Calc DOS 1.2!
pause
echo Esse software foi uma de minhas primeiras experiencias em programacao 
echo (Agosto de 2015), 
echo entao nao ligue se ele nao estiver ''bonito''
echo Escrevi esse ''pequeno software'' em BAT e alterei apenas esse 
echo comeco e a forma de seu arquivo final (.EXE)
pause
echo Enfim, vamos a aplicacao!
pause
:ini
cls
echo Ola, em que tipo de aplicacao eu poderei te ajudar?
echo.
echo.
echo (1) SOMA (2) SUBTRACAO (3) MULTIPLICACAO (4) DIVISAO
set /p esc=
if %esc%==1 goto soma
if %esc%==soma goto soma
if %esc%==2 goto sub
if %esc%==subtracao goto sub
if %esc%==multiplicacao goto Mult
if %esc%==3 goto Mult
if %esc%==4 goto divi
if %esc%==divisao goto divi
echo Nao entendi. Pode digitar novamente? (Responda usando os numeros)
pause
goto ini
:soma
cls
echo +++++++++++++SOMA+++++++++++++
echo.
echo Digite o primeiro numero.
set /p q=
echo Digite o segundo numero para a realizacao da soma.
set /p w=
set /a Answer=%q%+%w%
echo A soma de %q% + %w% = %Answer%
pause
:erro1
echo Deseja fazer outra operacao? s/n
set /p lll=
if %lll%==s goto ini
if %lll%==n goto wagen
echo Nao entendi. Pode digitar novamente? (Digite apenas S ou N)
cls
goto erro1
:sub
cls
echo ---------------SUBTRACAO---------------
echo.
echo Digite o primeiro numero.
set /p q=
echo Digite o segundo numero para a realizacao da subtracao.
set /p w=
set /a Answer=%q%-%w%
echo A divisao de %q% - %w% = %Answer%
pause
:erro1
echo Deseja fazer outra operacao? s/n
set /p lll=
if %lll%==s goto ini
if %lll%==n goto wagen
echo Nao entendi. Pode digitar novamente? (Digite apenas S ou N)
goto erro1
cls
:Mult
cls
echo **************Multiplicacao***************
echo.
echo Digite o primeiro numero.
set /p q=
echo Digite o segundo numero para a realizacao da multiplicacao.
set /p w=
set /a Answer=%q%*%w%
echo A multiplicacao de %q% * %w% = %Answer%
pause
:erro1
echo Deseja fazer outra operacao? s/n
set /p lll=
if %lll%==s goto ini
if %lll%==n goto wagen
echo Nao entendi. Pode digitar novamente? (Digite apenas S ou N)
cls
goto erro1
:divi
cls
echo //////////////////DIVISAO//////////////////
echo.
echo Digite o primeiro numero.
set /p q=
echo Digite o segundo numero para a realizacao da divisao.
set /p w=
set /a Answer=%q%/%w%
echo A divisao de %q% / %w% = %Answer%
pause
:erro1
echo Deseja fazer outra operacao? s/n
set /p lll=
if %lll%==s goto ini
if %lll%==n goto wagen
echo Nao entendi. Pode digitar novamente? (Digite apenas S ou N)
goto erro1
:wagen
cls
echo Obrigado por usar a aplicacao ! Ate breve !
pause

Comentários

Postagens mais visitadas deste blog

Conclusão sobre Xenofobia

Parli Italiano? III- Alfabeto Italiano

Vogal ou Consoante com Switch-Case em C