【按键精灵】QUI卖萌作品《打地鼠》-工程师01

QUI卖萌作品《打地鼠》-工程师01

马上就要周末了，有些暴晒的午后，今天咱们的院刊小编，给大家带来咱们工程师01一款萌萌的按键精灵QUI作品~

看看咱们的大姐大如何卖萌~~

打地鼠这款小游戏，通过按键精灵纯QUI命令完成，没有插件命令哦~

在规定时间内，打中黄色的地鼠则游戏胜利。若打中炸弹（红色地鼠为炸弹），则游戏结束。

打地鼠——思路解析：

---->开始游戏；

---->地鼠和炸弹随机出现，定时器开始定时；

---->点击中地鼠，数量加1；

---->点击中炸弹，结束游戏。

---->定时器倒计时为0，结束游戏。

打地鼠——解构解析：

QUI窗体类的小游戏

技术点一：QUI控件：

一共用了5类QUI控件：

控件名称控件属性控件相应事件窗体控件可见/不可见

可用/不可用加载、加载完成、卸载图像控件可见/不可见

可用/不可用点击标签控件可见/不可见

可用/不可用点击定时器控件不可见

可用/不可用定时按钮控件可见/不可见

可用/不可用点击

① 窗体控件（Form1窗体）；

② 图像控件（logo图像、PictureBox1图像、地鼠图像、炸弹图像）；

③ 标签控件（倒计时标签、数量标签）；

④ 定时器控件（计时定时器）；

⑤ 按钮控件（开始按钮）。

技术点二：随机函数：随机选择地鼠/炸弹出现的位置。Randomize：初始化随机数生成器。

举例说明如何使用 Randomize 语句:

1. Dim MyValue,Response
2. Randomize '初始化随机数生成器。
3. Do UntilResponse = vbNo
4. MyValue = Int((6 * Rnd) 1) ' 产生 1 到 6 之间的随机数。
5. MsgBox MyValue
6. Response = MsgBox ("Roll again? ",vbYesNo)
7. Loop

复制代码

打地鼠——代码解析：

夜黑风高，我们一起玩玩打地鼠吧~~~

开始游戏按钮点击：Event Form1.开始.Click

初始化游戏之后，该隐藏的各个控件，该使用的各个控件属性走起~~~

地鼠/炸弹出现的位置，随机事件：Event Form1.随机.Timer

初始化几个地鼠坑的坐标，记入x、y数组。通过随机数来生成0-5的数组下标，来确认地鼠/炸弹出现的位置。

出现地鼠/炸弹，也是通过随机数来判断。

地鼠事件被点击：Event Form1.地鼠.Click

地鼠事件被点击之后，地鼠的计数器 1，然后地鼠这个图像消失。

炸弹事件被点击：Event Form1.炸弹.Click

炸弹事件被点击之后，炸弹图像消失，游戏结束。

倒计时事件启动：Event Form1.计时.Timer

倒计时小于等于0的时候，触发炸弹事件，游戏结束

1. //<兄弟工程师01> 制作 2013.12.06
2. //在规定的时间内，打中黄色的地鼠。红色地鼠为炸弹，打中游戏结束
3. Event Form1.开始.Click
4. k = - 1
5. i = 0
6. Form1.数量.Caption = "数量：" & i
7. n = 30
8. Form1.倒计时.Caption = "倒计时：" & n
9. Form1.计时.Enabled = False
10. Form1.计时.Enabled = True
11. Form1.随机.Enabled = False
12. Form1.随机.Enabled = True
13. Form1.开始.Visible = False
14. Form1.地鼠.Visible = False
15. Form1.地鼠.Enabled = True
16. Form1.炸弹.Visible = False
17. Form1.logo.Visible = False
18. End Event
19. Event Form1.随机.Timer
20. Dim x(5),y(5)
21. x(0) = 123
22. y(0) = 100
23. x(1) = 339
24. y(1) = 100
25. x(2) = 561
26. y(2) = 100
27. x(3) = 123
28. y(3) = 259
29. x(4) = 339
30. y(4) = 259
31. x(5) = 561
32. y(5) = 259
33. Form1.地鼠.Visible = False
34. Form1.炸弹.Visible = False
35. Delay Lib.算法.随机数字串(2)
36. Dim 数字
37. Randomize
38. 数字 = Int(2 * Rnd)
39. If 数字 = 0 Then
40. Do
41. Randomize
42. 数字 = Int(6 * Rnd)
43. If 数字 <> k Then
44. k = 数字
45. Form1.地鼠.Left = x(数字)
46. Form1.地鼠.Top = y(数字)
47. Form1.地鼠.Visible = True
48. Exit Do
49. End If
50. Loop
51. Else
52. Do
53. Randomize
54. 数字 = Int(6 * Rnd)
55. If 数字 <> k Then
56. k = 数字
57. Form1.炸弹.Left = x(数字)
58. Form1.炸弹.Top = y(数字)
59. Form1.炸弹.Visible = True
60. Exit Do
61. End If
62. Loop
63. End If
64. End Event
65. Event Form1.地鼠.Click
66. i = i 1
67. Form1.数量.Caption = "数量：" & i
68. Form1.地鼠.Visible = False
69. End Event
70. Event Form1.炸弹.Click
71. Form1.随机.Enabled = False
72. Form1.计时.Enabled = False
73. Form1.开始.Visible = True
74. Form1.炸弹.Visible = False
75. Form1.logo.Visible = True
76. Form1.地鼠.Enabled = False
77. Form1.地鼠.Left =339
78. Form1.地鼠.Top = 259
79. Form1.地鼠.Visible = True
80. 数字 = k
81. 'MessageBox "游戏结束"
82. End Event
83. Event Form1.计时.Timer
84. n = n - 1
85. Form1.倒计时.Caption = "倒计时：" & n
86. If n <= 0 Then
87. Form1.炸弹.Click
88. End If
89. End Event