ich hab da nochmal ne frage und zwar ich ahb ein Problem mit meinem TicTacToe Spiel und finde den Fehler nicht.
PHP Code:
Public Class Form1
Dim turn As Integer
Private Sub win()
If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
Else
If Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
Label2.Hide()
Label1.Text = "Spieler X hat gewonnen"
Label5.Text += 1
Call disablebuttons()
If Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
Else
If Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
Label2.Hide()
Label1.Text = "Spieler O hat gewonnen"
Label6.Text += 1
Call disablebuttons()
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub disablebuttons()
Button1.Enabled = (False)
Button2.Enabled = (False)
Button3.Enabled = (False)
Button4.Enabled = (False)
Button5.Enabled = (False)
Button6.Enabled = (False)
Button7.Enabled = (False)
Button8.Enabled = (False)
Button9.Enabled = (False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If turn = 0 Then
Button1.Text = "O"
Label1.Text = "X"
Else
Button1.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If turn = 0 Then
Button2.Text = "O"
Label1.Text = "X"
Else
Button2.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button2.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If turn = 0 Then
Button3.Text = "O"
Label1.Text = "X"
Else
Button3.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button3.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If turn = 0 Then
Button4.Text = "O"
Label1.Text = "X"
Else
Button4.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button4.Enabled = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If turn = 0 Then
Button5.Text = "O"
Label1.Text = "X"
Else
Button5.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button5.Enabled = False
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If turn = 0 Then
Button6.Text = "O"
Label1.Text = "X"
Else
Button6.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button6.Enabled = False
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If turn = 0 Then
Button7.Text = "O"
Label1.Text = "X"
Else
Button7.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button7.Enabled = False
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If turn = 0 Then
Button8.Text = "O"
Label1.Text = "X"
Else
Button8.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button8.Enabled = False
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If turn = 0 Then
Button9.Text = "O"
Label1.Text = "X"
Else
Button9.Text = "X"
Label1.Text = "O"
End If
turn += 1
If turn > 2 Then
turn = 1
End If
Call win()
Button9.Enabled = False
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Button1.Text = ""
Button1.Enabled = True
Button2.Text = ""
Button2.Enabled = True
Button3.Text = ""
Button3.Enabled = True
Button4.Text = ""
Button4.Enabled = True
Button5.Text = ""
Button5.Enabled = True
Button6.Text = ""
Button6.Enabled = True
Button7.Text = ""
Button7.Enabled = True
Button8.Text = ""
Button8.Enabled = True
Button9.Text = ""
Button9.Enabled = True
Label2.Show()
Label1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Also das Problem ist das wenn ich das SPiel starte das dann wenn ich auf den 1. Button drücke das dann nur noch X kommt bei Klicken auf die Button ich lade auch noch das Programm hoch .
Kann mir jemand helfen hab auch teamviewer.