Hilfe bei 2D SPieleprogrammierung

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Confix.npage.de.

    Hilfe bei 2D SPieleprogrammierung

    Guten Tag,
    Ich habe beim Sourcecode austausch ein Code gefunden wie man sein eigenes 2D spiel machen kann.
    Mein Problem ist nur folgendes, ich habe noch die Funktionen hinzugefügt dass die "Figur" nach oben kann und nach unten, aber das geht dann immer nur 7 Schritte mehr nicht obwohl es nicht an den schwarzen bereich herankommt. Jedoch bei Rechts und Links die schon da waren geht es problemlos, hier mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. 'Bodenkollision
    4. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    5. Dim BMAP As Bitmap = Me.BackgroundImage
    6. If BMAP.GetPixel(PictureBox1.Location.X, PictureBox1.Bottom) = New Color().FromArgb(255, 0, 0, 0) Then
    7. Else
    8. PictureBox1.Location = PictureBox1.Location + New Point(0, 2)
    9. End If
    10. End Sub
    12. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    13. Dim BMAP As Bitmap = Me.BackgroundImage
    15. 'Wenn die Linkstaste gedrückt wird
    16. If e.KeyCode = Keys.Left Then
    17. If BMAP.GetPixel(PictureBox1.Left - 6, PictureBox1.Location.Y - PictureBox1.Width) = New Color().FromArgb(255, 0, 0, 0) Or _
    18. BMAP.GetPixel(PictureBox1.Location.X - 6, PictureBox1.Location.Y) = New Color().FromArgb(255, 0, 0, 0) Or _
    19. BMAP.GetPixel(PictureBox1.Location.X - 6, PictureBox1.Location.Y + (PictureBox1.Width - 1)) = New Color().FromArgb(255, 0, 0, 0) Then
    20. Else
    21. PictureBox1.Location = PictureBox1.Location - New Point(6, 0)
    22. End If
    23. End If
    25. 'Wenn die Rechtstaste gedrückt wird
    26. If e.KeyCode = Keys.Right Then
    27. If BMAP.GetPixel(PictureBox1.Right + 6, PictureBox1.Location.Y - PictureBox1.Width) = New Color().FromArgb(255, 0, 0, 0) Or _
    28. BMAP.GetPixel(PictureBox1.Location.X + 6, PictureBox1.Location.Y) = New Color().FromArgb(255, 0, 0, 0) Or _
    29. BMAP.GetPixel(PictureBox1.Location.X + 6, PictureBox1.Location.Y + (PictureBox1.Width - 1)) = New Color().FromArgb(255, 0, 0, 0) Then
    30. Else
    31. PictureBox1.Location = PictureBox1.Location + New Point(6, 0)
    32. End If
    33. End If
    34. If e.KeyCode = Keys.Up Then
    35. If BMAP.GetPixel(PictureBox1.Right + 6, PictureBox1.Location.Y - PictureBox1.Width) = New Color().FromArgb(255, 0, 0, 0) Or _
    36. BMAP.GetPixel(PictureBox1.Location.Y - 6, PictureBox1.Location.X) = New Color().FromArgb(255, 0, 0, 0) Or _
    37. BMAP.GetPixel(PictureBox1.Location.Y - 6, PictureBox1.Location.X + (PictureBox1.Width - 1)) = New Color().FromArgb(255, 0, 0, 0) Then
    38. Else
    39. PictureBox1.Location = PictureBox1.Location + New Point(0, -6)
    40. End If
    41. End If
    42. If e.KeyCode = Keys.Down Then
    43. If BMAP.GetPixel(PictureBox1.Right + 6, PictureBox1.Location.Y - PictureBox1.Width) = New Color().FromArgb(255, 0, 0, 0) Or _
    44. BMAP.GetPixel(PictureBox1.Location.Y + 6, PictureBox1.Location.X) = New Color().FromArgb(255, 0, 0, 0) Or _
    45. BMAP.GetPixel(PictureBox1.Location.Y + 6, PictureBox1.Location.X + (PictureBox1.Width - 1)) = New Color().FromArgb(255, 0, 0, 0) Then
    46. Else
    47. PictureBox1.Location = PictureBox1.Location + New Point(0, 6)
    48. End If
    49. End If
    50. End Sub
    52. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    54. End Sub
    56. Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    58. End Sub
    59. End Class

Facebook
Telefonspende