VC 圣诞下雪源代码.doc

VC/.h#pragma onceclass HSnowpublic: HSnow(void); HSnow(void); void Snow();public: struct HSnw int prex; int prey; int x; int y; COLORREF clr; COLORREF preclr; int stepx; int stepy; ; void Init(void) ;private: int nMaxSnow; HSnw* snow; int maxW; /screen width int maxH; /screen height;/ dllmain#include stdafx.hBOOL APIENTRY DllMain( HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) switch (ul_reason_for_call) case DLL_PROCESS_ATTACH: srand( UINT(0) ); break; case DLL_THREAD_ATTACH: case DLL_THREAD_DETACH: case DLL_PROCESS_DETACH: break; return TRUE;/.cpp#include StdAfx.h#include HSnow.hHSnow:HSnow(void) snow = NULL; nMaxSnow = 500;HSnow:HSnow(void) if( snow ) delete snow; void HSnow:Init() if( nMaxSnow = 0 ) return ; if( snow ) delete snow; snow = NULL; snow = new HSnwnMaxSnow; HDC dc = GetDC(0); maxW = :GetSystemMetrics( SM_CXSCREEN ); maxH = :GetSystemMetrics( SM_CYSCREEN ); for( int i = 0; i nMaxSnow; i+ ) snowi.x = snowi.prex = rand() % maxW; snowi.y = snowi.prey = rand() % maxH; snowi.preclr = snowi.clr = :GetPixel( dc,snowi.x,snowi.y ); snowi.stepx = (rand()%2=1)?1:-1; snowi.stepy = (rand() % 5)+1; :ReleaseDC(0,dc);void HSnow:Snow(void) if( nMaxSnow = 0 ) return; HDC dc = GetDC(0); while( true ) if(GetAsyncKeyState(VK_CONTROL) & GetAsyncKeyState(VK_F12 ) break; /按CTRL+F12 结束 for( int i = 0; inMaxSnow; i+ ) SetPixel( dc, snowi.prex,snowi.prey, snowi.preclr ); snowi.prex = snowi.x ; snowi.prey = snowi.y ; snowi.preclr = snowi.clr ; snowi.x += snowi.stepx ; snowi.y += snowi.stepy ; if( snowi.x maxW) snowi.x = 0 ; if( snowi.y maxH) snowi.y = 0 ; snowi.clr = GetPixel( dc, snowi.x, snowi.y ) ; if( 0xffffff - snowi.clr maxW | sxmaxH | sy0 ) continue; COLORREF sClr = GetPixel(dc,sx,sy); if( abs(0xffffff-sClr) 600000 ) /如果颜色相差太大就设置积雪点 SetPixel(dc,sx,sy,0xffffff); Sleep(1); :ReleaseDC(0,dc); :InvalidateRect(0,0,1);void DRun(void) HSnow snow; snow.Init(); snow.Snow();/.defEXPORTSDRunC#/新作一个，看看是否满足要求，可以修改下雪速度，大小等public partial class Form1 : Form private Random clsRandom = new Random(); private int, SnowParry = new int1024,3; private int SnowNum = 0; public Form1() InitializeComponent(); private void Form1_Load(object sender, EventArgs e) SnowNum = clsRandom.Next(1024); int px = clsRandom.Next(1024); int py = clsRandom.Next(768); this.DoubleBuffered = true; for (int i = 0; i SnowNum; i+) SnowParryi, 0 = px; SnowParryi, 1 = py; SnowParryi, 2 = clsRandom.Next(40); px = clsRandom.Next(1024); py = clsRandom.Next(768); private void timer1_Tick(object sender, EventArgs e) for (int i = 0; i 768) SnowParryi, 1 = 0; SnowParryi, 1 += SnowParryi, 2; panel1.Invalidate(); private void panel1_Paint(object sender, PaintEventArgs e) Graphics MyPaint = e.Graphics; Bitmap bm=new Bitmap(5,5); /这里调整点的大小 bm.SetPixel(0, 0, Color.White); /设置点的颜色 bm.SetPixel(0, 1, Color.White); bm.SetPixel(1, 0, Color.White); bm.SetPixel(1, 1, Color.White); MyPaint.Clear(Color.Black); for (int i = 0; i SnowNum; i+) MyPaint.DrawImageUnscaled(bm, SnowParryi, 0, SnowParryi, 1); VB /laiba/CommMsgs?cmm=1323&tid=2708759202006990103Private Declare Function GetDC Lib user32 (ByVal hwnd As Long) As Long GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄 Private Declare Function GetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值 Private Declare Function SetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long SetPixel用于设置场景(这里是整个屏幕)中某点的颜色值 Private Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hdc As Long) As Long 释放由GetDC()获取的设备场景句柄，否则可能造成系统锁死 Private Declare Function InvalidateRect& Lib user32 (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) 清理窗口雪花 Private Type POINTAPI 定义坐标点结构 x As Long y As Long End Type Private Type RECT 定义“区域”数据结构，但实际上并没有用到，因为仅需在函数InvalidateRect中传递一个空的RECT参数 left As Long top As Long right As Long bottom As Long End Type Dim rect1 As RECT Private Const ScrnWidth = 1024 屏幕宽度(单位:像素) Private Const ScrnHight = 768 屏幕高度(单位:像素) Private Const SnowCol = &HFEFFFE 雪花颜色 Private Const SnowColDown = &HFFFFFF 积雪颜色 Private Const SnowColDuck = &HFFDDDD 深色积雪颜色 Private Const SnowNum = 500 同一时间飘动的雪花数量 Dim hDC1 As Long 存储桌面窗口设备句柄 Dim pData(SnowNum) As POINTAPI 存储每个雪花的位置信息 Dim pColor(SnowNum) As Long 存储画出雪花前屏幕原来的颜色 Dim Vx As Integer 雪花总体水平飘行速度 Dim Vy As Integer 雪花总体垂直下落速度 Dim PVx As Integer 单个雪花实际水平飘行速度 Dim PVy As Integer 单个雪花实际垂直飘行速度 初始化雪花位置 Private Sub InitP(i As Integer) pData(i).x = Rnd() * ScrnWidth pData(i).y = Rnd() * 2 pColor(i) = GetPixel(hDC1, pData(i).x, pData(i).y) 取得屏幕原来的颜色值 End Sub 取得某一点与周围点的对比度，确定是否在此位置堆积雪花 Private Function GetContrast(i As Integer) As Long Dim ColorCmp As Long 存储用作对比的点的颜色值 Dim tempR As Long 存储CorlorCmp的红色部分，下同 Dim tempG As Long Dim tempB As Long Dim Slope As Integer 存储雪花飘落方向:Vx/Vy 计算雪花飘落方向 If PVy 0 Then Slope = PVx / PVy Else Slope = 2 End If 根据雪花飘落方向决定取哪一点作对比点， 若PVx/PVy在-1到1之间，即Slope=0，就取正下面的象素点 若PVx/PVy1，取右下方的点，PVx/PVy 1 Then ColorCmp = GetPixel(hDC1, pData(i).x + 1, pData(i).y + 1) Else ColorCmp = GetPixel(hDC1, pData(i).x - 1, pData(i).y + 1) End If End If 确定当前位置没有与另一个雪花重叠，否则返回0，用于防止由于不同雪花重叠造成雪花乱堆 If ColorCmp = SnowCol Then GetContrast = 0 Exit Function End If 分别获取ColorCmp与对比点的蓝、绿、红部分的差值 tempB = Abs(ColorCmp And &HFF0000) - (pColor(i) And &HFF0000) / &H10000 tempG = Abs(ColorCmp And &HFF00&) - (pColor(i) And &HFF00&) / &H100& tempR = Abs(ColorCmp And &HFF&) - (pColor(i) And &HFF&) 返回对比度值 GetContrast = (tempR + tempG + tempB) / 3 End Function 画出一帧，即重画所有雪花位置一次 Private Sub DrawP() Dim i As Integer For i = 0 To SnowNum 防止雪花重叠造成干扰 If pColor(i) SnowCol Then 还原上一个位置的颜色 SetPixel hDC1, pData(i).x, pData(i).y, pColor(i) End If 设置新的位置，i Mod 3用于将雪花分为三类采用不同速度，以便形成层次感 PVx = Rnd() * 2 - 1 + Vx * (i Mod 3) PVy = Vy * (i Mod 3 + 1) pData(i).x = pData(i).x + PVx pData(i).y = pData(i).y + PVy 取得新位置原始颜色值，用于下一步雪花飘过时恢复此处颜色 pColor(i) = GetPixel(hDC1, pData(i).x, pData(i).y) 如果获取颜色失败，表明雪花已飘出屏幕，重新初始化 If pColor(i) = -1 Then InitP i Else 否则若雪花没有重叠 If pColor(i) SnowCol Then 若对比度较小(即不能堆积),就画出雪花 Rnd()0.3用于防止某些连续而明显的边界截获所有雪花 If Rnd() 0.3 Or GetContrast(i) 50 Then SetPixel hDC1, pData(i).x, pData(i).y, SnowCol 否则表明找到明显的边界，画出堆积的雪，并初始化以便画新的雪花 Else SetPixel hDC1, pData(i).x, pData(i).y - 1, SnowColDuck SetPixel hDC1, pData(i).x - 1, pData(i).y, SnowColDuck SetPixel hDC1, pData(i).x + 1, pData(i).y, SnowColDown InitP i End If End If End If Next End Sub Private Sub Form_Load() Dim j As Integer Me.Caption = 桌面飘雪 设置窗口标题 设置计时器，Timer1用于画单帧，Timer2用于风向变化 Timer1.Enabled = True Timer1.Interval = 10 Timer2.Enabled = True Timer2.Interval = 2000 Randomize 初始化随机数种子 hDC1 = GetDC(0) 获取桌面窗口设备场景句柄 初始化整个屏幕 For j = 0 To SnowNum pData(j).x = Rnd() * ScrnWidth pData(j).y = Rnd() * ScrnHight pColor(j) = GetPixel(hDC1, pData(j).x, pData(j).y) Next End Sub Private Sub Form_Unload(Cancel As Integer) ReleaseDC 0, hDC1 释放桌面窗口设备句柄 InvalidateRect 0, rect1, 0 清除所有雪花，恢复桌面 End Sub Private Sub Timer1_Timer() DrawP 画出一帧 End Sub Private Sub Timer2_Timer() 改变风向 Vx = Rnd() * 4 - 2 Vy = Rnd() + 2 End Sub 完，最后，需要两个Timer：Timer1、Timer2VB是exe格式的 那种 桌面下雪的小程序 怎么制作此问题的推荐答案用vb编程，知道是什么吧，然后在里面输代码：源代码Private Declare Function GetDC Lib user32 (ByVal hwnd As Long) As LongGetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄Private Declare Function GetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As LongGetPixel用于取得场景(这里是整个屏幕)中某点的颜色值Private Declare Function SetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As LongSetPixel用于设置场景(这里是整个屏幕)中某点的颜色值Private Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hdc As Long) As Long释放由GetDC()获取的设备场景句柄，否则可能造成系统锁死Private Declare Function InvalidateRect& Lib user32 (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long)清理窗口雪花Private Type POINTAPI 定义坐标点结构x As Longy As LongEnd TypePrivate Type RECT 定义“区域”数据结构，但实际上并没有用到，因为仅需在函数InvalidateRect中传递一个空的RECT参数left As Longtop As Longright As Longbottom As LongEnd TypeDim rect1 As RECTPrivate Const ScrnWidth = 1024 屏幕宽度(单位:像素)Private Const ScrnHight = 768 屏幕高度(单位:像素)Private Const SnowCol = &HFEFFFE 雪花颜色Private Const SnowColDown = &HFFFFFF 积雪颜色Private Const SnowColDuck = &HFFDDDD 深色积雪颜色Private Const SnowNum = 500 同一时间飘动的雪花数量Dim hDC1 As Long 存储桌面窗口设备句柄Dim pData(SnowNum) As POINTAPI 存储每个雪花的位置信息Dim pColor(SnowNum) As Long 存储画出雪花前屏幕原来的颜色Dim Vx As Integer 雪花总体水平飘行速度Dim Vy As Integer 雪花总体垂直下落速度Dim PVx As Integer 单个雪花实际水平飘行速度Dim PVy As Integer 单个雪花实际垂直飘行速度初始化雪花位置Private Sub InitP(i As Integer)pData(i).x = Rnd() * ScrnWidthpData(i).y = Rnd() * 2pColor(i) = GetPixel(hDC1, pData(i).x, pData(i).y) 取得屏幕原来的颜色值End Sub取得某一点与周围点的对比度，确定是否在此位置堆积雪花Private Function GetContrast(i As Integer) As LongDim ColorCmp As Long 存储用作对比的点的颜色值Dim tempR As Long 存储CorlorCmp的红色部分，下同Dim tempG As LongDim tempB As LongDim Slope As Integer 存储雪花飘落方向:Vx/Vy计算雪花飘落方向If PVy 0 ThenSlope = PVx / PVyElseSlope = 2End If根据雪花飘落方向决定取哪一点作对比点，若PVx/PVy在-1到1之间，即Slope=0，就取正下面的象素点若PVx/PVy1，取右下方的点，PVx/PVy 1 ThenColorCmp = GetPixel(hDC1, pData(i).x + 1, pData(i).y + 1)ElseColorCmp = GetPixel(hDC1, pData(i).x - 1, pData(i).y + 1)End IfEnd If确定当前位置没有与另一个雪花重叠，否则返回0，用于防止由于不同雪花重叠造成雪花乱堆If ColorCmp = SnowCol ThenGetContrast = 0Exit FunctionEnd If分别获取ColorCmp与对比点的蓝、绿、红部分的差值tempB = Abs(ColorCmp And &HFF0000) - (pColor(i) And &HFF0000) / &H10000tempG = Abs(ColorCmp And &HFF00&) - (pColor(i) And &HFF00&) / &H100&tempR = Abs(ColorCmp And &HFF&) - (pColor(i) And &HFF&)返回对比度值GetContrast = (tempR + tempG + tempB) / 3End Function画出一帧，即重画所有雪花位置一次Private Sub DrawP()Dim i As IntegerFor i = 0 To SnowNum防止雪花重叠造成干扰If pColor(i) SnowCol Then还原上一个位置的颜色SetPixel hDC1, pData(i).x, pData(i).y, pColor(i)End If设置新的位置，i Mod 3用于将雪花分为三类采用不同速度，以便形成层次感PVx = Rnd() * 2 - 1 + Vx * (i Mod 3)PVy = Vy * (i Mod 3 + 1)pData(i).x = pData(i).x + PVxpData(i).y = pData(i).y + PVy取得新位置原始颜色值，用于下一步雪花飘过时恢复此处颜色pColor(i) = GetPixel(hDC1, pData(i).x,