翻譯 Visual Basic語法-賽馬程式

Question

Private Sub Command1_Click()

Randomize Timer

arrive = False

While Not arrive

For i = 0 To 3

If Picture1(i).Left < Line6.X1 Then

r = Int(Rnd * 61) + 50

Picture1(i).Left = Picture1(i).Left + r

Call delay(0.01)

Else

arrive = True

Exit For

End If

Next i

Wend

-----------------------------------------------------

Sub delay(x)

t0 = Timer

While Timer - t0 < x

DoEvents

Wend

End Sub

Answer 1

Favorite Answer

程式少了一個"End Sub"

Private Sub Command1_Click()

Randomize Timer >起始亂數

arrive = False >設定馬匹到達終點狀態為假

While Not arrive >當arrive為假時 執行While .... Wend之間的程式

For i = 0 To 3

>共有四匹馬 以圖片物件當作馬匹 需另外載入馬匹的圖檔 Picture1(0)-Picture1(3)陣列

If Picture1(i).Left < Line6.X1 Then

>假如馬匹圖片的左邊界數值小於 LINE6物件的X1值時

執行IF ... ELSE 之間的程式

假如馬匹圖片的左邊界數值大於 LINE6物件的X1值時

執行ELSE ... END IF 之間的程式

r = Int(Rnd * 61) + 50 >設定每匹馬每次跑的距離 以隨機亂數為基準 最小50 最大110個點

Picture1(i).Left = Picture1(i).Left + r

>讓馬圖片的左邊界+r 等於是讓圖片往右邊移動 r的距離

Call delay(0.01)

>呼叫延遲副程式 delay(0.01) 延遲0.01 避免跑太快

Else

arrive = True >設定arrive的值為真 馬匹已達終點 之後可跳出While .... Wend循環

Exit For >直接跳出FOR 迴環

End If

Next i

Wend

End Sub

Sub delay(x)

t0 = Timer >設定 t0為現在時刻

While Timer - t0 < x

>進入While .... Wend循環 必須等到時間差Timer - t0大於X值才會跳出循環

DoEvents >讓CPU平均分配工作 不至於鎖死在這個副程式上 也有延遲的效果

Wend

End Sub

Answer 2

＊ ***** http://*****/ ＊

[電子遊戲]

拉霸、水果盤、7PK、5PK

[運彩遊戲]

棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]

百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]

台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]

香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]

1. 新舊會員儲值就送500點

2. 真人百家樂彩金等你拿

***** http://*****/

歡迎免費體驗試玩!!

線上影片直播、正妹圖、討論區免費註冊 ~

Answer 3

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

Answer 4

推薦您前往黃金俱樂部遊戲網！

提供您詳盡的說明

您可以先進行遊戲下載：

網址：http://xn--995888thnet-gf11bga/

誠心服務！會員溫馨！永久服務！

第一：全程直播遊戲的公平與公正性【亞洲唯一直屬會員代理】

第二：點數儲值和託售皆在十分鐘之內完成【全台娛樂城速度最快24小時不分周末】

第三：二十四小時專業客服務線上服務全年無休【大大小小問題都可以馬上做詳細解答喔】

電子機台．真人遊戲和你一同玩樂

麻將 百家樂 5PK 德州撲克 水果盤 賓果

輪盤 21點 10點半 骰盅 牌九 鬥地主 13支

全年網站優惠活動不間斷！

快去註冊會員！免費：http://xn--995888thnet-gf11bga/

Answer 5

線上遊戲天堂 http://ts999.tw/

運動遊戲

實況棒球、籃球、足球、冰球、網球等多種經典賽事

即時遊戲

百家、21點、牌九、二八杠、骰寶、龍虎、輪盤、牛牛、番攤

對戰遊戲

麻將、德州撲克、二八杠、吹牛、鬥地主、13支、暗棋、接龍

電子遊戲

5PK、7PK、水果盤遊戲、5輪遊戲、極限飆速、趙雲救主、西遊戲、金瓶梅、中國美人、英雄

彩球遊戲

大樂透、六合、時時彩、今彩539、3星彩、4星彩

最新優惠活動

1. 運動遊戲連過5關,彩今再加碼10%

2. 新會員加入,有機會獲得500元禮券與精美讀卡機

3. 遊戲積分可兌換汽機車、3C、精品等多種大獎

****體驗試玩喔~!

線上遊戲天堂 http://ts999.tw/