cmaedu.com

跪求flash制作数字瀑布的教程或过程~像黑客帝国那样

效果:

cmaedu.com制作方法

1、制作随机数字

cmaedu.com 新建一400px*300px的flash文档，背景为黑色。按CTRL+F8建一MC，在此MC中建一动态文本，变量名为num，

cmaedu.com在其帧上加上AS

cmaedu.comnum=random(10);

cmaedu.com这样动态文本就能显示从0到9的数字。

2、返回主场景，按CTRL+F8建一MC，按CTRL＋L打开库，从库中刚才制作好的MC，实例名设为myNum，

cmaedu.com 在帧上加下列AS

cmaedu.comfor(var i=1;i10;i++)

cmaedu.commyNum.duplicateMovieClip("myNum"+i,i);

this["myNum"+i]._y=myNum._y+i*myNum._height*0.7;

this["myNum"+i]._alpha=10*(10-i)+10;

代码解释：复制9个MC，并让他们纵向等距排列，0.7的作用是把MC间的间距缩小。最后一行是使透明度从上到下渐变。

cmaedu.com 3、返回主电影，从库中拖出制作好的MC，实例名设为myNum，

cmaedu.com在此MC上加上AS

cmaedu.comonClipEvent (load)

_alpha = random(95)+5;

a = ((100-_alpha)*4)*0.08+4;

_y = -myNum._height*10;

cmaedu.com_x = random(400);

cmaedu.com_xscale = _yscale=1.2*((_alpha*0.4)*2+30);

cmaedu.comonClipEvent (enterFrame)

cmaedu.com_y += a;

if (_y300) {

this.removeMovieClip();

代码解释：当MC载入时随机设置其透明度，并根据透明度设置MC的运动速度及缩放比例。MC的y坐标为场景的上方，x坐标为随机值。

当MC进入帧时让其向下运动，超出场景下方时删除此MC。

cmaedu.com 4、在主电影的帧上加下列AS，不断复制MC，形成数字流效果。

cmaedu.comvar n = 0;

onEnterFrame = function ()

cmaedu.commyNum.duplicateMovieClip("ball"+n++, n);

if(n300){

cmaedu.comn=0;

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

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

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

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

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

cmaedu.com@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 就可以了