If casilla(fila1 – 2, columna1 + 2).ocupada = False Then
MsgBox("Se debe seguir comiendo.", MsgBoxStyle.OkOnly, "Juego de Damas") 'Mensaje para indicar que se debe seguir comiendo.
casilla(fila1, columna1).ocupada = False
casilla(fila1 – 2, columna1 + 2).ocupada = True
casilla(fila1, columna1).jugador = 0
casilla(fila1 – 2, columna1 + 2).jugador = 2
sender.Top = casilla(fila1 – 2, columna1 + 2).Top + 12.5
sender.Left = casilla(fila1 – 2, columna1 + 2).Left + 12.5
comer1(fila1 – 1, columna1 + 1)
'Código para comer triple (si fuera posible).
posibilidad_soplar() 'Actualizar valores y determinar si hay posibilidad de comer una tercera vez (que le soplen la ficha si no come) para el Jugador 1, luego de haber comido doble.
If fila1 – 2 = soplarfila2 And columna1 + 2 = soplarcolumna2 And soplar2 = True Then 'Si la ficha del Jugador 2 que acaba de terminar de comer doble tiene posibilidad de seguir comiendo o de comer triple (pues las variables la tienen amenazada de ser soplada).
comertriple2(CType(sender, Panel)) 'Se llama al procedimiento para verificar si el Jugador 1 puede seguir comiendo (comer triple).
End If
'Condición para controlar si con la comida doble la ficha se llega a coronar.
If fila1 = 2 Then
fila1 = 0 'Cuando una ficha del Jugador 2 está en la fila 1 (contando filas de arriba hacia abajo), se corona.
End If
End If
End If
End If
End If
End If
End If
variablemensaje = 0 'Se reinicia en 0 esta variable, que sirve para que solamente se entre a uno de los If anteriores para comer doble, no a los dos, pues o se come a la izquierda o se come a la derecha, pues no se puede comer a ambos lados en un solo movimiento.
End Sub
Private Sub comertriple1(ByVal sender As Panel) 'Procedimiento para que cuando el Jugador 1 haya comido una segunda ficha (comido doble), evaluar si hay oportunidad para que esa ficha siga comiendo una tercera vez (comer triple).
Dim variablemensaje = 0
If soplarfila1 < 6 Then 'Ese 6 equivale a decir fila 7 (pues el subíndice 0 es la fila 1). Esta condición se hace porque desde la fila 7 o desde la fila 8 (contando filas de arriba hacia abajo) ya no puede comer el Jugador 1, entonces en las evaluaciones daría problema el código con los subíndices, pues buscaría posiciones que no existen.
If soplar1 = True Then
'Para Jugador 1, comer hacia su derecha (izquierda de la pantalla).
If soplarcolumna1 > 1 Then
If casilla(soplarfila1 + 1, soplarcolumna1 – 1).jugador = 2 Then
If casilla(soplarfila1 + 2, soplarcolumna1 – 2).ocupada = False Then
MsgBox("Se debe seguir comiendo.", MsgBoxStyle.OkOnly, "Juego de Damas") 'Mensaje para indicar que se debe seguir comiendo.
casilla(soplarfila1, soplarcolumna1).ocupada = False
casilla(soplarfila1 + 2, soplarcolumna1 – 2).ocupada = True
casilla(soplarfila1, soplarcolumna1).jugador = 0
casilla(soplarfila1 + 2, soplarcolumna1 – 2).jugador = 1
sender.Top = casilla(soplarfila1 + 2, soplarcolumna1 – 2).Top + 12.5
sender.Left = casilla(soplarfila1 + 2, soplarcolumna1 – 2).Left + 12.5
comer1(soplarfila1 + 1, soplarcolumna1 – 1)
variablemensaje += 1
'Condición para controlar si con la comida doble la ficha se llega a coronar.
If fila1 = 5 Then
fila1 = 7 'Cuando una ficha del Jugador 1 está en la fila 8 (contando filas de arriba hacia abajo), se corona.
End If
End If
End If
End If
'Para Jugador 1, comer hacia su izquierda (derecha de la pantalla).
If variablemensaje = 0 Then 'Para que si ya comió doble con el If anterior, que ya no entre a este If.
If soplarcolumna1 < 6 Then
If casilla(soplarfila1 + 1, soplarcolumna1 + 1).jugador = 2 Then
If casilla(soplarfila1 + 2, soplarcolumna1 + 2).ocupada = False Then
MsgBox("Se debe seguir comiendo.", MsgBoxStyle.OkOnly, "Juego de Damas") 'Mensaje para indicar que se debe seguir comiendo.
casilla(soplarfila1, soplarcolumna1).ocupada = False
casilla(soplarfila1 + 2, soplarcolumna1 + 2).ocupada = True
casilla(soplarfila1, soplarcolumna1).jugador = 0
casilla(soplarfila1 + 2, soplarcolumna1 + 2).jugador = 1
sender.Top = casilla(soplarfila1 + 2, soplarcolumna1 + 2).Top + 12.5
sender.Left = casilla(soplarfila1 + 2, soplarcolumna1 + 2).Left + 12.5
comer1(soplarfila1 + 1, soplarcolumna1 + 1)
'Condición para controlar si con la comida doble la ficha se llega a coronar.
If soplarfila1 = 5 Then
fila1 = 7 'Cuando una ficha del Jugador 1 está en la fila 8 (contando filas de arriba hacia abajo), se corona.
End If
End If
End If
End If
End If
End If
End If
variablemensaje = 0 'Se reinicia en 0 esta variable, que sirve para que solamente se entre a uno de los If anteriores para comer doble, no a los dos, pues o se come a la izquierda o se come a la derecha, pues no se puede comer a ambos lados en un solo movimiento.
End Sub
Private Sub comertriple2(ByVal sender As Panel) 'Procedimiento para que cuando el Jugador 2 haya comido una segunda ficha (comido doble), evaluar si hay oportunidad para que esa ficha siga comiendo una tercera vez (comer triple).
Dim variablemensaje = 0
If soplarfila2 > 1 Then 'Ese 1 equivale a decir fila 2 (pues el subíndice 0 es la fila 1). Esta condición se hace porque desde la fila 0 o desde la fila 1 (contando filas de arriba hacia abajo) ya no puede comer el Jugador 2, entonces en las evaluaciones daría problema el código con los subíndices, pues buscaría posiciones que no existen.
If soplar2 = True Then
'Para Jugador 2, comer hacia su izquierda (izquierda de la pantalla).
If soplarcolumna2 > 1 Then
If casilla(soplarfila2 – 1, soplarcolumna2 – 1).jugador = 1 Then
If casilla(soplarfila2 – 2, soplarcolumna2 – 2).ocupada = False Then
MsgBox("Se debe seguir comiendo.", MsgBoxStyle.OkOnly, "Juego de Damas") 'Mensaje para indicar que se debe seguir comiendo.
casilla(soplarfila2, soplarcolumna2).ocupada = False
casilla(soplarfila2 – 2, soplarcolumna2 – 2).ocupada = True
casilla(soplarfila2, soplarcolumna2).jugador = 0
casilla(soplarfila2 – 2, soplarcolumna2 – 2).jugador = 2
sender.Top = casilla(soplarfila2 – 2, soplarcolumna2 – 2).Top + 12.5
sender.Left = casilla(soplarfila2 – 2, soplarcolumna2 – 2).Left + 12.5
comer1(soplarfila2 – 1, soplarcolumna2 – 1)
variablemensaje += 1
'Condición para controlar si con la comida doble la ficha se llega a coronar.
If soplarfila2 = 2 Then
fila1 = 0 'Cuando una ficha del Jugador 2 está en la fila 1 (contando filas de arriba hacia abajo), se corona.
End If
'End If
End If
End If
End If
'Para Jugador 2, comer hacia su derecha (derecha de la pantalla).
If variablemensaje = 0 Then 'Para que si ya comió doble con el If anterior, que ya no entre a este If.
If soplarcolumna2 < 6 Then
If casilla(soplarfila2 – 1, soplarcolumna2 + 1).jugador = 1 Then
If casilla(soplarfila2 – 2, soplarcolumna2 + 2).ocupada = False Then
MsgBox("Se debe seguir comiendo.", MsgBoxStyle.OkOnly, "Juego de Damas") 'Mensaje para indicar que se debe seguir comiendo.
casilla(soplarfila2, soplarcolumna2).ocupada = False
casilla(soplarfila2 – 2, soplarcolumna2 + 2).ocupada = True
casilla(soplarfila2, soplarcolumna2).jugador = 0
casilla(soplarfila2 – 2, soplarcolumna2 + 2).jugador = 2
sender.Top = casilla(soplarfila2 – 2, soplarcolumna2 + 2).Top + 12.5
sender.Left = casilla(soplarfila2 – 2, soplarcolumna2 + 2).Left + 12.5
comer1(soplarfila2 – 1, soplarcolumna2 + 1)
'Condición para controlar si con la comida doble la ficha se llega a coronar.
If soplarfila2 = 2 Then
fila1 = 0 'Cuando una ficha del Jugador 2 está en la fila 1 (contando filas de arriba hacia abajo), se corona.
End If
'End If
End If
End If
'End If
End If
End If
End If
End If
variablemensaje = 0 'Se reinicia en 0 esta variable, que sirve para que solamente se entre a uno de los If anteriores para comer doble, no a los dos, pues o se come a la izquierda o se come a la derecha, pues no se puede comer a ambos lados en un solo movimiento.
End Sub
End Class
Form1.vb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "Jugador" + Str(turno) 'Para que cuando se cargue el formulario, que intediatemente aparezca a quién le toca el turno de movimiento (que inicialmente será para el Jugador 1).
End Sub
Private Sub MOSTRARTABLEROToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MOSTRARTABLEROToolStripMenuItem.Click
Me.MOSTRARTABLEROToolStripMenuItem.Enabled = False 'Porque una vez mostrado el tablero, ya no se podrá pedir que se muestre otra vez.
Me.MOSTRARFICHASToolStripMenuItem.Enabled = True 'Lo que sí se podrá hacer es pedir que se muestren fichas.
Me.COLORDELTABLEROToolStripMenuItem.Enabled = True 'También se podrá dar color al tablero, una vez esté mostrado.
'Me.Panel1.Visible = True 'Se muestra el Panel1 (que muestra a quién le corresponde el movimiento).
Me.Panel2.Visible = True 'Se muestra el Panel2 (que muestra la posición a la que apunta el mouse en la matriz del tablero)
Me.Panel3.Visible = True 'Se muestra el Panel3 (que es para dibujar el tablero, fichas y donde se hacen las jugadas),
Me.GroupBox1.Visible = True 'Se muestra el GroupBox1 (que es para elegir los colores del tablero).
CASILLAS.color1 = Color.White 'Inicialmente la posición (0,0) del tablero, o la casilla superior izquierda, es de color blanco.
CASILLAS.color2 = Color.Black 'Inicialmente la posición (0,1) del tablero, la la casilla que está a la derecha de la casilla superior izquierda, es de color negro.
crear_cas() 'Se invoca el procedimiento público "crear_cas()", con lo cual se va a crear el tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
'Dependiendo de los colores que se tengan seleccionados, esos colores aparecerán escritos en los ComboBox.
Select Case CASILLAS.color1
Case Color.Blue
ComboBox1.Text = "Azul"
Case Color.White
ComboBox1.Text = "Blanco"
Case Color.Black
ComboBox1.Text = "Negro"
Case Color.Red
ComboBox1.Text = "Rojo"
Case Color.Green
ComboBox1.Text = "Verde"
End Select
Select Case CASILLAS.color2
Case Color.Blue
ComboBox2.Text = "Azul"
Case Color.White
ComboBox2.Text = "Blanco"
Case Color.Black
ComboBox2.Text = "Negro"
Case Color.Red
ComboBox2.Text = "Rojo"
Case Color.Green
ComboBox2.Text = "Verde"
End Select
End Sub
Private Sub MOSTRARFICHASToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MOSTRARFICHASToolStripMenuItem.Click
Me.MOSTRARFICHASToolStripMenuItem.Enabled = False 'Porque una vez mostradas las fichas, ya no se podrá pedir que se muestren otra vez.
Me.GroupBox2.Visible = True 'Para habilitar el cambio de fichas.
Me.GroupBox3.Visible = True 'Para habilitar la visualización del Jugador al que le corresponde el movimiento.
Me.ComboBox4.Text = "Pepsi"
Me.ComboBox3.Text = "Fanta"
crear_ficha() 'Se invoca el procedimiento público "crear_ficha()", con lo cual se van a crear las fichas sobre el tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
jugador1Label.Visible = True 'Para que ya con las fichas en el tablero, se muestre un Label que indique cuáles fichas le pertenecen al Jugador 1.
jugador2Label.Visible = True 'Para que ya con las fichas en el tablero, se muestre un Label que indique cuáles fichas le pertenecen al Jugador 2.
Me.txt_Jugador.Text = "Jugador 1"
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRToolStripMenuItem.Click
Me.Close() 'Equivale a escribir "End".
End Sub
Private Sub AzulToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AZULToolStripMenuItem.Click 'Procedimiento para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea azul.
If CASILLAS.color2 <> Color.Blue Then 'Si el color2 es diferente de Color.Blue, entonces el color1 se podrá poner Color.Blue. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Blue 'A la variable color1 de la clase CASILLAS se le asigna el color azul al escribir "Color.Blue".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Blue, no se va a permitir que el color1 sea también azul, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub BlancoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLANCOToolStripMenuItem.Click 'Procedimiento para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea blanco.
If CASILLAS.color2 <> Color.White Then 'Si el color2 es diferente de Color.White, entonces el color1 se podrá poner Color.White. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.White 'A la variable color1 de la clase CASILLAS se le asigna el color blanco al escribir "Color.White".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.White, no se va a permitir que el color1 sea también blanco, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub NegroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NEGROToolStripMenuItem.Click 'Procedimiento para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea negro.
If CASILLAS.color2 <> Color.Black Then 'Si el color2 es diferente de Color.Black, entonces el color1 se podrá poner Color.Black. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Black 'A la variable color1 de la clase CASILLAS se le asigna el color negro al escribir "Color.Black".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Black, no se va a permitir que el color1 sea también negro, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub RojoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ROJOToolStripMenuItem.Click 'Procedimiento para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea rojo.
If CASILLAS.color2 <> Color.Red Then 'Si el color2 es diferente de Color.Red, entonces el color1 se podrá poner Color.Red. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Red 'A la variable color1 de la clase CASILLAS se le asigna el color rojo al escribir "Color.Red".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Red, no se va a permitir que el color1 sea también rojo, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub VerdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VERDEToolStripMenuItem.Click 'Procedimiento para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea verde.
If CASILLAS.color2 <> Color.Green Then 'Si el color2 es diferente de Color.Green, entonces el color1 se podrá poner Color.Green. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Green 'A la variable color1 de la clase CASILLAS se le asigna el color verde al escribir "Color.Green".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Green, no se va a permitir que el color1 sea también verde, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub AzulToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AZULToolStripMenuItem1.Click 'Procedimiento para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea azul.
If CASILLAS.color1 <> Color.Blue Then 'Si el color1 es diferente de Color.Blue, entonces el color2 se podrá poner Color.Blue. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Blue 'A la variable color2 de la clase CASILLAS se le asigna el color azul al escribir "Color.Blue".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Blue, no se va a permitir que el color2 sea también azul, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub BlancoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLANCOToolStripMenuItem1.Click 'Procedimiento para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea blanco.
If CASILLAS.color1 <> Color.White Then 'Si el color1 es diferente de Color.White, entonces el color2 se podrá poner Color.White. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.White 'A la variable color2 de la clase CASILLAS se le asigna el color blanco al escribir "Color.White".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.White, no se va a permitir que el color2 sea también blanco, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub NegroToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NEGROToolStripMenuItem1.Click 'Procedimiento para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea negro.
If CASILLAS.color1 <> Color.Black Then 'Si el color1 es diferente de Color.Black, entonces el color2 se podrá poner Color.Black. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Black 'A la variable color2 de la clase CASILLAS se le asigna el color negro al escribir "Color.Black".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Black, no se va a permitir que el color2 sea también negro, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub RojoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ROJOToolStripMenuItem1.Click 'Procedimiento para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea rojo.
If CASILLAS.color1 <> Color.Red Then 'Si el color1 es diferente de Color.Red, entonces el color2 se podrá poner Color.Red. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Red 'A la variable color2 de la clase CASILLAS se le asigna el color rojo al escribir "Color.Red".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Red, no se va a permitir que el color2 sea también rojo, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
Private Sub VerdeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VERDEToolStripMenuItem1.Click 'Procedimiento para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea verde.
If CASILLAS.color1 <> Color.Green Then 'Si el color1 es diferente de Color.Green, entonces el color2 se podrá poner Color.Green. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Green 'A la variable color2 de la clase CASILLAS se le asigna el color verde al escribir "Color.Green".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Green, no se va a permitir que el color2 sea también verde, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Sub
'Public Sub New()
' ' Llamada necesaria para el Diseñador de Windows Forms.
' InitializeComponent()
' ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
'End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedItem
Case "Azul" 'Para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea azul.
If CASILLAS.color2 <> Color.Blue Then 'Si el color2 es diferente de Color.Blue, entonces el color1 se podrá poner Color.Blue. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Blue 'A la variable color1 de la clase CASILLAS se le asigna el color azul al escribir "Color.Blue".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Blue, no se va a permitir que el color1 sea también azul, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Blanco" 'Para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea blanco.
If CASILLAS.color2 <> Color.White Then 'Si el color2 es diferente de Color.White, entonces el color1 se podrá poner Color.White. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.White 'A la variable color1 de la clase CASILLAS se le asigna el color blanco al escribir "Color.White".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.White, no se va a permitir que el color1 sea también blanco, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Negro" 'Para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea negro.
If CASILLAS.color2 <> Color.Black Then 'Si el color2 es diferente de Color.Black, entonces el color1 se podrá poner Color.Black. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Black 'A la variable color1 de la clase CASILLAS se le asigna el color negro al escribir "Color.Black".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Black, no se va a permitir que el color1 sea también negro, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Rojo" 'Para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea rojo.
If CASILLAS.color2 <> Color.Red Then 'Si el color2 es diferente de Color.Red, entonces el color1 se podrá poner Color.Red. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Red 'A la variable color1 de la clase CASILLAS se le asigna el color rojo al escribir "Color.Red".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Red, no se va a permitir que el color1 sea también rojo, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Verde" 'Para que el color1 de las casillas (casilla con posición (0,0) por ejemplo) sea verde.
If CASILLAS.color2 <> Color.Green Then 'Si el color2 es diferente de Color.Green, entonces el color1 se podrá poner Color.Green. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color1 = Color.Green 'A la variable color1 de la clase CASILLAS se le asigna el color verde al escribir "Color.Green".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color2 es Color.Green, no se va a permitir que el color1 sea también verde, entonces se manda el color respectivo.
MsgBox("El color 1 del tablero no puede ser igual que el color 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Select
'Dependiendo de los colores que se tengan seleccionados, esos colores aparecerán escritos en los ComboBox.
Select Case CASILLAS.color1
Case Color.Blue
ComboBox1.Text = "Azul"
Case Color.White
ComboBox1.Text = "Blanco"
Case Color.Black
ComboBox1.Text = "Negro"
Case Color.Red
ComboBox1.Text = "Rojo"
Case Color.Green
ComboBox1.Text = "Verde"
End Select
Select Case CASILLAS.color2
Case Color.Blue
ComboBox2.Text = "Azul"
Case Color.White
ComboBox2.Text = "Blanco"
Case Color.Black
ComboBox2.Text = "Negro"
Case Color.Red
ComboBox2.Text = "Rojo"
Case Color.Green
ComboBox2.Text = "Verde"
End Select
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.SelectedItem
Case "Azul" 'Para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea azul.
If CASILLAS.color1 <> Color.Blue Then 'Si el color1 es diferente de Color.Blue, entonces el color2 se podrá poner Color.Blue. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color2 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Blue 'A la variable color2 de la clase CASILLAS se le asigna el color azul al escribir "Color.Blue".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color1 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Blue, no se va a permitir que el color2 sea también azul, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Blanco" 'Para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea blanco.
If CASILLAS.color1 <> Color.White Then 'Si el color1 es diferente de Color.White, entonces el color2 se podrá poner Color.White. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.White 'A la variable color2 de la clase CASILLAS se le asigna el color blanco al escribir "Color.White".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.White, no se va a permitir que el color2 sea también blanco, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Negro" 'Para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea negro.
If CASILLAS.color1 <> Color.Black Then 'Si el color1 es diferente de Color.Black, entonces el color2 se podrá poner Color.Black. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Black 'A la variable color2 de la clase CASILLAS se le asigna el color negro al escribir "Color.Black".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Black, no se va a permitir que el color2 sea también negro, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Rojo" 'Para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea rojo.
If CASILLAS.color1 <> Color.Red Then 'Si el color1 es diferente de Color.Red, entonces el color2 se podrá poner Color.Red. De lo contrario no porque no estará bien que queden del mismo color tanto el color2 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Red 'A la variable color2 de la clase CASILLAS se le asigna el color rojo al escribir "Color.Red".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Red, no se va a permitir que el color2 sea también rojo, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
Case "Verde" 'Para que el color2 de las casillas (casilla con posición (0,0) por ejemplo) sea verde.
If CASILLAS.color1 <> Color.Green Then 'Si el color1 es diferente de Color.Green, entonces el color2 se podrá poner Color.Green. De lo contrario no porque no estará bien que queden del mismo color tanto el color1 como el color1 porque se va a ver todo el tablero de un solo color.
CASILLAS.color2 = Color.Green 'A la variable color2 de la clase CASILLAS se le asigna el color verde al escribir "Color.Green".
cambiar_color_casillas() 'Se invoca el procedimiento público "cambiar_color_casillas()", con lo cual se va a cambiar el color2 del tablero tablero. Este procedimiento se encuentra en el módulo llamado "PRINCIPAL".
Else 'Si el color1 es Color.Green, no se va a permitir que el color2 sea también verde, entonces se manda el color respectivo.
MsgBox("El color 2 del tablero no puede ser igual que el color 1.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End Select
'Dependiendo de los colores que se tengan seleccionados, esos colores aparecerán escritos en los ComboBox.
Select Case CASILLAS.color1
Case Color.Blue
ComboBox1.Text = "Azul"
Case Color.White
ComboBox1.Text = "Blanco"
Case Color.Black
ComboBox1.Text = "Negro"
Case Color.Red
ComboBox1.Text = "Rojo"
Case Color.Green
ComboBox1.Text = "Verde"
End Select
Select Case CASILLAS.color2
Case Color.Blue
ComboBox2.Text = "Azul"
Case Color.White
ComboBox2.Text = "Blanco"
Case Color.Black
ComboBox2.Text = "Negro"
Case Color.Red
ComboBox2.Text = "Rojo"
Case Color.Green
ComboBox2.Text = "Verde"
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mensaje As Integer 'Variable que almacenará el valor devuelto por la función MsgBox().
mensaje = MsgBox("Elegir fichas requiere terminar el juego actual. ¿Desea hacerlo?", vbYesNo, "Juego de Damas")
If mensaje = 6 Then 'La función MsgBox devuelve un valor, el cual ha sido almacenado en la variable "mensaje". Los valores devueltos pueden ser 1, 2, 3, 4, 5, 6 o 7. El valor 6 significa que se ha hecho clic en el botón Yes.
'Las siguientes 2 líneas son para que al reiniciar un juego, el primer turno sea para el Jugador 1.
TextBox1.Text = "Jugador 1"
turno = 1
ficha = New FICHAS 'Se inicializa un objeto de la clase FICHAS, el cual va a ser referenciado o utilizado mediante la variable "ficha". Esto se hace porque va a ser necesario usar el procedimiento comer1(indice1, indice2), el cual pertenece a la clase FICHAS.
For f = 0 To 7 '8 iteraciones, correspondientes a las 8 filas.
For c = 0 To 7 '8 iteraciones, correspondientes a las 8 columnas.
ficha.comer1(f, c) 'Se está utilizando el mismo procedimiento que sirve para comer fichas. Esto funcionará como si se comieran fichas en las 64 casillas (por eso los 2 ciclos For anidados), de manera que van a quedar vacías o sin ninguna ficha en el tablero.
casilla(f, c).jugador = 0 'Para que al reiniciar un juego, que primeramente todas las casillas se pongan como no pertenecientes a ningún jugador (a la ficha de ningún jugador), antes de crear las nuevas fichas sobre el tablero.
casilla(f, c).jugador = False 'Para que al reiniciar un juego, que primeramente todas las casillas se pongan como desocupadas o sin ninguna ficha sobre ellas.
soplar1 = False 'Para que no se tenga ninguna ficha pendiente por soplar al reiniciar un juego.
soplar2 = False 'Para que no se tenga ninguna ficha pendiente por soplar al reiniciar un juego.
Next
Next
'Con los 2 ciclos For anteriores (las 5 líneas de arriba) ya se tienen las 64 casillas sin fichas (el tablero sin fichas).
If ComboBox4.Text <> ComboBox3.SelectedItem Then 'Si se ha seleccionado una ficha diferente para cada jugador.
crear_ficha() 'Esta función se encuentra en el módulo PRINCIPAL, y lo que hace es crear las 12 fichas de cada jugador en las posiciones como para iniciar un nuevo juego.
Else 'Si se ha seleccionado la misma ficha para ambos jugadores.
MsgBox("La ficha del jugador 1 no puede ser igual que la del jugador 2.", MsgBoxStyle.OkOnly, "Juego de Damas")
End If
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
posibilidad_soplar() 'Debido a que el Timer1 tiene la propiedad Interval en 10, el procedimiento posibilidad_soplar() se estará ejecutando 100 veces por segundo (pues un Interval de 1000 es 1 segundo y un Interval de 10 son 10 milisegundos o 0.01 segundos), de modo que 100 veces por segundo se estará verificando si han posibilidad de comer por parte de cualquiera de los jugadores, y con ello se sabrá si hay posibilidad de soplar o no.
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'Para reiniciar las variables que dan a conocer si el Jugador 1 o el Jugador 2 tienen posibilidad de comer (y por lo tanto se les soplan las fichas si no comen). Al hacer esto no van a quedar en verdadero por jugadas anteriores, sino que casa 0.5 segundos (pues el Interval que se le ha programado al Timer2 es de 500) se van a estar ejecutando estas 2 líneas de código, mientras que el Timer1 se ejecutará 100 veces por segundo (pues se le ha programado la propiedad Interval = 10). Entonces continuamente se estará verificando si hay posibilidad de comer (y por tanto de soplar), y si no hubiese, casa medio minuto las variables se regresan a False y no quedan guardando True de jugadas anteriores.
soplar1 = False
soplar2 = False
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
AyudaForm.Show() 'Muestra el formulario de ayuda.
End Sub
End Class
PRINCIPAL.vb
Module PRINCIPAL
'Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
'Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
'Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cX As Integer, ByVal cY As Integer, ByVal wFlags As Integer) As Integer
'Const GWL_STYLE As Integer = (-16)
'Const WS_THICKFRAME As Integer = &H40000 ' Con borde redimensionable
'Const SWP_DRAWFRAME As Integer = &H20
'Const SWP_NOMOVE As Integer = &H2
'Const SWP_NOSIZE As Integer = &H1
'Const SWP_NOZORDER As Integer = &H4
Public casilla(7, 7) As CASILLAS 'Matriz que va a tener 64 elementos, correspondientes a cada una de las casillas del tablero.
Public f, c As Integer 'Variables públicas que hacen referencia a filas y columnas.
Public posx, posy As Integer 'Variables públicas que hacen referencia a las posiciones en el eje x y en el eje y.
Public ficha As FICHAS
Public corona As CORONAS
Public cposx, cposy As Integer
Public turno As Integer = 1
Public Jugador1(11) As Panel
Public Jugador2(11) As Panel
Public soplar1 As Boolean 'Para saber si se debe soplar o no una ficha al Jugador 1.
'Inicialmente se ponen las siguientes 2 variables en una posición en la que nunca podría haber una ficha: (0, 1), fila 0 y columna 1. Con esto no se pueden soplar piezas equivocadas inicialmente.
Public soplarfila1 As Integer = 0 'Para saber qué posición en las filas se le debe soplar al Jugador 1.
Public soplarcolumna1 As Integer = 1 'Para saber qué posición en las columnas se le debe soplar al Jugador 1.
Public soplar2 As Boolean 'Para saber si se debe soplar o no una ficha al Jugador 2.
| Página siguiente |