本文目录一览：

• 1、如何实现黑客帝国中的01瀑布流
• 2、黑客帝国里的绿色数码瀑布为什么是日文？
• 3、用C语言编个像黑客帝国的那种的01数字瀑布

如何实现黑客帝国中的01瀑布流

@echo %dbg% off setlocal ENABLEDELAYEDEXPANSION mode con cols=80 lines=30 cls set 退格= set redtek=" " set end=0 :start set /a end+=1 call :calc set /p=!setspaces! nul set /p=%退格% set /p=%redtek:~1,79% goto :start :calc if %end%==28 ( set /a end=0 cls set /a cols=!random:~0,2! echo ... 风力：!cols! ... if !cols! GTR 76 set cols=76 if !cols! LSS 2 set cols=2 set setspaces=!redtek:~1,%cols%!!random:~0,1! goto :eof ) @echo off mode con cols=80 color 02 for /f %%i in (test.txt) do set str_char=%%i set str_blank= setlocal enabledelayedexpansion :loop :: 取随机位置上的字符 set /a num_char=1%random:~-1%%random:~0,1%-100 set char=!str_char:~-%num_char%,1! :: 设置随机长度的空格 set /a num_blank=1%random:~-1%%random:~0,1%-100 set blank=!str_blank:~0,%num_blank%! echo.%blank%%char% goto loop @echo off mode con cols=80 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! echo %空格%^%字符% goto a @echo off mode con cols=80 LINES=30 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! ::echo. %空格%^%字符% set/a i+=1 rem 指针=i 尾指针=j set/a j=i-30 set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n 127.1nul goto a @echo off ::mode con cols=80 setlocal ENABLEDELAYEDEXPANSION color 02 goto BEGIN goto :eof ::function mt_rand "a" "b" :mt_rand ::( set a=%~1 set b=%~2 set /a _mt_rand=(!random!%%(%b%-%a%))+%a% exit /b 0 ::) :BEGIN ::{-- SET iWidth=80 SET iDensity=6 SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ SET sText=!sText:"=! set /A iText=90-1 for /l %%i in (1,1,%iWidth%) do ( set aDown%%i=0 ) :loop for /l %%I in (1,1,%iWidth%) do ( set /a aDown%%I-=1 if !aDown%%I! LSS 0 ( call :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!) set /p=!aa!) else ( set /p= ) ) goto loop ::--} :exit exit /b 0 @echo off setlocal ENABLEDELAYEDEXPANSION color 02 for /l %%i in (1,1,80) do ( set Down%%i=0 ) :loop for /l %%j in (1,1,80) do ( set /a Down%%j-=1 if !down%%j! LSS 0 ( set /a Arrow%%j=!random!%%4 set /a Down%%j=!random!%%15+10 ) if "!Arrow%%j!" == "1" ( set /a chr=!random!%%2 set /p=!chr!) else ( set /p= ) ) goto loop goto :eof @echo off setlocal ENABLEDELAYEDEXPANSION for /l %%i in (1,1,80) do ( set Down%%i=0 ) for /l %%i in (0) do ( set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /a Down%%j=!random!%%15+10 ) call set x=!Arrow%%j! if "!x!" == "1" ( set line=!line!1 ) else (set "line=!line! ") ) call set /p=!line!) 将上面的代码保存在记事本内，再将记事本的后缀名txt 改成 Bat 就可以了

黑客帝国里的绿色数码瀑布为什么是日文？

看过花絮就知道那些日文其实没什么特殊意义，只是很酷罢了。我觉得用梵文更好

用C语言编个像黑客帝国的那种的01数字瀑布

没时间做，但给你个思路：

主要的类：Class TextBar，应该包含字串变量保存要显示字符，还应包含一个贴图资源，作为字符绘制后的颜色mask，呈现出文字渐变效果；应该包含的基本方法：绘制（实现字符由上到下绘制以及贴图）；衍生的其它子程序都是围绕这个功能的，例如计算字符位置，贴图位置，产生，消失等。

主类：与TextBar是聚合关系或组合关系。创建TextBar实例并给予其初始化值和位置。