Tic-Tac-Toe Künstliche Intelligenz...

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Tic-Tac-Toe Künstliche Intelligenz...

    Ich bins mal wieder :D


    Muss euch leider schon wieder nerven :/


    Und zwar bin ich immer noch an meinem Tic-Tac-Toe dran. Die Zweispieler-Funktion läuft jetzt einwandfrei und ich bin auch mit dem Quellcode zufrieden.

    Nun möchte ich gerne ( und mein Ausbilder auch) eine KI in das Spiel einbauen.

    Ich benutze für die Gewinnmöglichkeiten 8 Arrays.
    In der Abfrage geht er dann die Arrays durch.

    Nun wollte ich die KI so proggen, dass der PC checkt ob er eine Gewinnmöglichkeit spielen kann.

    Wenn ja, dann soll er die setzen
    Wenn nein, dann soll er prüfen ob der Spieler eine Gewinnmöglichkeit in seinem nächsten Zug spielen kann.

    Wenn ja, dann soll er diese verhindern.

    Wenn nein, dann soll er eine Falle bauen. Das heißt wenn...

    X O
    O
    X

    der Fall ist soll er rechts in die Ecke ein X setzen.

    Kann er das nicht, soll er prüfen, ob der Gegenspieler eine Falle bauen kann.



    Mein Quellcode

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim intAnzahlFrei%
    4. Dim X$
    5. Dim O$
    6. Dim AGewinn(7) As String
    8. Private Sub cmdStart_Click()
    9. Dim i%
    10. ' Von 0 um größten Index ausführen
    11. For i = 0 To picAusgabe.Ubound
    12. picAusgabe(i).Enabled = True
    13. Next i
    14. 'Aktiviert den Countdown, in dem ein Spieler seine Figur setzen muss
    15. TimerSpieler.Enabled = True
    16. intAnzahlFrei = 9
    17. cmdStart.Visible = False
    19. End Sub
    21. Private Sub cmdZuruecksetzen_Click()
    22. Dim i%
    23. 'Setzt Countdown auf 30
    24. lblRestzeit.Caption = "30"
    25. TimerSpieler.Enabled = True
    26. 'Löscht die Bilder aus der Picturebox
    27. For i = 0 To picAusgabe.Ubound
    28. picAusgabe(i) = LoadPicture()
    29. Next i
    30. 'Pictureboxen sind wieder frei zum benutzen
    31. For i = 0 To picAusgabe.Ubound
    32. picAusgabe(i).Enabled = True
    33. Next i
    34. 'Pictureboxen Tag wird geleert
    35. For i = 0 To picAusgabe.Ubound
    36. picAusgabe(i).Tag = ""
    37. Next i
    38. 'Setzt die freien Felder wieder auf 9
    39. intAnzahlFrei = 9
    40. End Sub
    42. Private Sub picAusgabe_Click(Index As Integer)
    43. Dim i%
    44. Dim Y%
    45. Dim s$
    46. 'Zählt die freien Boxen runter
    47. intAnzahlFrei = intAnzahlFrei - 1
    48. 'Altes Design
    49. 'X = ("C:\Users\dhenke\Dennis Henke\Tic-Tac-Toe\x.jpg")
    50. 'O = ("C:\Users\dhenke\Dennis Henke\Tic-Tac-Toe\o.jpg")
    52. 'Neues Design
    53. X = ("C:\Users\dhenke\Dennis Henke\Tic-Tac-Toe\X_Neu.jpg")
    54. O = ("C:\Users\dhenke\Dennis Henke\Tic-Tac-Toe\O_Neu.jpg")
    56. 'Prüft welcher Spieler an der Reihe ist
    57. If lblSpieler.Caption = "X" Then
    58. picAusgabe(Index) = LoadPicture(X)
    59. 'Braucht man, damit die Boxen bei eingabe gesperrt werden
    60. picAusgabe(Index).Enabled = False
    61. 'Countdown wird wieder auf 30 gesetzt
    62. lblRestzeit.Caption = "30"
    63. picAusgabe(Index).Tag = "X"
    64. s = "X"
    65. ElseIf lblSpieler.Caption = "O" Then
    66. picAusgabe(Index) = LoadPicture(O)
    67. picAusgabe(Index).Enabled = False
    68. lblRestzeit.Caption = "30"
    69. picAusgabe(Index).Tag = "O"
    70. s = "O"
    71. End If
    72. 'Legt die Gewinnmöglichkeiten fest
    73. AGewinn(0) = picAusgabe(0).Tag = s And picAusgabe(1).Tag = s And picAusgabe(2).Tag = s
    74. AGewinn(1) = picAusgabe(3).Tag = s And picAusgabe(4).Tag = s And picAusgabe(5).Tag = s
    75. AGewinn(2) = picAusgabe(6).Tag = s And picAusgabe(7).Tag = s And picAusgabe(8).Tag = s
    76. AGewinn(3) = picAusgabe(0).Tag = s And picAusgabe(3).Tag = s And picAusgabe(6).Tag = s
    77. AGewinn(4) = picAusgabe(1).Tag = s And picAusgabe(4).Tag = s And picAusgabe(7).Tag = s
    78. AGewinn(5) = picAusgabe(2).Tag = s And picAusgabe(5).Tag = s And picAusgabe(8).Tag = s
    79. AGewinn(6) = picAusgabe(0).Tag = s And picAusgabe(4).Tag = s And picAusgabe(8).Tag = s
    80. AGewinn(7) = picAusgabe(6).Tag = s And picAusgabe(4).Tag = s And picAusgabe(2).Tag = s
    82. 'Prüft wo sich ein X und wo sich ein O befindet und legt den Sieger fest
    83. If AGewinn(0) = True _
    84. Or AGewinn(1) = True _
    85. Or AGewinn(2) = True _
    86. Or AGewinn(3) = True _
    87. Or AGewinn(4) = True _
    88. Or AGewinn(5) = True _
    89. Or AGewinn(6) = True _
    90. Or AGewinn(7) = True Then
    91. MsgBox lblSpieler.Caption & " hat gewonnen! Glückwunsch!"
    92. 'Stopt den Countdown
    93. TimerSpieler.Enabled = False
    94. 'Sperrt die Boxen
    95. For i = 0 To picAusgabe.Ubound
    96. picAusgabe(i).Enabled = False
    97. Next i
    98. 'Zählt die Siege
    99. If s = "X" Then
    100. lblPunkteX.Caption = lblPunkteX.Caption + 1
    101. Else
    102. lblPunkteO.Caption = lblPunkteO.Caption + 1
    103. End If
    105. ElseIf intAnzahlFrei = 0 Then
    106. MsgBox "Unentschieden!"
    107. For i = 0 To picAusgabe.Ubound
    108. picAusgabe(i).Enabled = False
    109. Next i
    110. TimerSpieler.Enabled = False
    111. End If
    113. If lblSpieler.Caption = "O" Then
    114. lblSpieler.Caption = "X"
    115. Else
    116. lblSpieler.Caption = "O"
    117. End If
    118. End Sub
    120. Private Sub TimerSpieler_Timer()
    121. Dim i As Integer
    122. 'Zählt vom Countdown runter
    123. lblRestzeit.Caption = lblRestzeit.Caption - 1
    124. 'Legt fest, was passiert wenn die Zeit abeglaufen ist
    125. If lblRestzeit.Caption = "0" Then
    126. MsgBox " Sie haben verloren Spieler " & lblSpieler.Caption & " !"
    127. TimerSpieler.Enabled = False
    128. End If
    129. End Sub



    Und so habe ich es probiert zu erreichen :

    Visual Basic-Quellcode

    1. For i = 0 to 7
    2. If picAusgabe(i).Tag = s and picAusgabe(i).Tag = S Then
    3. picAusgabe(i).Picture = LoadPicture (X)
    4. End if
    5. Next i



    Es kommt zwar kein Fehler, aber es kommt auch nicht der gewünschte Effekt.

    Der Computer setzt zwar bei 2 X in einer Reihe ein weiteres X, aber es kommt dann keine Gewinnmeldung.
    Wenn 2 O in einer Reihe sind, dann verhindert er ein drittes.
    Wenn ich aber als Spieler O den Gewinn von X verhindern will, setzt der Computer sein X einfach über mein O ( Also er schummelt :D)

    Also nicht der gewünschte Effekt...

    Hab ich da irgendein Denkfehler gemacht ??


    Danke schon mal :)

    Dennis336 schrieb:

    eine KI in das Spiel einbauen.
    Das sind ja echt große Worte bzw. Buchstaben für Euer Vorhaben.
    Hat sich das Dein Lehrer einfallen lassen?
    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!

    Nein, mir war langweilig auf der Arbeit, weil ich immer nur gelesen habe und ich auch mal was praktisches machen wollte. Die Aufgaben von meiner Schule waren mir zu einfach. Dann hab ich mir gedacht, versuche ich mal ein Tic-Tac-Toe zu programmieren. Gedacht getan.. Mein Ausbilder hat das dann gesehen und hat gesagt wenn ich den 2 Spielermodus fertig habe, dann soll ich mich daran machen ein Computergegner zu entwickeln. Er hat mir da ein paar Anregungen gegeben, weil er das selber erst letze Woche gemacht hat.

    Aber irgendwie funktioniert das nicht so wie ich will :D wie gesagt der PC schummelt :D

    Du solltest das ganze zunächst mal ordentlich kapseln, da kann keiner schummeln.
    Es gibt ein Spielbrett, auf das können beide Gegner sehen.
    Jeder Gegner kann einen Zug machen und fertig.
    Der PC muss dann 3 oder 5 Ebenen tief alles probieren und den für ihn erfolgreichsten Zug setzen.
    Mach also zunächst mal die Spieler-Klassen.
    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!

Facebook
Telefonspende