Simpler Snake Klon

    • VB.NET

      Simpler Snake Klon

      Hier der Code für ein sehr simples snake mit hilfe des GDI

      alles was auf der Form benötigt wird is ne Picturebox mit dem Namen pbField
      € Die zwei timer nicht vergessen.

      VB.NET-Quellcode

      1. Public Class frmSnake
      3. 'Aufzählungstyp für die Richtungen in die die Schlange laufen kann
      4. Private Enum eDirection
      5. Left
      6. Right
      7. Up
      8. Down
      9. End Enum
      11. '20x20 Spielfeld
      12. Private Const FieldWidth As Integer = 20 'Breite des Feldes
      13. Private Const FieldHeight As Integer = 20 'Höhe des Feldes
      15. 'Größe eines Blocks (10x10)
      16. Private Const RectWidth As Integer = 10
      17. Private Const RectHeight As Integer = 10
      19. Private Field(FieldWidth, FieldHeight) As Integer 'Karte als Array
      20. Private CurrentDirection As eDirection = eDirection.Left 'Richtung der Schlange
      21. Private CurrentSnakeLength As Integer = 3 'Länge der Schlange
      22. Private CurrentSnakePos As New Point(10, 10) 'Position des Schlangenkopfes
      23. Private Updating As Boolean = False
      25. 'leeres Spielfeld erstellen
      26. Private Sub ResetField()
      27. For x As Integer = 0 To FieldWidth
      28. For y As Integer = 0 To FieldHeight
      29. Field(x, y) = 0
      30. Next y
      31. Next x
      32. End Sub
      34. 'Neues Essen an einer zufälligen Position auftauchen lassen
      35. Private Sub SetRndFood()
      36. 'Eine Liste mit möglichen Spawn-punkten für essen erstellen
      37. Dim PossibleFoodPositions As New List(Of Point)
      38. For x As Integer = 0 To FieldWidth - 1
      39. For y As Integer = 0 To FieldHeight - 1
      40. If Field(x, y) = 0 Then
      41. PossibleFoodPositions.Add(New Point(x, y))
      42. End If
      43. Next y
      44. Next x
      46. 'Eine zufällige position aus der Liste der punkte für den spawn wählen
      47. If PossibleFoodPositions.Count > 0 Then
      48. Dim r As New Random
      49. Dim Pos As Integer = r.Next(0, PossibleFoodPositions.Count - 1)
      50. Field(PossibleFoodPositions(Pos).X, PossibleFoodPositions(Pos).Y) = -1
      51. End If
      52. End Sub
      54. Private Sub frmSnake_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      55. pbField.Left = 0
      56. pbField.Top = 0
      57. pbField.Width = 1 + FieldWidth * RectWidth
      58. pbField.Height = 1 + FieldHeight * RectHeight
      59. Me.Width = pbField.Width + 8
      60. Me.Height = pbField.Height + 34
      62. SetRndFood()
      63. Randomize()
      64. End Sub
      66. 'Bild erneuern
      67. Private Sub tmrRenderScene_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrRenderScene.Tick
      68. pbField.Refresh()
      69. End Sub
      71. Private Sub pbField_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pbField.Paint
      74. For x As Integer = 0 To FieldWidth
      75. For y As Integer = 0 To FieldHeight
      76. If Field(x, y) = -1 Then
      77. 'Essen wird blau dargestellt
      78. e.Graphics.FillRectangle(Brushes.Blue, New Rectangle(x * RectWidth, y * RectHeight, RectWidth, RectHeight))
      79. End If
      80. If Field(x, y) > 0 Then
      81. 'Schlange wird rot dargestellt
      82. e.Graphics.FillRectangle(Brushes.Red, New Rectangle(x * RectWidth, y * RectHeight, RectWidth, RectHeight))
      83. End If
      85. 'e.Graphics.DrawRectangle(Pens.Black, New Rectangle(x * RectWidth, y * RectHeight, RectWidth, RectHeight))
      86. Next y
      87. Next x
      88. End Sub
      90. Private Sub tmrUpdateSnake_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpdateSnake.Tick
      92. If Updating Then Return
      93. Updating = True
      95. 'Schlange in eine Bestimmte richtung laufen lassen
      96. '1. Richtung prüfen
      97. '2. Prüfen ob sich schlange im feld befindet
      98. Select Case CurrentDirection
      99. Case eDirection.Left
      101. If CurrentSnakePos.X - 1 >= 0 Then
      102. CurrentSnakePos.X -= 1
      103. End If
      104. Case eDirection.Right
      105. If CurrentSnakePos.X + 1 < FieldWidth Then
      106. CurrentSnakePos.X += 1
      107. End If
      108. Case eDirection.Up
      109. If CurrentSnakePos.Y - 1 >= 0 Then
      110. CurrentSnakePos.Y -= 1
      111. End If
      113. Case eDirection.Down
      114. If CurrentSnakePos.Y + 1 < FieldHeight Then
      115. CurrentSnakePos.Y += 1
      116. End If
      117. End Select
      119. 'Prüfen ob die schlange über futter gelaufen ist
      120. If Field(CurrentSnakePos.X, CurrentSnakePos.Y) = -1 Then
      121. CurrentSnakeLength += 1
      122. SetRndFood()
      123. 'Punkte ?
      124. ElseIf Field(CurrentSnakePos.X, CurrentSnakePos.Y) > 0 Then
      125. 'tot schlange ist mit sich selbs kollidiert
      126. End If
      129. 'Schlangenlänge korrigieren
      130. Field(CurrentSnakePos.X, CurrentSnakePos.Y) = CurrentSnakeLength + 1
      131. For x As Integer = 0 To FieldWidth
      132. For y As Integer = 0 To FieldHeight
      133. If Field(x, y) > 0 Then
      134. Field(x, y) -= 1
      135. End If
      136. Next y
      137. Next x
      138. Updating = False
      139. End Sub
      141. Private Sub frmSnake_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
      142. Select Case e.KeyCode
      143. Case Keys.Up
      144. CurrentDirection = eDirection.Up
      145. Case Keys.Down
      146. CurrentDirection = eDirection.Down
      147. Case Keys.Left
      148. CurrentDirection = eDirection.Left
      149. Case Keys.Right
      150. CurrentDirection = eDirection.Right
      151. End Select
      152. End Sub
      153. End Class

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „bsHobbit“ ()

    Facebook