前端开发入门到精通的在线学习网站

网站首页 > 资源文章 正文

VB之打字游戏(vb编写打字小游戏)

qiguaw 2024-11-11 13:09:43 资源文章 17 ℃ 0 评论

打字游戏规则:

点击"开始"按钮后,屏幕上会出现5个字母,正确点击相应键盘按键,字母消失并且窗体顶端重新出现一个新字母,点击"结束"按钮,程序停止。

设计思路:

在Frame窗体中放入5个标签框,利用Chr函数生成小写字母并放入Label.Caption中,通过递增Label坐标的Top值来实现字母下落,当Label的Top值大于Frame的Height值或者检测玩家正确点击字母按键时,字母重新随机生成并从窗体随机位置降落。

窗体设计界面如下图所示:


窗体中包含的控件:

1个Frame

5个Label

2个Command

1个Timer

按照窗体界面设置各控件相关属性。

代码实现:

1, 开始按钮

1. Private Sub Command1_Click()

2. Timer1 = True

3. Randomize

4. Dim i As Integer

5. For i = 0 To 4

6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)

7. Next i

8. End Sub


2,结束按钮

1. Private Sub Command2_Click()

2. End

3. End Sub


3,Timer

1. Private Sub Timer1_Timer()

2. For i = 0 To 4

3. If Label1(i).Top < Form1.Height Then

4. Label1(i).Top = Label1(i).Top + 30

5. Else

6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)

7. Label1(i).Top = Frame1.Top

8. Label1(i).Left = Form1.Width * Rnd

9. End If

10. Next i

11. End Sub


4,键盘检测事件

1. Private Sub Form_KeyPress(KeyAscii As Integer)

2. For i = 0 To 4

3. If Label1(i).Caption = Chr(KeyAscii) Then

4. Label1(i).Top = Frame1.Top

5. Label1(i).Left = Form1.Width * Rnd

6. Label1(i).Caption = Chr(Int(Rnd * 26) + 97)

7. End If

8. Next i

9. End Sub


运行程序,如下图所示:

本程序只是把打字游戏的设计思路简单描述了下,程序中可能有不完善的地方希望读者可以不吝给予指正,另外设计者可以在游戏中加入更多的元素,比如随机下落大些字母、数字、字符、计分系统、背景音乐等等。

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

最近发表
标签列表