Sokoban Klon - Thread von hammerdollen

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Sokoban Klon - Thread von hammerdollen

    So hier habe ich mal vorsichtshalber einen ganzen Thread aufgemacht.
    Bei meinem Projekt handelt es sich um einen, eher spartanisch gehaltenen, Sokoban-Klon.
    Ich lerne Visual Basic nun seit ca 5 Monaten(in der Schule), daher würde ich mir bitte schlagfertige Äußerungen über meinen Programmierstil verbieten.

    Das einzige was noch fehlt, ist das festlegen der nicht überquerbaren Flächen (das bekomme ich noch nicht so richtig hin :/)

    Hier einmal den Code:


    Form1.vb

    Quellcode

    1. Public Class Form1
    4. Private Field As level
    6. Public robo As New PictureBox
    7. Public kiste As New PictureBox
    8. Public position As String
    11. Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. Field = New level("C:\Users\Marvin\Documents\Visual Studio 2010\Projects\Infoprojekt\Infoprojekt\level\1.txt")
    14. With robo
    16. .Parent = Me
    17. .Tag = "roboter"
    18. .Name = "roboter"
    19. .Height = 75
    20. .Width = 75
    21. .Location = New Point(75, 75)
    22. .Enabled = True
    23. .BackgroundImage = My.Resources.Boden
    24. .Image = My.Resources.Roboter
    26. End With
    28. With kiste
    30. .Parent = Me
    31. .Tag = "kiste"
    32. .Name = "kiste"
    33. .Height = 75
    34. .Width = 75
    35. .Location = New Point(225, 225)
    36. .Enabled = True
    37. .BackgroundImage = My.Resources.Boden
    38. .Image = My.Resources.Kiste
    40. End With
    42. 'start
    43. For x As Integer = 0 To Field.Size.Width - 1
    44. For y As Integer = 0 To Field.Size.Height - 1
    46. Dim bausteine As New PictureBox
    48. With bausteine
    50. .Parent = Me
    51. .Tag = New Point(x, y)
    52. .Height = 75
    53. .Width = 75
    54. .Left = 75 * x
    55. .Top = 75 * y
    56. .SizeMode = PictureBoxSizeMode.StretchImage ' damit das Bild bei jeder Größe passt
    58. If Field.Field(x, y) = 0 Then
    59. bausteine.Image = My.Resources.Boden
    60. bausteine.Name = "boden"
    61. ElseIf Field.Field(x, y) = 1 Then
    62. .Image = My.Resources.Mauer
    63. bausteine.Name = "mauer"
    64. ElseIf Field.Field(x, y) = 2 Then
    65. bausteine.Image = My.Resources.Ziel
    66. bausteine.Name = "ziel"
    67. End If
    68. End With
    69. Next
    70. Next
    71. 'end
    72. End Sub
    74. Public Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    75. Select Case e.KeyValue
    76. Case 37, 65
    77. robo.Left -= 75
    78. Case 38, 87
    79. robo.Top -= 75
    80. Case 39, 68
    81. robo.Left += 75
    82. Case 40, 83
    83. robo.Top += 75
    84. End Select
    86. If kiste.Location.X = robo.Location.X + 75 And kiste.Location.Y = robo.Location.Y Then
    88. position = "links"
    90. 'MsgBox(position)
    92. End If
    94. 'Rechts
    95. If kiste.Location.X = robo.Location.X - 75 And kiste.Location.Y = robo.Location.Y Then
    97. position = "rechts"
    99. 'MsgBox(position)
    101. End If
    103. 'Unten
    104. If kiste.Location.X = robo.Location.X And kiste.Location.Y = robo.Location.Y - 75 Then
    106. position = "unten"
    108. 'MsgBox(position)
    109. End If
    111. 'Oben
    112. If kiste.Location.X = robo.Location.X And kiste.Location.Y = robo.Location.Y + 75 Then
    114. position = "oben"
    116. 'MsgBox(position)
    118. End If
    120. If robo.Location.X = kiste.Location.X And robo.Location.Y = kiste.Location.Y Then
    122. Call schieben()
    125. End If
    127. End Sub
    129. Private Function schieben()
    131. With kiste
    133. Select Case position
    134. Case "rechts"
    135. kiste.Left = kiste.Left - 75
    137. Case "links"
    138. kiste.Left = kiste.Left + 75
    140. Case "oben"
    141. kiste.Top = kiste.Top + 75
    143. Case "unten"
    144. kiste.Top = kiste.Top - 75
    146. End Select
    148. End With
    149. schieben = 1
    151. End Function
    153. End Class


    level.vb

    Quellcode

    1. Public Class level
    2. Private f(,) As Integer ' das Feld bestehend aus Indices
    3. Private usef(,) As Integer
    4. Private s As Size ' Feldgröße
    5. Private orig_hero As Point
    6. Public Sub New(ByVal file As String)
    8. 'auslesen
    9. Dim abc As New List(Of String)
    10. abc.AddRange(IO.File.ReadAllText(file).Split(CChar(" ")))
    12. Dim width, height As Integer
    13. width = abc(0).Length
    14. height = abc.Count
    16. Dim k(width, height) As Integer
    18. s = New Size(width, height)
    20. 'auswerten
    21. For x As Integer = 0 To width - 1
    22. For y As Integer = 0 To height - 1
    23. k(x, y) = CInt(CStr(abc(y)(x)))
    24. Next
    25. Next
    27. f = k
    28. usef = f
    31. End Sub
    32. Public ReadOnly Property Size() As Size
    33. Get
    34. Return s
    35. End Get
    36. End Property
    37. Public ReadOnly Property OriginalField() As Integer(,)
    38. Get
    39. Return f
    40. End Get
    41. End Property
    42. Public Property Field() As Integer(,)
    43. Get
    44. Return usef
    45. End Get
    46. Set(ByVal value As Integer(,))
    47. usef = value
    48. End Set
    49. End Property
    50. End Class


    Ich würde mich seeeeeeeeeeehr über Verbesserungsvorschläge und allgemeine Unterstützung freuen, da es sich dabei um ein Schulprojekt handelt, welches für mich entscheidend für di Versetzung ist, da die gesamte Info-Note aus diesem Projekt hervorgeht.


    Hocherfreut,

    hammerdollen

    Ich habe mir eher etwas so in der Art vorgestellt:

    Picturebox a (Spielfigur) wird verschoben, nun greift eine Funktion, welche überprüfen soll, ob die Position.X oder Position.Y der Spielfigur um eine Spielfigurbreite/Spielfigurhöhe ( in meinem Fall 75px) von dem Objekt (in meinem Fall die Mauer) entfernt ist.
    Nun soll die Funktion verhindern, dass man die SPielfigur über das Objekt hinaus bewegen kann.

    In der Theorie habe ich mir viele Gedanken darüber gemacht, jedoch haperts an der Umsetzung :(.
    Wenn mir jemand einen Kommentierten Beispielcode schreiben könnte (bzw einen kleinen Teil, damit ich sehen kann wie es in etwa geht, Ihr sollt ja nicht meine ganze Arbeit machen ;) und ich soll ja etwas daraus lernen) wäre ich bestens bedient.

    Hochachtungsvoll,

    hammerdollen

    oho sogar Hochachtungsvoll^^

    ich geb dir nur Pseudo Code :P

    Quellcode

    1. Wenn X1+Breite1 >= X2 UNDAUCH X1 <= X2 + Breite2
    2. Wenn Y1+Höhe1 >= Y2 UNDAUCH Y1 <= Y2 + Höhe2
    3. KOLLISION

    sollte doch kein Problem darstellen das umzusetzen...

    P.S.: Wenn du schon kein DX verwenden willst, dann nimm doch pls wenigstens GDI+ ;)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Also es ist insofern nicht das Problem dass ich dx oder GDI nicht nehmen mag, aber mein Prof haut mich dann in die Pfanne, er merkt sofort, dass ich des noch nicht drauf habe, weil wir des bei ihm nicht mal ansatzweise durchgenommen haben :)


    // Problem:

    Wenn ich per For-Next Schleife

    Quellcode

    1. For x As Integer = 1 To 8
    3. For y As Integer = 1 To 8
    5. Dim feld As New PictureBox
    7. With feld
    9. .BringToFront() 'Stellt sicher, dass die PixtureBox sichtbar ist (z-index wird aufgehoben)
    10. .Enabled = True
    11. .Parent = Me
    12. .SizeMode = PictureBoxSizeMode.StretchImage
    13. .Tag = "boden"
    14. .Name = "boden"
    15. .Image = My.Resources.Boden
    16. .Height = 75
    17. .Width = 75
    18. .Left = 75 * x
    19. .Top = 75 * y
    21. If feld.Location.X = 75 Then
    22. .Tag = "mauer"
    23. .Name = "mauer"
    24. .Image = My.Resources.Mauer
    26. ElseIf feld.Location.X = 600 Then
    27. .Tag = "mauer"
    28. .Name = "mauer"
    29. .Image = My.Resources.Mauer
    31. ElseIf feld.Location.Y = 75 Then
    32. .Tag = "mauer"
    33. .Name = "mauer"
    34. .Image = My.Resources.Mauer
    36. ElseIf feld.Location.Y = 600 Then
    37. .Tag = "mauer"
    38. .Name = "mauer"
    39. .Image = My.Resources.Mauer
    41. End If
    43. End With
    45. Next
    46. Next


    ein 8x8 PB großes Feld erstelle, wie schaffe ich es dann die einzelnen PBs zu "nutzen" sprich

    If roboter.location.x = mauer.location.x -75 then
    blablabla

    (alle meine PBs die während der Schleife entstehen sollten "mauer" heissen)

    Könnt Ihr mir einen Tipp geben, wie ich dies verändern könnte?

    Danke im Vorraus für Eure Antworten :)

    hammerdollen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hammerdollen“ ()

    Me.Controls("ControlName") dann machst du einfach TextBoxen mit Indicies und kannst entsprechend alle auslesen...

    Edit: musst du das machen, hat er das genau so gesagt? Weil ich finde es blöd wenn ihr das direkt falsch lernt...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Jup, so waren die Vorraussetzungen :/

    welche u.A. auch noch sind:

    -Level aus Textdatei laden lassen
    -Mithilfe eines Timers jeden Schritt der FIgur verfolgen und ebenfalls in einer Textdatei abspeichern, um sie später auslesen zu können (eine Art "replay" sagte er)

    So ich habe das Programm nun erst einmal wieder etwas abgespeckt. Ich fange noch einmal an:

    Quellcode

    1. Public Class Form1
    4. Public i As Integer = 1
    5. Dim position As String
    6. Dim robo As New PictureBox 'Deklarierung des Roboters als neue PictureBox
    7. Dim kiste As New PictureBox 'Deklarierung der Kiste als neue PictureBox
    8. Dim positionr As Point = robo.Location 'Position des Roboters
    9. Dim positionk = kiste.Location ' Position der Kiste
    12. Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. With robo
    16. .BringToFront() 'Stellt sicher, dass die PixtureBox sichtbar ist (z-index wird aufgehoben)
    17. .Enabled = True
    18. .Parent = Me
    19. .SizeMode = PictureBoxSizeMode.StretchImage
    20. .Tag = "Roboter"
    21. .Name = "Roboter"
    22. .BackgroundImage = My.Resources.Boden
    23. .Image = My.Resources.Roboter
    24. .Height = 75
    25. .Width = 75
    26. .Left = 150
    27. .Top = 150
    29. End With
    31. With kiste
    33. .BringToFront() 'Stellt sicher, dass die PixtureBox sichtbar ist (z-index wird aufgehoben)
    34. .Enabled = True
    35. .Parent = Me
    36. .SizeMode = PictureBoxSizeMode.StretchImage
    37. .Tag = "Kiste"
    38. .Name = "Kiste"
    39. .BackgroundImage = My.Resources.Boden
    40. .Image = My.Resources.Kiste
    41. .Height = 75
    42. .Width = 75
    43. .Left = 225
    44. .Top = 225
    46. End With
    48. Select Case i
    50. Case 1
    52. For x As Integer = 1 To 8
    54. For y As Integer = 1 To 8
    56. Dim feld As New PictureBox
    58. With feld
    60. .BringToFront() 'Stellt sicher, dass die PixtureBox sichtbar ist (z-index wird aufgehoben)
    61. .Enabled = True
    62. .Parent = Me
    63. .SizeMode = PictureBoxSizeMode.StretchImage
    64. .Tag = "boden"
    65. .Name = "boden"
    66. .Image = My.Resources.Boden
    67. .Height = 75
    68. .Width = 75
    69. .Left = 75 * x
    70. .Top = 75 * y
    72. If feld.Location.X = 75 Then
    73. .Tag = "mauer"
    74. .Name = "mauer"
    75. .Image = My.Resources.Mauer
    77. ElseIf feld.Location.X = 600 Then
    78. .Tag = "mauer"
    79. .Name = "mauer"
    80. .Image = My.Resources.Mauer
    82. ElseIf feld.Location.Y = 75 Then
    83. .Tag = "mauer"
    84. .Name = "mauer"
    85. .Image = My.Resources.Mauer
    87. ElseIf feld.Location.Y = 600 Then
    88. .Tag = "mauer"
    89. .Name = "mauer"
    90. .Image = My.Resources.Mauer
    92. End If
    94. End With
    96. Next
    97. Next
    98. End Select
    99. End Sub
    101. Public Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    103. Select Case e.KeyValue
    104. Case 37, 65
    105. robo.Left -= 75
    106. Case 38, 87
    107. robo.Top -= 75
    108. Case 39, 68
    109. robo.Left += 75
    110. Case 40, 83
    111. robo.Top += 75
    112. End Select
    114. If kiste.Location.X = robo.Location.X + 75 And kiste.Location.Y = robo.Location.Y Then
    116. position = "links"
    118. End If
    120. 'Rechts
    121. If kiste.Location.X = robo.Location.X - 75 And kiste.Location.Y = robo.Location.Y Then
    123. position = "rechts"
    125. End If
    127. 'Unten
    128. If kiste.Location.X = robo.Location.X And kiste.Location.Y = robo.Location.Y - 75 Then
    130. position = "unten"
    132. End If
    134. 'Oben
    135. If kiste.Location.X = robo.Location.X And kiste.Location.Y = robo.Location.Y + 75 Then
    137. position = "oben"
    139. End If
    141. If robo.Location.X = kiste.Location.X And robo.Location.Y = kiste.Location.Y Then
    143. Call schieben()
    145. End If
    147. End Sub
    149. Private Function schieben()
    151. With kiste
    153. Select Case position
    154. Case "rechts"
    155. kiste.Left = kiste.Left - 75
    157. Case "links"
    158. kiste.Left = kiste.Left + 75
    160. Case "oben"
    161. kiste.Top = kiste.Top + 75
    163. Case "unten"
    164. kiste.Top = kiste.Top - 75
    166. End Select
    168. End With
    169. schieben = 1
    171. End Function
    173. End Class


    Bewegen der Figur und Schieben der Kiste funktioniert einwandfrei.
    Nun möchte ich, dass die Kiste(und natührlich auch die Figur) vor der Mauer halt macht, heisst sie nicht überqueren kann.
    Ich würde es ja einfach mit einer If-Abfrage regeln, jedoch kann ich "mauer" nicht verwenden, obwohl ich die pictureboxen während der Schleife genauso benannte habe :/
    Ich verzweifle

    hammerdollen

    mach doch den Teil:

    VB.NET-Quellcode

    1. If feld.Location.X = 75 Then
    2. .Tag = "mauer"
    3. .Name = "mauer"
    4. .Image = My.Resources.Mauer
    6. ElseIf feld.Location.X = 600 Then
    7. .Tag = "mauer"
    8. .Name = "mauer"
    9. .Image = My.Resources.Mauer
    11. ElseIf feld.Location.Y = 75 Then
    12. .Tag = "mauer"
    13. .Name = "mauer"
    14. .Image = My.Resources.Mauer
    16. ElseIf feld.Location.Y = 600 Then
    17. .Tag = "mauer"
    18. .Name = "mauer"
    19. .Image = My.Resources.Mauer
    21. End If


    mal einfacher...bzw. die If abfragen kannst du ja allgemein alle bleiben lassen oder nicht?! eins muss ja True sein,sonst hätte es gar keinen sinn...xD aber egal...mach bei .Name = "mauer"
    einfach .Name = "mauer" & (x+(y-1)*8-1)
    somit hat jede Mauer einen eindeutigen Namen... also "mauer0","mauer1","mauer2" usw...leichter wäre es, wenn du die Schleife bei 0 beginnen würdest...: .Name = "mauer" & (x+y*8)

    Edit: achja bitte VB CodeTags verwenden ;)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Danke für Deine schnelle Antwort :)

    gesagt getan, nur leider funktionierts noch nicht so, wie ich es möchte. Ich möchte im Programm eine Überprüfungsfunktion schreiben, welche die roboterposition mit der der umliegenden mauern vergleicht, und wenn die Positionen übereinstimmen, dass sich der Roboter dann wieder zurückbewegt (Ausgangsrichtung)

    Freue mich über eine Antwort

    hammerdollen

    um diesen codeausschnitt dreht es sich:

    VB.NET-Quellcode

    1. For x As Integer = 0 To 9
    3. For y As Integer = 0 To 9
    5. Dim bausteine As New PictureBox
    7. With bausteine
    9. .Parent = Me
    10. .Tag = New Point(x, y)
    11. .Height = 75
    12. .Width = 75
    13. .Left = 75 * x
    14. .Top = 75 * y
    15. .SizeMode = PictureBoxSizeMode.StretchImage ' damit das Bild bei jeder Größe passt
    17. If Field.Field(x, y) = 0 Then
    18. .BackColor = Color.Black
    19. ElseIf Field.Field(x, y) = 1 Then
    20. .Image = My.Resources.Mauer
    21. .Name = "New Point(x, y)"
    22. ElseIf Field.Field(x, y) = 2 Then
    23. .Image = My.Resources.Boden
    24. .Name = "boden"
    25. ElseIf Field.Field(x, y) = 3 Then
    26. .Image = My.Resources.Ziel
    27. .Name = "ziel"
    29. End If
    31. End With
    33. Next
    35. Next



    ich möchte später auf diese dynamisch erstellten pictureboxen zugreifen, um z.b. eine kollisionsabfrage zu ermöglichen.

    hammerdollen

    .Tag = New Point(x, y)
    völlig unnötig...
    .Name = "New Point(x, y)"
    ka was du damit erreichen willst, warum machst du es jetzt nicht wie ich gesagt hatte?

    .Name = "mauer" & (x+y*9)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    So, habe das Programm "etwas" umgeschrieben:

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Field As Game
    5. Dim position As String
    6. Dim schritte As Integer = 0
    7. Dim level As Integer = 1
    9. Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Call stufen()
    11. End Sub
    13. Public Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    15. Select Case e.KeyValue
    16. Case 37, 65
    18. Me.Controls("roboter").Left -= 75
    19. 'If Me.Controls("roboter").Left = Me.Controls("boden").Left - 75 And Me.Controls("roboter").Top = Me.Controls("boden").Top Then
    20. 'schritte = schritte + 1
    21. If Me.Controls("roboter").Location.X = Me.Controls("mauer").Location.X And Me.Controls("roboter").Location.Y = Me.Controls("mauer").Location.Y Then
    22. Me.Controls("roboter").Left += 75
    23. End If
    25. Case 38, 87
    27. Me.Controls("roboter").Top -= 75
    28. If Me.Controls("roboter").Location.X = Me.Controls("boden").Location.X And Me.Controls("roboter").Location.Y = Me.Controls("boden").Location.Y Then
    29. schritte = schritte + 1
    30. End If
    31. Case 39, 68
    32. Me.Controls("roboter").Left += 75
    33. If Me.Controls("roboter").Left = Me.Controls("boden").Left And Me.Controls("roboter").Top = Me.Controls("boden").Top Then
    34. schritte = schritte + 1
    35. End If
    37. Case 40, 83
    38. Me.Controls("roboter").Top += 75
    39. If Me.Controls("roboter").Left = Me.Controls("boden").Left And Me.Controls("roboter").Top = Me.Controls("boden").Top Then
    40. schritte = schritte + 1
    41. End If
    43. End Select
    45. If Me.Controls("kiste").Location.X = Me.Controls("roboter").Location.X + 75 And Me.Controls("kiste").Location.Y = Me.Controls("roboter").Location.Y Then
    46. position = "links"
    47. End If
    48. 'Rechts
    49. If Me.Controls("kiste").Location.X = Me.Controls("roboter").Location.X - 75 And Me.Controls("kiste").Location.Y = Me.Controls("roboter").Location.Y Then
    50. position = "rechts"
    51. End If
    52. 'Unten
    53. If Me.Controls("kiste").Location.X = Me.Controls("roboter").Location.X And Me.Controls("kiste").Location.Y = Me.Controls("roboter").Location.Y - 75 Then
    54. position = "unten"
    55. 'MsgBox(position)
    56. End If
    57. 'Oben
    58. If Me.Controls("kiste").Location.X = Me.Controls("roboter").Location.X And Me.Controls("kiste").Location.Y = Me.Controls("roboter").Location.Y + 75 Then
    59. position = "oben"
    60. 'MsgBox(position)
    61. End If
    63. If Me.Controls("roboter").Location.X = Me.Controls("kiste").Location.X And Me.Controls("roboter").Location.Y = Me.Controls("kiste").Location.Y Then
    65. Call schieben()
    68. End If
    69. Call check()
    71. End Sub
    73. Private Sub schieben()
    75. With Me.Controls("kiste")
    77. Select Case position
    78. Case "rechts"
    79. Me.Controls("kiste").Left = Me.Controls("kiste").Left - 75
    81. Case "links"
    82. Me.Controls("kiste").Left = Me.Controls("kiste").Left + 75
    84. Case "oben"
    85. Me.Controls("kiste").Top = Me.Controls("kiste").Top + 75
    87. Case "unten"
    88. Me.Controls("kiste").Top = Me.Controls("kiste").Top - 75
    90. End Select
    92. End With
    94. End Sub
    96. Private Sub check()
    98. If Me.Controls("kiste").Location = Me.Controls("ziel").Location Then
    100. MsgBox("Stufe geschafft")
    101. level = level + 1
    102. Me.Controls.Clear()
    103. Call stufen()
    105. End If
    106. End Sub
    108. Private Sub stufen()
    109. Select Case level
    110. Case 1
    111. Field = New Game("C:\Users\Marvin\Desktop\Informatik2\Informatik-Sokoban-17.05.2010\Informatik-Sokoban-17.05.2010\LEVEL\1.txt")
    112. Case 2
    113. Field = New Game("C:\Users\Marvin\Desktop\Informatik2\Informatik-Sokoban-17.05.2010\Informatik-Sokoban-17.05.2010\LEVEL\2.txt")
    114. Case 3
    115. Field = New Game("C:\Users\Marvin\Desktop\Informatik2\Informatik-Sokoban-17.05.2010\Informatik-Sokoban-17.05.2010\LEVEL\3.txt")
    116. Case 4
    117. Field = New Game("C:\Users\Marvin\Desktop\Informatik2\Informatik-Sokoban-17.05.2010\Informatik-Sokoban-17.05.2010\LEVEL\4.txt")
    118. Case 5
    119. Field = New Game("C:\Users\Marvin\Desktop\Informatik2\Informatik-Sokoban-17.05.2010\Informatik-Sokoban-17.05.2010\LEVEL\5.txt")
    120. Case 6
    121. MsgBox("Herzlichen Glückwunsch. Du hast das Spiel gewonnen")
    122. End Select
    124. For x As Integer = 0 To 7
    125. For y As Integer = 0 To 7
    126. Select Case Field.Field(x, y)
    127. Case 0
    128. Dim boden As New PictureBox
    129. Me.Controls.Add(boden)
    130. With boden
    132. boden.Name = "boden"(x + (y - 1) * 8).ToString
    133. Me.Controls("boden" & (x + (y - 1) * 8)).Left = 75 * x (*)
    134. Me.Controls("boden" & (x + (y - 1) * 8)).Top = 75 * y (*)
    135. Me.Controls("boden" & (x + (y - 1) * 8)).Height = 75
    136. Me.Controls("boden" & (x + (y - 1) * 8)).Width = 75
    137. Me.Controls("boden" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Boden
    138. Me.Controls("boden" & (x + (y - 1) * 8)).SendToBack()
    140. End With
    141. Case 1
    142. Dim mauer As New PictureBox
    143. Me.Controls.Add(mauer)
    144. With mauer
    146. .Name = "mauer" & (x + (y - 1) * 8).ToString
    147. Me.Controls("mauer" & (x + (y - 1) * 8)).Left = 75 * x (*)
    148. Me.Controls("mauer" & (x + (y - 1) * 8)).Top = 75 * y (*)
    149. Me.Controls("mauer" & (x + (y - 1) * 8)).Height = 75
    150. Me.Controls("mauer" & (x + (y - 1) * 8)).Width = 75
    151. Me.Controls("mauer" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Mauer
    152. Me.Controls("mauer" & (x + (y - 1) * 8)).SendToBack()
    154. End With
    155. Case 2
    156. Dim untergrund1 As New PictureBox
    157. Dim roboter As New PictureBox
    158. Me.Controls.Add(untergrund1)
    159. Me.Controls.Add(roboter)
    160. With untergrund1
    162. untergrund1.Name = "boden" & (x + (y - 1) * 8).ToString
    163. Me.Controls("boden" & (x + (y - 1) * 8)).Left = 75 * x (*)
    164. Me.Controls("boden" & (x + (y - 1) * 8)).Top = 75 * y (*)
    165. Me.Controls("boden" & (x + (y - 1) * 8)).Height = 75
    166. Me.Controls("boden" & (x + (y - 1) * 8)).Width = 75
    167. Me.Controls("boden" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Boden
    168. Me.Controls("boden" & (x + (y - 1) * 8)).SendToBack()
    170. End With
    171. With roboter
    173. roboter.Name = "roboter"
    174. Me.Controls("roboter" & (x + (y - 1) * 8)).Left = 75 * x (*)
    175. Me.Controls("roboter" & (x + (y - 1) * 8)).Top = 75 * y (*)
    176. Me.Controls("roboter" & (x + (y - 1) * 8)).Height = 75
    177. Me.Controls("roboter" & (x + (y - 1) * 8)).Width = 75
    178. Me.Controls("roboter" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Boden
    179. Me.Controls("roboter" & (x + (y - 1) * 8)).BringToFront()
    181. End With
    182. Case 3
    183. Dim untergrund2 As New PictureBox
    184. Dim kiste As New PictureBox
    185. Me.Controls.Add(untergrund2)
    186. Me.Controls.Add(kiste)
    187. With untergrund2
    189. untergrund2.Name = "boden" & (x + (y - 1) * 8).ToString
    190. Me.Controls("boden" & (x + (y - 1) * 8)).Left = 75 * x (*)
    191. Me.Controls("boden" & (x + (y - 1) * 8)).Top = 75 * y (*)
    192. Me.Controls("boden" & (x + (y - 1) * 8)).Height = 75
    193. Me.Controls("boden" & (x + (y - 1) * 8)).Width = 75
    194. Me.Controls("boden" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Boden
    195. Me.Controls("boden" & (x + (y - 1) * 8)).SendToBack()
    197. End With
    198. With kiste
    200. kiste.Name = "kiste" & (x + (y - 1) * 8).ToString
    201. Me.Controls("kiste" & (x + (y - 1) * 8)).Left = 75 * x (*)
    202. Me.Controls("kiste" & (x + (y - 1) * 8)).Top = 75 * y (*)
    203. Me.Controls("kiste" & (x + (y - 1) * 8)).Height = 75
    204. Me.Controls("kiste" & (x + (y - 1) * 8)).Width = 75
    205. Me.Controls("kiste" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Kiste
    206. Me.Controls("kiste" & (x + (y - 1) * 8)).BringToFront()
    208. End With
    209. Case 4
    210. Dim ziel As New PictureBox
    211. Me.Controls.Add(ziel)
    212. With ziel
    214. ziel.Name = "ziel" & (x + (y - 1) * 8).ToString
    215. Me.Controls("ziel" & (x + (y - 1) * 8)).Left = 75 * x
    216. Me.Controls("ziel" & (x + (y - 1) * 8)).Top = 75 * y
    217. Me.Controls("ziel" & (x + (y - 1) * 8)).Height = 75
    218. Me.Controls("ziel" & (x + (y - 1) * 8)).Width = 75
    219. Me.Controls("ziel" & (x + (y - 1) * 8)).BackgroundImage = My.Resources.Ziel
    220. Me.Controls("ziel" & (x + (y - 1) * 8)).BringToFront()
    222. End With
    223. End Select
    225. Next
    226. Next
    227. 'end
    228. End Sub
    230. End Class



    jedoch wird mir an markierter Stelle (*) immer ein NullReferenceException-Fehler angezeigt.
    Kann mir bitte jemand bei der Fehlersuche/-behebung helfen?


    Danke!

    hammerdollen