請問有人用VB2008寫過小精靈的遊戲嗎

ggjtwo

寫遊戲的初期想把要吃的小點點一次給畫上
所以使用drawimage來畫
可是發現這個方式會有些問題

1.小精靈經過時小點點會自己消失(當然這符合遊戲要求),可是這種現象不是
   自己控制的,也就是說當我突然轉方向時會導至小點點只吃半點

2.另外若是切換視窗或是有其它視窗覆蓋在遊戲上面時,所有小點點都不見了
...

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

darkjack

我有做過那種一半的（只是我忘了我是放在那個論壇 或者部落格了）
而你的參考 影片連結也是我當初參考的
我就是整個卡在一半（程式的一半而已）
而程式碼幾乎可以說一樣
偏偏就是 vb6 跑起來就順順的
vb 2008 跑起來就像腦殘一樣
小精靈在 vb 6 就可以很順暢的上下左右
vb 2008 就是不按牌理（有殘影問題）

建議你 用 direct x  去做吧...

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

arthurliuliu

如果你不介意的話，可以把整個專案附上來嗎？(懶得重弄)
我有空的時候幫你看一下，有沒有比較好的解決方法。

ggjtwo

1. Public Class Form1
   
2. 
   
3. Dim i As Integer 'X座標
   
4. Dim j As Integer 'Y座標
   
5. Dim point As Integer = 0 '吃過的小點數
   
6. Dim direct As Integer = 0 '目前行進方向
   
7. Dim tempx As Integer '目前x座標(代替picture.image做運算用的)
   
8. Dim tempy As Integer '目前y座標(代替picture.image做運算用的)
   
9. 
   
10. '地圖陣列,0是空白 1是有小點 2是橫磚 3是直磚 4~7角磚
    
11. Dim arr(,) As Integer = {{4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 6}, _
    
12. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
13. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
14. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
15. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
16. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
17. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
18. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
19. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
20. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
21. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
22. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
23. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
24. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
25. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
26. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
27. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
28. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
29. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
30. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
31. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
32. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
33. {3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3}, _
    
34. {3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3}, _
    
35. {5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 7}}
    
36. 
    
37. 
    
38. 
    
39. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
40. 
    
41. PictureBox1.Visible = True '小精靈的圖像(四個方向加張口閉口)
    
42. PictureBox2.Visible = True '地圖的圖像(磚塊之類)
    
43. PictureBox1.Left = 64 '初始座標
    
44. PictureBox1.Top = 64
    
45. Timer1.Enabled = True '小精靈動作控制
    
46. Timer2.Enabled = True '地圖狀態(主要為小點狀態消失與否)
    
47. PictureBox2.Image = My.Resources.Dot '磚塊圖檔(取代my.resources.xxx,因很耗CPU 資源)
    
48. PictureBox3.Image = My.Resources.gridver
    
49. PictureBox4.Image = My.Resources.grid
    
50. PictureBox5.Image = My.Resources.gridcorn1
    
51. PictureBox6.Image = My.Resources.gridcorn2
    
52. PictureBox7.Image = My.Resources.gridcorn3
    
53. PictureBox8.Image = My.Resources.gridcorn4
    
54. 
    
55. End Sub
    
56. 
    
57. 
    
58. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
59. 
    
60. tempy = PictureBox1.Top '座標運算用
    
61. tempx = PictureBox1.Left
    
62. If tempx Mod 32 = 0 Then '到了整數座標時才能變換方向(X->Y)
    
63. If direct = 42 Or direct = 12 Then
    
64. direct = 2
    
65. ElseIf direct = 43 Or direct = 13 Then
    
66. direct = 3
    
67. End If
    
68. End If
    
69. If tempy Mod 32 = 0 Then '到了整數座標時才能變換方向(Y->X)
    
70. If direct = 30 Or direct = 20 Then
    
71. direct = 0
    
72. ElseIf direct = 31 Or direct = 21 Then
    
73. direct = 1
    
74. End If
    
75. End If
    
76. ' direct=0,1,2,3 => 右左上下
    
77. If direct = 0 Or direct = 42 Or direct = 43 Then 'direct=42,43分別代表由向右轉到上下
    
78. If Int(((PictureBox1.Left) / 10)) Mod 2 = 1 Then
    
79. PictureBox1.Image = My.Resources._1
    
80. Else
    
81. PictureBox1.Image = My.Resources._2
    
82. End If
    
83. If arr(Int(tempx / 32) + 1, Int(tempy / 32)) = 0 Or arr(Int(tempx / 32) + 1, Int(tempy / 32)) = 1 Then
    
84. PictureBox1.Left = PictureBox1.Left + 4 '不碰壁時就才能前進
    
85. End If
    
86. ElseIf direct = 1 Or direct = 12 Or direct = 13 Then 'direct=12,13分別代表由向左轉到上下向
    
87. If Int(((PictureBox1.Left) / 10)) Mod 2 = 1 Then
    
88. PictureBox1.Image = My.Resources._5
    
89. Else
    
90. PictureBox1.Image = My.Resources._6
    
91. End If
    
92. If arr(Int((tempx - 4) / 32), Int(tempy / 32)) = 0 Or arr(Int((tempx - 4) / 32), Int(tempy / 32)) = 1 Then
    
93. PictureBox1.Left = PictureBox1.Left - 4
    
94. End If
    
95. ElseIf direct = 2 Or direct = 21 Or direct = 20 Then 'direct=21,20分別代表由向上轉到左右向
    
96. If Int(((PictureBox1.Top) / 10)) Mod 2 = 1 Then
    
97. PictureBox1.Image = My.Resources._3
    
98. Else
    
99. PictureBox1.Image = My.Resources._4
    
100. End If
     
101. If arr(Int(tempx / 32), Int(tempy / 32) + 1) = 0 Or arr(Int(tempx / 32), Int(tempy / 32) + 1) = 1 Then
     
102. PictureBox1.Top = PictureBox1.Top + 4
     
103. End If
     
104. ElseIf direct = 3 Or direct = 30 Or direct = 31 Then 'direct=31,30分別代表由向下轉到左右向
     
105. If Int(((PictureBox1.Top) / 10)) Mod 2 = 1 Then
     
106. PictureBox1.Image = My.Resources._7
     
107. Else
     
108. PictureBox1.Image = My.Resources._8
     
109. End If
     
110. If arr(Int(tempx / 32), Int((tempy - 4) / 32)) = 0 Or arr(Int(tempx / 32), Int((tempy - 4) / 32)) = 1 Then
     
111. PictureBox1.Top = PictureBox1.Top - 4
     
112. End If
     
113. End If
     
114. If tempx Mod 32 = 0 And tempy Mod 32 = 0 Then '當吃到小點時,此位置必為整數,吃完後已空白圖片覆蓋小點點
     
115. If arr(tempx / 32, tempy / 32) = 1 Then
     
116. arr(tempx / 32, tempy / 32) = 0
     
117. Using g As Graphics = Me.CreateGraphics()
     
118. g.DrawImage(My.Resources.blank1, tempx, tempy)
     
119. End Using
     
120. point = point + 1 '吃完一點就積分
     
121. End If
     
122. End If
     
123. Label1.Text = point
     
124. End Sub
     
125. 
     
126. 
     
127. 
     
128. 
     
129. Public Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
     
130. 
     
131. If e.KeyCode = 39 Then '39,37,38,40分別到表鍵盤右左上下鍵
     
132. TextBox1.Focus()
     
133. If direct = 1 Then
     
134. direct = 0
     
135. ElseIf direct = 2 Then
     
136. direct = 20
     
137. ElseIf direct = 3 Then
     
138. direct = 30
     
139. End If
     
140. ElseIf e.KeyCode = 37 Then
     
141. TextBox1.Focus()
     
142. If direct = 0 Then
     
143. direct = 1
     
144. ElseIf direct = 2 Then
     
145. direct = 21
     
146. ElseIf direct = 3 Then
     
147. direct = 31
     
148. End If
     
149. ElseIf e.KeyCode = 40 Then
     
150. TextBox1.Focus()
     
151. If direct = 0 Then
     
152. direct = 42
     
153. ElseIf direct = 1 Then
     
154. direct = 12
     
155. ElseIf direct = 3 Then
     
156. direct = 2
     
157. End If
     
158. ElseIf e.KeyCode = 38 Then
     
159. TextBox1.Focus()
     
160. If direct = 0 Then
     
161. direct = 43
     
162. ElseIf direct = 1 Then
     
163. direct = 13
     
164. ElseIf direct = 2 Then
     
165. direct = 3
     
166. End If
     
167. End If
     
168. End Sub
     
169. 
     
170. 
     
171. 
     
172. Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
     
173. i = 0 '此處之目的為地圖畫面需一再更新,否則畫面會因切換視窗或其他因素消失
     
174. j = 0
     
175. Using g As Graphics = Me.CreateGraphics()
     
176. While i < 25
     
177. While j < 20
     
178. Select Case arr(i, j)
     
179. Case Is = 1
     
180. g.DrawImage(PictureBox2.Image, i * 32, j * 32)
     
181. Case Is = 2
     
182. g.DrawImage(PictureBox3.Image, i * 32, j * 32)
     
183. Case Is = 3
     
184. g.DrawImage(PictureBox4.Image, i * 32, j * 32)
     
185. Case Is = 4
     
186. g.DrawImage(PictureBox5.Image, i * 32, j * 32)
     
187. Case Is = 5
     
188. g.DrawImage(PictureBox6.Image, i * 32, j * 32)
     
189. Case Is = 6
     
190. g.DrawImage(PictureBox7.Image, i * 32, j * 32)
     
191. Case Is = 7
     
192. g.DrawImage(PictureBox8.Image, i * 32, j * 32)
     
193. End Select
     
194. 
     
195. j = j + 1
     
196. End While
     
197. j = 0
     
198. i = i + 1
     
199. End While
     
200. End Using
     
201. End Sub
     
202. End Class

複製代碼

到目前的程式碼已貼上,可是我不會對齊耶,諸位前輩可能要看得辛苦一些了
1.現在遇到的問題,小精靈太大隻,經過時會蓋到磚頭(可能會用縮小小精靈圖片來解決)
2.地圖是用Me.creategraphics畫的,只畫一次的話會因為切換視窗等問題而畫面消失,須反複的畫上
   ,我試過用VB6來寫(paintpicture也是遇到同樣題),所以我放在timer2,每隔一段時間就畫
   一次地圖,可是這樣導至整個遊戲速度變慢,目前還沒有解決辦法
3.吃小點點的時候都得到整數的位置才能吃,不知有什麼辦法可以只碰到就吃到點的
4.最後,還有鬼還沒寫,鬼追蹤小精靈的方式也毫無頭緒(這部份應該是最難的吧)

VB2008的檔案請由此下載(

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

)

程式寫了一天超累的,各位前輩如果有看到什麼可以改的地方或是可加快速度的方式
請多多給予意見,謝謝

...

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

darkjack

回答你最後一個問題就是
鬼追小精靈的問題
或許你可以從 老鼠追游標的方向去思考
vb 6版本

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

然後還要外加 尋路 系統喔

kev72806

如果把要吃掉的點點弄成一個圖片然後當成物件匯入
每次吃掉就把該物件visible給false掉
不知道我這樣的概念有沒有錯

ggjtwo

謝謝dark大的意見,目前在研究當中
回kev大,目前小點點的概念是這樣沒錯,只是我不太清楚圖片匯入跟我用me.creategraphics(用畫上去的)有什麼差異

darkjack

給6樓的，那會消耗很多資源
且在vb.net 用這種方式來稿會讓顯示更加慢

ggjtwo

回復

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

darkjack


請問dark版主,那匯入是用什麼function或是指令啊
是建imagelist還是用picturebox一個一個畫地圖呢

darkjack

在 vb.net (2008 ) 你先去找，動態按鈕 （google搜尋）
然後知道怎做之後在去用 picturebox (如果你真的想用 這種耗資源的方式）
vb6 直接用陣列就可以 但是在vb.net 就不能這樣
vb6 可以直接這樣寫 picturebox(n).image
vb.net 就不能這種寫法 （這就是為何我會要你找 動態按鈕）

如果你說的imagelist 是要放你的圖形資料那還好，因為小精靈的圖形資料不多
且從你的開頭 詢問的文字有找到youtube的教學，且你是看到 #3
...

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

ggjtwo

目前遊戲已經寫到一個段落了
還有大力丸和遊戲選單未製作
目前還有個問題是我的圖片重疊卻都不是透明的
我使用的圖片檔是Gif檔,且已做透明處理了
圖片是套到picturebox裡,picturebox背景顏色也設為透明
可是就是無法呈現透明的效果
有沒有前輩有成功做出透明的經驗
可以分享一下嗎
謝謝