VB6 小遊戲 寫Code 但是有些錯誤 還有一些不會 可以幫我一下嗎?

我在試著做 Iphone 遊戲 1 to 50 我改成 1 to 25 容易點 XDD  可是還是有點問題

我的code是

1. 
   
2. Dim Backcounter As Integer
   
3. 
   
4. Dim Buttons(1 To 25) As Integer
   
5. 
   
6. Private Sub Form_Load()
   
7. Dim counta As Integer
   
8. Randomize Timer
   
9. Timer1.Interval = 10
   
10. Timer2.Interval = 3000
    
11. lblTimer.Caption = "00:00.00"
    
12. lblBackcounter.Caption = "Ready"
    
13. lblBackcounter.Enabled = True
    
14. Timer2.Enabled = True
    
15. lblNumber.Caption = 1
    
16. numbercoutner = 1
    
17. missed = 0
    
18. lblMissedNumber.Caption = 0
    
19. Time_Count = 0                  'reset counter for new record
    
20. Backcounter = 0                 'make sure the "Ready" will come out (Backounter < 0)
    
21. 
    
22. Call Swap
    
23. For counta = 1 To 25
    
24.    
    
25.     Buttons(counta) = counta
    
26.    
    
27. Next
    
28. For counta = 1 To 25
    
29.     lblButtons(counta).Caption = Buttons(counta)
    
30.    
    
31. Next
    
32. 
    
33. End Sub
    
34. Private Sub lblButtons_Click(Index As Integer)
    
35. If counta = numbercounter Then
    
36.     numbercounter = numbercounter + 1
    
37.    
    
38. Else: missed = missed + 1 ' update the worry clcik
    
39. End If
    
40. If numbercounter = 26 Then 'finished 25 number
    
41.     Game_Start = False
    
42.    
    
43.     frmEnterName.Show   'call out the Name from
    
44.    
    
45.    
    
46. End If
    
47. End Sub
    
48. Private Sub lblMissedNumber_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
49. lblMissedNumber.Caption = missed
    
50. End Sub
    
51. Private Sub Timer1_Timer()
    
52. Dim lSec    As Long
    
53. Dim lMin    As Long
    
54. Dim lminsec As Long
    
55. If Timer2.Enabled = False Then
    
56.     Time_Count = Time_Count + 1
    
57.     lMin = Time_Count \ 6000
    
58.     lSec = (Time_Count Mod 6000) \ 100
    
59.     lminsec = Time_Count Mod 100
    
60.     lblTimer.Caption = Format(lMin, "00") & ":" & Format(lSec, "00") & "." & Format(lminsec, "00")
    
61.     Scores = lblTimer.Caption
    
62. End If
    
63. End Sub
    
64. Private Sub Timer2_Timer()
    
65. 
    
66. Backcounter = Backcounter - 1
    
67. lblBackcounter.Caption = Backcounter
    
68. If Backcounter < 0 Then
    
69.     lblBackcounter.Caption = ""
    
70.    
    
71.     lblBackcounter.Enabled = False
    
72.    
    
73.     Timer2.Enabled = False
    
74.    
    
75.    
    
76. End If
    
77. End Sub
    
78. Sub Swap() 'doing sWap in the RAM
    
79. Dim loc1, loc2, counta, temp As Integer
    
80. 
    
81. For counta = 1 To 500
    
82. loc1 = Int(Rnd * 25) + 1
    
83. loc2 = Int(Rnd * 25) + 1
    
84. temp = Buttons(loc1)
    
85. Buttons(loc1) = Buttons(loc2)
    
86. Buttons(loc2) = temp
    
87. Next
    
88. End Sub

複製代碼

我的想法就是 讓程式在 記憶體 作交換位子的是
然後再打她叫出還用
可是好像沒有換位子

1. Sub Swap() 'doing sWap in the RAM
   
2. Dim loc1, loc2, counta, temp As Integer
   
3. 
   
4. For counta = 1 To 500
   
5. loc1 = Int(Rnd * 25) + 1
   
6. loc2 = Int(Rnd * 25) + 1
   
7. temp = Buttons(loc1)
   
8. Buttons(loc1) = Buttons(loc2)
   
9. Buttons(loc2) = temp
   
10. Next
    
11. End Sub
    
12. 
    
13. Call Swap
    
14. For counta = 1 To 25
    
15. 
    
16. Buttons(counta) = counta
    
17. 
    
18. Next
    
19. For counta = 1 To 25
    
20. lblButtons(counta).Caption = Buttons(counta)
    
21. 
    
22. Next

複製代碼

上面是我做交換的code 讓他在記憶體 換500次位子
但是出來還是沒用 = =
那數字是 lblButtons(1) 到 lblButtons(25)

還有

1. Private Sub lblButtons_Click(Index As Integer)
   
2. If counta = numbercounter Then
   
3. numbercounter = numbercounter + 1
   
4. 
   
5. Else: missed = missed + 1 ' update the worry clcik
   
6. End If
   
7. If numbercounter = 26 Then 'finished 25 number
   
8. Game_Start = False
   
9. 
   
10. frmEnterName.Show 'call out the Name from
    
11. 
    
12. 
    
13. End If
    
14. End Sub

複製代碼

這我想寫說 當遊戲開始  然後 當 lblNumber = 被點到的 lblButtons 數字
numbercounter會+1
然後 numbercounter = 26 就是說 25個數字都點對了 所以就結束
當 lblNumber <> 被點到的 lblButtons 數字
missed 會 +1
然後 lblmissednumber.caption = missed

最後我想多加 當

1. Game_Start = False
   
2. frmEnterName.Show 'call out the Name from

複製代碼

可以順便 紀錄所花的時間 就是 Scores = lblTimer.Caption

當遊戲結束 我的 紀錄名子的Form 就會出來
但是 有人可以教我一下 排名的方法 (氣泡排序法)
我會紀錄 時間 名子 然後Time_Count 用最少的是第一名
然後 排名只會Show 名次 名子 時間 不要把 Time_Count show 出來

排名的程式 我都找不到例子 練習所以不會寫

雖然有很多問題 但是希望 可以把這小遊戲 做完美一點 ^.^  謝謝...

瀏覽完整內容，請先 註冊 或 登入會員

gogopkman

方便上傳整個專案嗎？
Swap 沒作用的原因，應該是因為

1. Call Swap

複製代碼

放在

1. For counta = 1 To 25
   
2.    
   
3.     Buttons(counta) = counta
   
4.    
   
5. Next

複製代碼

之前的關係，因為呼叫 Swap 時，Buttons 的值都還沒初始化，

程式怎麼換都是 0 這個值再換，依需求調整呼叫 Swap 的時機看看。
依你的思路來看，程式碼應該改成：

1. For counta = 1 To 25
   
2.    
   
3.     Buttons(counta) = counta
   
4.    
   
5. Next
   
6. Call Swap
   
7. For counta = 1 To 25
   
8.     lblButtons(counta).Caption = Buttons(counta)
   
9.    
   
10. Next

複製代碼

這樣按鈕的數字就會變動了。...

瀏覽完整內容，請先 註冊 或 登入會員

謝謝你的回答  現在數字可以換了

但是

1. Private Sub lblButtons_Click(Index As Integer)
   
2. 
   
3. If counta = numbercounter Then
   
4. 
   
5. numbercounter = numbercounter + 1
   
6. 
   
7. 
   
8. 
   
9. Else: missed = missed + 1 ' update the worry clcik
   
10. 
    
11. End If
    
12. 
    
13. If numbercounter = 26 Then 'finished 25 number
    
14. 
    
15. Game_Start = False
    
16. 
    
17. 
    
18. 
    
19. frmEnterName.Show 'call out the Name from
    
20. 
    
21. 
    
22. 
    
23. 
    
24. 
    
25. End If
    
26. 
    
27. End Sub

複製代碼

我想做成點 一樣的數字 lblNumber 就會+ 1
點錯 lblmissednumber就會+1
可是我寫的 我點到一樣數字 或錯的 都沒動
可以看看一下嗎??...

瀏覽完整內容，請先 註冊 或 登入會員

我現在把 counta改成Buttons(counta)
但是有bug= = 還是無法加上去

gogopkman

我現在把 counta改成Buttons(counta)
但是有bug= = 還是無法加上去
冬梅秋菊 發表於 2011-5-29 10:50 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

依你本來的程式碼來看，疑似有以下問題：
...

瀏覽完整內容，請先 註冊 或 登入會員