求用vbs編寫(xiě)的貪吃蛇源代碼？定義snake 的移動(dòng)速度。私有枚舉速度快速0慢慢1結(jié)束枚舉定義蛇移動(dòng)方向的枚舉值。私有枚舉tpsDirectionD_UP 38d _下降40d _左37d _右39

求用vbs編寫(xiě)的貪吃蛇源代碼？

定義snake 的移動(dòng)速度。

私有枚舉速度

快速0

慢慢1

結(jié)束枚舉

定義蛇移動(dòng)方向的枚舉值。

私有枚舉tpsDirection

D_UP 38

d _下降40

d _左37

d _右39

結(jié)束枚舉

定義運(yùn)動(dòng)區(qū)域中四個(gè)的枚舉值。

私有枚舉tpsForbidd

VBS如何跳出本次for循環(huán)，執(zhí)行下個(gè)for循環(huán)？

VBS沒(méi)有continu

WinCC如何利用復(fù)選框和按鈕來(lái)設(shè)置變量的數(shù)值？

建立三個(gè)內(nèi)部變量，A，B，C，都是二元變量。

創(chuàng)建一個(gè)圖片，畫(huà)三個(gè)復(fù)選框，復(fù)選框的屬性-幾何中的框數(shù)設(shè)置為1。

在第一個(gè)復(fù)選框中，屬性-Font-的文本被改為A，另外兩個(gè)分別是B和C。

第一個(gè)復(fù)選框，屬性-輸入/輸出-右擊 "動(dòng)態(tài) "來(lái)選擇變量A，另外兩個(gè)選擇變量B和c。

在圖片上畫(huà)兩個(gè)按鈕。將屬性字體的文本更改為按鈕1，將另一個(gè)按鈕更改為按鈕2。

按鈕1，屬性-事件-鼠標(biāo)-松開(kāi)左鍵點(diǎn)擊右鍵- 》VBS動(dòng)作粘貼以下代碼。

一個(gè)

2

三

四

五

六

七

八

九

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

Sub OnLButtonUp(按值項(xiàng)目，按值標(biāo)志，按值x，按值y)

Dim A和B A控制幾個(gè)復(fù)選框?yàn)?，B控制哪個(gè)或哪些復(fù)選框?yàn)?。

Dim標(biāo)簽_a、標(biāo)簽_b、標(biāo)簽_c

設(shè)置Tag_aHMIRuntime。標(biāo)簽(個(gè))設(shè)置Tag_bHMIRuntime。標(biāo)簽(b)

設(shè)置Tag_cHMIRuntime。標(biāo)簽(c)

AInt(Rnd * 3) 1生成1-3的隨機(jī)數(shù)。

bInt(Rnd * 3) 1

如果a1那么

選擇案例b

案例1

標(biāo)簽_a .寫(xiě)

一個(gè)

案例2

Tag_b .寫(xiě)

一個(gè)

其他情況

標(biāo)簽_c .寫(xiě)

一個(gè)

結(jié)束選擇

那么Elseif a2

選擇案例b

案例1

標(biāo)簽_a .寫(xiě)

一個(gè)

Tag_b .寫(xiě)

一個(gè)

案例2

標(biāo)簽_a .寫(xiě)

一個(gè)

標(biāo)簽_c .寫(xiě)

一個(gè)

其他情況

Tag_b .寫(xiě)

一個(gè)

標(biāo)簽_c .寫(xiě)

一個(gè)

結(jié)束選擇

其他

標(biāo)簽_a .寫(xiě)

一個(gè)

Tag_b .寫(xiě)

一個(gè)

標(biāo)簽_c .寫(xiě)

一個(gè)

如果…就會(huì)結(jié)束

末端接頭