批处理之家 » BAT原创&转载 » 批处理模拟秒表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2008-4-20 06:38 | 只看该作者

[游戏娱乐] 批处理模拟秒表

@echo off&title 秒表
::code 随风 @bbs.bathome.cn   2008-05-02
if "%~1"=="" color 4a&mode con cols=35 lines=4
set cls=
for /l %%i in (1,1,100) do call,set cls=%%cls%%
:list
if "%~1"=="loop" cls&echo 按任意键暂停&goto loop
subst z: "%cd%"
start /b %~s0 loop
pause>nul
subst z: /d
pause>nul
goto list
:loop
  if not exist z: (
    cls&echo 按任意键重新开始
    set /p=             %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
    exit
  )
  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
复制代码

技术问题请到论坛发帖求助！

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 68
积分: 991
技术: 1
捐助: 0
注册时间: 2008-3-8

2楼

发表于 2008-4-20 12:36 | 只看该作者

有个问题啊，那个“cls=%%cls%%”中的退格键怎么打出来的啊？

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

3楼

发表于 2008-4-20 13:07 | 只看该作者

::退格键的输入方法
无法直接用批处理打出来。
开始、运行。。。依次运行下面的内容。
cmd
edit
ctrl+p
alt+08
保存，退出。

1 评分人数

plp626: 学习，再巩固一次PB + 2

技术问题请到论坛发帖求助！

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

4楼

发表于 2011-9-1 20:35 | 只看该作者

跟真的很像～
可以拿来计时了～

http://garyngzhongbo.blogspot.com

Rank: 2

帖子: 101
积分: 142
技术: 5
捐助: 0
注册时间: 2012-8-20

5楼

发表于 2012-11-24 16:20 | 只看该作者

太不准了，我发个简单点的

@echo off
mode con cols=40 lines=5
title 简易秒表
echo.
echo      按任意键开始计时……
pause>nul
set js=0
:m
cls
echo.
echo      已过了%js%秒
echo      ctrl+c暂停或退出。
set /a js=%js%+1
ping 127.1 -n 2 >nul
goto m
复制代码

Rank: 2

帖子: 101
积分: 142
技术: 5
捐助: 0
注册时间: 2012-8-20

6楼

发表于 2012-11-24 16:20 | 只看该作者

太不准了，我发个简单点的

@echo off
mode con cols=40 lines=5
title 简易秒表
echo.
echo      按任意键开始计时……
pause>nul
set js=0
:m
cls
echo.
echo      已过了%js%秒
echo      ctrl+c暂停或退出。
set /a js=%js%+1
ping 127.1 -n 2 >nul
goto m
复制代码

Rank: 8 Rank: 8

帖子: 888
积分: 6682
技术: 88
捐助: 0
注册时间: 2012-10-27

7楼

发表于 2012-11-24 16:32 | 只看该作者

回复 6# 111

你要实现跟楼主一样的功能，然后再来比较代码长短吧。

Rank: 1

帖子: 10
积分: 24
技术: 1
捐助: 0
注册时间: 2013-1-25

8楼

发表于 2013-1-31 13:41 | 只看该作者

@echo off
title 简易秒表  By: Clark 1623911526@qq.com
mode con cols=46 lines=4
PUSHD "%temp%"
call :sleep
echo.
echo      按任意键开始计时。。。
pause>nul
set s=0
set ms=0
:loop
cls
if %ms%==10 set /a ms=0
echo.
echo      已过了%s%.%ms%秒
echo      Ctrl+C暂停或退出。
if %ms%==9 set /a s=%s%+1
set /a ms=%ms:~0,1%+1
"%temp%"\sleep.exe 100
goto loop

:sleep
@echo ^<package^>^<cab xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64"^> >xx
@echo TVNDRgAAAACvAQAAAAAAACwAAAAAAAAAAwEBAAEAAAAAAAAARgAAAAEAAQAABAAAAAAAAAAA>>xx
@echo P0IyaiAAc2xlZXAuZXhlAANlt9ZhAQAEQ0vzjQpgZGRgYGAB4v//GRgCQBwgcGAgDCYA8Z99>>xx
@echo jQz823z+pxleSjM84FmhsEbHoEjEhrNcIC37Elca4yG942z6DIYMr5/o/VfTZ+BjSMu89IKZ>>xx
@echo gSGt82LawZcCW9rOiu5g8DmrCDMzwJWBwQfoooDKpWYwsQcM/IzcjKw8DEwIu+sEgAQIK0Bd>>xx
@echo C2IzQfzBwICgwfJQfcxgUgCiFk7DKQgbyNEgwu8kAwFUe9CBXklqRQmQvgNzEBPC3UheeUBt>>xx
@echo Z4UB7UoB4jKo49yQHGkhwIDT0d6uQX6uPsZGeik5OZimMDC4VmSWBBTlJ6cWFwN57qklzvm5>>xx
@echo uYl5KT6ZeamOQJHgnNTUAob/oiwCDgyGlzwcGiwYSgQbLJRKmb5f4rxU+r7BQqH0lcOfzmOG>>xx
@echo lwwPrOE4UKIMTFeiwHQlCExWjIeOs54EajwLxK8f/VcFsZcCcdB/UQ4glQU0l0GAmBQ8>>xx
@echo CgA=>>xx
@echo ^</cab^>^<job^>^<script language="VBScript"^> >>xx
@echo Set xml = CreateObject("Microsoft.XMLDOM")>>xx
@echo xml.load WScript.ScriptFullName>>xx
@echo Set stm = CreateObject("ADODB.Stream")>>xx
@echo stm.Open : stm.Type = 1 >>xx
@echo stm.Write xml.documentElement.childNodes.item(0).nodeTypedValue>>xx
@echo stm.SaveToFile "xx.cab">>xx
@echo ^</script^>^</job^>^</package^> >>xx
@rename xx xx.wsf
@cscript.exe //nologo xx.wsf
@expand.exe -r xx.cab>nul
@del xx.wsf & del xx.cab
POPD
goto :eof
复制代码

本来还想写个带分钟显示的

Rank: 1

帖子: 14
积分: 28
技术: 0
捐助: 0
注册时间: 2019-6-9

9楼

发表于 2019-7-31 16:13 | 只看该作者

大神，这个能解释下吗，秒表是怎么实现的呢

批处理方便生活

Rank: 3 Rank: 3

帖子: 185
积分: 260
技术: 14
捐助: 0
注册时间: 2022-4-23

10楼

发表于 2022-5-1 10:13 | 只看该作者

回复 9# pichuli2019

延时+变量

https://pc.woozooo.com/mydisk.php

永远的中国

Rank: 1

帖子: 2
积分: 13
技术: 0
捐助: 0
注册时间: 2022-5-15

11楼

发表于 2022-5-15 17:37 | 只看该作者

保存为哪种编码格式呢

Rank: 1

帖子: 2
积分: 13
技术: 0
捐助: 0
注册时间: 2018-7-13

12楼

发表于 2022-8-22 17:32 | 只看该作者

都是高手啊，学习了。

Rank: 1

帖子: 2
积分: 13
技术: 0
捐助: 0
注册时间: 2024-9-17

13楼

发表于 2024-9-17 16:47 | 只看该作者

回复 10# LJY4.0

批处理默认格式就能运行吧