电脑代码流星雨代码(流星雨编程代码)
求助各位大神，我用flash8.0做了一个流星雨效果，代码如下
把上面的代码替换成如下：
xrandom = new Array();
yrandom = new Array();
salerandom = new Array();
speed = Math.floor(Math.random()*10)+5;
for (_global.i=0; i=19; i++)
{
xrandom[i] = Math.floor(Math.random()*700);
yrandom[i] = Math.floor(Math.random()*400);
salerandom[i] = Math.floor(Math.random()*20)+2;
duplicateMovieClip(ball, "ball"+i, i);
_root["ball"+i]._x = xrandom[i];
_root["ball"+i]._y = yrandom[i];
_root["ball"+i]._yscale = salerandom[i];
_root["ball"+i]._rotation = 20;
_root["ball"+i].onEnterFrame = function()
{
if(isShow==false)
{
this._visible=false;
this.onEnterFrame=null;
}
var a = this._rotation;
var rad = a*Math.PI/180;
var dx = Math.cos(rad)*speed;
var dy = Math.sin(rad)*speed;
this._x += dx;
this._y += dy;
if (this._x=710)
{
this._x = -Math.floor(Math.random()*300);
this._y = -Math.floor(Math.random()*300);
}
};
}
code = 174;
char = chr(code);
mytext_txt.text = char+" Huanbaiyiju";
var isShow:Boolean=true;
然后在第二帧加代码：isShow=false;
我要黑客帝国里的数字流星雨代码，用html或asp写的
htmlstyle type="text/css"
!--
body {
background-color: #000000;
}
--
/style
Body
script language="JavaScript"
!--
if (document.all){
Cols=60;
Cl=20;//Space's are included so real length is 48!
Cs=20;
Ts=20;
Tc='#008800';
Tc1='#00ff00';
MnS=20;
MxS=30;
I=Cs;
Sp=new Array();S=new Array();Y=new Array();
C=new Array();M=new Array();B=new Array();
RC=new Array();E=new Array();Tcc=new Array(0,1);
document.write(" div id='Container' style='position:absolute;top:0;left:-"+Cs+"'");
document.write(" div style='position:relative'");
for(i=0; i Cols; i++){
S[i]=I+=Cs;
document.write(" div id='A' style='position:absolute;top:0;font-family:Arial;font-size:"
+Ts+"px;left:"+S[i]+";width:"+Ts+"px;height:0px;color:"+Tc+";visibility:hidden' /div");
}
document.write(" /div /div");
for(j=0; j Cols; j++){
RC[j]=1+Math.round(Math.random()*Cl);
Y[j]=0;
Sp[j]=Math.round(MnS+Math.random()*MxS);
for(i=0; i RC[j]; i++){
B[i]='';
C[i]=Math.round(Math.random()*1)+' ';
M[j]=B[0]+=C[i];
}
}
function Cycle(){
Container.style.top=window.document.body.scrollTop;
for (i=0; i Cols; i++){
var r = Math.floor(Math.random()*Tcc.length);
E[i] = ' font color='+Tc1+''+Tcc[r]+' /font';
Y[i]+=Sp[i];
if (Y[i] window.document.body.clientHeight){
for(i2=0; i2 Cols; i2++){
RC[i2]=1+Math.round(Math.random()*Cl);
for(i3=0; i3 RC[i2]; i3++){
B[i3]='';
C[i3]=Math.round(Math.random()*1)+' ';
C[Math.floor(Math.random()*i2)]=' '+' ';
M[i]=B[0]+=C[i3];
Y[i]=-Ts*M[i].length/1.5;
A[i].style.visibility='visible';
}
Sp[i]=Math.round(MnS+Math.random()*MxS);
}
}
A[i].style.top=Y[i];
A[i].innerHTML=M[i]+' '+E[i]+' ';
}
setTimeout('Cycle()',20)
}
Cycle();
}
// --
/script
/body
/html
演示地址：
网上找的代码，我给你改了下
如何编写电脑代码雨？
代码雨就是代码数字不断的刷新，这个效果可以通过几句简单的程序来实现，具体方法如下：
1、电脑用户在自己的电脑桌面上创建一个文本文件。创建以后打开。
2、打开以后，在文件中输入代码。代码如下图所示。
3、完成代码雨的代码编写以后，点击工具栏中的文件。然后在点击另存为。
4、点击另存为以后，将下方的文件名的后缀改为“.bat”。文件名用户随意定义。修改好以后点击“保存”。
5、完成文件的编写和保存以后，右击文件点击以管理员身份运行。
6、运行效果如下。
注意事项：
1、代码不用写错，写错不能运行。
2、在另存的时候，如果不显示后缀，将保持文件选成“所有文件”，在文件名称后面直接打.bat即可。
流星雨的源程序
以下是原代码:
#includeconio.h
#includedos.h
#includestdlib.h
main()
{char screen[24][80],e[10];
int i,j,k,l,m,n,t=0,a[10],b[10],c[10],d[10],f[10]={0};
randomize();
for(i=0;i24;i++)
for(j=0;j80;j++)
{if(i19){screen[j]='';printf(" ");}
else{screen[j]='#';textcolor(GREEN);cprintf("%c",screen[j]);}
}
do{for(i=0;i10;i++)
{c=random(4)+1;d=random(16);b=0;}
a[0]=random(80);j=0;
do{k=random(80);j++;l=3;
for(i=0;ij;i++)
if(k==a){j--;l=2;break;}
if(l==2)continue;a=k;
}while(i9);
for(i=0;i9;i++)
{e=random(26)+'A';gotoxy(a+1,b+1);
textcolor(d);cprintf("%c",e);f=0;}
for(j=0;j24;j++)
for(i=0;i10;i++)
if(f!=1)
{delay(5000);gotoxy(a+1,b+1);printf(" ");b=b+c;
l=(c19-b)?c:(19-b);
for(m=1;ml;m++)
{n=b+m-c;gotoxy(a+1,n+1);textcolor(d);
cprintf("%c",e);gotoxy(a+1,n+1);printf(" ");}
if(b19){textcolor(d);gotoxy(a+1,b+1);cprintf("%c",e);}
else{for(m=0,k=a;m5;m++)
if(screen[19+m][k]=='#')
{screen[19+m][k]='';gotoxy(k+1,20+m);printf(" ");f=1;break;}
else{gotoxy(k+1,m+20);textcolor(d);cprintf("%c",e);
gotoxy(k+1,m+20);printf(" ");}
}
}
for(k=0;k80;k++)
if(screen[23][k]==''){t=1;break;}
}while(t!=1);
}
C程序流星雨的源代码？
#include windows.h #define ID_TIMER 1
#define STRMAXLEN 25 //一个显示列的最大长度
#define STRMINLEN 8 //一个显示列的最小长度 LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
typedef struct tagCharChain //整个当作屏幕的一个显示列,这是个双向列表
{
struct tagCharChain *prev; //链表的前个元素
TCHAR ch; //一个显示列中的一个字符
struct tagCharChain *next; //链表的后个元素
}CharChain, *pCharChain; typedef struct tagCharColumn
{
CharChain *head, *current, *point;
int x, y, iStrLen; //显示列的开始显示的x,y坐标,iStrLen是这个列的长度
int iStopTimes, iMustStopTimes; //已经停滞的次数和必须停滞的次数,必须停滞的次数是随机的
}CharColumn, *pCharColumn; int main(HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
{
static TCHAR szAppName[] = TEXT ("matrix") ;
HWND hwnd ;
MSG msg ;
WNDCLASS wndclass ; wndclass.style = CS_HREDRAW | CS_VREDRAW ;
wndclass.lpfnWndProc = WndProc ;
wndclass.cbClsExtra = 0 ;
wndclass.cbWndExtra = 0 ;
wndclass.hInstance = hInstance ;
wndclass.hIcon = LoadIcon (NULL, IDI_APPLICATION) ;
wndclass.hCursor = LoadCursor (NULL, IDC_ARROW) ;
wndclass.hbrBackground = (HBRUSH) GetStockObject (BLACK_BRUSH) ;
wndclass.lpszMenuName = NULL ;
wndclass.lpszClassName = szAppName ; if(!RegisterClass (wndclass))
{
MessageBox (NULL, TEXT ("此程序必须运行在NT下!"), szAppName, MB_ICONERROR) ;
return 0;
} hwnd = CreateWindow (szAppName, NULL,
WS_DLGFRAME | WS_THICKFRAME | WS_POPUP,
0, 0,
GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN),
NULL, NULL, hInstance,
NULL) ; ShowWindow (hwnd, SW_SHOWMAXIMIZED) ; //最大化显示
UpdateWindow (hwnd) ;
ShowCursor(FALSE); //隐藏鼠标光标
srand ((int) GetCurrentTime ()) ; //初始化随机数发生器
while (GetMessage (msg, NULL, 0, 0))
{
TranslateMessage (msg) ;
DispatchMessage (msg) ;
}
ShowCursor(TRUE); //显示鼠标光标
return msg.wParam ;
} TCHAR randomChar() //随机字符产生函数
{
return (TCHAR)(rand()%(126-33)+33); //33到126之间
} int init(CharColumn *cc, int cyScreen, int x) //初始化
{
int j;
cc-iStrLen = rand()%(STRMAXLEN-STRMINLEN) + STRMINLEN; //显示列的长度
cc-x = x+3 ; //显示列的开始显示的x坐标
cc-y =rand()%3?rand()%cyScreen:0; //显示列的开始显示的y坐标
cc-iMustStopTimes = rand()%6 ;
cc-iStopTimes = 0 ;
cc-head = cc-current =
(pCharChain)calloc(cc-iStrLen, sizeof(CharChain)); //生成显示列
for(j=0; jcc-iStrLen-1; j++)
{
cc-current-prev = cc-point; //cc-point一个显示列的前个元素
cc-current-ch = '\0';
cc-current-next = cc-current+1; //cc-current+1一个显示列的后个元素
cc-point = cc-current++; //cc-point = cc-current; cc-current++;
}
cc-current-prev = cc-point; //最后一个节点
cc-current-ch = '\0';
cc-current-next = cc-head; cc-head-prev = cc-current; //头节点的前一个为此链的最后一个元素 cc-current = cc-point = cc-head; //free掉申请的内存要用current当参数
cc-head-ch = randomChar(); // 对链表头的 元素填充
return 0;
} LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
HDC hdc ;
//ctn 用来确定一个显示链是否 向下前进,如果等待次数超过必须等待的次数,ctn就代表要向下前进
int i, j, temp, ctn; //j为一个显示链中除链表头外的在屏幕上显示的y坐标,temp绿色过度到黑色之用
static HDC hdcMem;
HFONT hFont;
static HBITMAP hBitmap;
static int cxScreen, cyScreen; //屏幕的宽度 高度.
static int iFontWidth=10, iFontHeight=15, iColumnCount; //字体的宽度 高度, 列数
static CharColumn *ccChain; switch (message)
{
case WM_CREATE:
cxScreen = GetSystemMetrics(SM_CXSCREEN) ; //屏幕宽度
cyScreen = GetSystemMetrics(SM_CYSCREEN) ;
SetTimer (hwnd, ID_TIMER, 10, NULL) ; hdc = GetDC(hwnd);
hdcMem = CreateCompatibleDC(hdc);
hBitmap = CreateCompatibleBitmap(hdc, cxScreen, cyScreen);
SelectObject(hdcMem, hBitmap);
ReleaseDC(hwnd, hdc);
//创建字体
hFont = CreateFont(iFontHeight, iFontWidth-5, 0, 0, FW_BOLD, 0, 0, 0,
DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
DRAFT_QUALITY, FIXED_PITCH | FF_SWISS, TEXT("Fixedsys"));
SelectObject(hdcMem, hFont);
DeleteObject (hFont) ;
SetBkMode(hdcMem, TRANSPARENT); //设置背景模式为 透明
iColumnCount = cxScreen/(iFontWidth*3/2); //屏幕所显示字母雨的列数 ccChain = (pCharColumn)calloc(iColumnCount, sizeof(CharColumn));
for(i=0; iiColumnCount; i++)
{
init(ccChain+i, cyScreen, (iFontWidth*3/2)*i);
}
return 0 ; case WM_TIMER:
hdc = GetDC(hwnd);
PatBlt (hdcMem, 0, 0, cxScreen, cyScreen, BLACKNESS) ; //将内存设备映像刷成黑色
for(i=0; iiColumnCount; i++)
{
ctn = (ccChain+i)-iStopTimes++ (ccChain+i)-iMustStopTimes;
//
(ccChain+i)-point = (ccChain+i)-head; //point用于遍历整个显示列
//第一个字符显示为 白色
SetTextColor(hdcMem, RGB(255, 255, 255));
TextOut(hdcMem, (ccChain+i)-x, (ccChain+i)-y, ((ccChain+i)-point-ch), 1);
j = (ccChain+i)-y;
(ccChain+i)-point = (ccChain+i)-point-next;
//遍历整个显示列,将这个显示列里的字符从下往上显示
temp = 0 ; //temp绿色过度到黑色之用
while((ccChain+i)-point != (ccChain+i)-head (ccChain+i)-point-ch)
{
SetTextColor(hdcMem, RGB(0, 255-(255*(temp++)/(ccChain+i)-iStrLen), 0));
TextOut(hdcMem, (ccChain+i)-x, j-=iFontHeight, ((ccChain+i)-point-ch), 1);
(ccChain+i)-point = (ccChain+i)-point-next;
}
if(ctn)
(ccChain+i)-iStopTimes = 0 ;
else continue;
(ccChain+i)-y += iFontHeight; //下次开始显示的y坐标 为当前的y坐标加上 一个字符的高度
//如果开始显示的y坐标减去 整个显示列的长度超过了屏幕的高度
if( (ccChain+i)-y-(ccChain+i)-iStrLen*iFontHeight cyScreen)
{
free( (ccChain+i)-current );
init(ccChain+i, cyScreen, (iFontWidth*3/2)*i);
}
//链表的头 为此链表的前个元素,因为下次开始显示的时候 就相当与在整个显示列的开头添加个元素,然后在开始往上显示
(ccChain+i)-head = (ccChain+i)-head-prev;
(ccChain+i)-head-ch = randomChar();
}
BitBlt(hdc, 0, 0, cxScreen, cyScreen, hdcMem, 0, 0, SRCCOPY);
ReleaseDC(hwnd, hdc);
return 0; case WM_RBUTTONDOWN:
KillTimer (hwnd, ID_TIMER) ;
return 0; case WM_RBUTTONUP:
SetTimer (hwnd, ID_TIMER, 10, NULL) ;
return 0; //处理善后工作
case WM_KEYDOWN:
case WM_LBUTTONDOWN:
case WM_DESTROY:
KillTimer (hwnd, ID_TIMER) ;
DeleteObject(hBitmap);
DeleteDC(hdcMem);
for(i=0; iiColumnCount; i++)
{
free( (ccChain+i)-current );
}
free(ccChain);
PostQuitMessage (0) ;
return 0 ;
}
return DefWindowProc (hwnd, message, wParam, lParam) ;
}
这有个数字雨的代码，看能帮助你不！
QQ空间流星雨代码
QQ空间留言代码
[B][fts=6][ftc=#37B400]*[/ft]
[B][fts=6][ftc=#37B400]*[/ft]QQ空间留言代码
[B][fts=6][ftc=#37B400]*[/ft]
[M][B][ftc=#EE1000].＊★.[/ft]
[B][ftc=#F79700]·＊.`★[/ft]
[B][ffg,#FFF100,#FFFFFF]★＊[/ft]
[B][ffg,#37B400,#FFFFFF]★.’[/ft]
[B][ftc=#00A99E]‘＊..[/ft]QQ空间留言代码
[B][ffg,#438CCB,#FFFFFF]`..[/ft]
QQ空间留言代码[ffg,#EE1000,#FFFFFF]≈;霸占祢啲．嘴°〔.止侑莪蓜).![/ft][M][B][fts=6][ftc=#ED008C]*[/ft][/ft][ftc=#F49BC1]MuMa、[/ft][fts=6][ffg,#FF3399,#FF3399]旭、ノ[/ft][/ft][/B][/M]
QQ空间留言代码