CALCULADORA
(Rafhack)
Criar uma calculadora não é tão difícil quanto parece.
Um pouco de programação em DOS (.bat) é o nescessário para criar um software de cálculos básicos.
Como fazer?
No bloco de notas cole o seguinte script em lotes:
@echo off
:chc
Setlocal disabledelayedexpansion enableextensions
cls
echo/1. Soma
echo/2. Subtracao
echo/3. Multiplicacao
echo/4. Divisao
echo/
set /p "opc=Digite sua opcao: "
if "%opc%" == "" (Goto Chc)
For /l %%a in (1,1,4) do (
if not "%opc%" == "%%a" (
Set "erro=%%a") else (
Set "erro="
Set "Ir=%%a"
Goto Sim))
:sim
if not "%erro%" == "" (
echo/%opc% nao e uma opcao valida
pause>nul
Goto Chc) else (Goto Tot)
:Tot
echo/
Set /p "val1=Digite um numero: "
Set /p "Val2=Digite outro numero: "
Goto %ir%
:1
Set /a res= val1 + val2
Set "opr=+"
Goto Mos
:2
Set /a res= val1 - val2
Set "opr=-"
Goto Mos
:3
Set /a res= Val1 * Val2
Set "opr=*"
Goto Mos
:4
Set /a res= Val1 / Val2
Set "opr=/"
Goto Mos
:Mos
Cls
Echo/%val1% %opr% %val2% = %res%
Pause >nul
Endlocal
Goto Chc
:chc
Setlocal disabledelayedexpansion enableextensions
cls
echo/1. Soma
echo/2. Subtracao
echo/3. Multiplicacao
echo/4. Divisao
echo/
set /p "opc=Digite sua opcao: "
if "%opc%" == "" (Goto Chc)
For /l %%a in (1,1,4) do (
if not "%opc%" == "%%a" (
Set "erro=%%a") else (
Set "erro="
Set "Ir=%%a"
Goto Sim))
:sim
if not "%erro%" == "" (
echo/%opc% nao e uma opcao valida
pause>nul
Goto Chc) else (Goto Tot)
:Tot
echo/
Set /p "val1=Digite um numero: "
Set /p "Val2=Digite outro numero: "
Goto %ir%
:1
Set /a res= val1 + val2
Set "opr=+"
Goto Mos
:2
Set /a res= val1 - val2
Set "opr=-"
Goto Mos
:3
Set /a res= Val1 * Val2
Set "opr=*"
Goto Mos
:4
Set /a res= Val1 / Val2
Set "opr=/"
Goto Mos
:Mos
Cls
Echo/%val1% %opr% %val2% = %res%
Pause >nul
Endlocal
Goto Chc
Salve o arquivo com qualquer nome, com a extensão .bat (Ex.: Calculadora.bat)
Execute o arquivo salvo, e pronto.
É claro que teria sido bem mais fácil usar a calculadora do Windows, mas, é bom saber heh :)
Estude bem este código, é ótimo para treinar lógica de programação.