Juego de x0 vb.net

-
Hola en este ejemplo de visual studio crearemos  el juego de xo.



Tambien conocido como el: tres en línea,  tres en raya, juego del gato, tatetí, triqui, totito, triqui traka, tres en gallo, michi, ceritos, equis cero o la vieja, es un juego de lápiz y papel entre dos jugadores: O y X, que marcan los espacios de un tablero de 3×3 alternadamente. Un jugador gana si consigue tener una línea de tres de sus símbolos: la línea puede ser horizontal, vertical o diagonal.
Mas info: wiki

aqui un video en el cual lo crean y juegan:


Básicamente consiste en intentar poner 3 x seguidas o 3 ceros seguidos vertical u horizontalmente.
Nota en el vídeo lo juegan dos dos 0 de diferente color aqui lo aremos con una x y un 0


Una vez entendiendo como jugarlo pasemos al diseño


Como puede observarce se nesecitara de 3 labels( label3 sin texto) 9 PictureBox los cuales en la imagen se muestra el orden como deben ir osea PictureBox1, PictureBox2, PictureBox3 asi sucesivamente hasta el 9 y dos botones

Una vez colocado el diseño ocuparemos las siguientes imágenes para los PictureBox:



Ya con la adquisición de las imágenes pasamos al código.

Aquí el código:


Public Class Form1







'Definiendo variables







Dim turno As String







Dim contX, contY, contTurnos As Integer















Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click







turnoo(1, turno)







End Sub















Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load







'iniciando variables y diseño de los labels







contX = 0







contY = 0







contTurnos = 0







Label1.Text = "X: 0"







Label2.Text = "O: 0"







Button2.Enabled = False







turno = "x"







Label3.Text = "Turno de " + turno















'asignando imagen inicial a los PictureBoxs







PictureBox1.ImageLocation = "appletenhtml.png"







PictureBox1.Load()















PictureBox2.ImageLocation = "appletenhtml.png"







PictureBox2.Load()















PictureBox3.ImageLocation = "appletenhtml.png"







PictureBox3.Load()















PictureBox4.ImageLocation = "appletenhtml.png"







PictureBox4.Load()















PictureBox5.ImageLocation = "appletenhtml.png"







PictureBox5.Load()















PictureBox6.ImageLocation = "appletenhtml.png"







PictureBox6.Load()















PictureBox7.ImageLocation = "appletenhtml.png"







PictureBox7.Load()















PictureBox8.ImageLocation = "appletenhtml.png"







PictureBox8.Load()















PictureBox9.ImageLocation = "appletenhtml.png"







PictureBox9.Load()























Cursor = Cursors.Hand















End Sub















'Editando el sub turnoo para actualizar la ventana







'segun cada turno







Public Sub turnoo(img As Integer, turn As String)







Dim im As String















If turn = "x" Then







im = "x.png"







turno = "o"







Else







im = "o.png"







turno = "x"







End If















Label3.Text = "Turno de " + turno























'actualizando picturebox segun turno dado







If img = 1 Then







PictureBox1.ImageLocation = im







PictureBox1.Load()







PictureBox1.Enabled = False







ElseIf img = 2 Then







PictureBox2.ImageLocation = im







PictureBox2.Load()







PictureBox2.Enabled = False







ElseIf img = 3 Then







PictureBox3.ImageLocation = im







PictureBox3.Load()







PictureBox3.Enabled = False







ElseIf img = 4 Then







PictureBox4.ImageLocation = im







PictureBox4.Load()







PictureBox4.Enabled = False







ElseIf img = 5 Then







PictureBox5.ImageLocation = im







PictureBox5.Load()







PictureBox5.Enabled = False







ElseIf img = 6 Then







PictureBox6.ImageLocation = im







PictureBox6.Load()







PictureBox6.Enabled = False







ElseIf img = 7 Then







PictureBox7.ImageLocation = im







PictureBox7.Load()







PictureBox7.Enabled = False







ElseIf img = 8 Then







PictureBox8.ImageLocation = im







PictureBox8.Load()







PictureBox8.Enabled = False







ElseIf img = 9 Then







PictureBox9.ImageLocation = im







PictureBox9.Load()







PictureBox9.Enabled = False















End If















'aumentamos el contador de turno para saber cuantos turnos van







contTurnos = contTurnos + 1







'comprobando ganador si lo hay aviso si no continua







comprobando()















End Sub















Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click







turnoo(2, turno)







End Sub















Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click







turnoo(3, turno)







End Sub















Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click







turnoo(4, turno)







End Sub















Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click







turnoo(5, turno)







End Sub















Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click







turnoo(6, turno)







End Sub















Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click







turnoo(7, turno)







End Sub















Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click







turnoo(8, turno)







End Sub















Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click







turnoo(9, turno)







End Sub















'Edtando sub comprobando el cual es para comprobar si hay algun







'ganador







Public Sub comprobando()







'Posibles convinaciones de turnos:







If PictureBox1.ImageLocation = "x.png" And PictureBox2.ImageLocation = "x.png" And PictureBox3.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox4.ImageLocation = "x.png" And PictureBox5.ImageLocation = "x.png" And PictureBox6.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox7.ImageLocation = "x.png" And PictureBox8.ImageLocation = "x.png" And PictureBox9.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox1.ImageLocation = "x.png" And PictureBox5.ImageLocation = "x.png" And PictureBox9.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If























If PictureBox3.ImageLocation = "x.png" And PictureBox5.ImageLocation = "x.png" And PictureBox7.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If































If PictureBox1.ImageLocation = "x.png" And PictureBox4.ImageLocation = "x.png" And PictureBox7.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox2.ImageLocation = "x.png" And PictureBox5.ImageLocation = "x.png" And PictureBox8.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If























If PictureBox3.ImageLocation = "x.png" And PictureBox6.ImageLocation = "x.png" And PictureBox9.ImageLocation = "x.png" Then







contX = contX + 1







Label1.Text = "X: " + CStr(contX)







Button2.Enabled = True







contTurnos = 0







stp()







End If































'--------







If PictureBox1.ImageLocation = "o.png" And PictureBox2.ImageLocation = "o.png" And PictureBox3.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox4.ImageLocation = "o.png" And PictureBox5.ImageLocation = "o.png" And PictureBox6.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox7.ImageLocation = "o.png" And PictureBox8.ImageLocation = "o.png" And PictureBox9.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If







'...........







If PictureBox1.ImageLocation = "o.png" And PictureBox5.ImageLocation = "o.png" And PictureBox9.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox3.ImageLocation = "o.png" And PictureBox5.ImageLocation = "o.png" And PictureBox7.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







stp()







contTurnos = 0







End If















If PictureBox1.ImageLocation = "o.png" And PictureBox4.ImageLocation = "o.png" And PictureBox7.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox2.ImageLocation = "o.png" And PictureBox5.ImageLocation = "o.png" And PictureBox8.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If















If PictureBox3.ImageLocation = "o.png" And PictureBox6.ImageLocation = "o.png" And PictureBox9.ImageLocation = "o.png" Then







contY = contY + 1







Label2.Text = "O: " + CStr(contY)







Button2.Enabled = True







contTurnos = 0







stp()







End If







'en caso no alla ninguna convincion de triunfo si el contador







'llega a 9 es porque no ubo ganador por lo que pasara a







'cargar otra partida







If contTurnos = 9 Then







otraPrtida()







End If







'-







End Sub















'el sub stop funcionara para detener los movimientos







Public Sub stp()







PictureBox1.Enabled = False







PictureBox2.Enabled = False







PictureBox3.Enabled = False







PictureBox4.Enabled = False







PictureBox5.Enabled = False







PictureBox6.Enabled = False







PictureBox7.Enabled = False







PictureBox8.Enabled = False







PictureBox9.Enabled = False























End Sub















'el sub otaPrtida iniciara una nueva partida







Sub otraPrtida()







'turno = "x"







' Label3.Text = "Turno de " + turno















PictureBox1.ImageLocation = "appletenhtml.png"







PictureBox1.Load()















PictureBox2.ImageLocation = "appletenhtml.png"







PictureBox2.Load()















PictureBox3.ImageLocation = "appletenhtml.png"







PictureBox3.Load()















PictureBox4.ImageLocation = "appletenhtml.png"







PictureBox4.Load()















PictureBox5.ImageLocation = "appletenhtml.png"







PictureBox5.Load()















PictureBox6.ImageLocation = "appletenhtml.png"







PictureBox6.Load()















PictureBox7.ImageLocation = "appletenhtml.png"







PictureBox7.Load()















PictureBox8.ImageLocation = "appletenhtml.png"







PictureBox8.Load()















PictureBox9.ImageLocation = "appletenhtml.png"







PictureBox9.Load()















PictureBox1.Enabled = True







PictureBox2.Enabled = True







PictureBox3.Enabled = True







PictureBox4.Enabled = True







PictureBox5.Enabled = True







PictureBox6.Enabled = True







PictureBox7.Enabled = True







PictureBox8.Enabled = True







PictureBox9.Enabled = True















Cursor = Cursors.Hand







Button2.Enabled = False







contTurnos = 0







End Sub







'boton para utilizar la funcion otraPrtida







Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click







otraPrtida()







End Sub































'el Button1 lo utilizaremos para terminar y ver si ubo un ganador







Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click







If contX > contY Then







MsgBox("felicidades x as ganado")







ElseIf contX < contY Then







MsgBox("felicidades o as ganado")







Else







MsgBox("ubo un empate")







End If















contX = 0







contY = 0







Label1.Text = "X: 0"







Label2.Text = "O: 0"







otraPrtida()







End Sub















End Class






Comentarios

Publicar un comentario

Entradas más populares de este blog

Ejemplo de suma Pascal

-
Imagen
Aquí muestro un ejemplo simple de suma en pascal en el cual pide introducir dos números para luego sumarlos y mostrar el resultado : Program P3AE4 (input,output); uses crt; Var num1, num2, total: Integer; Begin writeln('Suma'); writeln('Ingrese el primer numero:'); readln(num1); writeln('Ingrese el segundo numero:'); readln(num2); total:= num1+num2; writeln('El total de la suma es: ',total); readkey; End. Si quiere restar, multiplicar o dividir solo deberían cambiar el símbolo "+" por el deseado. Descargar código: link Turbo Pascal
Read more »

Solucion al error collation desconocida: 'utf8mb4_0900_ai_ci'

-
Imagen
Exportando una base de datos en Ubuntu al querer impórtala por medio de phpmyadmin no se importa y muestra el siguiente error: collation desconocida: 'utf8mb4_0900_ai_ci' Para solucionar el problema y poder importar la base de datos deberás de abrirla por medio de tu editor de código y remplazar el texto " utf8mb4_0900_ai_ci " por " utf8mb4_general_ci " guardas la base de datos y al intentar importarla de nuevo ya te tiene que pasar. Solución hallada en:  https://www.freakyjolly.com/resolved-when-i-faced-1273-unknown-collation-utf8mb4_0900_ai_ci-error/#.X5wu14hKiUk
Read more »