激情六月丁香婷婷|亚洲色图AV二区|丝袜AV日韩AV|久草视频在线分类|伊人九九精品视频|国产精品一级电影|久草视频在线99|在线看的av网址|伊人99精品无码|午夜无码视频在线

高校合作1:010-59833514 ?咨詢電話:400-810-1418 服務(wù)與監(jiān)督電話:400-810-1418轉(zhuǎn)接2

vb智力測(cè)試游戲開發(fā)(學(xué)習(xí)VB編程第54天,貪吃蛇游戲開發(fā)第一節(jié))

發(fā)布時(shí)間:2023-11-27 00:44:51 瀏覽量:241次

?學(xué)習(xí)VB編程第54天,貪吃蛇游戲開發(fā)第一節(jié)

vb智力測(cè)試游戲開發(fā)(學(xué)習(xí)VB編程第54天,貪吃蛇游戲開發(fā)第一節(jié))

今天學(xué)習(xí)了劉金玉老師零基礎(chǔ)VB教程的第65期,學(xué)習(xí)的主要內(nèi)容是貪吃蛇游戲開發(fā),初始化一條蛇。

1.初始化一條舍身思路:

(1)使用繪畫line畫蛇

(2)注意一節(jié)一節(jié)畫出來

(3)確定每一節(jié)蛇身的位置

(4)確定每一節(jié)蛇身的長度

(5)line、print、circle繪畫出來的效果,需要自動(dòng)重繪,開啟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

vb智力測(cè)試游戲開發(fā)(學(xué)習(xí)VB編程第54天,貪吃蛇游戲開發(fā)第一節(jié))

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智力測(cè)試游戲開發(fā)(學(xué)習(xí)VB編程第54天,貪吃蛇游戲開發(fā)第一節(jié))

熱門課程推薦

熱門資訊

請(qǐng)綁定手機(jī)號(hào)

x

同學(xué)您好!

您已成功報(bào)名0元試學(xué)活動(dòng),老師會(huì)在第一時(shí)間與您取得聯(lián)系,請(qǐng)保持電話暢通!
確定