Conways "Spiel des Lebens"

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Eistee.

    Conways "Spiel des Lebens"

    Hallo und erstma Frohe Ostern an alle ^^

    bin grade dabei Conways Spiel des Lebens in Vb.net nach-zu-basteln bin auch eig. fertig nur es leuft nicht so wie es soll.
    Es muss an der Nachbar erkennung liegen doch den fehler hab ich noch nicht gefunden.

    Spätestens in der 3. Runde sind alle "tot" und der Maler malt auch nicht nach jeder runde weiß.

    Hier mal der komplette Code
    Die Unterlinien habe ich hier nur der Übersicht halber reinkopiert klappe bei mir immer alles ein (siehe Bild)


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Stift As New Pen(Color.Blue) 'NUR für Linien
    4. Dim Pinsel As New SolidBrush(Color.Blue) 'Zum Ausmalen
    5. Dim Papier As New Bitmap(800, 800)
    6. Dim Maler As Graphics '= Me.CreateGraphics
    8. Dim X As Integer = 99
    9. Dim Y As Integer = 99
    11. Dim Feld(X, Y) As Zelle
    12. Dim Kopie(X, Y) As Zelle
    14. Dim Nachbarzähler As Integer
    15. '_____________________________________
    16. Structure Zelle
    17. Dim Status As Boolean
    18. End Structure
    19. '_____________________________________
    20. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    22. Call Prüfen()
    23. Call Zeichnen()
    24. Button1.PerformClick()
    26. End Sub
    27. '_____________________________________
    28. Private Sub Prüfen()
    30. 'Nachbar zählen
    31. For i = 0 To 99 'Y
    32. For t = 0 To 99 'X
    34. If i <> 0 And t > 0 Then
    35. If Feld(i - 1, t - 1).Status = True Then ' Oben links | GESICHERT
    36. Nachbarzähler = Nachbarzähler + 1
    37. End If
    38. End If
    40. If i <> 0 Then
    41. If Feld(i - 1, t).Status = True Then ' Oben | GESICHERT
    42. Nachbarzähler = Nachbarzähler + 1
    43. End If
    44. End If
    47. If i <> 0 And t < 99 Then
    48. If Feld(i - 1, t + 1).Status = True Then ' Oben rechts | GESICHERT
    49. Nachbarzähler = Nachbarzähler + 1
    50. End If
    51. End If
    54. If t <> 0 Then
    55. If Feld(i, t - 1).Status = True Then ' Links | GESICHERT
    56. Nachbarzähler = Nachbarzähler + 1
    57. End If
    58. End If
    61. If t < 99 Then
    62. If Feld(i, t + 1).Status = True Then ' Rechts | GESICHERT
    63. Nachbarzähler = Nachbarzähler + 1
    64. End If
    65. End If
    68. If i < 99 And t <> 0 Then
    69. If Feld(i + 1, t - 1).Status = True Then ' Unten links | GESICHERT
    70. Nachbarzähler = Nachbarzähler + 1
    71. End If
    72. End If
    75. If i < 99 Then
    76. If Feld(i + 1, t).Status = True Then ' Unten | GESICHERT
    77. Nachbarzähler = Nachbarzähler + 1
    78. End If
    79. End If
    81. If i < 99 And t < 99 Then
    82. If Feld(i + 1, t + 1).Status = True Then ' Unten rechts | GESICHERT
    83. Nachbarzähler = Nachbarzähler + 1
    84. End If
    85. End If
    88. 'Überlebt?
    89. If Nachbarzähler = 3 Then
    90. Kopie(i, t).Status = True
    91. Else
    92. Kopie(i, t).Status = False
    93. End If
    95. Nachbarzähler = 0
    97. Next
    98. Next
    100. For g = 0 To 99
    101. For h = 0 To 99
    102. Feld(h, g).Status = Kopie(h, g).Status
    103. Next
    104. Next
    106. End Sub
    107. '_____________________________________
    108. Private Sub Zeichnen()
    110. Using Maler As Graphics = Graphics.FromImage(Papier)
    111. Maler.Clear(Color.White)
    112. End Using
    114. For i = 0 To 99 'Y
    115. For t = 0 To 99 'X
    116. If Feld(i, t).Status = True Then
    117. Using Maler As Graphics = Graphics.FromImage(Papier)
    118. Maler.FillRectangle(Pinsel, New Rectangle(i * 6, t * 6, 5, 5))
    119. End Using
    120. End If
    121. Next
    122. Next
    124. End Sub
    125. '_____________________________________
    127. 'Steuerung + Load + Paint
    128. '_____________________________________
    129. Private Sub cmd_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Start.Click
    130. Timer1.Enabled = True
    131. End Sub
    132. '_____________________________________
    133. Private Sub cmd_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Stop.Click
    134. Timer1.Enabled = False
    135. End Sub
    136. '_____________________________________
    137. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    139. MsgBox("Wert von Feld Nr. 9801: " & Feld(99, 99).Status)
    141. For sX = 0 To 99
    142. For sY = 0 To 99
    143. Feld(sX, sY).Status = False
    144. Kopie(sX, sY).Status = False
    145. Next
    146. Next
    148. Feld(1, 1).Status = True
    149. Feld(1, 2).Status = True
    150. Feld(2, 1).Status = True
    152. Feld(3, 3).Status = True
    153. Feld(3, 4).Status = True
    154. Feld(4, 3).Status = True
    155. Feld(4, 4).Status = True
    157. Feld(4, 4).Status = True
    158. Feld(4, 5).Status = True
    159. Feld(23, 20).Status = True
    160. Feld(23, 21).Status = True
    161. Feld(24, 20).Status = True
    162. Feld(49, 49).Status = True
    163. Feld(10, 10).Status = True
    164. Feld(10, 20).Status = True
    165. Feld(10, 30).Status = True
    166. Feld(10, 40).Status = True
    167. Feld(10, 49).Status = True
    169. Call Zeichnen()
    171. End Sub
    172. '_____________________________________
    173. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    174. e.Graphics.DrawImage(Papier, 0, 0)
    175. End Sub
    178. ' Array Kontrolle/Visualisierung
    179. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    181. ListBox1.Items.Clear()
    182. ListBox2.Items.Clear()
    184. Dim line1 As String = ""
    185. For i As Integer = 0 To Feld.GetUpperBound(0)
    186. For j As Integer = 0 To Feld.GetUpperBound(1)
    187. line1 = line1 & Feld(i, j).Status & vbTab
    188. Next
    189. ListBox1.Items.Add(line1)
    190. line1 = ""
    191. Next
    193. Dim line2 As String = ""
    194. For i As Integer = 0 To Kopie.GetUpperBound(0)
    195. For j As Integer = 0 To Kopie.GetUpperBound(1)
    196. line2 = line2 & Kopie(i, j).Status & vbTab
    197. Next
    198. ListBox2.Items.Add(line2)
    199. line2 = ""
    200. Next
    202. End Sub
    204. End Class


    Bild:
    Spoiler anzeigen




    PS: Sorry für den "Chaos Code" bin zu blöd um ordentlichen Code zu schreiben :rolleyes:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Eistee“ ()

    Also ich habe da mal auszusweise dran rumgepopelt:
    Using und End Using außerhalb der Schleife wegen Performance, hab ich dir schonma gepostet :rolleyes:. Und meines Erachtens ganz wichtich: Mit Invalidate das Paint aufrufen, damit dein aktuelles Bild auch gezeichnet wird.

    VB.NET-Quellcode

    1. Private Sub Zeichnen()
    2. 'Papier = New Bitmap(800, 800) alternativ zu Maler.clear(...)
    3. Using Maler As Graphics = Graphics.FromImage(Papier)
    4. Maler.Clear(Color.White)
    6. For i = 0 To 99 'Y
    7. For t = 0 To 99 'X
    8. If Feld(i, t).Status = True Then
    9. Maler.FillRectangle(Pinsel, New Rectangle(i * 6, t * 6, 5, 5))
    10. End If
    11. Next
    12. Next
    13. End Using
    14. Me.Invalidate()
    15. 'Form Paint aufrufen, deshalb wird wahrscheinlich
    16. 'nicht jeder Schritt dargeatellt
    17. End Sub

    und dann noch bei Sub Prüfen abkürzen:

    VB.NET-Quellcode

    1. Private Sub Prüfen()
    3. If i <> 0 And t > 0 AndAlso Feld(i - 1, t - 1).Status Then ' Oben links | GESICHERT
    4. Nachbarzähler += 1
    5. ElseIf i <> 0 AndAlso Feld(i - 1, t).Status Then ' Oben | GESICHERT
    6. Nachbarzähler += 1
    7. 'usw.
    8. End If

    Und als letztes empfehle ich dir im Load noch folgende Attribute reinzunehmen:

    VB.NET-Quellcode

    1. Me.SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or _
    2. ControlStyles.AllPaintingInWmPaint Or _
    3. ControlStyles.ResizeRedraw, True)

    Damit bleibt die Darstellung auch sauber, wenn du die Form bewegst oder die Größe änderst.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Hatte das mit dem Using wohl falsch verstanden.
    Me.Invalidate() hatte ich vollkommen vergessen :S
    Und an AndAlso & ElseIf hatte ich garnicht gedacht.

    Danke

    Jetzt muss ich die Nachbar erkennung noch etwas verbessern und es ist Fertig :)