專題:拉霸機... 設定問題 VB2008希望大大幫忙 - SOGO論壇

Public Class Form1
'$
Private Money As Integer = 0
'中獎沒
Private Winning_Status As Boolean = False
Enum _brtype
_Nothing = -1
蘋果 = 0
西瓜 = 1
鈴鐺 = 2
End Enum
Private brType() As _brtype = {_brtype._Nothing, _brtype._Nothing, _brtype._Nothing}
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
If Money = 0 Then
MsgBox("請先下注")
Else
'開始運作
TmRun.Interval = 1000
TmRun.Enabled = True
End If
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
'Stop
TmRun.Enabled = False
'money 處理
Money = 0
End Sub
Private Sub btnAllStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllStop.Click
'其實我不曉得您的全停要作啥米用途滴？
End Sub
Private Sub TmRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmRun.Tick
TmRun.Stop()
'1.
'切圖與決定產生的物件
For I As Byte = 0 To 2
'如果還沒決定要顯示啥米碗糕
If brType(I) = _brtype._Nothing Then
Dim generator As New Random
Dim randomValue As Integer = generator.Next(0, 2)
'隨機挑一個
brType(I) = randomValue
Else
If 確認動畫跑完沒(I) = False Then
'跑由上至下動畫
Call 動畫(I)
Else
'重新來過
brType(I) = _brtype._Nothing
End If
End If
Next I
'2.
'如果中獎了該怎麼處理
If Winning_Status = True Then
MsgBox("您中獎了!!")
Else
'沒有中獎把錢吃掉
Money = 0
'把自己停掉
TmRun.Enabled = False
End If
TmRun.Start()
End Sub
Private Function 確認動畫跑完沒(ByVal Idx As Byte) As Boolean
End Function
Private Sub 動畫(ByVal Idx As Byte)
'可以調整 TmRun.Interval = 1000 來決定動畫速度
'1.
'跑動畫
'2.
'檢查如果三個動畫跑道一樣的位置
'檢查有沒有中獎
If 中獎了 Then
Winning_Status = True
Else
Winning_Status = False
End If
End Sub
End Class

複製代碼