Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Juego De Conecta 4 En Gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Juego De Conecta 4 En Gambas 
 
Hola quería pedir ayuda por que he tenido problemas para realizar un juego de conecta 4 en gambas .Este es el código de mi formulario start que es donde se lleva acabo toda la operación lógica del juego , quiero saber como guardar las fichas en cada turno hacer que no se pueda volver a tirar en ese lugar, se que tengo que igualar el array del tablero a 0 y si se ocupa un lugar igualarlo a 1 y/o -1 pero no se como plantearlo en mi programa si me pudieras ayudar te lo agradecería infinitamente aqui te dejo mi código completo , mi tablero esta hecho con 42 picture box y es un tablero de 6x7, para tirar cada ficha es necesario hacer un drag a la columna deseada y hacer click en el jugador en el turno que corresponda
graciaaaaas, espero puedan ayudarme.

 captura_de_pantalla_2017_05_08_a_las_20_03_48

attentamente
Aranza Marquez

' gambas class file

tab[6, 7] As Byte
tablero[6, 7] As Object
a[5] As Byte
turno As Byte

Public Sub Form_Open()
Dim x As Byte
Dim y As Byte

Button2.Enabled = False
p44.Enabled = False

tablero[0, 0] = p1
tablero[1, 0] = p8
tablero[2, 0] = p9
tablero[3, 0] = p10
tablero[4, 0] = p11
tablero[5, 0] = p14

tablero[0, 1] = p2
tablero[0, 2] = p3
tablero[0, 3] = p4
tablero[0, 4] = p5
tablero[0, 5] = p6
tablero[0, 6] = p7

tablero[1, 1] = p12
tablero[2, 1] = p13
tablero[3, 1] = p15
tablero[4, 1] = p16
tablero[5, 1] = p37

tablero[1, 2] = p17
tablero[2, 2] = p22
tablero[3, 2] = p27
tablero[4, 2] = p32
tablero[5, 2] = p38

tablero[1, 3] = p18
tablero[2, 3] = p23
tablero[3, 3] = p28
tablero[4, 3] = p33
tablero[5, 3] = p39

tablero[1, 4] = p19
tablero[2, 4] = p24
tablero[3, 4] = p29
tablero[4, 4] = p34
tablero[5, 4] = p40

tablero[1, 5] = p20
tablero[2, 5] = p25
tablero[3, 5] = p30
tablero[4, 5] = p35
tablero[5, 5] = p41

tablero[1, 6] = p21
tablero[2, 6] = p26
tablero[3, 6] = p31
tablero[4, 6] = p36
tablero[5, 6] = p42

p45.drop = True
p43.tag = "ficha1.png"
p43.picture = Picture["ficha1.png"]

p44.tag = "ficha2.png"
p44.picture = Picture["ficha2.png"]

For x = 0 To 5
For y = 0 To 6
tab[x, y] = 0
Next
Next
End

Public Sub p43_MouseDrag()
Drag.icon = Last.picture
p43.Drag(p43.tag)
End

Public Sub p44_MouseDrag()
Drag.icon = Last.picture
p44.Drag(p44.tag)
End

Public Sub p45_Drop()
Dim x As Byte
Dim y As Byte

p45.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 0].Picture = Picture[Drag.Data]

If x <> 0 Then
tablero[x - 1, 0].picture = Picture["tablero.png"]
End If

Wait 0.5
Next

End

Public Sub p46_Drop()
Dim x As Byte

p46.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 1].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 1].picture = Picture["tablero.png"]
End If
Wait 0.5
Next


End

Public Sub p47_Drop()
Dim x As Byte

p47.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 2].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 2].picture = Picture["tablero.png"]
End If
Wait 0.5
Next

End

Public Sub p48_Drop()
Dim x As Byte

p48.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 3].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 3].picture = Picture["tablero.png"]
End If
Wait 0.5
Next

End

Public Sub p49_Drop()
Dim x As Byte

p49.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 4].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 4].picture = Picture["tablero.png"]
End If
Wait 0.5
Next

End

Public Sub p50_Drop()
Dim x As Byte
Dim y As Byte
Dim t As Float

p50.Picture = Picture[Drag.Data]

For x = 0 To 5
tablero[x, 5].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 5].picture = Picture["tablero.png"]
End If
Wait 0.5
Next

End

Public Sub p51_Drop()
Dim x As Byte

p51.Picture = Picture[Drag.Data]
For x = 0 To 5
tablero[x, 6].Picture = Picture[Drag.Data]
If x <> 0 Then
tablero[x - 1, 1].picture = Picture["tablero.png"]
End If
Wait 0.5
Next
End

Public Sub Button3_Click()
Form2.Close()
Message.Info("Gracias por Jugar")
End

Public Sub Button1_Click()
Button1.Enabled = False
Button2.Enabled = True
p43.Enabled = True
p44.Enabled = False
End

Public Sub Button2_Click()
Button1.Enabled = True
Button2.Enabled = False
p43.Enabled = False
p44.Enabled = True

End

Public Sub Button4_Click()

Form2.Hide()
FMain.Show()

End
 



 
aranzama24 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Juego De Conecta 4 En Gambas 
 
Aranzama24, cuando digo subir el proyecto me referiero a pulsar en el IDE de gambas en el menú Proyecto->Crear->Archivo fuente. Esto te genera un pequeño fichero tu_proyecto.tar.gz que adjuntas al mensaje del foro. El código ya lo habías puesto en el otro hilo...

Saludos.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Conecta 4: Juego De Inteligencia Artificia... jsbsan Aplicaciones/Fragmentos de Código 1 Jueves, 17 Octobre 2013, 18:34 Ver último mensaje
jsbsan
No hay nuevos mensajes Juego De Las Palabras(ex Juego Del Cine) N... Dani26 Aplicaciones/Fragmentos de Código 1 Domingo, 11 Septiembre 2011, 05:44 Ver último mensaje
ivanovichenco
No hay nuevos mensajes Crear Un Juego De Memoria En Gambas gamasuser1093 Videotutoriales 2 Domingo, 30 Noviembre 2014, 10:16 Ver último mensaje
Shell
No hay nuevos mensajes Convertir Juego De Caracteres UTF-8 A Jueg... jsbsan General 15 Lunes, 10 Enero 2011, 19:21 Ver último mensaje
soplo
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario