鱼C论坛

 找回密码
 立即注册
查看: 4811|回复: 34

[技术交流] 做了个简易抽号器(Windows)

[复制链接]
发表于 2023-9-29 14:38:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 额外减小 于 2023-10-1 21:44 编辑

rt.

求评分啊啊啊我想申精啊
如有评分,我会尽量帮你回本(育碧,荣誉)

Update. 各位下载后最好自己重新编译一次,因为各种电脑的编译环境可能不太一样。
另外,大家可以把位置参数稍微改成适合自己电脑的参数,因为各个电脑分辨率可能不同。



C++写的,众所周知用 windows.h 写代码是相对来说较为复杂的。

因为在班级中,经常需要选出一些人干活 / 做电子小报 / 做一些特殊任务,所以这个抽号器的运用是相当广泛的。
大家可以把这个抽号器拷贝到班级的电脑上(bushi)

因为该程序用到了图片资源,所以大家可以下载下面的集成资源包

已撒币,想申精,求评分

效果展示:
t2.png

源代码:
  1. /*   
  2. *      感谢您的使用。
  3. *      
  4. *    __Jianbing_Juan__
  5. *
  6. *   我是蒟蒻,不喜勿喷
  7. */


  8. #include <windows.h>
  9. #include <gdiplus.h> //graphics
  10. #include <cstdio> //sprintf
  11. #include <cstdlib> //atoi , itoa
  12. #include <random> //random_shuffle
  13. #include <algorithm> //random_shuffle
  14. #include <ctime> //srand
  15. #include <cstring> //string operations
  16. using namespace std;
  17. using namespace Gdiplus;

  18. int nums[100];
  19. const LPARAM linebreak=(LPARAM)'\n';

  20. const int total_num=54;

  21. LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam);

  22. int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,PSTR szCmdLine,int iCmdShow)
  23. {
  24.        
  25.         static TCHAR szAppName[]=TEXT("MyWindowClass");
  26.         HWND hwnd;
  27.         MSG msg;
  28.         WNDCLASS wndclass;
  29.        
  30.         wndclass.style = CS_HREDRAW | CS_VREDRAW;
  31.         wndclass.lpfnWndProc = WndProc;
  32.         wndclass.cbClsExtra = 0;
  33.         wndclass.cbWndExtra = 0;
  34.         wndclass.hInstance = hInstance;
  35.         wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
  36.         wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
  37.         wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
  38.         wndclass.lpszMenuName = NULL;
  39.         wndclass.lpszClassName = szAppName;
  40.        
  41.         if(!RegisterClass(&wndclass))
  42.         return 0;
  43.        
  44.         hwnd=CreateWindow(szAppName,TEXT("抽号器"),WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,350,400,NULL,NULL,hInstance,NULL);
  45.        
  46.         GdiplusStartupInput gdiplusStartupInput;
  47.         ULONG_PTR gdiplusToken;
  48.         GdiplusStartup(&gdiplusToken,&gdiplusStartupInput,nullptr);
  49.        
  50.         ShowWindow(hwnd,iCmdShow);
  51.         UpdateWindow(hwnd);
  52.        
  53.        
  54.        
  55.         for(int i=0;i<total_num;i++)
  56.         {
  57.                 nums[i]=i+1;
  58.         }
  59.        
  60.         while(GetMessage(&msg,NULL,0,0))
  61.         {
  62.                 SetFocus(hwnd);
  63.                 TranslateMessage(&msg);
  64.                 DispatchMessage(&msg);
  65.         }
  66.        
  67.         GdiplusShutdown(gdiplusToken);
  68.        
  69.         return msg.wParam;
  70. }

  71. HWND hInputBox,hOutputBox;
  72. char num[5];


  73. LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
  74. {
  75.         switch(message)
  76.         {
  77.                 case WM_PAINT:
  78.                 {
  79.                         PAINTSTRUCT ps;
  80.                         HDC hdc=BeginPaint(hwnd,&ps);
  81.                         Graphics graphics(hdc);
  82.                         Image image(L"unforgettable.png");
  83.                         graphics.DrawImage(&image,200,80);
  84.                         RECT rect={160,10,330,35};
  85.                         DrawText(hdc,TEXT("输入需要抽取的人数"),-1,&rect,DT_SINGLELINE|DT_CENTER|DT_VCENTER);
  86.                        
  87.                         EndPaint(hwnd,&ps);
  88.                         break;
  89.                 }
  90.                        
  91.                 case WM_CREATE:
  92.                 {
  93.                         hInputBox=CreateWindow(TEXT("EDIT"),TEXT(""),WS_CHILD|WS_VISIBLE|WS_BORDER|ES_AUTOHSCROLL|ES_READONLY,10,10,150,24,hwnd,NULL,NULL,NULL);
  94.                         hOutputBox=CreateWindow(TEXT("EDIT"),TEXT(""),WS_CHILD|WS_VISIBLE|WS_BORDER|WS_VSCROLL|ES_AUTOVSCROLL|ES_MULTILINE|ES_READONLY,10,50,150,300,hwnd,NULL,NULL,NULL);
  95.                        
  96.                         break;
  97.                 }
  98.                
  99.                 case WM_KEYDOWN:
  100.                 {
  101.                        
  102.                         if(wParam==VK_RETURN)
  103.                         {
  104.                                 SendMessage(hOutputBox,WM_SETTEXT,0,(LPARAM)"");
  105.                                 GetWindowText(hInputBox,num,5);
  106.                                
  107.                                 int iNum=atoi(num);
  108.                                 if(iNum>54 or iNum==0)
  109.                                 {
  110.                                         MessageBox(hwnd,"  非法输入  ","提示",MB_OK|MB_ICONERROR);
  111.                                 }
  112.                                 else
  113.                                 {
  114.                                         srand(time(nullptr));
  115.                                         random_shuffle(nums,nums+total_num);
  116.                                         char out_str[5];
  117.                                         for(int i=0;i<iNum;i++)
  118.                                         {
  119.                                                 itoa(nums[i],out_str,10);
  120.                                                 int l=strlen(out_str);
  121.                                                 SendMessage(hOutputBox,EM_REPLACESEL,true,(LPARAM)out_str);
  122.                                                 SendMessage(hOutputBox,EM_REPLACESEL,true,(LPARAM)"\r\n");
  123.                                         }
  124.                                 }
  125.                                
  126.                                 SendMessage(hInputBox,WM_SETTEXT,0,(LPARAM)"");
  127.                                
  128.                         }
  129.                         else if(wParam==VK_BACK)
  130.                         {
  131.                                
  132.                                 int nStart,nEnd;
  133.                                 SendMessage(hInputBox,EM_GETSEL,(WPARAM)&nStart,(LPARAM)&nEnd);
  134.                                 nStart--;
  135.                                 nEnd=nStart+1;
  136.                                 SendMessage(hInputBox,EM_SETSEL,nStart,nEnd);
  137.                                 SendMessage(hInputBox,EM_REPLACESEL,true,(LPARAM)"");
  138.                         }
  139.                         else if(wParam>='0' and wParam<='9')
  140.                         {
  141.                                 SendMessage(hInputBox,EM_REPLACESEL,true,(LPARAM)&wParam);
  142.                         }
  143.                         else if(wParam>=96 and wParam<=105)
  144.                         {
  145.                                 WPARAM wTmp=wParam;
  146.                                 wTmp-=48;
  147.                                 SendMessage(hInputBox,EM_REPLACESEL,true,(LPARAM)&wTmp);
  148.                         }
  149.                         break;
  150.                 }
  151.                 case WM_DESTROY:
  152.                 {
  153.                         PostQuitMessage(0);
  154.                         return 0;
  155.                 }
  156.         }
  157.        
  158.         return DefWindowProc(hwnd,message,wParam,lParam);
  159. }
复制代码


集成资源包:

drawer.zip (139.03 KB, 下载次数: 12)

评分

参与人数 6荣誉 +21 鱼币 +16 贡献 +12 收起 理由
歌者文明清理员 + 5 + 3
奋斗中的鱼 + 1 鱼C有你更精彩^_^
yinda_peng + 5 回个血
陶远航 + 5 + 5 + 3 鱼C有你更精彩^_^
python爱好者. + 5 + 1 + 3 鱼C有你更精彩^_^
liuhongrun2022 + 5 + 5 + 3

查看全部评分

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2023-9-29 14:42:20 | 显示全部楼层
本帖最后由 额外减小 于 2023-9-29 15:28 编辑

大家可以提出改进建议,有丰厚的奖励。
尽量不要无意义回复,我要破产了。
也不是说不能回复,qpzc还是可以的,(但是你要作出实际行动(bushi))
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:39:16 | 显示全部楼层

回帖奖励 +2 鱼币

qpzc啥意思啊
还有qp
cu ball
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:49:13 | 显示全部楼层

回帖奖励 +2 鱼币

Mike_python小 发表于 2023-9-29 15:39
qpzc啥意思啊
还有qp
cu ball

qpzc = 前排支持
qp = 前排
cuball不知道
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:49:19 | 显示全部楼层
Mike_python小 发表于 2023-9-29 15:39
qpzc啥意思啊
还有qp
cu ball

qpzc=前排支持

qp略
cu ball不知道
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:49:44 | 显示全部楼层
前来支持!这玩意好玩
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:49:50 | 显示全部楼层

回帖奖励 +2 鱼币

cu ball
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:54:39 | 显示全部楼层
Ewan-Ahiouy 发表于 2023-9-29 12:49
qpzc = 前排支持
qp = 前排
cuball不知道

cu ball
为什么是不知道的一丝
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 15:56:22 | 显示全部楼层
Mike_python小 发表于 2023-9-29 15:54
cu ball
为什么是不知道的一丝

emmm是我不知道。

不过现在我知道了

https://www.luogu.com.cn/blog/FCBM71/luogu-dictionary
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 16:28:00 | 显示全部楼层

回帖奖励 +2 鱼币

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-29 18:17:59 | 显示全部楼层
Mike_python小 发表于 2023-9-29 15:39
qpzc啥意思啊
还有qp
cu ball

qpzc=前排支持
qp=前排
具体看 https://www.luogu.com.cn/blog/WARNING/luo-gu-ding-lv-ming-ci

评分

参与人数 1荣誉 +5 鱼币 +5 收起 理由
额外减小 + 5 + 5 谢谢支持

查看全部评分

小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-29 20:03:52 | 显示全部楼层

回帖奖励 +2 鱼币

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-29 20:18:11 | 显示全部楼层

回帖奖励 +2 鱼币

qpzc
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-29 22:09:55 | 显示全部楼层
qpzc

评分

参与人数 1荣誉 +5 鱼币 +5 收起 理由
额外减小 + 5 + 5 回本

查看全部评分

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-29 22:10:45 | 显示全部楼层

回帖奖励 +2 鱼币

回本
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-30 09:03:36 | 显示全部楼层

回帖奖励 +2 鱼币

qpzc
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-9-30 10:29:40 | 显示全部楼层
ok啊,完美地看不懂了

评分

参与人数 1荣誉 +5 鱼币 +5 收起 理由
额外减小 + 5 + 5 给你回本,谢谢支持

查看全部评分

小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-9-30 13:53:18 | 显示全部楼层
奋斗中的鱼 发表于 2023-9-30 10:29
ok啊,完美地看不懂了

今天评分额度没了,明天给你回本
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2023-9-30 20:13:45 | 显示全部楼层

回帖奖励 +2 鱼币

已评

评分

参与人数 1荣誉 +5 鱼币 +5 收起 理由
额外减小 + 5 + 5

查看全部评分

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2023-10-1 19:40:15 | 显示全部楼层

回帖奖励 +2 鱼币

支持
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-4-22 05:32

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表