SOGO論壇

標題: 專題:拉霸機... 設定問題 VB2008希望大大幫忙 [列印本頁]

作者: 我是阿正    時間: 2012-1-10 22:21:09     標題: 專題:拉霸機... 設定問題 VB2008希望大大幫忙

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

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

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

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

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

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

BUTTON1.2.3

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

附件: 根本專題 !~.PNG (2012-1-10 22:20:13, 104.3 KB) / 下載次數 11
https://oursogo.com/forum.php?mod=attachment&aid=MTI3NDc4MXxhNjlhZDA5MnwxNzI2ODU5MDE0fDB8MA%3D%3D
作者: keroroxs    時間: 2012-1-11 02:41:43

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



作者: 又靜    時間: 2012-1-11 20:34:29

本帖最後由 又靜 於 2012-1-11 20:52 編輯

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

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

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

三、如二樓大大所提,您的問題不是很明確,所以可以再解釋您要的方向
作者: helper197    時間: 2012-1-11 20:47:07



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

          BUTTON1.2.3

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

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

         

  1. Public Class Form1

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

  6.     Enum _brtype
  7.         _Nothing = -1
  8.         蘋果 = 0
  9.         西瓜 = 1
  10.         鈴鐺 = 2
  11.     End Enum
  12.     Private brType() As _brtype = {_brtype._Nothing, _brtype._Nothing, _brtype._Nothing}

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

  15.             MsgBox("請先下注")
  16.         Else
  17.             '開始運作
  18.             TmRun.Interval = 1000
  19.             TmRun.Enabled = True
  20.         End If
  21.     End Sub

  22.     Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
  23.         'Stop
  24.         TmRun.Enabled = False

  25.         'money 處理
  26.         Money = 0

  27.     End Sub

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

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

  33.         '1.
  34.         '切圖與決定產生的物件

  35.         For I As Byte = 0 To 2
  36.             '如果還沒決定要顯示啥米碗糕
  37.             If brType(I) = _brtype._Nothing Then
  38.                 Dim generator As New Random
  39.                 Dim randomValue As Integer = generator.Next(0, 2)
  40.                 '隨機挑一個
  41.                 brType(I) = randomValue
  42.             Else
  43.                 If 確認動畫跑完沒(I) = False Then
  44.                     '跑由上至下動畫
  45.                     Call 動畫(I)
  46.                 Else
  47.                     '重新來過
  48.                     brType(I) = _brtype._Nothing
  49.                 End If
  50.             End If
  51.         Next I

  52.         '2.
  53.         '如果中獎了該怎麼處理
  54.         If Winning_Status = True Then
  55.             MsgBox("您中獎了!!")
  56.         Else
  57.             '沒有中獎 把錢吃掉
  58.             Money = 0

  59.             '把自己停掉
  60.             TmRun.Enabled = False
  61.         End If

  62.         TmRun.Start()
  63.     End Sub

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

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


  68.         '1.
  69.         '跑動畫

  70.         '2.
  71.         '檢查如果三個動畫跑道一樣的位置
  72.         '檢查有沒有中獎
  73.         If 中獎了 Then
  74.             Winning_Status = True
  75.         Else
  76.             Winning_Status = False
  77.         End If

  78.     End Sub
  79. End Class
複製代碼


作者: 我是阿正    時間: 2012-1-16 11:56:57

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




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