网站首页 > 资源文章 正文
今天学习了刘金玉老师零基础VB教程的第65期,学习的主要内容是贪吃蛇游戏开发,初始化一条蛇。
1.初始化一条舍身思路:
(1)使用绘画line画蛇
(2)注意一节一节画出来
(3)确定每一节蛇身的位置
(4)确定每一节蛇身的长度
(5)line、print、circle绘画出来的效果,需要自动重绘,开启autodraw属性。
2.代码
Private Type node '定义每节舍身的变量类型
D As Integer '37向左,38向上,39向右,40向下
X As Single 'left值
Y As Single 'top值
End Type
Dim W As Integer '定义每一节蛇身宽度
Dim sno() As node '申明一条蛇为动态数组
Function init()
AutoRedraw = True
W = 200 '默认宽度为200
D = 39 '默认方向向右
ReDim sno(5) As node
Dim i As Long
For i = 0 To UBound(sno) Step 1
sno(i).D = D
sno(i).X = ScaleWidth / 2 + i * W
sno(i).Y = ScaleHeight / 2
Next i
End Function
Function drawsnake()
Dim i As Long
For i = 0 To UBound(sno) Step 1
Randomize
Line (sno(i).X, sno(i).Y)-(sno(i).X + W, sno(i).Y + W), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF
Next i
End Function
Private Sub Form_Load()
Call init
Call drawsnake
End Sub
猜你喜欢
- 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)
本文暂时没有评论,来添加一个吧(●'◡'●)