¿Como programar un juego en
red?
Para programar un
juego en red, se necesitan simples pasos, los cuales son los siguientes:
- Crear una pantalla de Servidor y una
pantalla de cliente. Esto para que el juego pueda sostenerse solo, y no
necesite que otro programa actúe como servidor.
- Establecer la conexión entre el
cliente y el servidor.
- Para enviar un comando, se debe
enviar una clave, que el programa que lo recibe lo interpretará como que
debe hacer una acción. Antes de realizar dicha acción debe informar al
origen, que ya recibió la orden y que procederá a ejecutarla, esto para si
el origen desea ejecutar alguna otra acción.
- Gestionar los posibles eventos en los dos programas: Cliente y servidor. Ya que si el cliente ganó, debe aparecer un mensaje de que ganó y en el programa servidor debe aparecer que perdió.
Programando el juego del
gato en red
Primeramente
debemos crear los siguientes controles:
-
9
botones de comando que serán el tablero del juego, los cuales estarán dentro de
un frame, llamado frame2.
-
Un
frame y dentro de él dos botones de opción y textos para gestionar puertos y
conexiones a IP. Además de botones de comando para aceptar y para cancelar.
Debe ser tal como
se muestra en la figura. Puede basarse en el código fuente proporcionado para
que sepa bien qué es lo que debe hacer.
En la parte
“LOAD” del formulario, colocar el siguiente código:
Option1.Value = True
Explicación: Establecemos que la opción 1 aparecerá elegida por
default.
En el botón
Option1, colocar el siguiente código:
If Option1.Value = True Then
Label2.Visible = False
Text2.Visible = False
Text3.Visible = False
Label4.Visible = False
Command11.Visible = False
Label1.Visible = True
Text1.Visible = True
Command10.Visible = True
Text4.Text = "X"
End If
Explicación: Indicamos que se activen los controles
correspondientes al servidor.
En el botón
Option2, colocar el siguiente código:
If Option2.Value = True
Then
Label2.Visible = True
Text2.Visible = True
Text3.Visible = True
Label4.Visible = True
Command11.Visible = True
Label1.Visible = False
Text1.Visible = False
Command10.Visible = False
Text4.Text = "O"
End If
Explicación: Indicamos que se activen los controles
correspondientes al cliente.
En el botón “OK”,
de servidor, colocar el siguiente código:
Winsock1.LocalPort = Text1.Text
Winsock1.Close
Winsock1.Listen
Frame1.Enabled = False
Frame2.Enabled = True
Command12.Visible
= True
Explicación: Ponemos el juego a la espera de conexiones
En el botón “OK”,
de cliente, colocar el siguiente código:
Winsock1.Connect
Text2.Text, Text3.Text
Frame1.Enabled
= False
Command12.Visible = True
Explicación: Con este código se establece la conexión Cliente a
Servidor.
En el botón “X”
colocar el siguiente código:
Winsock1.Close
Command12.Visible = False
Frame1.Enabled = True
Text1.Text
= ""
Text2.Text =
""
Text3.Text =
""
Explicación: En este código la conexión entre cliente y
servidor es cerrada.
En el control
Winsock1, en el evento ConnectionRequest, colocar el siguiente código:
Winsock1.Close
Winsock1.Accept
requestID
Explicación: El servidor acepta la conexión entrante.
En el control
winsock, en el evento DataArrival, colocar el siguiente código:
Dim datos As String
Winsock1.GetData datos
If
datos = "1" Then
Winsock1.SendData "recibido1"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command1.Caption = "X"
Else
Command1.Caption = "O"
End
If
End If
If
datos = "recibido1" Then
Command1.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "2" Then
Winsock1.SendData "recibido2"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command2.Caption = "X"
Else
Command2.Caption = "O"
End
If
End If
If
datos = "recibido2" Then
Command2.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "3" Then
Winsock1.SendData "recibido3"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command3.Caption
= "X"
Else
Command3.Caption = "O"
End
If
End If
If
datos = "recibido3" Then
Command3.Caption = Text4.Text
Frame2.Enabled = False
End
If
If
datos = "4" Then
Winsock1.SendData "recibido4"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command4.Caption = "X"
Else
Command4.Caption = "O"
End
If
End If
If
datos = "recibido4" Then
Command4.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "5" Then
Winsock1.SendData "recibido5"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command5.Caption = "X"
Else
Command5.Caption = "O"
End
If
End If
If
datos = "recibido5" Then
Command5.Caption = Text4.Text
Frame2.Enabled
= False
End If
If
datos = "6" Then
Winsock1.SendData "recibido6"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command6.Caption = "X"
Else
Command6.Caption = "O"
End
If
End If
If
datos = "recibido6" Then
Command6.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "7" Then
Winsock1.SendData "recibido7"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command7.Caption = "X"
Else
Command7.Caption = "O"
End
If
End If
If
datos = "recibido7" Then
Command7.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "8" Then
Winsock1.SendData "recibido8"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command8.Caption = "X"
Else
Command8.Caption = "O"
End
If
End If
If
datos = "recibido8" Then
Command8.Caption = Text4.Text
Frame2.Enabled = False
End If
If
datos = "9" Then
Winsock1.SendData "recibido9"
Frame2.Enabled = True
If
Text4.Text = "O" Then
Command9.Caption = "X"
Else
Command9.Caption = "O"
End
If
End If
If
datos = "recibido9" Then
Command9.Caption = Text4.Text
Frame2.Enabled = False
End
If
Explicación: En data arrival, llegan todos los datos que se
reciben y es aquí donde los procesamos.
Y por último en
el Timer1, colocar el siguiente código:
If Option1.Value = True And Winsock1.State = 2 Then
Label3.Caption
= "Puerto " & Winsock1.LocalPort & " abierto"
End If
If
Option1.Value = True And Winsock1.State = 7 Then
Label3.Caption
= "Conexión recibida y aceptada. Conexión establecida"
End If
If
Option2.Value = True And Winsock1.State = 7 Then
Label3.Caption
= "Conexión establecida con la IP: " & Winsock1.RemoteHostIP
End If
If Not
(Option1.Value = True And Winsock1.State = 2) And Not (Option2.Value = True And
Winsock1.State = 7) And Not (Option1.Value = True And Winsock1.State = 7) Then
Label3.Caption = ""
End If
If
Len(Command1.Caption) > 0 And Len(Command2.Caption) > 0 And
Len(Command3.Caption) > 0 And Len(Command4.Caption) > 0 And
Len(Command5.Caption) > 0 And Len(Command6.Caption) > 0 And
Len(Command7.Caption) > 0 And Len(Command8.Caption) > 0 And
Len(Command9.Caption) > 0 Then
limpiar
MsgBox
"Juego sin ganador", vbOKOnly, "Juego del gato en red"
End If
If
Command1.Caption = "X" And Command2.Caption = "X" And
Command3.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command1.Caption = "X" And Command4.Caption = "X" And
Command7.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command1.Caption = "X" And Command5.Caption = "X" And Command9.Caption
= "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command2.Caption = "X" And Command5.Caption = "X" And
Command8.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command3.Caption = "X" And Command5.Caption = "X" And
Command7.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command3.Caption = "X" And Command6.Caption = "X" And
Command9.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command4.Caption = "X" And Command5.Caption = "X" And
Command6.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command7.Caption = "X" And Command8.Caption = "X" And
Command9.Caption = "X" Then
If
Text4.Text = "X" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command1.Caption = "O" And Command2.Caption = "O" And
Command3.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command1.Caption = "O" And Command4.Caption = "O" And
Command7.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command1.Caption = "O" And Command5.Caption = "O" And
Command9.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command2.Caption = "O" And Command5.Caption = "O" And
Command8.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command3.Caption = "O" And Command5.Caption = "O" And
Command7.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command3.Caption = "O" And Command6.Caption = "O" And
Command9.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If Command4.Caption
= "O" And Command5.Caption = "O" And Command6.Caption =
"O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
If
Command7.Caption = "O" And Command8.Caption = "O" And
Command9.Caption = "O" Then
If
Text4.Text = "O" Then
MsgBox
"Has ganado el juego", vbOKOnly, "Juego del gato en red"
Else
MsgBox
"Has perdido el juego", vbOKOnly, "Juego del gato en red"
End If
limpiar
End If
Explicación: El timer es el que se encarga de verificar a cada
instante si ya hay un ganador o si el juego terminó sin ganador, y de acuerdo a
esto manda un mensaje de información.
Te recordamos que este y otros
códigos fuente, los puedes obtener de:
No hay comentarios.:
Publicar un comentario