06-28-2008, 12:34 PM
Just got the idea to make a calculator using batch. Now i know Ãts Useless since your comp probably has one already, but try this one anyway. And maybe just maybe you can learn something by reading the script.. who knows.. anyway. here it is
copy the code and paste into notepad, save as calculator.bat or whatever and run it.
copy the code and paste into notepad, save as calculator.bat or whatever and run it.
Batch Calculator (Click to View)
@echo off
title Calculator
:intro
cls
set /a calc=0
:intro2
cls
echo -------------------------------------------------------------------------------
echo _________________________________Batch Calculator______________________________
echo -------------------------------------------------------------------------------
echo .
echo .
echo (No dividing!)
set /p type=Calculate:
set /a calc= %type%
echo #########################################################
echo ...
echo The result is: %calc%
echo set ss = createobject("Wscript.shell")>>%calc%.vbs
echo ss.run "notepad.exe">>%calc%.vbs
echo wscript.sleep 1000>>%calc%.vbs
echo ss.sendkeys "a">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "n">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "s">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "w">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "e">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "r">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys " ">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys "=">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys " ">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "%calc%">>%calc%.vbs
start %calc%.vbs
echo .
echo .
echo Start over = type "s"
echo Continue calculating on the answer = type "c"
echo Get on with your life? = type "x"
set /p choice=
del %calc%.vbs
if %choice%==s goto intro
if %choice%==c goto intro2
if %choice%==x goto end
cls
:end
MSG * Thanks for using!
MSG * now get on with your life.
exit
title Calculator
:intro
cls
set /a calc=0
:intro2
cls
echo -------------------------------------------------------------------------------
echo _________________________________Batch Calculator______________________________
echo -------------------------------------------------------------------------------
echo .
echo .
echo (No dividing!)
set /p type=Calculate:
set /a calc= %type%
echo #########################################################
echo ...
echo The result is: %calc%
echo set ss = createobject("Wscript.shell")>>%calc%.vbs
echo ss.run "notepad.exe">>%calc%.vbs
echo wscript.sleep 1000>>%calc%.vbs
echo ss.sendkeys "a">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "n">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "s">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "w">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "e">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "r">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys " ">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys "=">>%calc%.vbs
echo wscript.sleep 500>>%calc%.vbs
echo ss.sendkeys " ">>%calc%.vbs
echo wscript.sleep 300>>%calc%.vbs
echo ss.sendkeys "%calc%">>%calc%.vbs
start %calc%.vbs
echo .
echo .
echo Start over = type "s"
echo Continue calculating on the answer = type "c"
echo Get on with your life? = type "x"
set /p choice=
del %calc%.vbs
if %choice%==s goto intro
if %choice%==c goto intro2
if %choice%==x goto end
cls
:end
MSG * Thanks for using!
MSG * now get on with your life.
exit