vb智力测试游戏开发(学习VB编程第54天,贪吃蛇游戏开发第一节)

发布时间:2023-11-27 00:44:51 浏览量:154次

学习VB编程第54天,贪吃蛇游戏开发第一节

vb智力测试游戏开发(学习VB编程第54天,贪吃蛇游戏开发第一节)

今天学习了刘金玉老师零基础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

vb智力测试游戏开发(学习VB编程第54天,贪吃蛇游戏开发第一节)

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


vb智力测试游戏开发(学习VB编程第54天,贪吃蛇游戏开发第一节)

热门课程推荐

热门资讯

请绑定手机号

x

微信扫码在线答疑

扫码领福利1V1在线答疑

点击咨询
添加老师微信,马上领取免费课程资源

1. 打开微信扫一扫,扫描左侧二维码

2. 添加老师微信,马上领取免费课程资源

同学您好!

您已成功报名0元试学活动,老师会在第一时间与您取得联系,请保持电话畅通!
确定