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

我是阿正

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

程式設計 拉霸機  自己設定的

ㄒ望大大可以幫忙 設定個一些小程式碼!!

合理狀況: 下注以後 即可拉霸 即可 停止
我的也是一樣....只是出現了點狀況

狀況:發現 我的 不用下注 就可以直接拉霸...
只是我又不太會改程式碼 希望可以幫忙一下!!
下注金額 10起跳 只是 SCORE錢=0 要如何讓他歸0..

我是用 VB2008 三個小格子 設定 開始 停止 全停

BUTTON1.2.3

或者有大大可以幫忙 設定 這三個城市馬...  希望有可以幫忙

keroroxs

抱歉，先問清楚幾個問題:
1. 您遊戲開始的時候是怎麼讓拉霸動作呢？
2. 讓score錢歸0是指下注時減少金額? (是否是指畫面右上的200要逐下注次數減少?)
3. 您說的 停止 與 全停 有什麼不同?

又靜

您好，因為您沒提供程式碼，所以不知怎麼幫您寫程式或修改，但是，可以提供您幾個意見

一、您提到不用下注就可以直接拉霸，您可以先把拉霸的按鍵的 Enabled 屬性設定 False
　　當您有下注時再把拉霸按鍵的 Enabled 屬性設定 True，
　　這樣設定，當您沒下注拉拉霸的按鍵會變成灰色，也就是不能按，也就不會觸發拉霸控制項

二、SCORE錢=0 要如何讓他歸0 ，您的意思是不是說當拉霸沒中，要讓下注金額歸零嗎？
　　您可以在拉霸控制項的程式後面把下注的變數直接設定為零就好了

三、如二樓大大所提，您的問題不是很明確，所以可以再解釋您要的方向

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

複製代碼

我是阿正

謝謝各位大大ㄛ  我嘗試看看!!