火星網(wǎng)校
vb智力測(cè)試游戲開(kāi)發(fā)(學(xué)習(xí)VB編程第54天，貪吃蛇游戲開(kāi)發(fā)第一節(jié))
發(fā)布時(shí)間：2023-11-27 00:44:51 瀏覽量：318次
?學(xué)習(xí)VB編程第54天，貪吃蛇游戲開(kāi)發(fā)第一節(jié)
今天學(xué)習(xí)了劉金玉老師零基礎(chǔ)VB教程的第65期，學(xué)習(xí)的主要內(nèi)容是貪吃蛇游戲開(kāi)發(fā)，初始化一條蛇。
1.初始化一條舍身思路：
（1）使用繪畫line畫蛇
（2）注意一節(jié)一節(jié)畫出來(lái)
（3）確定每一節(jié)蛇身的位置
（4）確定每一節(jié)蛇身的長(zhǎng)度
（5）line、print、circle繪畫出來(lái)的效果，需要自動(dòng)重繪，開(kāi)啟autodraw屬性。
2.代碼
Private Type node '定義每節(jié)舍身的變量類型
D As Integer '37向左，38向上，39向右，40向下
X As Single 'left值
Y As Single 'top值
End Type
Dim W As Integer '定義每一節(jié)蛇身寬度
Dim sno() As node '申明一條蛇為動(dòng)態(tài)數(shù)組
Function init()
AutoRedraw = True
W = 200 '默認(rèn)寬度為200
D = 39 '默認(rèn)方向向右
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
熱門課程推薦
熱門資訊
-
探討游戲引擎的文章，介紹了10款游戲引擎及其代表作品，涵蓋了RAGE Engine、Naughty Dog Game Engine、The Dead Engine、Cry Engine、Avalanche Engine、Anvil Engine、IW Engine、Frostbite Engine、Creation引擎、Unreal Engine等引擎。借此分析引出了游戲設(shè)計(jì)領(lǐng)域和數(shù)字藝術(shù)教育的重要性，歡迎點(diǎn)擊咨詢報(bào)名。
-
2. 手機(jī)游戲如何開(kāi)發(fā)(如何制作傳奇手游，都需要準(zhǔn)備些什么？)
?如何制作傳奇手游，都需要準(zhǔn)備些什么？提到傳奇手游相信大家都不陌生，他是許多80、90后的回憶；從起初的端游到現(xiàn)在的手游，說(shuō)明時(shí)代在進(jìn)步游戲在更新，更趨于方便化移動(dòng)化。而如果我們想要制作一款傳奇手游的
-
3. B站視頻剪輯軟件「必剪」：免費(fèi)、炫酷特效，小白必備工具
B站視頻剪輯軟件「必剪」，完全免費(fèi)、一鍵制作炫酷特效，適合新手小白?？靵?lái)試試！
-
4. 開(kāi)發(fā)三昧游戲叫什么(三昧動(dòng)漫)
?三昧動(dòng)漫對(duì)于著名ARPG游戲《巫師》系列，最近CD Projekt 的高層回應(yīng)并不會(huì)推出《巫師4》。因?yàn)椤段讕煛废盗性诓邉澋臅r(shí)候一直定位在“三部曲”的故事框架，所以在游戲的出品上不可能出現(xiàn)《巫師4》
-
5. Steam值得入手的武俠游戲盤點(diǎn)，各具特色的快意江湖
游戲中玩家將面臨武俠人生的掙扎抉擇,戰(zhàn)或降?殺或放?每個(gè)抉定都將觸發(fā)更多愛(ài)恨糾葛的精彩奇遇?！短烀嬗肪哂卸嗑€劇情多結(jié)局,不限主線發(fā)展,高自由...
-
6. 3D動(dòng)畫軟件你知道幾個(gè)?3ds Max、Blender、Maya、Houdini大比拼
當(dāng)提到3D動(dòng)畫軟件或動(dòng)畫工具時(shí),指的是數(shù)字內(nèi)容創(chuàng)建工具。它是用于造型、建模以及繪制3D美術(shù)動(dòng)畫的軟件程序。但是,在3D動(dòng)畫軟件中還包含了其他類型的...
-
7. 3D打印技巧揭秘！Cura設(shè)置讓你的模型更堅(jiān)固
想讓你的3D打印模型更堅(jiān)固？不妨嘗試一下Cura參數(shù)設(shè)置和設(shè)計(jì)技巧，讓你輕松掌握！
-
8. 虛幻引擎5節(jié)省存儲(chǔ)空間用這招!緩存的清理與設(shè)置
眾所周知,虛幻引擎5(下面簡(jiǎn)稱UE5)特別占用存儲(chǔ)空間,僅一個(gè)版本安裝好的文件就有60G,這還不包括我們?cè)谑褂脮r(shí)保存的工程文件和隨之產(chǎn)生的緩存文件。而...
-
9. Bigtime加密游戲經(jīng)濟(jì)體系揭秘，不同玩家角色的經(jīng)濟(jì)活動(dòng)
Bigtime加密游戲經(jīng)濟(jì)模型分析，探討游戲經(jīng)濟(jì)特點(diǎn)，幫助玩家更全面了解這款GameFi產(chǎn)品。
-
10. 3D動(dòng)漫建模全過(guò)程，不是一般人能學(xué)的會(huì)的，會(huì)的多不是人?
步驟01:面部,頸部,身體在一起這次我不準(zhǔn)備設(shè)計(jì)圖片,我從雕刻進(jìn)入。這一次,它將是一種純粹關(guān)注建模而非整體繪畫的形式。像往常一樣,我從Sphere創(chuàng)建它...
最新文章
