



全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
风车代码#include#include#includeint x;BOOLEAN InitWindowClass(HINSTANCE hInstance, int nCmdShow);LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);void AdjustTime(int x);int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)MSG msg;if (!InitWindowClass(hInstance, nCmdShow)MessageBox(NULL,创建窗口失败!,_T(创建窗口),NULL);return 1;while (GetMessage(&msg, NULL, 0, 0)TranslateMessage(&msg);DispatchMessage(&msg);return (int)msg.wParam;LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)HDC hDC;PAINTSTRUCT ps;HBRUSH hBrush,hBrush1,hBrush2,hBrush3;HPEN hPen;RECT clientRect;int r;float sita1 = 0,sita2,sita3;int xOrg, yOrg,rClock,x1,y1;switch (message)case WM_CREATE:/创建窗口时,响应的消息SetTimer(hWnd, 9999, 100, NULL);/设置定时器break;case WM_PAINT:x+;AdjustTime(x); hDC = BeginPaint(hWnd, &ps);GetClientRect(hWnd, &clientRect);/获取用户区的尺寸hPen = (HPEN)GetStockObject(BLACK_PEN);/设置画笔为系统预定义的黑色画笔hBrush = CreateSolidBrush(RGB(255, 220, 220);/创建粉红色的单色画刷SelectObject(hDC, hPen);/选择画笔SelectObject(hDC, hBrush);/选择画刷xOrg = (clientRect.left + clientRect.right) / 2;yOrg = (clientRect.top + clientRect.bottom) / 2;/计算屏幕中心的坐标,它也是钟表的中心rClock = min(xOrg, yOrg) - 50;/外圆的半径Ellipse(hDC, xOrg - rClock, yOrg - rClock, xOrg + rClock, yOrg + rClock);/描绘表面圆sita1 = 2 * 3.1415926*x / 60;sita2=sita1+3.1415926*2/3;sita3=sita2+3.1415926*2/3;hBrush1= CreateSolidBrush(RGB(255, 0, 0);/创建红色的单色画刷hBrush2= CreateSolidBrush(RGB(0, 255,0);/创建绿色的单色画刷hBrush3= CreateSolidBrush(RGB(0, 0, 255);/创建蓝色的单色画刷r=rClock/2;/半圆的半径x1=r*cos(sita1)+xOrg;y1=r*sin(sita1)+yOrg;/半圆的圆心SelectObject(hDC, hBrush1);Pie(hDC,x1-r,y1-r,x1+r,y1+r,xOrg,yOrg,x1+r*cos(sita1),y1+r*sin(sita1);x1=r*cos(sita2)+xOrg;y1=r*sin(sita2)+yOrg;/半圆的圆心SelectObject(hDC, hBrush2);Pie(hDC,x1-r,y1-r,x1+r,y1+r,xOrg,yOrg,x1+r*cos(sita2),y1+r*sin(sita2);x1=r*cos(sita3)+xOrg;y1=r*sin(sita3)+yOrg;/半圆的圆心SelectObject(hDC, hBrush3);Pie(hDC,x1-r,y1-r,x1+r,y1+r,xOrg,yOrg,x1+r*cos(sita3),y1+r*sin(sita3);DeleteObject(hPen);DeleteObject(hBrush);EndPaint(hWnd, &ps);break;case WM_TIMER:if (wParam = 9999)InvalidateRect(hWnd, NULL, true);break;case WM_SIZE:InvalidateRect(hWnd, NULL, true);break;case WM_DESTROY:PostQuitMessage(0);break;default:return DefWindowProc(hWnd, message, wParam, lParam);break;return 0;void AdjustTime(int x)if (x = 60)x = 0;BOOLEAN InitWindowClass(HINSTANCE hInstance, int nCmdShow)WNDCLASSEX wcex;HWND hWnd;TCHAR szWindowClass = 窗口示例;TCHAR szTitle = 模拟风车;wcex.cbSize = sizeof(WNDCLASSEX);wcex.style = 0;wcex.lpfnWndProc = WndProc;wcex.cbClsExtra = 0;wcex.cbWndExtra = 0;wcex.hInstance = hInstance;wcex.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_APPLICATION);wcex.hCursor = LoadCursor(NULL, IDC_ARROW);wcex.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);wcex.lpszMenuName = NULL;wcex.lpszClassName = szWindowClass;wcex.hIconSm = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_APPLICATION);if (!RegisterClassEx(&wcex)return FALSE;hWnd = CreateWindow(szWindowClass,szTitle,WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, CW_USEDEFAULT,CW_USEDEFAULT, CW_USE
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 环保设备公司离职员工环保技术秘密保密合同
- 签订合同附加协议书:电子商务平台合作服务补充协议
- 2025年合同无效及其不可撤销担保书的法律后果评估
- 2025浙江省土地征用合同范本
- 2025年济宁化学模拟考试试题及答案
- 2025年中国高尔夫球袋行业市场全景分析及前景机遇研判报告
- 2025年中国智能电网行业市场前瞻:能源大数据在智能电网中的应用报告
- 2025年陕西一模化学试卷及答案
- 2025年智能运动监测:智能可穿戴设备跌倒检测技术革新亮点
- 2025年智能语音情感识别在客服系统中的技术创新报告
- AAMA2605-铝窗(板)更高标准有机喷涂的非官方标准、性能要求、测试程序
- 第一章三国演义讲义课件
- 联合国可持续发展目标
- 西语国家概况
- GB/T 5271.29-2006信息技术词汇第29部分:人工智能语音识别与合成
- GB/T 28248-2012印制板用硬质合金钻头
- 淄博市2020年度专业技术人员继续教育公需课考试题及答案
- 大运河前世今生课件
- 省级自然保护区建设工程可行性研究报告
- 义务教育阶段学生艺术素质测评指标体系小学音乐
- 茶叶生产加工常用表格
评论
0/150
提交评论