黑客帝国数字雨效果VC6源代码分享

时间:2022-03-06 06:35:32

黑客帝国数字雨效果VC6源代码分享

很不错的效果 这个在Win7 X64 VC6编译通过~~

代码原作者不详。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
#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 WinMain(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; j<cc->iStrLen-1; j++)
  {
    cc->current->prev = cc->point; //cc->point一个显示列的前个元素
    cc->current->ch = '';
    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 = '';
  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; i<iColumnCount; 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; i<iColumnCount; 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; i<iColumnCount; i++)
   {
    free( (ccChain+i)->current );
   }
   free(ccChain);
   PostQuitMessage (0) ;
   return 0 ;
  }
  return DefWindowProc (hwnd, message, wParam, lParam) ;
}

 

注:

我在 Win7 x86 VC6 下直接编译通过不了,需要在 WinMain 前面加上 __stdcall,以及修改两行代码:cc->current->ch = ‘ ‘;cc->current->ch = ‘ ‘; 才能编译通过。运行没问题,很酷:-)