▷ Juego de tres en raya en Visual Basic 6.0 - jugador vs jugador.

Restricciones de Entrada

Al iniciar el programa, los jugadores deben ingresar sus nombres. El sistema valida que solo se permitan letras (mayúsculas o minúsculas) y la letra Ñ. No se aceptan números ni caracteres especiales.

Código de Validación:

' TextBox donde ingresaremos el nombre del primer jugador
Private Sub playerOneInput_KeyPress(KeyAscii As Integer)
    KeyAscii = Verificar_Tecla(KeyAscii)
End Sub

' TextBox donde ingresaremos el nombre del segundo jugador
Private Sub playerTwoInput_KeyPress(KeyAscii As Integer)
    KeyAscii = Verificar_Tecla(KeyAscii)
End Sub

Función de Verificación:

' Verificamos que tecla se ha pulsado
Function Verificar_Tecla(Tecla_Presionada)
    
  Dim Teclas As String
  
  ' Definimos los caracteres permitidos que podremos ingresar al textbox
  Teclas = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz" & Chr(vbKeyBack)
  
  ' Si el carácter es permitido entonces se mostrará en el textbox caso contrario no
  If InStr(1, Teclas, Chr(Tecla_Presionada)) Then
     Verificar_Tecla = Tecla_Presionada
  Else
     Verificar_Tecla = 0
  End If
    
End Function

Funcionamiento de las Celdas

El tablero está formado por 9 botones (índices 0 a 8) organizados en una matriz 3x3. Cada celda alterna entre "O" y "X" mediante una variable de control llamada X (que funciona como switch).

Código de una Celda:

Private Sub cell_Click(Index As Integer)
    
    ' X es un switch: 0 = Jugador 1 (O), 1 = Jugador 2 (X)
    If (X = 0) Then
        
        ' Mostrar O en la celda
        cell(Index).Caption = "O"
        cell(Index).Enabled = False  ' Desactivar la celda
        X = 1                           ' Cambiar de turno
        
    Else
        
        ' Mostrar X en la celda
        cell(Index).Caption = "X"
        cell(Index).Enabled = False  ' Desactivar la celda
        X = 0                           ' Cambiar de turno
        
    End If
    
    ' Verificar si hay ganador
    verify
    
End Sub

Lógica de Comprobación

Se verifican 8 combinaciones ganadoras: 3 filas, 3 columnas y 2 diagonales. El array results almacena los índices de las celdas para cada combinación.

Inicialización del Array de Combinaciones:

' Filas
results(0, 0) = 0: results(0, 1) = 1: results(0, 2) = 2  ' Fila 1
results(1, 0) = 3: results(1, 1) = 4: results(1, 2) = 5  ' Fila 2
results(2, 0) = 6: results(2, 1) = 7: results(2, 2) = 8  ' Fila 3

' Columnas
results(3, 0) = 0: results(3, 1) = 3: results(3, 2) = 6  ' Columna 1
results(4, 0) = 1: results(4, 1) = 4: results(4, 2) = 7  ' Columna 2
results(5, 0) = 2: results(5, 1) = 5: results(5, 2) = 8  ' Columna 3

' Diagonales
results(6, 0) = 0: results(6, 1) = 4: results(6, 2) = 8  ' Diagonal principal
results(7, 0) = 2: results(7, 1) = 4: results(7, 2) = 6  ' Diagonal inversa

Función de Verificación:

Private Sub verify()
    
    ' Recorrer las 8 combinaciones ganadoras
    For row = 0 To 7
        
        ' Verificar si el Jugador 1 (O) ganó
        If cell(results(row, 0)).Caption = "O" And _
           cell(results(row, 1)).Caption = "O" And _
           cell(results(row, 2)).Caption = "O" Then
            
            infoLabelp1 = infoLabelp1 + 1
            infoLabel.Caption = playerOneName & " ES EL GANADOR"
            clear
            
        ' Verificar si el Jugador 2 (X) ganó
        ElseIf cell(results(row, 0)).Caption = "X" And _
               cell(results(row, 1)).Caption = "X" And _
               cell(results(row, 2)).Caption = "X" Then
            
            infoLabelp2 = infoLabelp2 + 1
            infoLabel.Caption = playerTwoName & " ES EL GANADOR"
            clear
            
        End If
        
    Next
    
    ' Verificar si es empate (todas las celdas llenas)
    If cell(0).Caption <> "" And cell(1).Caption <> "" And _
       cell(2).Caption <> "" And cell(3).Caption <> "" And _
       cell(4).Caption <> "" And cell(5).Caption <> "" And _
       cell(6).Caption <> "" And cell(7).Caption <> "" And _
       cell(8).Caption <> "" Then
        
        infoLabel.Caption = "ES UN EMPATE"
        clear
        
    End If
    
End Sub

Gestión Centralizada del Tablero

Esta función maneja el estado de todas las celdas con un único parámetro:

Function gameCells(condition)
    
    Dim i As Integer
    
    ' Desactivar todas las celdas
    If (condition = "disable") Then
        For i = 0 To cell.Count - 1
            cell(i).Enabled = False
        Next
        
    ' Activar todas las celdas
    ElseIf (condition = "enable") Then
        For i = 0 To cell.Count - 1
            cell(i).Enabled = True
        Next
        
    ' Limpiar todas las celdas
    ElseIf (condition = "clear") Then
        For i = 0 To cell.Count - 1
            cell(i).Caption = ""
        Next
    End If
    
End Function