TicTacToe-Klon

    • VB.NET

    Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von VB_Gamer.

      TicTacToe-Klon

      Hallo, ich habe in meiner Freizeit mal ein TicTacToe programmiert und wollte das jetzt hier veröffentlichen, weil ich Expertenmeinugen dazu hören wollte. Außerdem soll dies allen helfen, die Probleme haben, ein TicTacToe zu programmieren.

      Sollte eigentlich bei allen funktionieren.


      Die Steuerelemente sind:
      Form: Form namens TicTacToe (Spielfeld)

      11 Buttons:
      9 für das Spielfeld : btnFeld00 - btnFeld22
      Anordnung ist so aufgebaut ([X/X] ist ein Button):
      [0/0] [0/1] [0/2]
      [1/0] [1/1] [1/2]
      [2/0] [2/1] [2/2]

      2 für Neues Spiel und Nächste Runde

      Labels (Statusbar-Labels beginnen mit lbls statt mit lbl):
      für Punktestand von X und O (lblScoreX & lblScoreO),
      für Datum und Zeit (optional),
      Für Runde und Zug der jeweiligen Runde (Statuslabels),


      Timer fürs Datum (optional)

      ColorDialog zur Auswahl der Hintergrundfarbe


      eventuell: Statusleiste, ToolStrip

      Hier der Code für das Game:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class TicTacToe
      2. 'Der 1.Zug des Computergegners einer Runde, Enumeration hat: Keiner = 0, Mitte = 11 und RechtsUnten = 22
      3. Dim Zug1 As ComputerZug 'Eine Enumeration weiter unten
      4. 'Gibt an, ob das O für den Zug schon gesetzt wurde
      5. Dim O_gesetzt As Boolean 'Damit es nicht mehrmals gesetzt wird, weiß nicht obs notwendig ist
      6. 'Der aktuelle Zug der Runde (maximal 9, da es dann unentschieden ist)
      7. Dim Zug As Byte = 1
      8. 'Das Spielfeld als 2D-Array von Buttons (Entspricht der Anordnung für die Namen der Buttons)
      9. Dim Felder(2, 2) As Button 'Ist einfach leichter zu handeln als alle Buttons einzeln anzusprechen
      11. Private Sub TicTacToe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      12. 'Weist den Buttons ihren Platz im Array zu und macht ein 1.Belegen des lblsDate
      13. lblsDate.Text = System.DateTime.Now.ToString
      14. For ze = 0 To 2 'stehen für Zeile und Spalte (von 0 bis 2), Anordnung siehe oben
      15. For sp = 0 To 2
      16. Felder(ze, sp) = Me.Controls("btnFeld" & ze & sp) 'Die Buttons heißen ja btnFeld00- btnFeld22, das merkt euch
      17. Me.Controls("btnFeld" & ze & sp).Text = " " 'Jedem Text wird " " zugewiesen, damit er auf jeden Fall leer ist
      18. Next
      19. Next
      20. End Sub
      22. 'Die Funktion, die untersucht, ob man das Spiel gewonnen hat
      23. 'Der Parameter ist der Spieler, für den die Prozedur aufgerufen wird (X, O), der für die Siegesnachricht und den Punktestand gebraucht wird.
      25. 'Das ze_sp untersucht zuerst jede waagrechte oder senkrechte Reihe in EINER for-Schleife, und prüft dann per If die Diagonalen extra ab.
      28. Private Function CheckWin(ByVal Pl As Char) As Boolean
      30. 'ze_sp wird als Zeile und Spalte gleichzeitig verwendet, deswegen ze_sp. Zuerst Zeile dann Spalte.
      31. For ze_sp = 0 To 2
      32. 'waagrechte und senkrechte Reihe prüfen
      33. 'Prüft auf eine waagrechte Reihe
      34. If Felder(ze_sp, 0).Text = Pl AndAlso Felder(ze_sp, 1).Text = Pl _
      35. AndAlso Felder(ze_sp, 2).Text = Pl _
      36. 'Prüft auf eine senkrechte Reihe
      37. OrElse Felder(0, ze_sp).Text = Pl AndAlso Felder(1, ze_sp).Text = Pl _
      38. AndAlso Felder(2, ze_sp).Text = Pl Then
      39. 'Gib True zurück, wenn jemand gewonnen hat
      40. Return True
      41. End If
      42. Next
      44. 'Prüft Diagonalen ab
      46. 'Links-Oben Nach Rechts-Unten-Diagonale
      47. If Felder(0, 0).Text = Pl AndAlso Felder(1, 1).Text = Pl AndAlso _
      48. Felder(2, 2).Text = Pl OrElse _
      49. _
      50. 'Rechts-Oben Nach Links-Unten Diagonale
      51. Felder(0, 2).Text = Pl AndAlso _
      52. Felder(1, 1).Text = Pl AndAlso Felder(2, 0).Text = Pl Then
      53. Return True
      54. End If
      55. 'Wenn niemand gewonnen hat, gebe False zurück
      56. Return False
      57. End Sub
      58. 'Wenn man das Spiel gewonnen hat, was durch die obere Funktion überprüft wird
      59. Sub Sieg(ByVal pl As Char)
      60. 'Alle Buttons deaktivieren, damit man nicht mehr darauf klicken kann
      61. enablebuttons()
      62. 'MessageBox anzeigen
      63. MessageBox.Show("Spieler " & pl & " hat gewonnen", "Gewonnen")
      64. 'Die Punkte im jeweiligen Label erhöhen
      65. Me.Controls("lblScore" & Pl).Text += 1 'Funktioniert, auch wenn es Strict On-mäßig besser wäre
      67. 'Den NächsteRunde-Button hervorbringen, für die Nächste Runde, der vorher unsichtbar war.
      68. btnReset.Visible = True
      70. End Sub
      72. 'Deaktiviert Buttons bei einem Sieg
      73. Private Sub enablebuttons()
      74. 'For Each Schleife: Wenn das Control ein Button ist und
      75. 'sein Name mit btnFeld beginnt und es noch aktiviert ist, deaktiviere es
      76. For Each btn As Control In Me.Controls
      77. If TypeOf btn Is Button AndAlso btn.Name.StartsWith("btnFeld") _
      78. AndAlso btn.Enabled = True Then btn.Enabled = False
      79. Next
      80. End Sub
      82. 'Enumeration, die die Variable Zug1 besser verständlich macht
      83. Enum Computerzug
      84. Mitte = 11
      85. RechtsUnten = 22
      86. Keiner = 0
      87. End Enum
      89. 'Der Computer, der das Zeichen O setzt, die KI ist natürlich, euren Vorstellungen entsprechend anpassbar
      90. Public Sub Computergegner()
      91. Dim ze_sp As Byte 'Fungiert als Zeile + Spalte
      92. O_gesetzt = False 'Am Anfang setze das womöglich schon =true O_gesetzt auf false
      94. 'O vollenden
      95. For ze_sp = 0 To 2
      96. If Not O_gesetzt Then
      97. 'ze_sp= Zeile
      98. ReiheVollenden("O", Felder(ze_sp, 0), _
      99. Felder(ze_sp, 1), Felder(ze_sp, 2))
      100. End If
      101. If Not O_gesetzt Then
      102. 'ze_sp = Spalte
      103. ReiheVollenden("O", Felder(0, ze_sp), _
      104. Felder(1, ze_sp), Felder(2, ze_sp))
      105. End If
      106. Next
      108. If Not O_gesetzt Then ReiheVollenden("O", Felder(0, 0), _
      109. Felder(1, 1), Felder(2, 2))
      110. If Not O_gesetzt Then ReiheVollenden("O", Felder(0, 2), Felder(1, 1), Felder(2, 0))
      112. 'X vereiteln (Das Ganze ist getrennt, weil es zuerst das O vollenden und erst dann das X vereiteln soll
      113. For ze_sp2 = 0 To 2
      114. If Not O_gesetzt Then
      115. ReiheVollenden("X", Felder(ze_sp2, 0), Felder(ze_sp2, 1), Felder(ze_sp2, 2))
      116. End If
      117. If Not O_gesetzt Then
      118. ReiheVollenden("X", Felder(0, ze_sp2), Felder(1, ze_sp2), Felder(2, ze_sp2))
      119. End If
      120. Next
      122. If Not O_gesetzt Then ReiheVollenden("X", Felder(0, 0), Felder(1, 1), Felder(2, 2))
      123. If Not O_gesetzt Then ReiheVollenden("X", Felder(0, 2), Felder(1, 1), Felder(2, 0))
      125. 'Die Os setzten, wenn nichts vereitelt oder vollendet werden muss
      126. 'Das erste O setzten
      127. If Zug = 2 Then
      128. 'Wenn es der 1.Zug für O ist
      129. If Felder(1, 1).Text <> "X" Then
      130. If Not O_gesetzt Then
      131. Belegen("O", Felder(1, 1))
      133. Zug1 = ComputerZug.Mitte
      134. 'Signalisieren, dass das O gesetzt wurde
      135. O_gesetzt = True
      136. End If
      137. Else
      138. If Not O_gesetzt Then
      139. Belegen("O", Felder(2, 2))
      141. Zug1 = ComputerZug.RechtsUnten
      142. O_gesetzt = True
      143. End If
      144. End If
      145. End If
      147. ' Das zweite O setzten
      148. If Zug = 4 Then
      149. 'Wenn es der 2.Zug von O ist
      150. If Not O_gesetzt Then
      151. If Zug1 = 11 Then
      152. 'Wenn das 1.O in der Mitte war, setzt es das O in die rechte untere Ecke
      153. If Felder(2, 2).Enabled = True Then
      154. Belegen("O", Felder(2, 2))
      155. O_gesetzt = True
      156. End If
      157. Else
      158. 'andernfalls in die linke untere Ecke
      159. If Felder(2, 0).Enabled = True Then
      160. Belegen("O", Felder(2, 0))
      161. O_gesetzt = True
      162. End If
      163. End If
      164. End If
      165. End If
      167. 'Wenn keine der oben stehenden Möglichkeiten erfolgt,
      168. 'setzt es das O auf ein beliebiges freies Feld
      169. Dim rmd As New Random
      170. 'Die zufälligen Indices des Feldes
      171. Dim r1, r2 As Byte
      172. 'steht für Random-Index 1 und 2
      174. 'Wenn es ein Zug von O ist
      175. If Zug Mod 2 = 0 Then
      176. 'Solange O nocht nicht gesetzt wurde
      177. Do While O_gesetzt = False
      178. 'Ein Zufallsfeld besetzten
      179. r1 = rmd.Next(0, 2)
      180. r2 = rmd.Next(0, 2)
      181. If Felder(r1, r2).Enabled = True Then
      182. Belegen("O", Felder(r1, r2))
      183. O_gesetzt = True
      184. End If
      185. Loop
      186. End If
      187. End Sub
      189. 'Eine ReiheVollenden-Prozedur, die drei Felder werden über 6 Indices übergeben
      190. Sub ReiheVollenden(ByVal Sy As Char, ByVal B1 As Button, ByVal B2 As Button, ByVal B3 As Button)
      192. Dim Segment(2) As Char 'Die zu überprüfende Zeile, Spalte oder Diagonale
      193. Dim z_, zSy As Byte 'Der Zähler der belegten und unbelegten Felder
      194. Dim selSeg As Byte ' Das (erste) leere Segmentelement
      195. 'Das Segment belegen
      196. Segment(0) = B1.Text
      197. Segment(1) = B2.Text
      198. Segment(2) = B3.Text
      200. 'Prüft, ob 2 Felder 1 enthalten und das dritte Feld leer ist
      201. For i = 0 To 2
      202. If Segment(i) = Sy Then zSy += 1
      203. If Segment(i) = " " Then
      204. z_ += 1
      205. selSeg = i
      206. End If
      207. Next
      209. 'Wenn zwei gleich belegte und ein leeres Feld vorhanden sind...
      210. If zSy = 2 And z_ = 1 Then
      211. Select Case selSeg
      212. '...wird das leere Feld belegt
      213. Case 0
      214. Belegen("O", Felder(I1, I2))
      215. O_gesetzt = True
      216. Case 1
      217. Belegen("O", Felder(I3, I4))
      218. O_gesetzt = True
      219. Case 2
      220. Belegen("O", Felder(I5, I6))
      221. O_gesetzt = True
      222. End Select
      223. End If
      224. End Sub
      226. 'Hinweis: Das Spielfeld ist Indexmäßig so aufgebaut
      227. '0/0, 0/1, 0/2
      228. '1/0, 1/1, 1/2
      229. '2/0. 2/1, 2/2
      232. ' Buttons des Spielfelds
      234. 'Erst Belegen, dann den Computergegner aufrufen, damit er sein O setzt
      235. Private Sub FeldButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      236. Handles btnFeld00.Click, btnFeld01.Click, btnFeld02.Click, btnFeld10.Click, _
      237. btnFeld11.Click, btnFeld12.Click, btnFeld20.Click, btnFeld21.Click, btnFeld22.Click
      238. Belegen("X", CType(sender, Button))
      240. If CheckWin("X") Then
      241. Sieg("X")
      242. Exit Sub
      243. End If
      245. If Zug < 9 Then : Computergegner()
      246. Else : Unentschieden()
      247. End If
      249. End Sub
      251. 'Reset Button
      252. Private Sub btnNaechsteRunde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNaechsteRunde.Click
      253. Reset()
      254. 'Reset-Knopf verbergenbtnReset.Visible = False
      255. 'Die Runde um 1 erhöhen
      256. lblsRunde.Text += 1
      257. End Sub
      259. 'Menü
      260. Private Sub tmrZeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrZeit.Tick
      261. lblsDate.Text = System.DateTime.Now
      262. End Sub
      264. Sub Reset()
      265. Dim ze, sp As Byte
      266. 'Runde und Zug
      267. lblsZugZahl.Text = "1"
      268. Zug = 1
      270. For ze = 0 To 2
      271. For sp = 0 To 2
      272. With Felder(ze, sp)
      273. .Text = " "
      274. .Enabled = True
      275. End With
      276. Next
      277. Next
      279. Zug1 = ComputerZug.Keiner
      280. End Sub
      281. 'Einen übergeben Button mit einem übergebenen Symbol belegen
      282. Sub Belegen(ByVal Sp As Char, ByRef Feld As Button)
      283. Feld.Text = Sp
      284. Feld.Enabled = False
      285. lblsZugZahl.Text += 1
      286. Zug += 1
      288. End Sub
      290. 'Wenn das Spiel Unentschieden Endet
      291. Sub Unentschieden()
      292. MessageBox.Show("Unentschieden", "Unentschieden")
      293. btnNaechsteRunde.Visible= True
      294. End Sub
      296. Private Sub btnNeuesSpiel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeuesSpiel.Click
      297. Reset()
      298. lblsRunde.Text = 1
      299. End Sub
      301. Private Sub Hintergrund(ByVal sender As Object, ByVal e as EventArgs) Handles btnHintergrund.Click
      302. If FarbenColorDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
      303. Me.BackColor = FarbenColorDialog.Color
      304. btnNaechsteRunde.BackColor = FarbenColorDialog.Color
      305. End If
      306. End Sub
      307. End Class



      Verbesserungs- und/oder Verkürzungs-vorschläge sind erwünscht, aber wenn möglich, bitte mit Erklärungen und/oder Beispielen.

      Danke im Voraus :D

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VB_Gamer“ ()

      @Pes1899.vb

      Weiß nicht, wieso es manchmal nicht reagiert. ?(

      Das man gegen es nicht gewinnen kann, ist falsch. Ich hab mal durch Zufall gegen es gewonnen. 2x. Wenn es das O zufällig setzt (siehe Code), hast du ne Chance.

      @alex2009

      Was meinst du mit Label-System? Was verstehst du nicht?

      Was meinst du mit Credits?

      powachill schrieb:

      Ich habe ständig das problem, dass ich nicht weiß welches Feld welches Feld ist usw.
      Sind die Namen nicht verständlich genug? Die Auflistung der Buttons ist wie folgt:

      (00) (01) (02)
      (10) (11) (12)
      (20) (21) (22)

      Mir ist natürlich sehr daran gelegen, dass alle, die das hier lesen, es auch kapieren. Sag mir aber genauer, was du meinst.

      EDIT: Code geändert: Button_Click-Events zu einem zusammengefasst, Combobox durch Button mit ColorDialog ersetzt. Kleinere Änderungen (Sub win() -> Function CheckWin(), Unentschieden-Abprüfung entfernt, ab jetzt ist dann unentschieden, wenn der Zug > 9 ist).

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

    Facebook
    Telefonspende