翻譯 Visual Basic語法-賽馬程式

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

5 Answers

Rating
  • GIDIN
    Lv 5
    1 decade ago
    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

  • Anonymous
    6 years ago

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

    [電子遊戲]

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

    [運彩遊戲]

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

    [真人遊戲]

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

    [對戰遊戲]

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

    [彩球遊戲]

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

    [優惠活動]

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

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

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

    歡迎免費體驗試玩!!

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

  • Anonymous
    7 years ago

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

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

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

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

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

  • Anonymous
    7 years ago

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

    提供您詳盡的說明

    您可以先進行遊戲下載:

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

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

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

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

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

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

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

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

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

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

  • How do you think about the answers? You can sign in to vote the answer.
  • Anonymous
    7 years ago

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

    運動遊戲

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

    即時遊戲

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

    對戰遊戲

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

    電子遊戲

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

    彩球遊戲

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

    最新優惠活動

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

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

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

    ****體驗試玩喔~!

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

Still have questions? Get your answers by asking now.