位置:编程技术网 > 人工智能 > 正文 >

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

2020年11月12日 22:33来源:未知手机版

偶遇黄子韬,拷贝,描写大自然的诗句

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


>

本文地址:http://www.reviewcode.cn/rengongzhinen/180144.html 转载请注明出处!

今日热点资讯