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

helper197

         >>合理狀況: 下注以後 即可拉霸 即可 停止
         >>狀況:發現 我的 不用下注 就可以直接拉霸...
         >>注金額 10起跳 只是 SCORE錢=0 要如何讓他歸0..
         >>設定 開始 停止 全停

          BUTTON1.2.3

         耶 小弟也不太會寫 但如果您可以提供您的程式 給大家幫你看 可能比較快哩

         我寫了一個簡單的 不曉得您是否能瞭解哩？ 您參考看看阿.. ︿﹍﹍﹍﹍﹍︿

         

1. Public Class Form1
   
2. 
   
3.     '$
   
4.     Private Money As Integer = 0
   
5.     '中獎沒
   
6.     Private Winning_Status As Boolean = False
   
7. 
   
8.     Enum _brtype
   
9.         _Nothing = -1
   
10.         蘋果 = 0
    
11.         西瓜 = 1
    
12.         鈴鐺 = 2
    
13.     End Enum
    
14.     Private brType() As _brtype = {_brtype._Nothing, _brtype._Nothing, _brtype._Nothing}
    
15. 
    
16.     Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    
17.         If Money = 0 Then
    
18. 
    
19.             MsgBox("請先下注")
    
20.         Else
    
21.             '開始運作
    
22.             TmRun.Interval = 1000
    
23.             TmRun.Enabled = True
    
24.         End If
    
25.     End Sub
    
26. 
    
27.     Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
    
28.         'Stop
    
29.         TmRun.Enabled = False
    
30. 
    
31.         'money 處理
    
32.         Money = 0
    
33. 
    
34.     End Sub
    
35. 
    
36.     Private Sub btnAllStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllStop.Click
    
37.         '其實我不曉得您的全停  要作啥米用途滴？
    
38.     End Sub
    
39. 
    
40.     Private Sub TmRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmRun.Tick
    
41.         TmRun.Stop()
    
42. 
    
43.         '1.
    
44.         '切圖與決定產生的物件
    
45. 
    
46.         For I As Byte = 0 To 2
    
47.             '如果還沒決定要顯示啥米碗糕
    
48.             If brType(I) = _brtype._Nothing Then
    
49.                 Dim generator As New Random
    
50.                 Dim randomValue As Integer = generator.Next(0, 2)
    
51.                 '隨機挑一個
    
52.                 brType(I) = randomValue
    
53.             Else
    
54.                 If 確認動畫跑完沒(I) = False Then
    
55.                     '跑由上至下動畫
    
56.                     Call 動畫(I)
    
57.                 Else
    
58.                     '重新來過
    
59.                     brType(I) = _brtype._Nothing
    
60.                 End If
    
61.             End If
    
62.         Next I
    
63. 
    
64.         '2.
    
65.         '如果中獎了該怎麼處理
    
66.         If Winning_Status = True Then
    
67.             MsgBox("您中獎了!!")
    
68.         Else
    
69.             '沒有中獎 把錢吃掉
    
70.             Money = 0
    
71. 
    
72.             '把自己停掉
    
73.             TmRun.Enabled = False
    
74.         End If
    
75. 
    
76.         TmRun.Start()
    
77.     End Sub
    
78. 
    
79.     Private Function 確認動畫跑完沒(ByVal Idx As Byte) As Boolean
    
80. 
    
81.     End Function
    
82.     Private Sub 動畫(ByVal Idx As Byte)
    
83.         '可以調整 TmRun.Interval = 1000 來決定動畫速度
    
84. 
    
85. 
    
86.         '1.
    
87.         '跑動畫
    
88. 
    
89.         '2.
    
90.         '檢查如果三個動畫跑道一樣的位置
    
91.         '檢查有沒有中獎
    
92.         If 中獎了 Then
    
93.             Winning_Status = True
    
94.         Else
    
95.             Winning_Status = False
    
96.         End If
    
97. 
    
98.     End Sub
    
99. End Class

複製代碼