中国DOS联盟

在此声明我不是在刻意标榜，而是以一个自豪的中国人身份写下了这段代码：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在此严重感谢zh159兄多次测试并指出bug。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
于2008年4月18日再次更新，加入毫秒倒计时。

@echo off&color ac&mode con cols=50 lines=10

title 奥运倒计时--made by zw19750516(cn-dos)

echo.&echo.&echo.

echo     我们每一个中国人都在期盼这一自豪时刻的到来！

echo.

for /l %%i in (1,1,100) do call,set cls=%%cls%%

goto one

:two

set n=2&set var=08-07&goto begin

<img src="images/smilies/face-surprise.png" align="absmiddle" border="0">ne

set n=1&set var=%date:~5,-4%

:begin

set month=%var:~1,1%&set number=29

set /a month-=1

for /l %%i in (1,1,%month%) do call :lp %%i

set /a number+=100%var:~3,2%%%100

set str=%str% %number%

if not %n% equ 2 goto two

for /f "tokens=1,2" %%i in ("%str%"<img src="images/smilies/face-wink.png" align="absmiddle" border="0"> do set /a day=%%j-%%i

set /a hm=100-1000%time:~9,2%%%1000,m=60-100%time:~6,2%%%100,f=60-100%time:~3,2%%%100,s=43-%time:~,2%

if %hm% equ 100 set /a hm-=100,m+=1

if %m% equ 60 set /a m-=60,f+=1

if %f% equ 60 set /a f-=60,h+=1

if %s% geq 24 set /a s-=24,day+=1

set /p=    离北京奥运开幕还有%day%天%s%小时%f%分%m%秒%hm%毫秒<nul

set /p=%cls%<nul

set n=0&set number=0

goto begin

:lp

for %%i in (1,3,5,7,8,10) do if %%i equ %1 set /a number+=31

for %%i in (4,6,9,11) do if %%i equ %1 set /a number+=30

Last edited by zw19750516 on 2008-4-19 at 09:13 PM ]

出现有的bug
1、60秒（现在离北京奥运开幕还有113天23小时43分60秒）
2、无效数字。数字常数只能是十进制(17)，十六位进制(0x11)或八进制(021)。（大概是在52、51秒的时候）

颜色改为4c可能好些

Last edited by zh159 on 2008-4-16 at 09:26 PM ]

ls说的问题解决了。

60秒还没解决
新的问题：
不能显示52、51秒，53秒在3秒后直接跳到50秒

PS：还剩129天？？？

Originally posted by zh159 at 2008-4-16 21:32:
60秒还没解决
新的问题：
不能显示52、51秒，53秒在3秒后直接跳到50秒

PS：还剩129天？？？

谢谢楼上60秒60分是我大意了，己解决，但53、52、51的问题不知从何入手！！！

Last edited by zw19750516 on 2008-4-16 at 09:49 PM ]

颜色用0c更换了。那个颜色太刺眼啦
其他的都正常

晕，还是上面的仔细，果真有53、52、51的问题

53、52、51的问题是你不能直接拿08，09进行计算，set/a会认为是8进制而计算错误（会提示“无效数字。数字常数只能是十进制(17)，十六位进制(0x11)或八进制(021)。”，只是闪的太快，不容易发现），所以01-09最好先去掉前面的0

再次感谢兄弟，其实我也往这方面想了，因其它的个位数都没问题，就没细想了，现在问题解决了，但代码长了好多。

当小时为 0 点时，代码无法正确运行，
另：使用cls 给人一种很不舒服的跳动感，建议用退格键来完成。

粗略作了一个，不知道计算方面有没有错误。
:

@echo off&color ac&mode con cols=50 lines=10

for /l %%a in (1 1 100) do call set "t=%%t%%"

for /f "tokens=1-3 delims=./- " %%a in ("%date%") do (

  set /a sy=%%a,sm=100%%b%%100,sd=100%%c%%100

)

for /l %%i in (%sm% 1 8) do call :loop %%i

set /a mt-=sd

for /f "tokens=1-3 delims=.: " %%a in ("%time%") do (

  set /a ss=20-100%%a%%100-1,ff=60-100%%b%%100,mm=60-100%%c%%100

)

echo.&echo.

echo     我们每个中国人都在期盼这一自豪时刻的到来！

echo.&echo.

set var=%time:~7,1%

:lis

if %mm% equ 0 set /a ff-=1,mm=59

if %ff% equ 0 set /a ss-=1,ff=59

if %ss% lss 0 set /a ss=%ss:~-1%,mt-=1

if %ss% equ 0 set /a ss=23,mt-=1

set /p=  现在离北京奥运开幕还有%mt%天%ss%小时%ff%分%mm:~-2%秒%time:~9%毫秒<nul

set /p=%t%<nul

set num=%time:~7,1%

if %var% neq %num% (set/a mm-=1&set var=%time:~7,1%)

goto lis

:loop

for /f "tokens=%~1" %%a in ("31 29 31 30 31 30 31 8") do set /a mt+=%%a

goto :eof

真的是离兄弟的差距太远，学习了！！！

稍做修改：

@echo off&color ac&mode con cols=50 lines=10

title 奥运倒计时

for /l %%a in (1 1 100) do call set "t=%%t%%"

for /f "tokens=1-3 delims=./- " %%a in ("%date%") do (

  set /a sy=%%a,sm=100%%b%%100,sd=100%%c%%100

)

for /l %%i in (%sm% 1 8) do call :loop %%i

set /a mt-=sd

for /f "tokens=1-3 delims=.: " %%a in ("%time%") do (

  set /a ss=20-100%%a%%100-1,ff=60-100%%b%%100,mm=60-100%%c%%100

)

echo.&echo.

echo     我们每个中国人都在期盼着这一自豪时刻的到来！

echo.&echo.&echo.

set var=%time:~7,1%

:lis

if %mm% equ 0 set /a ff-=1,mm=59

if %ff% equ 0 set /a ss-=1,ff=59

if %ss% lss 0 set /a ss=%ss:~-1%,mt-=1

if %ss% equ 0 set /a ss=23,mt-=1

set /p=  　离北京奥运开幕还有%mt%天%ss%小时%ff%分%mm:~-2%秒%time:~9%毫秒<nul

set /p=%t%<nul

set num=%time:~7,1%

if %var% neq %num% (set/a mm-=1&set var=%time:~7,1%)

goto lis

:loop

for /f "tokens=%~1" %%a in ("31 29 31 30 31 30 31 8") do set /a mt+=%%a

goto :eof

代码有点偷懒
最末尾的100分之一秒是在正计时
而非倒计时

当然
想精确的计算100分之一秒剩余稍微有些困难
因为这段时间内能进行的计算是有限的
如果代码性能太低
等计算出剩余值都指不定过了多少个100分之一秒

另外这也与代码的优化执行策略有关
比如以下这段代码

@echo off

set count=0

set b=0

:loop

set last=%b%

set b=1%time:~9,2%

set /a r=200-b

set /p=%r% <nul

set /a count+=1

if %count% lss 1000 goto loop

pause

有道理，好像这样可以显示毫秒的倒计时，不过也看不出来。呵呵。。
:

@echo off 

set n=101

for /l %%a in (1 1 100) do (

   set /a n-=1

   call set _%%a=%%n%%

)

:loop

set b=%time:~9%

call set /p=%%_%b%%%<nul

set /p=<nul

set /a count+=1

if %count% lss 1000 goto loop

pause

Last edited by 26933062 on 2008-4-18 at 10:25 AM ]