--Originally published at Quirino´s Projects
I once made a tictactoe game, pretty proud of it.
Lost visual evidence, too lazy to make the buttons again, lucky i had a backup of just the code
I dont know how copyright works in code but well, i made the whole thing
Public Class TicTacToe Dim A As Char Dim B As Char Dim c As String Function xo(Button As Char) As Char If A = "x" Then B = "o" A = "o" ElseIf A <> "x" Then B = "x" A = "x" End If Return B End Function Function win() As String If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button1.Text <> "" Then c = "Gana " & A End If If Button4.Text = Button5.Text And Button5.Text = Button6.Text And Button4.Text <> "" Then c = "Gana " & A End If If Button7.Text = Button8.Text And Button8.Text = Button9.Text And Button7.Text <> "" Then c = "Gana " & A End If If Button1.Text = Button4.Text And Button4.Text = Button7.Text And Button1.Text <> "" Then c = "Gana " & A End If If Button2.Text = Button5.Text And Button5.Text = Button8.Text And Button2.Text <> "" Then c = "Gana " & A End If If Button3.Text = Button6.Text And Button6.Text = Button9.Text And Button3.Text <> "" Then c = "Gana " & A End If If Button1.Text = Button5.Text And Button5.Text = Button9.Text And Button9.Text <> "" Then c = "Gana " & A End If If Button3.Text = Button5.Text And Button5.Text = Button7.Text And Button3.Text <> "" Then c = "Gana& A End If If c = "Gana " & A Then 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 If Return c End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Button1.Text = xo(Button1.Text) Button1.Enabled = False Label1.Text = win() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Button2.Text = xo(Button2.Text) Button2.Enabled = False Label1.Text = win() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Button3.Text = xo(Button3.Text) Button3.Enabled = False Label1.Text = win() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Button4.Text = xo(Button4.Text) Button4.Enabled = False Label1.Text = win() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Button5.Text = xo(Button5.Text) Button5.Enabled = False Label1.Text = win() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Button6.Text = xo(Button6.Text) Button6.Enabled = False Label1.Text = win() End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Button7.Text = xo(Button7.Text) Button7.Enabled = False Label1.Text = win() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Button8.Text = xo(Button8.Text) Button8.Enabled = False Label1.Text = win() End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click Button9.Text = xo(Button9.Text) Button9.Enabled = False Label1.Text = win() End Sub Private Sub Nuevo_Click(sender As Object, e As EventArgs) Handles Nuevo.Click Button1.Text = "" Button2.Text = "" Button3.Text = "" Button4.Text = "" Button5.Text = "" Button6.Text = "" Button7.Text = "" Button8.Text = "" Button9.Text = "" Button1.Enabled = True Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True Button6.Enabled = True Button7.Enabled = True Button8.Enabled = True Button9.Enabled = True Label1.Text = "" c = "" If A = "x" Then Label2.Text = "Comienza " & "o" Else Label2.Text = "Comienza " & "x" End If End Sub Private Sub TicTacToe_Load(sender As Object, e As EventArgs) Handles MyBase.Load If A = "x" Then Label2.Text = "Comienza " & "o" Else Label2.Text = "Comienza " & "x" End If End Sub End Class
