标题: [数值计算] Hope计算器 [打印本页]
作者: HOPE2021 时间: 2021-8-12 14:56 标题: Hope计算器
代码:- @echo off
- ENDLOCAL
- SETLOCAL DISABLEDELAYEDEXPANSION
- chcp 936 > nul
- Rem By Hope2021
- title Hope计算器[键入H以查看帮助]
- mode con cols=38 lines=19
- color f9
- cls
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo. HOPE
- call :Vbs_Sleep 1000
- cls
- @goto :Start
-
- :Start
- title Hope计算器[键入H以查看帮助]
- set "Math=0*0"
- color 0f
- echo.
- set /p Math= ^>^>
- if /i "%Math%"=="h" goto :Help
- set Math_2=%Math:pi=3.141592653589793238462643383279%
- set Math_2=%Math_2:power=^^^^^^^^%
- set Math_2=%Math_2:e=2.718281828459%
- set Math_2=%Math_2:gs=1.618033988749894848204586834%
- call :VisualSet Result "%Math_2%"
- echo.
- echo. ^>^> %Math% = %Result%
- @goto :Start
-
- :Vbs_Sleep
- echo.Wscript.Sleep %1 > Sleep.vbs
- call Sleep.vbs > nul
- if exist ReturnKey.vbs del ReturnKey.vbs
- @goto :eof
-
- :VisualSet
- @echo off
- echo X=%~2>>VisualSet.vbs
- echo wscript.echo(X)>>VisualSet.vbs
- for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
- if exist VisualSet.vbs del VisualSet.vbs
- goto :eof
-
- :Help
- echo.
- echo. Hope 简易计算器
- echo.
- set /p Str=--------------------------------------<nul
- echo.
- echo.
- echo. 加 减 乘 除 + - * /
- echo. 圆周率 Pi
- echo. 自然常数 E
- echo. 黄金分割率 Gs
- echo. 次方 Power
- echo. 平方根 sqr(x)
- echo. 次方根 xPower(y/z)
- echo. sin sin(x)
- echo. cos cos(x)
- echo. tan tan(x)
- @goto :Start
复制代码
作者: zz100001 时间: 2021-8-22 23:31
哥们,你这是套壳啊,而且计算结果也不能在bat里面用。。
发现一些问题:
1.报错的处理没有屏蔽,都显示出来了不美观
2.运算结果有缓存,如果除了故障,结果会直接显示上次的
3.次方根没有反应
作者: HOPE2021 时间: 2021-8-23 08:48
回复 2# zz100001
2.0.0000版本- @echo off
- ENDLOCAL
- SETLOCAL DISABLEDELAYEDEXPANSION
- chcp 936 > nul
- Rem By Hope2021
- title Hope计算器[键入H以查看帮助]
- mode con cols=38 lines=19
- color f9
- cls
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo. HOPE
- call :Vbs_Sleep 1000
- cls
- @goto :Start
-
- :Start
- cls
- title Hope计算器[键入H以查看帮助]
- set "Math=0*0"
- set "Result=Error"
- color 0f
- echo.
- set /p Math= ^>^>
- if /i "%Math%"=="h" goto :Help
- set Math_2=%Math:pi=3.141592653589793238462643383279%
- set Math_2=%Math_2:power=^^^^^^^^%
- set Math_2=%Math_2:e=2.718281828459%
- set Math_2=%Math_2:gs=1.618033988749894848204586834%
- call :VisualSet Result "0+%Math_2%"
- cls
- echo.
- echo. ^>^> %Math% = %Result%
- echo.
- echo. ^>^> 请按回车键进行下一次计算...
- pause > nul
- @goto :Start
-
- :Vbs_Sleep
- echo.Wscript.Sleep %1 > Sleep.vbs
- call Sleep.vbs > nul
- if exist ReturnKey.vbs del ReturnKey.vbs
- @goto :eof
-
- :VisualSet
- @echo off
- echo X=%~2>>VisualSet.vbs
- echo wscript.echo(X)>>VisualSet.vbs
- for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
- if exist VisualSet.vbs del VisualSet.vbs
- goto :eof
-
- :Help
- echo.
- echo. Hope 简易计算器
- echo.
- set /p Str=--------------------------------------<nul
- echo.
- echo.
- echo. 加 减 乘 除 + - * /
- echo. 圆周率 Pi
- echo. 自然常数 E
- echo. 黄金分割率 Gs
- echo. 次方 Power
- echo. 平方根 sqr(x)
- echo. 次方根 xPower(y/z)
- echo. sin sin(x)
- echo. cos cos(x)
- echo. tan tan(x)
- @goto :Start
复制代码
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |