Stack Overflow bei erneutem Sub aufruf

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Schakal26.

    Stack Overflow bei erneutem Sub aufruf

    Hallo Zusammen,

    ich hab mir ein Tic Tac Toe gepastelt in dem es zwei schwierigkeitsgrade gibt im ersten Setzt der NPC per zufall, im zweiten soll er verhindern das ich eine Reihe bekomme was auch ein zwei mal funktioniert.

    Dann aber bricht er ab und gibt mir eine Stack overflow Meldung heraus.

    Ich hoffe mir kann wer sagen woran das liegt

    VB.NET-Quellcode

    1. Public Sub KI()
    2. If Spieler = 1 And Spielende = 0 Then
    3. Dim Spielzahl As Integer
    4. Dim x, y As Integer
    5. x = 0
    6. y = 0
    7. If Schwierigkeit = 0 Then
    8. Spielzahl = Zufall.Next(1, 10)
    10. ElseIf Schwierigkeit = 1 Then
    12. If Spielfeld(1, 1) = 1 And Spielfeld(1, 2) = 1 Or Spielfeld(3, 3) = 1 And Spielfeld(2, 3) = 1 Then
    13. Spielzahl = 3
    14. ElseIf Spielfeld(1, 2) = 1 And Spielfeld(1, 3) = 1 Or Spielfeld(3, 1) = 1 And Spielfeld(2, 1) = 1 Then
    15. Spielzahl = 1
    16. ElseIf Spielfeld(1, 1) = 1 And Spielfeld(1, 3) = 1 Or Spielfeld(2, 2) = 1 And Spielfeld(3, 2) = 1 Then
    17. Spielzahl = 2
    18. ElseIf Spielfeld(2, 1) = 1 And Spielfeld(2, 2) = 1 Or Spielfeld(1, 3) = 1 And Spielfeld(3, 3) = 1 Then
    19. Spielzahl = 6
    20. ElseIf Spielfeld(2, 2) = 1 And Spielfeld(2, 3) = 1 Or Spielfeld(1, 1) = 1 And Spielfeld(3, 1) = 1 Then
    21. Spielzahl = 4
    22. ElseIf Spielfeld(2, 1) = 1 And Spielfeld(2, 3) = 1 Or Spielfeld(1, 2) = 1 And Spielfeld(3, 2) = 1 Then
    23. Spielzahl = 5
    24. ElseIf Spielfeld(3, 1) = 1 And Spielfeld(3, 2) = 1 Or Spielfeld(1, 3) = 1 And Spielfeld(2, 3) = 1 Then
    25. Spielzahl = 9
    26. ElseIf Spielfeld(3, 1) = 1 And Spielfeld(3, 3) = 1 Or Spielfeld(2, 2) = 1 And Spielfeld(1, 2) = 1 Then
    27. Spielzahl = 8
    28. ElseIf Spielfeld(3, 2) = 1 And Spielfeld(3, 3) = 1 Or Spielfeld(1, 1) = 1 And Spielfeld(2, 1) = 1 Then
    29. Spielzahl = 7
    30. ElseIf Spielfeld(1, 1) = 1 And Spielfeld(3, 3) = 1 Or Spielfeld(1, 3) = 1 And Spielfeld(3, 1) = 1 Then
    31. Spielzahl = 5
    32. ElseIf Spielfeld(1, 1) = 1 And Spielfeld(2, 2) = 1 Then
    33. Spielzahl = 9
    34. ElseIf Spielfeld(3, 3) = 1 And Spielfeld(2, 2) = 1 Then
    35. Spielzahl = 1
    36. ElseIf Spielfeld(1, 3) = 1 And Spielfeld(2, 2) = 1 Then
    37. Spielzahl = 7
    38. ElseIf Spielfeld(3, 1) = 1 And Spielfeld(2, 2) = 1 Then
    39. Spielzahl = 3
    44. Else : Spielzahl = Zufall.Next(1, 10)
    45. End If
    48. ElseIf Schwierigkeit = 2 Then
    50. End If
    52. Select Case Spielzahl
    53. Case 1
    54. If Spielfeld(1, 1) = 0 Then
    55. x = 80
    56. y = 80
    57. SpielfigurSetzen(x, y, 2)
    58. Spieler = 2
    59. SpielAuswertung()
    60. Else : KI()
    61. End If
    62. Case 2
    63. If Spielfeld(1, 2) = 0 Then
    64. x = 160
    65. y = 80
    66. SpielfigurSetzen(x, y, 2)
    67. Spieler = 2
    68. SpielAuswertung()
    69. Else : KI()
    70. End If
    71. Case 3
    72. If Spielfeld(1, 3) = 0 Then
    73. x = 240
    74. y = 80
    75. SpielfigurSetzen(x, y, 2)
    76. Spieler = 2
    77. SpielAuswertung()
    78. Else : KI()
    79. End If
    80. Case 4
    81. If Spielfeld(2, 1) = 0 Then
    82. x = 80
    83. y = 160
    84. SpielfigurSetzen(x, y, 2)
    85. Spieler = 2
    86. SpielAuswertung()
    87. Else : KI()
    88. End If
    89. Case 5
    90. If Spielfeld(2, 2) = 0 Then
    91. x = 160
    92. y = 160
    93. SpielfigurSetzen(x, y, 2)
    94. Spieler = 2
    95. SpielAuswertung()
    96. Else : KI()
    97. End If
    98. Case 6
    99. If Spielfeld(2, 3) = 0 Then
    100. x = 240
    101. y = 160
    102. SpielfigurSetzen(x, y, 2)
    103. Spieler = 2
    104. SpielAuswertung()
    105. Else : KI()
    106. End If
    107. Case 7
    108. If Spielfeld(3, 1) = 0 Then
    109. x = 80
    110. y = 240
    111. SpielfigurSetzen(x, y, 2)
    112. Spieler = 2
    113. SpielAuswertung()
    114. Else : KI()
    115. End If
    116. Case 8
    117. If Spielfeld(3, 2) = 0 Then
    118. x = 160
    119. y = 240
    120. SpielfigurSetzen(x, y, 2)
    121. Spieler = 2
    122. SpielAuswertung()
    123. Else : KI()
    124. End If
    125. Case 9
    126. If Spielfeld(3, 3) = 0 Then
    127. x = 240
    128. y = 240
    129. SpielfigurSetzen(x, y, 2)
    130. Spieler = 2
    131. SpielAuswertung()
    132. Else : KI()
    133. End If
    136. End Select
    140. End If
    142. End Sub

    Poste doch bitte den Rest dazu, dann geht es schneller mit dem Helfen.
    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!

    Nimm Deinen Code aus dem 1. Post, füge ihn in ein jungfräulches Projekt ein und schreibe so viel an Code rein, dass Dein Fehler auftritt. Das, was Du da reingeschrieben hast, poste bitte.
    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!

    Du dürftest in eine Rekursive Endlosschleife kommen.

    VB.NET-Quellcode

    1. 'Schwierigkeit = 1
    2. Spielfeld(1,1) ist 1;
    3. 1,2 ist 0;
    4. 3,1 ist 1;
    5. 2,1 ist 1;
    6. 3,3 ist 0;
    8. Sub KI()
    9. If Spielfeld(1, 1) = 1 And Spielfeld(1, 2) = 1 Or Spielfeld(3, 3) = 1 And Spielfeld(2, 3) = 1 Then ' Trifft NIcht ZU
    10. Spielzahl = 3
    11. ElseIf Spielfeld(1, 2) = 1 And Spielfeld(1, 3) = 1 Or Spielfeld(3, 1) = 1 And Spielfeld(2, 1) = 1 Then 'Trifft ZU
    12. Spielzahl = 1
    13. Spielzahl wird 1
    15. Dann kommst du hierher:
    17. Select Case Spielzahl
    18. Case 1
    19. If Spielfeld(1, 1) = 0 Then ' 1,1 ist aber 1, darum
    20. x = 80
    21. y = 80
    22. SpielfigurSetzen(x, y, 2)
    23. Spieler = 2
    24. SpielAuswertung()
    25. Else : KI() 'KI() wieder aufrufen, nur was soll diesmal anders laufen ? -> NICHTS, daher läuft man wieder hier hinein
    26. End If


    Diese ganzen Verschachtelungen sind gefährlich und nicht allzu schön ^^
    Das ist meine Signatur und sie wird wunderbar sein!

    Wenn VB eine Sub aufruft, muss sie sich das irgendwo merken, da es sonst nicht weiß, wo es nach dieser Sub weitermachen soll. Dieser Ort ist der Stack. Du rufst in der Sub die Sub nochmals auf, womit sich VB diesen Aufruf ebenfalls im Stack merkt. Und wenn das öfters geschieht, is der halt irgendwann voll --> Stack overflow -> Stapelüberlauf

    Der Fehler steckt in Zeile 60, 69, 78, ... Ich denke, der komplette Ansatz deines Versuchs ist nicht optimal (vorsichtig ausgedrückt)

    Den Stack durch reines Aufrufen von Prozeduren vollzukriegen ist sicherlich möglich.. aber im Normalfall brauchst dazu schon ne Endlosschleife ;)
    Und diese ist eben gegeben und das Problem..
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende