中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 时钟--斜体+毫秒(更新,减少cpu和闪烁)
« [1] [2] »
作者:
标题: 时钟--斜体+毫秒(更新,减少cpu和闪烁) 上一主题 | 下一主题
crazysakura
初级用户





积分 82
发帖 46
注册 2008-8-15
状态 离线
『第 16 楼』:  

太神奇了,,,如果能是正的,就好了

2008-8-16 01:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 17 楼』:  

哈,给做成屏保 和整体的吧
@echo off
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
title made by 523066680 2008-08-08
::这一版本由www.cn-dos.net & www.bathome.cn 成员523066680编辑
setlocal enabledelayedexpansion
set n=-1
for %%a in (1 2 3 5 9 a b c d e f) do (set /a n+=1 &set n!n!=%%a)
set 01=●●●●
set 02=●    ●
set 03=●    ●
set 04=●    ●
set 05=●●●●
set 11=   ●   
set 12=   ●   
set 13=   ●   
set 14=   ●   
set 15=   ●   
set 21=●●●●
set 22=      ●
set 23=●●●●
set 24=●      
set 25=●●●●
set 31=●●●●
set 32=      ●
set 33=●●●●
set 34=      ●
set 35=●●●●
set 41=●    ●
set 42=●    ●
set 43=●●●●
set 44=      ●
set 45=      ●
set 51=●●●●
set 52=●      
set 53=●●●●
set 54=      ●
set 55=●●●●
set 61=●●●●
set 62=●      
set 63=●●●●
set 64=●    ●
set 65=●●●●
set 71=●●●●
set 72=      ●
set 73=      ●
set 74=      ●
set 75=      ●
set 81=●●●●
set 82=●    ●
set 83=●●●●
set 84=●    ●
set 85=●●●●
set 91=●●●●
set 92=●    ●
set 93=●●●●
set 94=      ●
set 95=●●●●
:a
for /f %%a in ('time /t') do (set to=%%a &set /a t1=!to:~0,1!,t2=!to:~1,1!)
for /l %%a in (1,1,5) do (
set hang%%a=!%t1%%%a! !%t2%%%a!    !%time:~3,1%%%a! !%time:~4,1%%%a!    !%time:~6,1%%%a! !%time:~7,1%%%a!)
if %random:~-1% leq 6 (set /a n=!random:~-1!*2) else (set n=!random:~-1!)
set k=
for /l %%a in (1,1,%random:~-1%) do (set k=  !k!)
ping -n 1 -w 500 0.0.0.1>nul &cls
color 0!n%random:~-1%!
for /l %%a in (1,1,%n%) do echo,
echo,%k%%hang1%
echo,%k%%hang2%
echo,%k%%hang3%
echo,%k%%hang4%
echo,%k%%hang5%
goto :a
[ Last edited by 523066680 on 2008-8-16 at 10:18 AM ]



综合型编程论坛

我的作品索引
  
2008-8-16 08:00
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
BC
中级用户




积分 338
发帖 175
注册 2007-10-21
状态 离线
『第 18 楼』:  

不错



C:\
C:\Del BC
2008-8-16 19:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
uiopuiop
中级用户





积分 400
发帖 211
注册 2007-9-30
状态 离线
『第 19 楼』:  我也来个,低CPU消耗


@echo off
title Clock
mode con cols=85 lines=14
color 0a
:start
echo.&echo.
banner.exe  " %time:~0,-3%" -c:@
ping 127.1 -n 2 >nul &ping -n>nul
cls
goto start


附件 1: clock.zip (2009-5-29 12:41, 10.74 K,下载次数: 5)
2009-5-29 12:41
查看资料  发短消息 网志   编辑帖子  回复  引用回复
tongzj
初级用户





积分 49
发帖 43
注册 2007-1-20
状态 离线
『第 20 楼』:  

不错,正好需要,学习了。
改了一个非斜体的。

@echo off
setlocal enabledelayedexpansion
title 时钟
mode con cols=55 lines=7
color 0a
set 01=▉▉▉
set 02=▉  ▉
set 03=▉  ▉
set 04=▉  ▉
set 05=▉▉▉
set 11=  ▉ 
set 12=  ▉ 
set 13=  ▉ 
set 14=  ▉ 
set 15=  ▉ 
set 21=▉▉▉
set 22=    ▉
set 23=▉▉▉
set 24=▉  
set 25=▉▉▉
set 31=▉▉▉
set 32=    ▉
set 33=▉▉▉
set 34=    ▉
set 35=▉▉▉
set 41=▉  ▉
set 42=▉  ▉
set 43=▉▉▉
set 44=    ▉
set 45=    ▉
set 51=▉▉▉
set 52=▉  
set 53=▉▉▉
set 54=  ▉
set 55=▉▉▉
set 61=▉▉▉
set 62=▉  
set 63=▉▉▉
set 64=▉  ▉
set 65=▉▉▉
set 71=▉▉▉
set 72=    ▉
set 73=    ▉
set 74=    ▉
set 75=    ▉
set 81=▉▉▉
set 82=▉  ▉
set 83=▉▉▉
set 84=▉  ▉
set 85=▉▉▉
set 91=▉▉▉
set 92=▉  ▉
set 93=▉▉▉
set 94=    ▉
set 95=▉▉▉
:a
for /f %%a in ('time /t') do set t0=%%a&set /a t1=!t0:~0,1!,t2=!t0:~1,1!
for /l %%a in (1,1,5) do (set hang%%a=!%t1%%%a! !%t2%%%a!   +   !%time:~3,1%%%a! !%time:~4,1%%%a!   +   !%time:~6,1%%%a! !%time:~7,1%%%a!)
choice /c yn /t 1 /d y>nul
cls
echo.
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
goto a

2009-5-29 23:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yzdocean
新手上路





积分 1
发帖 3
注册 2009-2-12
状态 离线
『第 21 楼』:  

很经典的例子,谢谢分享!

2009-5-30 00:11
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
gudou
初级用户





积分 43
发帖 29
注册 2008-3-31
状态 离线
『第 22 楼』:  

厉害啊,不过20楼的代码闪屏太厉害

2011-1-4 12:58
查看资料  发短消息 网志   编辑帖子  回复  引用回复
acaigg
初级用户





积分 115
发帖 92
注册 2010-12-24
状态 离线
『第 23 楼』:  

加分以示支持.........

2011-1-6 21:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
sdlwsch
初级用户





积分 27
发帖 15
注册 2006-3-17
状态 离线
『第 24 楼』:  

都是牛人!!

2011-1-7 16:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: