Recién comense el proyecto y esta plagado de errores y código basura pero soy novato y estoy aprendiendo voy a subir lo que he hecho, si alguien le interesa y le hace mejoras me gustaría que las subieran también. gracias
Sobre el tenis de mesa:
Reglas de juego en Tenis de Mesa
En resumen:
un partido de tenis de mesa esta compuesto por juegos o set de 11 tantos cada uno, pueden ser solo números impares los set o juegos (1,3,5,7,9)
sacando dos tantos cada uno sin importar quien gane el tanto. el partido lo gana quien gane 1 de 1, 2 de 3 set, 3 de 5 set, 4 de 7 set o 5 de 9 set.
gana el que llega a 11 tantos primero, si hay empate en 10 (10 a 10 ) se hace un alargue y el que saque diferencia de dos tantos gana, sacando una vez cada uno sin importar quien gano el tanto. ejemplo 15-13
Antes de comenzar el partido se hace un sorteo con una moneda, el jugador que gana elige cancha o saque (servidor)
Videos para que observen tanteadores de television:
http://www.youtube.com/watch?v=-ludlWEnTVs
http://www.youtube.com/watch?v=mvyen7l3U5Y
Tres cosas importantes faltan:
una: es terminar el proyecto que funcione bien
dos: que se ponga en pantalla completa
se trata de que todos los botones, texbox, label se agranden y mantengan la proporcion, se hace con las herramientas de Container, pero yo aun no domino estos elementos, esto podria ser una tarea en particular para que alguien la resolviera, no se solo comento.
tres: que se pueda ir para atrás y para adelante en los tantos manteniendo todo como estaba antes por si el que anota se equivoca.
Nota: este post es estrategico: Como Crear Grupos De Trabajo Para Hacer Proyectos De Programación...
http://foro.gambas-es.org/viewtopic.php?f=7&t=2799
Dropbox: Tanteador-0.0.3
Dropbox: Tanteador-0.0.4.tar.gz
Tanteador-0.0.6.tar.gz
mejoras en el código, muchas correcciones de errores, nuevas lineas de código que me acercan a resolver los dos problemas expuesto en este post.
Tanteador-0.0.7.tar.gz
Dropbox: Tanteador-0.0.8.tar.gz
(ahora el boton saque indica adecuadamente quien saca en cada nuevo set)problema 2 resuelto.
Dropbox: Tanteador-0.0.9.tar.gz
problema 1 resuelto ( bueno por primera vez el programa toma color y esta funcionando, aun hay pequeños detalles que corregir pero FUNCIONAAAAAA!!!!)
DEJO UN PAQUETE DE INSTALACION DEB AQUI: gambas3-tanteador_0.0.1-0ubuntu1_all.deb (ubuntu, mint)
Link
Problemas sin resolver en donde vos podes colaborar:
1- el botón que indica quien saca no marca adecuadamente cuando están en el alargue.(se gana el alargue cuando uno de los dos jugadores saca una diferencia de dos tantos, 10 a 12 por ejemplo, y saca un tanto cada jugador cuando comienza un alargue que es a partir de estar empatados 10 a 10)
2- el boton que indica quien saca no marca correctamente cuando comienza un nuevo set. (en un partido a 5 set o juegos en donde empieza sacando el jugador 1, en el set 2 empieza sacando el jugador 2, en el set 3 comienza sacando el jugador 1 y así sucesivamente.)
Public Sub QuienSacaENnuevoSet()
If configuracion.servidorinicio = 1 Then
Print "servidorinicio es: 1 ", configuracion.servidorinicio
If juegos = 3 Then
Print "juegos=3 ", juegos
Print "juegoactual= ", juegoactual
Select Case juegoactual
Case 1
servidor = 1
Case 2
servidor = 2
Case 3
servidor = 1
Print "saca el servidor: ", servidor
End Select
Endif
If juegos = 5 Then
Print "juegos=5"
Select Case juegoactual
Case 1
servidor = 1
Case 2
servidor = 2
Case 3
servidor = 1
Case 4
servidor = 2
Case 5
servidor = 1
Print "saca el servidor: ", servidor
End Select
Endif
If juegos = 7 Then
Print "juegos=7"
Select Case juegoactual
Case 1
servidor = 1
Case 2
servidor = 2
Case 3
servidor = 1
Case 4
servidor = 2
Case 5
servidor = 1
Case 6
servidor = 2
Case 7
servidor = 1
Print "saca el servidor: ", servidor
End Select
Endif
Endif
If configuracion.servidorinicio = 2 Then
Print "juegos es: ", juegos
Print "juegoactual es: ", juegoactual
Print "servidorinicio es: 2 ", configuracion.servidorinicio
If juegos = 3 Then
Print "juegos=3 ", juegos
Print "juegoactual= ", juegoactual
Select Case juegoactual
Case 1
servidor = 2
Case 2
servidor = 1
Case 3
servidor = 2
Print "saca el servidor: ", servidor
End Select
Endif
If juegos = 5 Then
Print "juegos=5"
Select Case juegoactual
Case 1
servidor = 2
Case 2
servidor = 1
Case 3
servidor = 2
Case 4
servidor = 1
Case 5
servidor = 2
Print "saca el servidor: ", servidor
End Select
Endif
If juegos = 7 Then
Print "juegos=7"
Select Case juegoactual
Case 1
servidor = 2
Case 2
servidor = 1
Case 3
servidor = 2
Case 4
servidor = 1
Case 5
servidor = 2
Case 6
servidor = 1
Case 7
servidor = 2
Print "saca el servidor: ", servidor
End Select
Endif
Endif
Print "servidor es: ", servidor
Print "servidorinicio es: ", configuracion.servidorinicio
If servidor = 2 Then
btnSirve1.Visible = False
btnSirve2.Visible = True
Endif
If servidor = 1 Then
btnSirve1.Visible = True
btnSirve2.Visible = False
Endif
Print "El servidor es ahora: ", servidor
If configuracion.servidorinicio = 0 Then
Message.Error("servidorinicio es 0 ocurrio un errr", "salir")
Endif
Print "servidorinicio es: ", configuracion.servidorinicio
End
Tanteador-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Tanteador-0.0.1.tar.gz | |
Tamaño: | 9.68 KB | |
Descargado: | 36 veces |
Tanteador-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Tanteador-0.0.1.tar.gz | |
Tamaño: | 9.68 KB | |
Descargado: | 36 veces |
Tanteador-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Tanteador-0.0.1.tar.gz | |
Tamaño: | 9.68 KB | |
Descargado: | 36 veces |