Codigo del juego del gato
Private Sub win()
If UNO.Text = "x" And DOS.Text = "x" And TRES.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")End If
If CUATRO.Text = "x" And CINCO.Text = "x" And SEIS.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUADOR = X")
Else : End If
IfSIETE.Text = "x" And OCHO.Text = "x" And NUEVE.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")
Else : End If
If UNO.Text = "x" And CUATRO.Text ="x" And SIETE.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")
Else : End If
If DOS.Text = "x" And CINCO.Text = "x" And OCHO.Text = "x" ThenMessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")
Else : End If
If TRES.Text = "x" And SEIS.Text = "x" And NUEVE.Text = "x" ThenMessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")
Else : End If
If UNO.Text = "x" And CINCO.Text = "x" And NUEVE.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADORES EL JUGADOR = X")
Else : End If
If SIETE.Text = "x" And CINCO.Text = "x" And TRES.Text = "x" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X")End If
If UNO.Text = "0" And DOS.Text = "0" And TRES.Text = "0" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = O")
End If
If CUATRO.Text ="0" And CINCO.Text = "0" And SEIS.Text = "0" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUADOR = O")
Else : End If
If SIETE.Text = "0" And OCHO.Text = "0" AndNUEVE.Text = "0" Then
MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = O")
Else : End If
If UNO.Text = "0" And CUATRO.Text = "0" And SIETE.Text = "0" Then...
Regístrate para leer el documento completo.