贪吃蛇冒险
贪吃蛇冒险

贪吃蛇冒险

你能成为最大的蛇吗?
2.9
立即下载
使用小米游戏中心APP下载,领丰富游戏福利礼包
贪吃蛇冒险
贪吃蛇冒险
下载
1个帖子热门最新最赞
小米游戏内容中心小米游戏内容中心
学习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 TypeDim W As Integer '定义每一节蛇身宽度Dim sno() As node '申明一条蛇为动态数组Function init()AutoRedraw = TrueW = 200 '默认宽度为200D = 39 '默认方向向右ReDim sno(5) As nodeDim i As LongFor i = 0 To UBound(sno) Step 1sno(i).D = Dsno(i).X = ScaleWidth / 2 + i * Wsno(i).Y = ScaleHeight / 2Next iEnd FunctionFunction drawsnake()Dim i As LongFor i = 0 To UBound(sno) Step 1RandomizeLine (sno(i).X, sno(i).Y)-(sno(i).X + W, sno(i).Y + W), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BFNext iEnd FunctionPrivate Sub Form_Load()Call initCall drawsnakeEnd Sub 贪吃蛇 游戏 vb dim