网站首页 > 资源文章 正文
打字游戏规则:
点击"开始"按钮后,屏幕上会出现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
运行程序,如下图所示:
本程序只是把打字游戏的设计思路简单描述了下,程序中可能有不完善的地方希望读者可以不吝给予指正,另外设计者可以在游戏中加入更多的元素,比如随机下落大些字母、数字、字符、计分系统、背景音乐等等。
- 上一篇: 告别残留,VB6程序执行完后自动卸载背后的秘密技术
- 下一篇: VB绘制实时曲线(vb绘制函数图像)
猜你喜欢
- 2024-11-11 VBA|过程或方法内部的直接或间接调用与相对怪异的语法格式
- 2024-11-11 VB6多线程执行Post请求(基于Curl库)
- 2024-11-11 Windows安装PHP8+Apache+JIT(即时编译)
- 2024-11-11 VB6多线程执行Get请求(基于Curl库)
- 2024-11-11 以下函数可以用于VB6,也可以用在VBA当中! '...
- 2024-11-11 VB之生成随机数(vb程序随机生成数)
- 2024-11-11 计算机二级VB复习重点十四篇,9月份还有小伙伴考VB吗,需要就拿去吧
- 2024-11-11 关于VB的小记录(关于vb的常见问题)
- 2024-11-11 VB6 日期相关函数(vbscript 日期函数)
- 2024-11-11 使用OpenCV库操作摄像头拍照、调节参数和视频录制
你 发表评论:
欢迎- 最近发表
- 标签列表
-
- 电脑显示器花屏 (79)
- 403 forbidden (65)
- linux怎么查看系统版本 (54)
- 补码运算 (63)
- 缓存服务器 (61)
- 定时重启 (59)
- plsql developer (73)
- 对话框打开时命令无法执行 (61)
- excel数据透视表 (72)
- oracle认证 (56)
- 网页不能复制 (84)
- photoshop外挂滤镜 (58)
- 网页无法复制粘贴 (55)
- vmware workstation 7 1 3 (78)
- jdk 64位下载 (65)
- phpstudy 2013 (66)
- 卡通形象生成 (55)
- psd模板免费下载 (67)
- shift (58)
- localhost打不开 (58)
- 检测代理服务器设置 (55)
- frequency (66)
- indesign教程 (55)
- 运行命令大全 (61)
- ping exe (64)
本文暂时没有评论,来添加一个吧(●'◡'●)