COLOR TIME 彩色时间屏保 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

牛人，在屏幕上随机摆动是根据那个黑客帝国数码雨做出来的吧

随机行是采用的空行来实现的，但左右的随机位置怎么实现的，希望点解一下
有些不是蛮懂，先谢谢了

如果P开头改成这样的就更加完美了.

来自:http://www.cn-dos.net/forum/viewthread.php?tid=25095&fpage=1

@echo off
mode con cols=15 lines=1
if exist "Temp.bat" goto Main
>Temp.bat echo start/max "" "%~nx0"^&exit
start/max Temp.bat&exit

:Main
@echo off & setlocal EnableDelayedExpansion
mode con cols=125 lines=50

其中红色部分为新添加的内容,绿色加粗部分为修改过的内容.

声明:本人分辨率为1024*768.

真很羡慕，不知道自己什么时候能懂得更多。。。。

@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
chcp 437>nul
graftabl 936>nul
setlocal EnableDelayedExpansion
title COLOR TIME
call :tnb
set spc=
set font==██████████

:new
setlocal
color e%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!
set/a a=%random%%%50,b=%random%%%35
set nk=!spc:~0,%a%!
for /l %%a in (0,1,%b%) do echo.
if "%time:~0,1%"==" " set time=0%time:~1%

echo %nk% %date%
echo %nk% !%time:~0,1%a:█=%rdfont%! !%time:~1,1%a:█=%rdfont%! !%time:~3,1%a:█=%rdfont%! !%time:~4,1%a:█=%rdfont%!
echo %nk% !%time:~0,1%b:█=%rdfont%! !%time:~1,1%b:█=%rdfont%! !%time:~3,1%b:█=%rdfont%! !%time:~4,1%b:█=%rdfont%!
echo %nk% !%time:~0,1%c:█=%rdfont%! !%time:~1,1%c:█=%rdfont%! · !%time:~3,1%c:█=%rdfont%! !%time:~4,1%c:█=%rdfont%!
echo %nk% !%time:~0,1%d:█=%rdfont%! !%time:~1,1%d:█=%rdfont%! !%time:~3,1%d:█=%rdfont%! !%time:~4,1%d:█=%rdfont%!
echo %nk% !%time:~0,1%e:█=%rdfont%! !%time:~1,1%e:█=%rdfont%! · !%time:~3,1%e:█=%rdfont%! !%time:~4,1%e:█=%rdfont%!
echo %nk% www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
endlocal
goto :new

:tnb
rem 0-9 数字模样。
set 0a=█████
set 0b=█ █
set 0c=█ █
set 0d=█ █
set 0e=█████

set 1a= ██
set 1b= █
set 1c= █
set 1d= █
set 1e= █

set 2a= ███
set 2b= █
set 2c=█████
set 2d=█
set 2e=█████

set 3a= ███
set 3b= █
set 3c=█████
set 3d= █
set 3e=█████

set 4a=█
set 4b=█ █
set 4c=█████
set 4d= █
set 4e= █

set 5a=███
set 5b=█
set 5c=█████
set 5d= █
set 5e=█████

set 6a=███
set 6b=█
set 6c=█████
set 6d=█ █
set 6e=█████

set 7a=█████
set 7b=█ █
set 7c= █
set 7d= █
set 7e= █

set 8a=█████
set 8b=█ █
set 8c=█████
set 8d=█ █
set 8e=█████

set 9a=█████
set 9b=█ █
set 9c=█████
set 9d= █
set 9e= ████

永不上左上角的，囧。

里面用了ping命令，不知道在纯DOS下运行会不会出错？

稍微美化了一下：


@echo off & setlocal EnableDelayedExpansion 
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓

:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y

color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!

echo %nk%                  %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%!       !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%!   █  !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%!       !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%!   █  !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%!       !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new


:rdline
rem 随机改变行数 左右位置。
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do  set nk=!nk! 
set rdnb=0
goto :EOF

:gt
rem 得到时间 并替换成 数字模样。
if "%1"=="n" call :gt 0 n
if "%1"=="0" call set %2=a
if "%1"=="1" call set %2=b
if "%1"=="2" call set %2=c
if "%1"=="3" call set %2=d
if "%1"=="4" call set %2=e
if "%1"=="5" call set %2=f
if "%1"=="6" call set %2=g
if "%1"=="7" call set %2=h
if "%1"=="8" call set %2=i
if "%1"=="9" call set %2=j
goto :EOF



:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█      █
set a3=█      █
set a4=█      █
set a5=█████

set b1=    █    
set b2=    █    
set b3=    █    
set b4=    █    
set b5=    █    

set c1=█████
set c2=        █
set c3=█████
set c4=█        
set c5=█████

set d1=█████
set d2=        █
set d3=█████
set d4=        █
set d5=█████

set e1=█      █  
set e2=█      █
set e3=█████
set e4=        █
set e5=        █

set f1=█████
set f2=█        
set f3=█████
set f4=        █
set f5=█████

set g1=█████
set g2=█        
set g3=█████
set g4=█      █
set g5=█████

set h1=█████
set h2=█      █
set h3=        █
set h4=        █
set h5=        █

set i1=█████
set i2=█      █
set i3=█████
set i4=█      █
set i5=█████

set j1=█████
set j2=█      █
set j3=█████
set j4=        █
set j5=█████
goto :EOF

很有意思,学习学习函数

第31楼　fbwolf	发表于 2007-02-04 00:46
初级用户　发帖 22　积分 56
牛人，在屏幕上随机摆动是根据那个黑客帝国数码雨做出来的吧

第32楼　yqadsq1314	发表于 2007-02-05 08:57
初级用户　发帖 26　积分 30
希望点解随机行是采用的空行来实现的，但左右的随机位置怎么实现的，希望点解一下有些不是蛮懂，先谢谢了

第33楼　voiL	发表于 2007-02-07 04:32
中级用户　发帖 189　积分 384
如果P开头改成这样的就更加完美了. 来自:http://www.cn-dos.net/forum/viewthread.php?tid=25095&fpage=1 @echo off mode con cols=15 lines=1 if exist "Temp.bat" goto Main >Temp.bat echo start/max "" "%~nx0"^&exit start/max Temp.bat&exit :Main @echo off & setlocal EnableDelayedExpansion mode con cols=125 lines=50 其中红色部分为新添加的内容,绿色加粗部分为修改过的内容. 声明:本人分辨率为1024*768.

第34楼　6622186	发表于 2007-02-18 14:24
高级用户　发帖 411　积分 894
随笔看来高手真多

第35楼　frankwz	发表于 2007-04-14 09:27
初级用户　发帖 22　积分 41
好东西啊,高人

第36楼　frankwz	发表于 2007-04-14 09:27
初级用户　发帖 22　积分 41
好东西啊,高人

第37楼　slw218856	发表于 2008-08-21 20:31
初级用户　发帖 75　积分 133
真很羡慕，不知道自己什么时候能懂得更多。。。。

第38楼　gxnews	发表于 2008-11-03 17:25
新手上路　发帖 4　积分 5
牛！

第39楼　kgdetg1127	发表于 2008-11-03 20:36
初级用户　发帖 89　积分 158
顶.

第40楼　ktv98	发表于 2008-11-03 20:49
初级用户　发帖 81　积分 112
好东西啊,高人

第41楼　breakme	发表于 2010-06-30 11:35
新手上路　发帖 6　积分 5
全屏代码 @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 chcp 437>nul graftabl 936>nul setlocal EnableDelayedExpansion title COLOR TIME call :tnb set spc= set font==██████████ :new setlocal color e%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! set/a a=%random%%%50,b=%random%%%35 set nk=!spc:~0,%a%! for /l %%a in (0,1,%b%) do echo. if "%time:~0,1%"==" " set time=0%time:~1% echo %nk% %date% echo %nk% !%time:~0,1%a:█=%rdfont%! !%time:~1,1%a:█=%rdfont%! !%time:~3,1%a:█=%rdfont%! !%time:~4,1%a:█=%rdfont%! echo %nk% !%time:~0,1%b:█=%rdfont%! !%time:~1,1%b:█=%rdfont%! !%time:~3,1%b:█=%rdfont%! !%time:~4,1%b:█=%rdfont%! echo %nk% !%time:~0,1%c:█=%rdfont%! !%time:~1,1%c:█=%rdfont%! · !%time:~3,1%c:█=%rdfont%! !%time:~4,1%c:█=%rdfont%! echo %nk% !%time:~0,1%d:█=%rdfont%! !%time:~1,1%d:█=%rdfont%! !%time:~3,1%d:█=%rdfont%! !%time:~4,1%d:█=%rdfont%! echo %nk% !%time:~0,1%e:█=%rdfont%! !%time:~1,1%e:█=%rdfont%! · !%time:~3,1%e:█=%rdfont%! !%time:~4,1%e:█=%rdfont%! echo %nk% www.cn-dos.net DOSCC WINBY. ping 127.1 -n 3 >NUL cls endlocal goto :new :tnb rem 0-9 数字模样。 set 0a=█████ set 0b=█ █ set 0c=█ █ set 0d=█ █ set 0e=█████ set 1a= ██ set 1b= █ set 1c= █ set 1d= █ set 1e= █ set 2a= ███ set 2b= █ set 2c=█████ set 2d=█ set 2e=█████ set 3a= ███ set 3b= █ set 3c=█████ set 3d= █ set 3e=█████ set 4a=█ set 4b=█ █ set 4c=█████ set 4d= █ set 4e= █ set 5a=███ set 5b=█ set 5c=█████ set 5d= █ set 5e=█████ set 6a=███ set 6b=█ set 6c=█████ set 6d=█ █ set 6e=█████ set 7a=█████ set 7b=█ █ set 7c= █ set 7d= █ set 7e= █ set 8a=█████ set 8b=█ █ set 8c=█████ set 8d=█ █ set 8e=█████ set 9a=█████ set 9b=█ █ set 9c=█████ set 9d= █ set 9e= ████

第42楼　zouzhxi	发表于 2010-06-30 12:44
中级用户　发帖 177　积分 430　来自广东深圳
永不上左上角的，囧。

第43楼　jinzihao	发表于 2010-06-30 17:34
初级用户　发帖 62　积分 111　来自 http://ms-dos.cz.cc
里面用了ping命令，不知道在纯DOS下运行会不会出错？

第44楼　jinzihao	发表于 2010-06-30 19:41
初级用户　发帖 62　积分 111　来自 http://ms-dos.cz.cc
稍微美化了一下： @echo off & setlocal EnableDelayedExpansion mode con cols=100 lines=40 title COLOR TIME call :tnb set font=█★●◆□◎◇¤⊙〓 :new rem 主函数。 call :rdline call :gt %time:~0,1% n call :gt %time:~1,1% m call :gt %time:~3,1% z call :gt %time:~4,1% y color 0%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! echo %nk% %date% echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%! echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! █ !%z%2:█=%rdfont%! !%y%2:█=%rdfont%! echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! !%z%3:█=%rdfont%! !%y%3:█=%rdfont%! echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! █ !%z%4:█=%rdfont%! !%y%4:█=%rdfont%! echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! !%z%5:█=%rdfont%! !%y%5:█=%rdfont%! ping 127.1 -n 3 >NUL cls set nk= goto :new :rdline rem 随机改变行数左右位置。 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (1 1 %rdnb%) do set nk=!nk! set rdnb=0 goto :EOF :gt rem 得到时间并替换成数字模样。 if "%1"=="n" call :gt 0 n if "%1"=="0" call set %2=a if "%1"=="1" call set %2=b if "%1"=="2" call set %2=c if "%1"=="3" call set %2=d if "%1"=="4" call set %2=e if "%1"=="5" call set %2=f if "%1"=="6" call set %2=g if "%1"=="7" call set %2=h if "%1"=="8" call set %2=i if "%1"=="9" call set %2=j goto :EOF :tnb rem 0-9 数字模样。 set a1=█████ set a2=█ █ set a3=█ █ set a4=█ █ set a5=█████ set b1= █ set b2= █ set b3= █ set b4= █ set b5= █ set c1=█████ set c2= █ set c3=█████ set c4=█ set c5=█████ set d1=█████ set d2= █ set d3=█████ set d4= █ set d5=█████ set e1=█ █ set e2=█ █ set e3=█████ set e4= █ set e5= █ set f1=█████ set f2=█ set f3=█████ set f4= █ set f5=█████ set g1=█████ set g2=█ set g3=█████ set g4=█ █ set g5=█████ set h1=█████ set h2=█ █ set h3= █ set h4= █ set h5= █ set i1=█████ set i2=█ █ set i3=█████ set i4=█ █ set i5=█████ set j1=█████ set j2=█ █ set j3=█████ set j4= █ set j5=█████ goto :EOF

第45楼　holley	发表于 2010-11-25 10:35
新手上路　发帖 11　积分 12
很有意思,学习学习函数