批处理时差显示 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

框架来源
http://www.cn-dos.net/forum/viewthread.php?tid=50583

关键代码
主要部分:

:JM1
::载入大数字信息
call :dsz
::设定目标时间
set timemb=24:00:00.00
::显示小框架
call :FK : %$JM1%时差计算程序
::显示提示信息
sybc 12110%duantou%%$JM3%描述信息:%$JM1%这只是一个简单的示例,用以演示和测试SYBC的性能.
:JM1_1
::记录当前时间
set timexz=%time%
::计算时差
call :sybt %timexz% %timemb%
::拆分时差的小数部分(厘秒部分)
set /a ts=T/100,tl=T%%100
::补足位数
if %tl% lss 10 set tl=0%tl%
::补足位数
set TT=000000000%Ts%.%tl%
::显示各时间
sybc 10610%duantou%%$JM3%现在时间: %$JM1%%timexz%;%duantou%%$JM3%目标时间: %$JM1%%timemb%;%duantou%%$JM3%剩余时间: %$JM1%%timecj%
::显示大字版时差
for /l %%A in (0,1,7) do set /a zb=10910+%%A*7&&call sybc !zb!%$JM3%%%dsz!timecj:~%%A,1!%%
::显示小字版时差
sybc 11410%duantou%%$JM3%剩余秒数: %$JM1%%Ts%.%Tl% %$JM3%秒   ;
::显示大字版秒差
for /l %%A in (-1,-1,-9) do set /a zb=11573+%%A*7&&call sybc !zb!%$JM3%%%dsz!TT:~%%A,1!%%
::返回刷新
goto :JM1_1
goto :EOF

附加部分:

 :dsz
set dsz0=▓▓▓;▓  ▓;▓  ▓;▓  ▓;▓▓▓;
set dsz1=    ▓;    ▓;    ▓;    ▓;    ▓;
set dsz2=▓▓▓;    ▓;▓▓▓;▓    ;▓▓▓;
set dsz3=▓▓▓;    ▓;▓▓▓;    ▓;▓▓▓;
set dsz4=▓  ▓;▓  ▓;▓▓▓;    ▓;    ▓;
set dsz5=▓▓▓;▓    ;▓▓▓;    ▓;▓▓▓;
set dsz6=▓▓▓;▓    ;▓▓▓;▓  ▓;▓▓▓;
set dsz7=▓▓▓;    ▓;    ▓;    ▓;    ▓;
set dsz8=▓▓▓;▓  ▓;▓▓▓;▓  ▓;▓▓▓;
set dsz9=▓▓▓;▓  ▓;▓▓▓;    ▓;▓▓▓;
set dsz:=      ;  ▓  ;      ;  ▓  ;      ;
set dsz.=      ;      ;      ;      ;  ▓  ;
goto :eof

:SYBT
IF "%1" == "" EXIT /B 0
FOR /F "DELIMS=:. TOKENS=1,2,3,4" %%N IN ("%1") DO SET O=1%%O&SET P=1%%P&SET Q=1%%Q&SET /A N=100+%%N
IF "%2" == "" SET /A T=N*360000+O*6000+P*100+Q-36610100&&EXIT /B !T!
FOR /F "DELIMS=:. TOKENS=1,2,3,4" %%M IN ("%2") DO SET I=1%%N&SET J=1%%O&SET K=1%%P&SET /A H=100+%%M
SET /A H=H-N,I=I-O,J=J-P,K=K-Q,T=H*360000+I*6000+J*100+K
if %t% lss 1 set /a T=T+8640000
set /a H=T%%8640000/360000,I=T%%360000/6000,J=T%%6000/100,K=T%%100
if %H% lss 10 set h=0%h%
if %i% lss 10 set i=0%i%
if %j% lss 10 set j=0%j%
if %k% lss 10 set k=0%k%
set timecj=%H%:%I%:%J%.%K%
EXIT /B !%T%!

[ Last edited by sl543001 on 2010-7-9 at 00:33 ]

第1楼　sl543001	发表于 2010-07-09 00:23
中级用户　发帖 225　积分 499
[原创]批处理时差显示 [SYBC彩色演示代码] 动态刷新显示当前时间到某个时间的时差,以及时差秒数使用模块:SYBC,SYBT,之前某代码的框架 [ Last edited by sl543001 on 2010-7-9 at 00:52 ] 附件时差.gif (9.61 KiB) 时差.gif (9.37 KiB)

第2楼　sl543001	发表于 2010-07-09 00:25
中级用户　发帖 225　积分 499
框架来源 http://www.cn-dos.net/forum/viewthread.php?tid=50583 关键代码主要部分: :JM1 ::载入大数字信息 call :dsz ::设定目标时间 set timemb=24:00:00.00 ::显示小框架 call :FK : %$JM1%时差计算程序 ::显示提示信息 sybc 12110%duantou%%$JM3%描述信息:%$JM1%这只是一个简单的示例,用以演示和测试SYBC的性能. :JM1_1 ::记录当前时间 set timexz=%time% ::计算时差 call :sybt %timexz% %timemb% ::拆分时差的小数部分(厘秒部分) set /a ts=T/100,tl=T%%100 ::补足位数 if %tl% lss 10 set tl=0%tl% ::补足位数 set TT=000000000%Ts%.%tl% ::显示各时间 sybc 10610%duantou%%$JM3%现在时间: %$JM1%%timexz%;%duantou%%$JM3%目标时间: %$JM1%%timemb%;%duantou%%$JM3%剩余时间: %$JM1%%timecj% ::显示大字版时差 for /l %%A in (0,1,7) do set /a zb=10910+%%A7&&call sybc !zb!%$JM3%%%dsz!timecj:~%%A,1!%% ::显示小字版时差 sybc 11410%duantou%%$JM3%剩余秒数: %$JM1%%Ts%.%Tl% %$JM3%秒 ; ::显示大字版秒差 for /l %%A in (-1,-1,-9) do set /a zb=11573+%%A7&&call sybc !zb!%$JM3%%%dsz!TT:~%%A,1!%% ::返回刷新 goto :JM1_1 goto :EOF 附加部分: :dsz set dsz0=▓▓▓;▓ ▓;▓ ▓;▓ ▓;▓▓▓; set dsz1= ▓; ▓; ▓; ▓; ▓; set dsz2=▓▓▓; ▓;▓▓▓;▓ ;▓▓▓; set dsz3=▓▓▓; ▓;▓▓▓; ▓;▓▓▓; set dsz4=▓ ▓;▓ ▓;▓▓▓; ▓; ▓; set dsz5=▓▓▓;▓ ;▓▓▓; ▓;▓▓▓; set dsz6=▓▓▓;▓ ;▓▓▓;▓ ▓;▓▓▓; set dsz7=▓▓▓; ▓; ▓; ▓; ▓; set dsz8=▓▓▓;▓ ▓;▓▓▓;▓ ▓;▓▓▓; set dsz9=▓▓▓;▓ ▓;▓▓▓; ▓;▓▓▓; set dsz:= ; ▓ ; ; ▓ ; ; set dsz.= ; ; ; ; ▓ ; goto :eof :SYBT IF "%1" == "" EXIT /B 0 FOR /F "DELIMS=:. TOKENS=1,2,3,4" %%N IN ("%1") DO SET O=1%%O&SET P=1%%P&SET Q=1%%Q&SET /A N=100+%%N IF "%2" == "" SET /A T=N360000+O6000+P100+Q-36610100&&EXIT /B !T! FOR /F "DELIMS=:. TOKENS=1,2,3,4" %%M IN ("%2") DO SET I=1%%N&SET J=1%%O&SET K=1%%P&SET /A H=100+%%M SET /A H=H-N,I=I-O,J=J-P,K=K-Q,T=H360000+I6000+J100+K if %t% lss 1 set /a T=T+8640000 set /a H=T%%8640000/360000,I=T%%360000/6000,J=T%%6000/100,K=T%%100 if %H% lss 10 set h=0%h% if %i% lss 10 set i=0%i% if %j% lss 10 set j=0%j% if %k% lss 10 set k=0%k% set timecj=%H%:%I%:%J%.%K% EXIT /B !%T%! [ Last edited by sl543001 on 2010-7-9 at 00:33 ]

第3楼　sl543001	发表于 2010-07-09 00:29
中级用户　发帖 225　积分 499
主要就上边的10几行代码,嵌入到框架里[用上面的:JM1替换掉框架代码的:JM1] 将附加部分添加到框架代码结尾,就可以使用了

第4楼　sl543001	发表于 2010-07-09 00:34
中级用户　发帖 225　积分 499
看电影无聊,花了一个小时,写了这点代码,看不明白的可以问我 QQ 354324773 Q群 3401238

第5楼　sl543001	发表于 2010-07-09 00:37
中级用户　发帖 225　积分 499
解释一下这句话,省的大家看不明白 sybc 11410%duantou%%$JM3%剩余秒数: %$JM1%%Ts%.%Tl% %$JM3%秒 ; 一下三个变量属于此框架专属公共变量 %duantou% 是那个绿色的双圈字符 %$JM3% 表示黄子 %$JM1% 表示白字所以可以看成在"11410"这个位置,显示一个"绿色的双圈字符"然后显示"黄色的"剩余秒数:字样,然后"白色的"秒数信息,然后显示"黄色的"秒字 [ Last edited by sl543001 on 2010-7-9 at 00:40 ]

第6楼　sl543001	发表于 2010-07-09 17:57
中级用户　发帖 225　积分 499
完整代码附件 SYBN彩色时差脚本[未优化].cmd.zip (4.29 KiB)

第7楼　sl543001	发表于 2010-07-21 23:17
中级用户　发帖 225　积分 499
此脚本,可以在win7中使用