拉霸機VB2008求解...

我是阿正

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

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

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

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

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

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

BUTTON1.2.3

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


★單向停止★ 是說 拉霸機 單牌停止
★全停★三排一起停止


因為 小弟 我 不太會改= =所以我程式瑪都是亂用上去的
所以在執行的時候 的確使用起來跟其他拉霸機一樣
只是發現 有許多錯誤ˊˋ
希望 大大可以幫我修改出一個完整的 拉霸機
★綠色的是可以讓拉霸機 單向停止★
★圖片下方 三個 左邊屬來 第一個 下注[button1] 第二個 開始拉霸[button2] 第三個 全停[全部停止轉動][button3]>>這是我 自己設定的!!

問題1: 當金錢歸0... 上方$那邊歸0以後， 上方下注金額那邊 歸0 >>>一開始都是10<<金錢歸0以後 要歸0
問題2: 我設定拉霸機開始的時候 ★不能下注★只是我發現一個問題...我沒下注 也可以開始拉霸 請問要怎設定
希望大大可以幫忙... 我也會馬上回覆 希望可以幫忙我解決這個問題

而程式碼 我也提供一下... 只是很亂只要沒細心去觀察  功能都是正常ˊˋ
假如有人可以幫忙我 我可以給即時通 幫忙修改 ...麻煩了

下注那革程式碼:
下注:button1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        bitNum += 10
        Label_BitNum.Text = bitNum.ToString
        score -= 10
        Label_UserScoreNum.Text = score.ToString
        If score = 0 Then
            button1.Enabled = False

        End If


    End Sub

開始拉霸:button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If button1.Enabled = True Then

        End If
        Timer_Lucky1.Enabled = True
        Timer_Lucky2.Enabled = True
        Timer_Lucky3.Enabled = True
        button1.Enabled = False
        If score = 0 Then
            Button2.Enabled = False
        End If



    End Sub
全部停止:button3

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

        If Timer_Lucky1.Enabled Then
            PBox_Btn1.Enabled = False
            Timer_Lucky1.Enabled = False
        End If
        If Timer_Lucky2.Enabled Then
            PBox_Btn2.Enabled = False
            Timer_Lucky2.Enabled = False
        End If
        If Timer_Lucky3.Enabled Then
            PBox_Btn1.Enabled = False
            Timer_Lucky3.Enabled = False
        End If
        button1.Enabled = True

        Restart()

        CheckLink()
        If score = 0 Then
            button1.Enabled = False
            Button2.Enabled = False
            button3.Enabled = False




        End If

    End Sub
還有 地方需要提供 我會看到盡快回復
麻大大了

students1

又靜 發表於 2012-2-2 12:49  
您好，
論壇版規禁止公開個人通訊資料
包括MSN或即時通

可以私下給msn或fb或即時通這不就解決囉~~~!!
^^

又靜

我是阿正 發表於 2012-2-3 18:44  
重點是ˊˋ我不會弄 沒有上傳過東西 所以我不知道該怎麼要用

您好，您只寄 Lucky7_Client.sln 的方案檔
這個檔案為連結、資料之集合，不可只有此檔案
還要包含設定、程式....等一些檔案
您可以整個資料夾壓縮後再寄過來

我是阿正

重點是ˊˋ我不會弄 沒有上傳過東西 所以我不知道該怎麼要用

又靜

我是阿正 發表於 2012-1-31 20:01  
但是還是不行ㄟˊˋ 還是會直接 開始拉霸... 請問可以給個MSN 或及時通 傳給你檔案 幫忙改嗎??
上面的程式 ...

您好，
論壇版規禁止公開個人通訊資料
包括MSN或即時通
您有可以將檔上傳到網路空間嗎

我是阿正

但是還是不行ㄟˊˋ 還是會直接 開始拉霸... 請問可以給個MSN 或及時通 傳給你檔案 幫忙改嗎??
上面的程式瑪 放上去還是一樣
希望可以幫忙解決ˊˋ

又靜

您好，您第一個問題，我看不出您預設下注金額一開始都是10的程式碼在哪，所以在全部停止:button3
後面加了一行bitNum = 0 ，讓下注金額歸0

問題2: 您可以把Button2.Enabled = False 的屬性設為預設值，這樣就能解決沒下注也能拉霸的問題


小妹以您的程式小改了一下，您可以試看看

1.     '下注:button1，修改為score > 0 才能下注
   
2. 
   
3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
4.         If score > 0 Then
   
5.             bitNum += 10
   
6.             Label_BitNum.Text = bitNum.ToString
   
7.             score -= 10
   
8.             Label_UserScoreNum.Text = score.ToString
   
9.             Button2.Enabled = True
   
10.         Else
    
11.             Button1.Enabled = False
    
12.         End If
    
13. 
    
14.     End Sub
    
15. 
    
16.     '開始拉霸:button2，改成有下注才能拉霸
    
17.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
18.         If bitNum > 0 Then
    
19.             Timer_Lucky1.Enabled = True
    
20.             Timer_Lucky2.Enabled = True
    
21.             Timer_Lucky3.Enabled = True
    
22.             Button1.Enabled = False
    
23.             Button2.Enabled = False
    
24.         End If
    
25. 
    
26.     End Sub
    
27. 
    
28.     '全部停止:button3
    
29.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
30.         If Timer_Lucky1.Enabled Then
    
31.             PBox_Btn1.Enabled = False
    
32.             Timer_Lucky1.Enabled = False
    
33.         End If
    
34.         If Timer_Lucky2.Enabled Then
    
35.             PBox_Btn2.Enabled = False
    
36.             Timer_Lucky2.Enabled = False
    
37.         End If
    
38.         If Timer_Lucky3.Enabled Then
    
39.             PBox_Btn1.Enabled = False
    
40.             Timer_Lucky3.Enabled = False
    
41.         End If
    
42. 
    
43. 
    
44.         Restart()
    
45. 
    
46.         CheckLink()
    
47.         If score = 0 Then
    
48.             Button1.Enabled = False
    
49.             Button2.Enabled = False
    
50.             Button3.Enabled = False
    
51.             bitNum = 0
    
52.         Else
    
53.             Button1.Enabled = True
    
54.             Button2.Enabled = False
    
55. 
    
56.         End If
    
57. 
    
58.     End Sub

複製代碼