标题: [原创]模拟秒表（有助新手理解if格式） [打印本页]
作者: bat-zw 时间: 2008-4-19 19:07 标题: [原创]模拟秒表（有助新手理解if格式）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
修正当b大于10,c小于10,c只显示一位的bug
@echo off&color 4a&mode con cols=35 lines=4
title 暂停使用ctrl+s键，任意键启动
set a=0&set b=0&set c=0&set d=0
for /l %%i in (1,1,100) do call,set cls=%%cls%%
echo.
:begin
set /a e+=1
if %e% equ 2 set e=0&set /a d+=1
if %d% equ 100 set d=0&set /a c+=1
if %c% equ 60 set c=0&set /a b+=1
if %b% equ 60 set b=0&set /a a+=1
if %b% lss 10 (
if %c% lss 10 (
set /p= %a%:0%b%:0%c%.%d%<nul
) else (
set /p= %a%:0%b%:%c%.%d%<nul
)
) else (
if %c% lss 10 (
set /p= %a%:%b%:0%c%.%d%<nul
) else (
set /p= %a%:%b%:%c%.%d%<nul
)
)
set /p=%cls%<nul
goto begin
[ Last edited by zw19750516 on 2008-4-19 at 07:56 PM ]title 暂停使用ctrl+s键，任意键启动
set a=0&set b=0&set c=0&set d=0
for /l %%i in (1,1,100) do call,set cls=%%cls%%
echo.
:begin
set /a e+=1
if %e% equ 2 set e=0&set /a d+=1
if %d% equ 100 set d=0&set /a c+=1
if %c% equ 60 set c=0&set /a b+=1
if %b% equ 60 set b=0&set /a a+=1
if %b% lss 10 (
if %c% lss 10 (
set /p= %a%:0%b%:0%c%.%d%<nul
) else (
set /p= %a%:0%b%:%c%.%d%<nul
)
) else (
if %c% lss 10 (
set /p= %a%:%b%:0%c%.%d%<nul
) else (
set /p= %a%:%b%:%c%.%d%<nul
)
)
set /p=%cls%<nul
goto begin
作者: pusofalse 时间: 2008-4-19 20:32
那个退格键在这里是什么含义~？
作者: 26933062 时间: 2008-4-20 06:37
:
@echo off&title CtrL+s 键暂停，任意键启动
color 4a&mode con cols=35 lines=4&echo.
for /l %%i in (1,1,100) do call,set cls=%%cls%%
:loop
set /a d=(d+1)%%100,c=(c+!d)%%60,b+=!(c+d),a+=!(b+c+d)
for %%a in (a b c d) do call set a%%a=0%%%%a%%
set /p= %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
set /p=%cls%<nul
goto loop
color 4a&mode con cols=35 lines=4&echo.
for /l %%i in (1,1,100) do call,set cls=%%cls%%
:loop
set /a d=(d+1)%%100,c=(c+!d)%%60,b+=!(c+d),a+=!(b+c+d)
for %%a in (a b c d) do call set a%%a=0%%%%a%%
set /p= %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
set /p=%cls%<nul
goto loop