电脑流星雨代码(电脑流星雨代码doctypehtml)
我要黑客帝国里的数字流星雨代码，用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
演示地址：
网上找的代码，我给你改了下
请教：怎么样能把C语言代码运行后的流星雨效果图保存下来，保存为GIF。
搞定。 我用的C++Builder XE2编译器。 增中代码： #include vcl.h #include GIFimg.hpp TGIFImage *image; 在wmain函数后部分： image = new TGIFImage(); srand((int) GetCurrentTime()); // 初始化随机数发生器 image-Width = Screen-Width; image-Height = Screen-Height; while (GetMessage(msg, NULL, 0, 0)) { TranslateMessage(msg); DispatchMessage(msg); } ShowCursor(TRUE); // 显示鼠标光标 image-SaveToFile("流星雨.gif"); delete image; 在WndProc函数处理WM_TIMER消息后面增加： BitBlt(hdc, 0, 0, cxScreen, cyScreen, hdcMem, 0, 0, SRCCOPY); { Graphics::TBitmap *bmp = new Graphics::TBitmap; bmp-Width=Screen-Width; bmp-Height=Screen-Height; BitBlt(HDC(bmp-Canvas-Handle), 0, 0, cxScreen, cyScreen, hdcMem, 0, 0, SRCCOPY); image-Add(bmp); delete bmp; } ReleaseDC(hwnd, hdc); 编译后成功。 保存的GIF文件很大，最好用Ulead GIF Animator优化一下。 需要编译后的文件QQ我：1848447992
记得采纳啊
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空间留言代码
怎么使用流星雨代码
网页代码吗？我这有网页代码
htmltitle网页下雨/title
body bgcolor="#ffffff"
STYLE type=text/cssBODY {
FONT-FAMILY: "隶书"; FONT-SIZE: 9pt; MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px; MARGIN-TOP: 0px
}
/STYLE
SCRIPT language=JavaScript
var no = 50;!--定义雨点的总数--
var speed = 1;!--定义下雨的速度--
var s, x, y, sn, cs;!--声明变量--
var a, r, cx, cy;!--声明变量--
var i, doc_width = 800, doc_height = 600;!--存储显示器的分辨率--
if (document.all) {!--如果是ie浏览器--
doc_width = document.body.clientWidth;!--获得窗口的宽度--
doc_height = document.body.clientHeight;!--获得窗口的高度--
}
x = new Array();!--存储所有雨点的横坐标--
y = new Array();!--存储所有雨点的纵坐标--
r = new Array();!--存储所有雨点的横坐标--
cx = new Array();!--存储所有雨点的横坐标--
cy = new Array();!--存储所有雨点的横坐标--
s = 8;
for (i = 0; i no; ++ i) {!--循环对所有的雨点进行初始化和显示--
initRain();!--初始化雨点--
if (document.all) {
document.write("div id=\"dot"+ i +"\" style=\"POSITION: ");!--创建新的层--
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");!--显示雨点--
document.write("visible; TOP: 15px; LEFT: 15px;\"font color=\"black\"");!--颜色为红色--
document.write(",/font/div");
}
}
function initRain() {!--对雨点的初始化--
a = 6;
r[i] = 1;
sn = Math.sin(a);!--定义变量--
cs = Math.cos(a);!--定义变量--
cx[i] = Math.random() * doc_width + 1;!--初始化雨点横坐标--
cy[i] = Math.random() * doc_height + 1;!--初始化雨点纵坐标--
x[i] = r[i] * sn + cx[i];!--初始化雨点横坐标--
y[i] = cy[i];!--初始化雨点纵坐标--
}
function makeRain() {!--生成雨点--
r[i] = 1;!--雨点出现的纵坐标最小值--
cx[i] = Math.random() * doc_width + 1;!--横向速度--
cy[i] = 1;!--纵向速度--
x[i] = r[i] * sn + cx[i];!--获得下一次雨点的横坐标--
y[i] = r[i] * cs + cy[i];!--获得下一次雨点的纵坐标--
}
function updateRain() {!--更新雨点--
r[i] += s;!--
x[i] = r[i] * sn + cx[i];!--获得下一次雨点的横坐标--
y[i] = r[i] * cs + cy[i];!--获得下一次雨点的纵坐标--
}
function raindropIE() {!--对IE浏览器的下雨函数--
for (i = 0; i no; ++ i) {
updateRain();
if ((x[i] = 1) || (x[i] = (doc_width - 20)) || (y[i] = (doc_height - 20))) {!--判断雨点是否已经出了当前窗口边界--
makeRain();!--重新生成雨点--
doc_width = document.body.clientWidth;!--获得当前雨点所在层的宽度--
doc_height = document.body.clientHeight;!--获得当前雨点所在层的高度--
}
document.all["dot"+i].style.pixelTop = y[i];!--显示雨点--
document.all["dot"+i].style.pixelLeft = x[i];!--显示雨点--
}
setTimeout("raindropIE()", speed);!--根据speed值，动态更新下雨的图片--
}
if (document.all) {
raindropIE();!--如果是ie浏览器，调用相应的函数--
}
/SCRIPT
/body
/html
参考网站：