如何用python编写数字雨的程序

cmaedu.com哦。就是黑客帝国的那个。很有意思。我知道有人写过，而且还是3D的。可以旋转的。

python的3D编程应该有不少的界面。我个人觉着可以先从2D开始容易些。

准备一系列字的图片。可以在程序起动时，绘制在一个PNG图上。再准备这些字的发光的图。同样缓制好放在内存里。

cmaedu.com设置，好一些充填的路径。就是那种下雨感觉的路径。先事先计算好。别临时去排版去计算。

建立一系列的类似微线程的任务。游戏开发里似乎有专门的名称，我忘记叫什么名子了。意思就是在一次时钟频率里，一次性刷新所有的动画。

cmaedu.com将各个任务（也就是刷新路线的任务），对应的图取出来，分别依次对应原图闪光以及不闪光的三个图。

cmaedu.com刷新频率可以按每少5-10帧计算。

cmaedu.com每次刷新都是绘制在后台d-buffer里，然后再绘制到前面。

cmaedu.com这是一个复杂的算法。

当然也有更简单的算法。

找一个下雨的屏保，然后你再找一个抓屏软件，每0.2秒抓一次屏幕，连续抓10秒。然后把抓的结果图片，用python顺序显示出来。

谁有黑客帝国里面的数字雨的动态图片

孩子~自己做吧！首先点击开始→所有程序→附件→记事本 然后就把下面的代码复制到记事本里，另存为“黑客帝国数字雨.bat” 然后另存为成功后运行文件即可实现桌面数字雨或按Alt+Enter实现全屏数字雨

cmaedu.com注：请忽修改下面数字雨代码的任何一个字母，否则将无法成功允许(包括空格在内)

数字雨代码如下： @echo %dbg% off

setlocal ENABLEDELAYEDEXPANSION

mode con cols=80 lines=30

cmaedu.comcls

set 退格=

set redtek=" "

cmaedu.comset end=0

cmaedu.com:start

cmaedu.comset /a end+=1

call :calc

cmaedu.comset /p=!setspaces! nulping /n 1 127.1nul

set /p=%退格%nul

set /p=%redtek:~1,79%nulecho.

goto :start

cmaedu.com:calc

if %end%==28 (

cmaedu.comset /a end=0 cls set /a cols=!random:~0,2!

cmaedu.comecho ... 风力：!cols! ...

cmaedu.comif !cols! GTR 76 set cols=76

if !cols! LSS 2 set cols=2

cmaedu.comset setspaces=!redtek:~1,%cols%!!random:~0,1!

goto :eof

cmaedu.com@echo off

mode con cols=80

cmaedu.comcolor 02

for /f %%i in (test.txt) do set str_char=%%i

set str_blank=

setlocal enabledelayedexpansion

:loop

cmaedu.com:: 取随机位置上的字符

set /a num_char=1%random:~-1%%random:~0,1%-100

cmaedu.comset char=!str_char:~-%num_char%,1!

cmaedu.com:: 设置随机长度的空格

set /a num_blank=1%random:~-1%%random:~0,1%-100

cmaedu.comset blank=!str_blank:~0,%num_blank%!

echo.%blank%%char%

cmaedu.comgoto loop

@echo off

mode con cols=80

cmaedu.comset a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

cmaedu.comset b=

cmaedu.comsetlocal enabledelayedexpansion

cmaedu.com:a

set /a num=%random%%%92

set 字符=!a:~-%num%,1!

cmaedu.comset/a c=%random%%%80

set 空格=!b:~-%c%!

echo %空格%^%字符%

cmaedu.comgoto a

cmaedu.com@echo off

cmaedu.commode con cols=80 LINES=30

cmaedu.comset a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

cmaedu.comset b=

setlocal enabledelayedexpansion

:a

set /a num=%random%%%92

set 字符=!a:~-%num%,1!

cmaedu.comset/a c=%random%%%80

cmaedu.comset 空格=!b:~-%c%!

cmaedu.com::echo. %空格%^%字符%

set/a i+=1

cmaedu.comrem 指针=i 尾指针=j

set/a j=i-30

cmaedu.comset line%i%=%空格%^%字符%

FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!

cmaedu.com::ping /n 127.1nul

goto a

@echo off

cmaedu.com::mode con cols=80

setlocal ENABLEDELAYEDEXPANSION

color 02

cmaedu.comgoto BEGIN

goto :eof

cmaedu.com::function mt_rand "a" "b"

cmaedu.com:mt_rand

cmaedu.comset a=%~1

set b=%~2

set /a _mt_rand=(!random!%%(%b%-%a%))+%a%

exit /b 0

:BEGIN

cmaedu.comSET iWidth=80

SET iDensity=6

cmaedu.comSET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

cmaedu.comSET sText=!sText:"=!

cmaedu.comset /A iText=90-1

cmaedu.comfor /l %%i in (1,1,%iWidth%) do (

set aDown%%i=0

:loop

cmaedu.comfor /l %%I in (1,1,%iWidth%) do (

cmaedu.comset /a aDown%%I-=1

cmaedu.comif !aDown%%I! LSS 0 (

cmaedu.comcall :mt_rand "0" "%iDensity%"set aArrow%%I=!_mt_rand!

call :mt_rand "10" "25"set aDown%%I=!_mt_rand!

if !aArrow%%I! EQU 1 (

call :mt_rand "0" "%iText%"(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!)

cmaedu.comset /p=!aa!nul

) else (

set /p= nul

cmaedu.comgoto loop

cmaedu.com:exit

cmaedu.comexit /b 0

@echo off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

color 02

for /l %%i in (1,1,80) do (

cmaedu.comset Down%%i=0

cmaedu.com:loop

for /l %%j in (1,1,80) do (

set /a Down%%j-=1

cmaedu.comif !down%%j! LSS 0 (

set /a Arrow%%j=!random!%%4

cmaedu.comset /a Down%%j=!random!%%15+10

cmaedu.comif "!Arrow%%j!" == "1" (

set /a chr=!random!%%2

set /p=!chr!nul

cmaedu.com) else (

cmaedu.comset /p= nul

cmaedu.comgoto loop

cmaedu.comgoto :eof

@echo off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

cmaedu.comfor /l %%i in (1,1,80) do (

set Down%%i=0

cmaedu.comfor /l %%i in (0) do (

set line=

for /l %%j in (1,1,80) do (

set /a Down%%j-=1

cmaedu.comcall set x=!down%%j!

cmaedu.comif !x! LSS 0 (

cmaedu.comset /a Arrow%%j=!random!%%6

cmaedu.comset /a Down%%j=!random!%%15+10

cmaedu.comcall set x=!Arrow%%j!

cmaedu.comif "!x!" == "1" (

cmaedu.comset line=!line!1

) else (set "line=!line! ")

call set /p=!line!nul

)[/code]

cmaedu.com

在DOS界面输入什么命令会出现数字雨！拜托各位了 3Q

cmaedu.comDos里面没有这样的命令啦~数字雨一般都是通过程序实现的~ 追问： 有什么程序可以实现？ 回答： 既然你说的是像DOS里的数字雨一样的效果，我想那样的是WIN32控 制台 程序。至于用什么语言编写的那都是可以的。如果你想要炫一点的效果我可以发一个屏保给你，是电影 黑客帝国 里的数字雨。效果比你说的控制台黑窗口白字的数字雨炫多了。留个邮箱地址，我给你 追问： 1003166871@qq.com 回答： 已发送，请查收