SOGO論壇
  登入   註冊   找回密碼
SOGO論壇 › 論壇 › ≡ 電腦數位 ≡ › 電子電機暨資訊工程館 › 專題:拉霸機... 設定問題 VB2008希望大大幫忙 ...
返回列表
查看: 1436|回覆: 4
列印 上一主題 下一主題

[問題求助] 專題:拉霸機... 設定問題 VB2008希望大大幫忙 [複製連結]

我是阿正

Rank: 2

狀態︰ 離線
跳轉到指定樓層
1樓
發表於 2012-1-10 22:21:09 |只看該作者 |倒序瀏覽
專題:拉霸機... 設定問題 VB2008希望大大幫忙

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

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

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

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

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

BUTTON1.2.3

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

根本專題 !~.PNG (104.3 KB, 下載次數: 11)

喜歡嗎？分享這篇文章給親朋好友︰
               感謝作者     

檢舉

keroroxs

Rank: 2

狀態︰ 離線
2樓
發表於 2012-1-11 02:41:43 |只看該作者
抱歉，先問清楚幾個問題:
1. 您遊戲開始的時候是怎麼讓拉霸動作呢？
2. 讓score錢歸0是指下注時減少金額? (是否是指畫面右上的200要逐下注次數減少?)
3. 您說的 停止 與 全停 有什麼不同?


檢舉

又靜

Rank: 13Rank: 13Rank: 13Rank: 13

原創及親傳圖影片高手勳章 熱心參予論壇活動及用心回覆主題勳章 榮譽會員勳章 數位硬體勳章 小說之星勳章 原創寫手勳章

狀態︰ 離線
3樓
發表於 2012-1-11 20:34:29 |只看該作者
本帖最後由 又靜 於 2012-1-11 20:52 編輯

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

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

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

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

檢舉

helper197

Rank: 3Rank: 3

數位軟體勳章

狀態︰ 離線
4樓
發表於 2012-1-11 20:47:07 |只看該作者


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

          BUTTON1.2.3

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

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

         
  1. Public Class Form1

  3.     '$
  4.     Private Money As Integer = 0
  5.     '中獎沒
  6.     Private Winning_Status As Boolean = False

  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}

  16.     Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
  17.         If Money = 0 Then

  19.             MsgBox("請先下注")
  20.         Else
  21.             '開始運作
  22.             TmRun.Interval = 1000
  23.             TmRun.Enabled = True
  24.         End If
  25.     End Sub

  27.     Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
  28.         'Stop
  29.         TmRun.Enabled = False

  31.         'money 處理
  32.         Money = 0

  34.     End Sub

  36.     Private Sub btnAllStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllStop.Click
  37.         '其實我不曉得您的全停  要作啥米用途滴？
  38.     End Sub

  40.     Private Sub TmRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmRun.Tick
  41.         TmRun.Stop()

  43.         '1.
  44.         '切圖與決定產生的物件

  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

  64.         '2.
  65.         '如果中獎了該怎麼處理
  66.         If Winning_Status = True Then
  67.             MsgBox("您中獎了!!")
  68.         Else
  69.             '沒有中獎 把錢吃掉
  70.             Money = 0

  72.             '把自己停掉
  73.             TmRun.Enabled = False
  74.         End If

  76.         TmRun.Start()
  77.     End Sub

  79.     Private Function 確認動畫跑完沒(ByVal Idx As Byte) As Boolean

  81.     End Function
  82.     Private Sub 動畫(ByVal Idx As Byte)
  83.         '可以調整 TmRun.Interval = 1000 來決定動畫速度


  86.         '1.
  87.         '跑動畫

  89.         '2.
  90.         '檢查如果三個動畫跑道一樣的位置
  91.         '檢查有沒有中獎
  92.         If 中獎了 Then
  93.             Winning_Status = True
  94.         Else
  95.             Winning_Status = False
  96.         End If

  98.     End Sub
  99. End Class
複製代碼

已有 1 人評分威望 收起 理由
又靜 + 2 感謝您熱心幫助會員解決問題，論壇需要您的.

總評分: 威望 + 2   查看全部評分

感同身受，就能放下執著

檢舉

我是阿正

Rank: 2

狀態︰ 離線
5樓
發表於 2012-1-16 11:56:57 |只看該作者
謝謝各位大大ㄛ  我嘗試看看!!  

檢舉

返回列表
請注意︰利用多帳號發表自問自答的業配文或置入性行銷廣告者，將直接禁訪或刪除帳號及全部文章！
高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回覆 登入 | 註冊


本論壇為非營利自由討論平台，所有個人言論不代表本站立場。文章內容如有涉及侵權，請通知管理人員，將立即刪除相關文章資料。侵權申訴或移除要求：abuse@oursogo.com

GMT+8, 2024-11-23 04:45

品味生活|休閒天地|興趣嗜好|學術藝文|女性頻道|電腦數位|遊戲天堂|影視音樂|宗教綜合|綜合圖片|綜合影片|成人園地
© 2004-2024 SOGO論壇 OURSOGO.COM
回頂部