SOGO論壇

標題: 拉霸機VB2008求解... [列印本頁]
作者: 我是阿正    時間: 2012-1-29 19:56:20     標題: 拉霸機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
還有 地方需要提供 我會看到盡快回復
麻大大了

附件: 根本專題 !~.PNG (2012-1-29 19:48:46, 104.3 KB) / 下載次數 69
https://oursogo.com/forum.php?mod=attachment&aid=MTM5Njg3MHw4ODdlZGVmYnwxNzM5NTI2NzQwfDB8MA%3D%3D
作者: 又靜    時間: 2012-1-30 14:34:21

本帖最後由 又靜 於 2012-1-30 14:41 編輯

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

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


小妹以您的程式小改了一下，您可以試看看
  1.     '下注:button1，修改為score > 0 才能下注

  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

  14.     End Sub

  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

  26.     End Sub

  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


  44.         Restart()

  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

  56.         End If

  58.     End Sub
複製代碼
作者: 我是阿正    時間: 2012-1-31 20:01:31

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

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

您好，
論壇版規禁止公開個人通訊資料
包括MSN或即時通
您有可以將檔上傳到網路空間嗎
作者: 我是阿正    時間: 2012-2-3 18:44:24

重點是ˊˋ我不會弄 沒有上傳過東西 所以我不知道該怎麼要用
作者: 又靜    時間: 2012-2-9 12:42:30

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

您好，您只寄 Lucky7_Client.sln 的方案檔
這個檔案為連結、資料之集合，不可只有此檔案
還要包含設定、程式....等一些檔案
您可以整個資料夾壓縮後再寄過來
作者: students1    時間: 2012-2-24 18:50:40

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

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





歡迎光臨 SOGO論壇 (https://oursogo.com/) Powered by OURSOGO.COM