Problem bei meinem Programmierten Spiel

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Select10.

    Problem bei meinem Programmierten Spiel

    Hallo liebe Community, Ich habe ein Problem bei meinem Spiel "Blockman", und zwar habe ich es soweit so gut programmiert das man Blöcke setzen kann,auswählen kann,sich bewegen kann aber jedoch weiß ich den Code nicht für das Abbauen der Blöcke.

    Bitte den folgenden Code nicht weiter verwenden!
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Spiel
    2. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    3. Dim Tastendruck As String
    4. Dim count As Integer
    5. Dim pfad As String = "img/"
    6. Public aktblock As String = "grass"
    7. Dim typ As String = ".png"
    8. Dim auswahl As String = pfad + aktblock + typ
    9. Public chara As New PictureBox
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. chara.Width = 32
    13. chara.Height = 65
    14. Dim charapoint As New Point(200, 200)
    15. chara.Location = charapoint
    16. chara.BackgroundImage = Image.FromFile("img/chara.png")
    17. chara.BackgroundImageLayout = ImageLayout.Zoom
    18. Controls.Add(chara)
    19. Panel1.BackgroundImage = Image.FromFile("img/leiste.png")
    20. Panel1.BackColor = Color.Transparent
    22. End Sub
    24. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    25. For charabewegung = 1 To 255
    26. Tastendruck = GetAsyncKeyState(charabewegung)
    27. If Tastendruck = -32767 Then
    28. Select Case charabewegung
    29. Case 65
    30. chara.Left -= 32
    31. Case 68
    32. chara.Left += 32
    33. Case 83
    34. chara.Top += 32
    35. Case 87
    36. chara.Top -= 32
    37. Case 2
    38. Dim grass As New PictureBox
    39. grass.Width = 32
    40. grass.Height = 32
    41. grass.BackgroundImageLayout = ImageLayout.Zoom
    42. grass.BackgroundImage = Image.FromFile(pfad + aktblock + typ)
    43. grass.Left = chara.Right
    44. grass.Top = chara.Bottom - 32
    45. Controls.Add(grass)
    46. End Select
    47. End If
    48. Next
    49. End Sub
    51. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    52. aktblock = "grass"
    53. aktuell.BackgroundImage = Image.FromFile(pfad + "grass" + typ)
    55. End Sub
    57. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    58. aktblock = "cobblestone"
    59. aktuell.BackgroundImage = Image.FromFile(pfad + "cobblestone" + typ)
    60. End Sub
    62. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    63. aktblock = "cyanblue"
    64. aktuell.BackgroundImage = Image.FromFile(pfad + "cyanblue" + typ)
    65. End Sub
    67. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    68. aktblock = "obsidian"
    69. aktuell.BackgroundImage = Image.FromFile(pfad + "obsidian" + typ)
    70. End Sub
    72. Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
    73. aktblock = "wood"
    74. aktuell.BackgroundImage = Image.FromFile(pfad + "wood" + typ)
    75. End Sub
    77. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    78. System.Diagnostics.Process.Start("http://www.jrbprograms.de.tl")
    79. End Sub
    81. Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
    82. System.Diagnostics.Process.Start("mailto:" & "justinback66@gmail.com?subject=Support")
    83. End Sub
    85. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    86. MessageBox.Show("Rechte Maustaste: Blöcke Platzieren" & vbNewLine & "W: Hoch" & vbNewLine & "A: Links" & vbNewLine & "S: Unten" & vbNewLine & "D: Rechts")
    87. End Sub
    89. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    90. MessageBox.Show("Programmierer: Justin Back" & vbNewLine & "Tester: SpieleHund" & vbNewLine & "Tester: Offen" & vbNewLine & "Tester: Offen")
    91. End Sub
    93. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    94. System.Diagnostics.Process.Start("mailto:" & "justinback66@gmail.com?subject=Bewerben")
    95. End Sub
    97. Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
    98. aktblock = "gold"
    99. aktuell.BackgroundImage = Image.FromFile(pfad + "gold" + typ)
    100. End Sub
    102. Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
    103. aktblock = "orange"
    104. aktuell.BackgroundImage = Image.FromFile(pfad + "orange" + typ)
    105. End Sub
    107. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox.Click
    108. aktblock = "iron"
    109. aktuell.BackgroundImage = Image.FromFile(pfad + "iron" + typ)
    110. End Sub
    112. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    114. End Sub
    116. Private Sub aktuell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aktuell.Click
    118. End Sub
    120. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
    121. aktblock = "TimHead"
    122. aktuell.BackgroundImage = Image.FromFile(pfad + "TimHead" + typ)
    123. End Sub
    125. Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click
    126. aktblock = "dirt"
    127. aktuell.BackgroundImage = Image.FromFile(pfad + "dirt" + typ)
    128. End Sub
    130. Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click
    131. aktblock = "bedrock"
    132. aktuell.BackgroundImage = Image.FromFile(pfad + "bedrock" + typ)
    133. End Sub
    135. Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click
    136. aktblock = "dia"
    137. aktuell.BackgroundImage = Image.FromFile(pfad + "dia" + typ)
    138. End Sub
    140. Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click
    141. aktblock = "oak"
    142. aktuell.BackgroundImage = Image.FromFile(pfad + "oak" + typ)
    143. End Sub
    145. Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click
    146. aktblock = "chest"
    147. aktuell.BackgroundImage = Image.FromFile(pfad + "chest" + typ)
    148. End Sub
    150. Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click
    151. aktblock = "rail"
    152. aktuell.BackgroundImage = Image.FromFile(pfad + "rail" + typ)
    153. End Sub
    155. Private Sub PictureBox19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox19.Click
    156. aktblock = "npcb"
    157. aktuell.BackgroundImage = Image.FromFile(pfad + "npcb" + typ)
    158. End Sub
    160. Private Sub PictureBox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox18.Click
    161. aktblock = "npcg"
    162. aktuell.BackgroundImage = Image.FromFile(pfad + "npcg" + typ)
    163. End Sub
    165. Private Sub PictureBox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox17.Click
    166. aktblock = "npcr"
    167. aktuell.BackgroundImage = Image.FromFile(pfad + "npcr" + typ)
    168. End Sub
    170. Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click
    171. aktblock = "chara"
    172. aktuell.BackgroundImage = Image.FromFile(pfad + "chara" + typ)
    173. End Sub
    175. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    176. MessageBox.Show("Hallo! " & namen.Text & " mein Name ist Tim. Lass uns doch die Welt retten")
    177. End Sub
    179. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    180. MessageBox.Show("Tschüss! " & namen.Text & " Komm aber wieder es gibt nohc viel zu tun!")
    181. Me.Close()
    182. End Sub
    184. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    185. mini.Text += 1
    186. End Sub
    188. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    189. MessageBox.Show("Ich mag es leuten zu helfen!")
    190. End Sub
    192. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    193. MessageBox.Show("Ich komme vom Planeten Xenor")
    194. End Sub
    196. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    197. End Sub
    199. Private Sub mini_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mini.Click
    201. End Sub
    203. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    204. MessageBox.Show("Public Alpha 0.05" & vbNewLine & "___________________" & vbNewLine & " =-= Bugs/Glitches Behoben =-= " & vbNewLine & " =-= Stein hinzugefügt (Prefix: Stein) =-=" & vbNewLine & " =-= Neue Charakter Textur (Umfrage läuft ob es euch gefällt)" & vbNewLine & " =-= Endlich eine Geschichte hinzugefügt, die das Spiel komplett ändert =-=" & vbNewLine & " =-= Interface geändert =-=")
    205. End Sub
    207. Private Sub PictureBox20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox20.Click
    208. aktblock = "crail"
    209. aktuell.BackgroundImage = Image.FromFile(pfad + "crail" + typ)
    210. End Sub
    212. Private Sub PictureBox21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox21.Click
    213. aktblock = "crail1"
    214. aktuell.BackgroundImage = Image.FromFile(pfad + "crail1" + typ)
    215. End Sub
    217. Private Sub PictureBox22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox22.Click
    218. aktblock = "crail2"
    219. aktuell.BackgroundImage = Image.FromFile(pfad + "crail2" + typ)
    220. End Sub
    222. Private Sub PictureBox23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox23.Click
    223. aktblock = "crail3"
    224. aktuell.BackgroundImage = Image.FromFile(pfad + "crail3" + typ)
    225. End Sub
    227. Private Sub PictureBox24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox24.Click
    228. aktblock = "rail1"
    229. aktuell.BackgroundImage = Image.FromFile(pfad + "rail1" + typ)
    230. End Sub
    232. Private Sub PictureBox25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox25.Click
    234. End Sub
    236. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    237. System.Diagnostics.Process.Start("mailto:" & "BlockmanTim@web.de?subject=Fragen")
    238. End Sub
    240. Private Sub PictureBox26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox26.Click
    241. aktblock = "door"
    242. aktuell.BackgroundImage = Image.FromFile(pfad + "door" + typ)
    243. End Sub
    245. Private Sub PictureBox28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox28.Click
    246. aktblock = "diab"
    247. aktuell.BackgroundImage = Image.FromFile(pfad + "diab" + typ)
    248. End Sub
    250. Private Sub PictureBox27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox27.Click
    251. aktblock = "glas"
    252. aktuell.BackgroundImage = Image.FromFile(pfad + "glas" + typ)
    253. End Sub
    255. Private Sub PictureBox29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox29.Click
    256. aktblock = "sap"
    257. aktuell.BackgroundImage = Image.FromFile(pfad + "sap" + typ)
    258. End Sub
    260. Private Sub Label32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    262. End Sub
    264. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    266. End Sub
    268. Private Sub namen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namen.TextChanged
    270. End Sub
    272. Private Sub LineShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape1.Click
    273. aktblock = "ich"
    274. aktuell.BackgroundImage = Image.FromFile(pfad + "ich" + typ)
    275. End Sub
    277. Private Sub GroupBox5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox5.Enter
    279. End Sub
    281. Private Sub PictureBox8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
    282. MessageBox.Show("Code gefunden: 4543-4654-6354")
    283. End Sub
    285. Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    287. End Sub
    289. Private Sub Button12_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    290. System.Diagnostics.Process.Start("mailto:""justinback66@gmail.com?subject=Gewinnspiel")
    291. End Sub
    293. Private Sub PictureBox30_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox30.Click
    294. aktblock = "stone"
    295. aktuell.BackgroundImage = Image.FromFile(pfad + "stone" + typ)
    296. End Sub
    298. Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
    299. MessageBox.Show("Dein Bewegungs ablauf sieht wie gefolgt so aus: (" & Texter.Text & ").")
    300. End Sub
    302. Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click
    303. MessageBox.Show("Die Geschichte von Blockman" & vbNewLine & "_________________________" & vbNewLine & "Vor genau 10 Jahren,kam ein Superheld vom Planet Xenor," & vbNewLine & "um die Erde wiederaufzubauen, die wegen einem riesigen," & vbNewLine & "Meteor zerstört worden ist,er hatte die gewaltigen Aufbau kräfte mit denen er der Erde helfen wollte.")
    304. End Sub
    306. Private Sub PictureBox31_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox31.Click
    307. aktblock = "wolle"
    308. aktuell.BackgroundImage = Image.FromFile(pfad + "wolle" + typ)
    309. End Sub
    311. End Class

    Freue mich auf Antworten!
    EDIT: Ich habe jetzt die Msgboxen geändert


    Schriftgröße erneut angepasst!
    -Artentus
    Fragen dürfen gerne via PN gesendet werden ;)

    Ich versuche sie schnell wie möglich zu beantworten und euch zu helfen :)

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Select10“ ()

    Oh man, sorry aber die Schriftgröße zerstört meine Augen, ändere das bitte in was leslicheres und packe den Code bitte in einen expander/spoiler.

    Soo..
    • Du solltest dir eine vernünfitge Benennung der Controls angewöhnen, PictureBox31 etc. sind keine aussagekräftigen Namen.
    • Du solltest dir die neue MessageBox.Show() Methode ansehen, statt MsgBox() zu benutzen, MsgBox() ist veraltet (mehr dazu beispielsweise hier)
    Dann mal zum eigentlichen Problem:
    Das mit dem Code ist allgemein ziemlich doof zum scrollen gewesen bei der übertriebenen Größe.
    Ich habe gesehen, dass du deine "Blöcke" scheinbar als PictureBoxen + Zuweisung der Image Property zuweist/darstellst.

    Wenn du das Bild einer PictureBox löschen möchtest, sollte da

    VB.NET-Quellcode

    1. PictureBox.Image = Nothing
    reichen, ggf. noch deine Auswahl usw. resetten.

    Die nächsten Antworten die dann wahrscheinlich folgen werden wären:
    Benutze GDI und eigene Klassen zum Zeichnen deiner Objekte, darin kannst du dann passende Properties bereitstellen und ggf. noch Form.DoubleBuffered auf True stellen.

    Wenn du noch neu bist, kanns sein, dass es auch so reicht, aber irgendwann ist es besser du realisierst sowas mit GDI. Es gibt dazu schon mehrere Threads.

    EDIT: Danke Artentus ;)!
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Ok Vielen Dank und ja ich bin neu ;) so jetzt nochmal einprogrammieren ;)

    EDIT: Da das jetzt ein klein wenig neuland für mich ist frage ich mich wo

    VB.NET-Quellcode

    1. PictureBox.Image = Nothing
    rein kommt

    Vielen Dank für Antworten
    Fragen dürfen gerne via PN gesendet werden ;)

    Ich versuche sie schnell wie möglich zu beantworten und euch zu helfen :)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Select10“ ()

    @Select10 Willkommen im Forum. :thumbup:
    1. Tastendrücke werden im KeyDown-Event abgefangen und verarbeitet, ein Timer ist da nicht erforderlich.

      VB.NET-Quellcode

      1. Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
      2. Select Case e.KeyCode
      3. Case Keys.Up
      4. '...
      5. Case Keys.Down
      6. '...
      7. Case Keys.Left
      8. '...
      9. Case Keys.Right
      10. '...
      11. End Select
      12. End Sub

    2. Schmeiß alle leeren Prozeduren raus, die verwirren nur.
    3. Wozu brauchst Du so viele PictureBoxen? Nimm genau eine und erstell Dir mathematisch ein Raster darauf:

      VB.NET-Quellcode

      1. Private NB_X As Integer = 13
      2. Private NB_Y As Integer = 14
      3. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
      4. Dim x = NB_X * e.X \ Me.PictureBox1.Width
      5. Dim y = NB_Y * e.Y \ Me.PictureBox1.Height
      6. Label1.Text = x.ToString
      7. Label2.Text = y.ToString
      8. End Sub

    4. Lade die Bilder nicht von der Festplatte, sondern pack sie in die Ressourcen Deines Programms:
      Projekt -> Eigenschaften -> Ressourcen -> Ressourcen hinzufügen
      und dann so aufrufen:

      VB.NET-Quellcode

      1. img = My.Ressources.Image15
    5. Kannst Du mit wenigen Sätzen Dein Spiel beschreiben?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ok danke ich versuchs mal ;)
    Fragen dürfen gerne via PN gesendet werden ;)

    Ich versuche sie schnell wie möglich zu beantworten und euch zu helfen :)