VC++风车程序代码

1、#in elude #in clude#in clude#in clude#in clude#in clude#in clude#defi ne PI 3.1415926long WINAPI WndProc(HWND hWnd,/ 窗口句柄UINT Message,UINT wParam,LONG Lparam);long ICen terX=0,ICe nterY=0;double jsd;/ 角速度int zsd = 0;/ 转速int n=35;/控制风车大小int xjd;long x =_5,y=0;int i;HDC hDC;HBRUSH hBrush;HPEN hPe n;/画

2、叶片的函数void yepia n( double d,i nt i,i nt j,i nt k)hBrush=CreateSolidBrush(RGB(i,j,k);SelectObject(hDC,hBrush);lCe nterX=(i nt)( n*cos(jsd+d);lCe nterY=(i nt)( n*si n(jsd+d);Pie(hDC,lCe nterX- n, ICe nterY-n,ICen terX+ n,ICe nterY+ n,2*lCenterX,2*ICenterY，叶片弧线起点坐标叶片弧线终点坐(i nt)(ICe nterX+n*cos(jsd+PI+d

3、),(i nt)(ICe nterY+n*si n(jsd+PI+d); 标DeleteObject(hBrush);int WINAPI WinM ai n( HINSTANCE hI nsta nee,HINSTANCE hPrevI nsta nee,LPSTR IpCmdLi ne,int n CmdShow)MSG Message;HWND hWnd;WNDCLASS WndClass;WndClass.cbClsExtra=O; 类无扩展WndClass.cbWndExtra=O; 实例无扩展WndClass.hbrBackgrou nd=(HBRUSH)(GetStockObje

4、ct(WHITE_BRUSH);WndClass.hCursor=LoadCursor(NULL,IDC_ARROW);光标WndClass.hIco n=Loadlco n(NULL,IDI_APPLICATION);图标WndClass.hI nsta nce=hl nsta nce; 当前实例句柄 WndClass.lpfnWndProc=WndProc; 窗口处理函数 WndClass.lpszClassName=Feng; 窗 口类名 WndClass.lpszMe nu Name=NULL;WndClass.style=O; 窗口风格 if(!RegisterClass(&WndC

5、lass) MessageBeep(O);return FALSE;hWnd=CreateWi ndow(Fe ng,风车,WS_OVERLAPPEDWINDOW, 风格CW_USEDEFAULT, 坐标0,CW_USEDEFAULT,0,/坐标NULL,/无父窗口NULL,/无主菜单hln sta nee,/创建此窗口的应用程序的当前句柄NULL);/不使用该值ShowWindow(hWnd,nCmdShow);/ 显示窗口UpdateWindow(hWnd);/ 绘制用户区while(GetMessage(&Message,0,0,0) Tran slateMessage(&Message

6、); DispatchMessage(&Message);return Message.wParam;long WINAPI WndProc(HWND hWnd,UINT iMessage,UINT wParam,LONG IParam)PAINTSTRUCT PtStr;switch(iMessage)case WM_PAINT:处理绘图消息获得设备环境指针hDC=Begi nPai nt(hWnd,&PtStr);SetWi ndowOrgEx(hDC,-200,-200,NULL);开始绘制风车边的颜色hPe n=CreatePe n(PS_SOLID,1,RGB(255,1O5,18O

7、);SelectObject(hDC,hPe n);绘制风车柄hBrush=CreateSolidBrush(RGB(155,245,155);SelectObject(hDC,hBrush);Recta ngle(hDC,-5,0,5,400);DeleteObject(hBrush);用循环使风车达到层叠的效果绘制叶片jsd=(2*PI*zsd)/60; 角速度yepian(0,255,20,147);调用函数绘制第一个页片yepian(2*PI/3,148,0,211);调用函数绘制第二个页片yepian(4*PI/3,255,255,0);调用函数绘制第三个页片绘制中心hBrush=CreateSolidBrush(RGB(155,245,155);SelectObject(hDC,hBrush);Ellipse(hDC,-8,-8,8,8);DeleteObject(hBrush);zsd+;Sleep(50);In validateRect(hWnd,NULL,1);En dPai nt(hWnd,&Pt