易语言中Ex_DirectUI如何自绘扫雷游戏

.版本 2 .支持库 spec .程序集 MineMartix, Ex_控件基类, , ExDUI扩展组件_扫雷按钮 .程序集变量 m_颜色, 整数型 .程序集变量 m_透明度, 整数型 .程序集变量 m_Rect, RectF .程序集变量 m_hIcon, 整数型, , , 图像句柄 .程序集变量 m_单击回调指针, 整数型 .程序集变量 m_Mine, 逻辑型 .程序集变量 m_Pos, PointF .程序集变量 m_Num, 整数型, , , 周围雷数量 .程序集变量 m_pFont, 整数型, , , 字体指针 .程序集变量 m_GPs, Gdip_文本格式 .程序集变量 m_ClickdColor, 整数型, , , 点击后颜色 .程序集变量 m_CurrentColor, 整数型, , , 当前颜色 .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用 .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用 .子程序 Obj, 整数型 .参数 hWnd, 整数型 .参数 msg, 整数型 .参数 wParam, 整数型 .参数 lParam, 整数型 .判断开始 (msg ＝ #事件_初始化) m_pFont ＝字体_创建 (“微软雅黑”, 12) m_GPs.创建 (#文本格式标志_不换行) m_ClickdColor ＝ RGB2ARGB (#黑色, 80) 重画 () 调试输出 (hWnd, msg) .判断 (msg ＝ #事件_销毁) 图像_销毁 (m_hIcon) .判断 (msg ＝ #事件_绘画) Paint (hWnd, 1) .判断 (msg ＝ #事件_动画开始) 动画类型 (#动画类型_默认) .判断 (msg ＝ #事件_动画结束) 动画帧数 (0) .判断 (msg ＝ #事件_进入组件) 动画帧数 (16, 10) Paint (hWnd, 2) .判断 (msg ＝ #事件_离开组件) 动画帧数 (16, 10) Paint (hWnd, 1) .判断 (msg ＝ #事件_左键按下) 动画帧数 (16, 10) Paint (hWnd, 3) .判断 (msg ＝ #事件_左键放开) 动画帧数 (16, 10) Paint (hWnd, 2) .如果真 (m_CurrentColor ≠ #黑色) .如果真 (m_单击回调指针 ≠ 0) 调用子程序_ (m_单击回调指针, m_Pos.x, m_Pos.y) .如果真结束 .如果真结束 .默认 .判断结束返回 (-1) .子程序 Paint .参数 hObj, 整数型 .参数 Status, 整数型, , 1.正常 2.点燃 2.按下 .局部变量 m_ps, Exs_PaintStruct .局部变量 color, 整数型 Ex_BeginPaint (hObj, m_ps, , 真) .如果真 (Status ＝ 1) 图形_填充_矩形 (m_ps.mGraphics, m_ps.Rcf, RGB2ARGB (m_CurrentColor, m_透明度)) ' 画正常状态 .如果真结束 .如果真 (Status ＝ 2) 图形_填充_矩形 (m_ps.mGraphics, m_ps.Rcf, RGB2ARGB (m_CurrentColor, 180)) ' 画点燃状态 .如果真结束 .如果真 (Status ＝ 3) 图形_填充_矩形 (m_ps.mGraphics, m_ps.Rcf, RGB2ARGB (m_CurrentColor, m_透明度＋ 40)) ' 画按下状态 .如果真结束 .如果真 (m_hIcon ≠ 0) 图形_绘图 (m_ps.mGraphics, m_hIcon, m_ps.Rcf, 真) ' 画雷图片 .如果真结束 .如果真 (m_Num ≠ 0) .如果真 (m_Num ＝ 1) color ＝ RGB2ARGB (#蓝色) .如果真结束 .如果真 (m_Num ＝ 2) color ＝ RGB2ARGB (#绿色) .如果真结束 .如果真 (m_Num ＝ 3) color ＝ RGB2ARGB (#红色) .如果真结束 .如果真 (m_Num ＝ 4) color ＝ RGB2ARGB (#紫色) .如果真结束 .如果真 (m_Num ＝ 5) color ＝ RGB2ARGB (#红褐) .如果真结束 .如果真 (m_Num ＝ 6) color ＝ RGB2ARGB (#天蓝) .如果真结束 .如果真 (m_Num ＝ 7) color ＝ RGB2ARGB (#白色) .如果真结束 .如果真 (m_Num ＝ 8) color ＝ RGB2ARGB (#深灰) .如果真结束图形_画文本 (m_ps.mGraphics, MakeRCF (m_ps.Rcf.left ＋ 3, m_ps.Rcf.top, m_ps.Rcf.Width, m_ps.Rcf.Height), A2W (到文本 (m_Num)), m_pFont, color, m_GPs.取指针 (), #文本效果_描边, RGB2ARGB (#白色, 120)) ' 画标题 .如果真结束图形_描边_矩形 (m_ps.mGraphics, m_ps.Rcf, #边框_单线式, RGB2ARGB (#白色), 1) ' 画边框 Ex_EndPaint (hObj, m_ps) .子程序 Create, 整数型, 公开 .参数窗口句柄, 整数型 .参数左边, 整数型 .参数顶边, 整数型 .参数宽度, 整数型 .参数高度, 整数型 .参数颜色, 整数型, , rgb .参数透明度, 整数型 m_颜色＝颜色 m_CurrentColor ＝ m_颜色 m_透明度＝透明度 m_Rect.left ＝左边 m_Rect.top ＝顶边 m_Rect.Width ＝宽度 m_Rect.Height ＝高度返回 (初始化 (窗口句柄, m_Rect, 1020150, 真, , #鼠标指针_手型)) .子程序 SetIcon, , 公开 .参数 Icon, 字节集 .如果真 (Icon ＝ { 0 }) .如果真 (m_hIcon ≠ 0) 图像_销毁 (m_hIcon) m_hIcon ＝ 0 .如果真结束重画 () .如果真结束 m_hIcon ＝图像_创建自字节集 (Icon) 重画 () .子程序 SetClickEvents, , 公开 .参数 pcbk, 整数型 m_单击回调指针＝ pcbk .子程序 SetXY, , 公开, 设置坐标 .参数 x, 整数型 .参数 y, 整数型 m_Pos.x ＝ x m_Pos.y ＝ y .子程序 SetMine, , 公开, 设置为雷 m_Mine ＝真 .子程序 CleanMine, , 公开, 清除雷 m_Mine ＝假 .子程序 CheckMine, 逻辑型, 公开, 检测是否为雷返回 (m_Mine) .子程序 SetMineNum, , 公开, 设置周围雷数量 .参数 Num, 整数型 m_Num ＝ Num 重画 () .子程序 SetStatus, , 公开 .参数 Status, 整数型, , 0.未点击状态 1.点击后状态 .如果真 (Status ＝ 0) m_CurrentColor ＝ m_颜色 .如果真结束 .如果真 (Status ＝ 1) m_CurrentColor ＝ #黑色 .如果真结束重画 () .子程序 GetStatus, 整数型, 公开 .如果真 (m_CurrentColor ＝ m_颜色) 返回 (0) .如果真结束 .如果真 (m_CurrentColor ＝ #黑色) 返回 (1) .如果真结束返回 (0)

.版本 2 .支持库 eAPI .程序集窗口程序集1 .程序集变量 Ex, Ex_DirectUI .程序集变量 Martix, MineMartix, , "10,10" .程序集变量 Mine, PointF, , "0" .程序集变量 ScorePos, PointF, , "0" .程序集变量 Btn, 按钮_Ex .程序集变量 TimeBtn, 超级按钮_Ex .程序集变量 ScoreBtn, 超级按钮_Ex .程序集变量 restartBtn, 超级按钮_Ex .程序集变量 Frame, 分组框_Ex .程序集变量 Time, 整数型 .程序集变量 Score, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .局部变量 j, 整数型 Ex.挂接皮肤 (取窗口句柄 (), , #银白, 1 ＋ 2 ＋ 4, 150, , 0, , , , , 假) Frame.创建 (取窗口句柄 (), 16, 66, 180, 180) .计次循环首 (10, i) .计次循环首 (10, j) Martix [i] [j].Create (取窗口句柄 (), j × 16 ＋ 10, i × 16 ＋ 60, 16 ＋ 1, 16 ＋ 1, #天蓝, 100) ' 扫雷按钮矩阵 Martix [i] [j].SetXY (i, j) Martix [i] [j].SetClickEvents (到整数 (&Martix_Click)) ' 挂接单击事件 .计次循环尾 () .计次循环尾 () TimeBtn.创建 (取窗口句柄 (), 16, 30, 76, 30, “Time:001”) restartBtn.创建 (取窗口句柄 (), 92, 30, 30, 30, “重置”) restartBtn.挂接事件 (10244, &Init) ScoreBtn.创建 (取窗口句柄 (), 122, 30, 73, 30, “Score:000”) Btn.挂接事件 (10244, &Init) Init () Ex.置进入特效 (7) Ex.置退出特效 (2) .子程序 RandPoint, PointF, , 生成随机不重复坐标 .参数最大值, 整数型 .参数数量, 整数型 .局部变量 nPoint, PointF, 静态, "0" .局部变量 i, 整数型 .计次循环首 (数量, i) nPoint.x ＝取随机数 (1, 最大值) nPoint.y ＝取随机数 (1, 最大值) .计次循环尾 () .子程序 Init .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 i, 整数型 .局部变量 Point, PointF 时钟1.时钟周期＝ 0 Score ＝ 0 Time ＝ 0 ScoreBtn.标题 (“Score:000”) TimeBtn.标题 (“Time:000”) 置随机数种子 () .计次循环首 (取数组成员数 (Mine), i) ' 清除雷 Martix [Mine [i].x] [Mine [i].y].SetIcon ({ 0 }) Martix [Mine [i].x] [Mine [i].y].CleanMine () Martix [Mine [i].x] [Mine [i].y].重画 () .计次循环尾 () .计次循环首 (取数组成员数 (ScorePos), i) ' 清除已经点过的方格 Martix [ScorePos [i].x] [ScorePos [i].y].SetStatus (0) Martix [ScorePos [i].x] [ScorePos [i].y].SetMineNum (0) Martix [ScorePos [i].x] [ScorePos [i].y].重画 () .计次循环尾 () 清除数组 (Mine) 清除数组 (ScorePos) .计次循环首 (10, i) ' 随机埋雷 x ＝取随机数 (1, 10) y ＝取随机数 (1, 10) Martix [x] [y].SetMine () Point.x ＝ x Point.y ＝ y 加入成员 (Mine, Point) .计次循环尾 () .子程序 Martix_Click .参数 x, 整数型 .参数 y, 整数型 .局部变量 i, 整数型 .如果真 (时钟1.时钟周期＝ 0) 时钟1.时钟周期＝ 1000 .如果真结束 .如果 (ClickMine (x, y) ＝真) 增加分数 (x, y) .计次循环首 (10, i) Martix [Mine [i].x] [Mine [i].y].SetIcon (#MinePic) .计次循环尾 () 时钟1.时钟周期＝ 0 信息框_Ex (取窗口句柄 (), “您输了! 分数:” ＋到文本 (取数组成员数 (ScorePos)), , , , , , , , , , 真, , #银白, 120, 0, , , 假, , 7, 2) Init () .否则 .如果 (Score ＜ 90) 自动区域 (x, y) .否则时钟1.时钟周期＝ 0 信息框_Ex (取窗口句柄 (), “恭喜通关! 时间:” ＋到文本 (Time), , , , , , , , , , 真, , #银白, 120, 0, , , 假, , 7, 2) Init () .如果结束 .如果结束 .子程序 ClickMine, 逻辑型, , 点击方格，点到雷返回真 .参数 x, 整数型 .参数 y, 整数型 .如果真 (Martix [x] [y].GetStatus () ＝ 0) 增加分数 (x, y) Martix [x] [y].SetStatus (1) .如果真 (Martix [x] [y].CheckMine () ＝真) 返回 (真) .如果真结束返回 (假) .如果真结束返回 (假) .子程序增加分数 .参数 x, 整数型 .参数 y, 整数型 .局部变量 Point, PointF Point.x ＝ x Point.y ＝ y 加入成员 (ScorePos, Point) Martix [x] [y].SetMineNum (计算雷数 (x, y)) Score ＝ Score ＋ 1 ScoreBtn.标题 (“Score:” ＋格式化文本 (“%.3d”, Score)) .子程序计算雷数, 整数型, , 计算九宫格内的雷数 .参数 x, 整数型 .参数 y, 整数型 .局部变量 Num, 整数型 .如果真 (x ≠ 1) .如果真 (Martix [x － 1] [y].CheckMine () ＝真) ' 左边 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (x ＜ 10) .如果真 (Martix [x ＋ 1] [y].CheckMine () ＝真) ' 右边 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (y ≠ 1) .如果真 (Martix [x] [y － 1].CheckMine () ＝真) ' 上边 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (y ＜ 10) .如果真 (Martix [x] [y ＋ 1].CheckMine () ＝真) ' 下边 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (x ≠ 1 且 y ≠ 1) .如果真 (Martix [x － 1] [y － 1].CheckMine () ＝真) ' 左上角 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (x ＜ 10 且 y ＜ 10) .如果真 (Martix [x ＋ 1] [y ＋ 1].CheckMine () ＝真) ' 右下角 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (x ≠ 1 且 y ＜ 10) .如果真 (Martix [x － 1] [y ＋ 1].CheckMine () ＝真) ' 左下角 Num ＝ Num ＋ 1 .如果真结束 .如果真结束 .如果真 (x ＜ 10 且 y ≠ 1) .如果真 (Martix [x ＋ 1] [y － 1].CheckMine () ＝真) ' 右上角 Num ＝ Num ＋ 1 .如果真结束 .如果真结束返回 (Num) .子程序自动区域 .参数 x, 整数型 .参数 y, 整数型 .如果真 (计算雷数 (x, y) ＝ 0) .如果真 (x ≠ 1) ClickMine (x － 1, y) .如果真结束 .如果真 (x ＜ 10) ClickMine (x ＋ 1, y) .如果真结束 .如果真 (y ≠ 1) ClickMine (x, y － 1) .如果真结束 .如果真 (y ＜ 10) ClickMine (x, y ＋ 1) .如果真结束 .如果真 (x ≠ 1 且 y ≠ 1) ClickMine (x － 1, y － 1) .如果真结束 .如果真 (x ＜ 10 且 y ＜ 10) ClickMine (x ＋ 1, y ＋ 1) .如果真结束 .如果真 (x ≠ 1 且 y ＜ 10) ClickMine (x － 1, y ＋ 1) .如果真结束 .如果真 (x ＜ 10 且 y ≠ 1) ClickMine (x ＋ 1, y － 1) .如果真结束 ClickMine (x, y) .如果真结束 .子程序 _时钟1_周期事件 Time ＝ Time ＋ 1 TimeBtn.标题 (格式化文本 (“Time:%.3d”, Time))

相关阅读