JUEGO BINGO

[mustafa]

Hola Louis:
El tema de cambio Color Bola no me está funcionando,
Bolas Color Bol= 1 y Bolas Verdes BOL=2 una vez sales del
Ventana ,para que actualice hay que cerrar la aplicación BINGO
no actualiza al instante, cuando pulsas -> Botón START, sale la
Bola del Color anterior.
Saludos
Mustafa

[mustafa]

Hola amigos:
Parece que encontré la manera de actualizar
el cambio del Color de Bolas.

Code: Select all

*--------------------------------------*
FUNCTION ElecBola_1()
*--------------------------------------*
      DIRCHANGE( DirNc ) 
 
      dbCloseAll()
      FileDelete("Bolas.mem") 
      BOL = 1
      SAVE ALL LIKE BOL* TO Bolas.mem
      Form_5.Release 
      Execute File("Bingo.exe")   // <--- Se actualizan los cambios en File Bolas.mem
      DoMethod('PRINCE','RELEASE') 
  Return Nil

*--------------------------------------*
FUNCTION ElecBola_2()
*--------------------------------------*
     DIRCHANGE( DirNc )

     dbCloseAll()
     FileDelete("Bolas.mem")
     BOL = 2
     SAVE ALL LIKE BOL* TO Bolas.mem
     Form_5.Release
     Execute File("Bingo.exe")  // <--- Se actualizan los cambios en File Bolas.mem
     DoMethod('PRINCE','RELEASE') 
 
  Return Nil

Solución : ------> Execute File("Bingo.exe")
Hay que sustituir los dos prg , por estos: actualizar.ZIP

Saludos
Mustafa

[LOUIS]

Amigo Mustafa

Con su permiso, hice unos cambios en Bingo17, espero sea de vuestro agrado.

Ahora hay que trasladar todo al Bingo18

Saludos a todos.

Louis

P.D.- Cada vez va quedando mejor gracias al Sr Mustafa.

[mustafa]

Hola amigos:

Louis con sus nuevas actualizaciones,
nos ha dejado preparados para jugar.

He actualizado lo que he podido con
tu actualización, pero creo que tendrían
de ser dos programas diferentes, ya que
es un poco difícil de actualizarse los
dos Juegos en uno solo.

Dejo la actualización de "BINGO18.ZIP"
que he procurado que se ajuste a las
correcciones de Louis.

Con esta actualización doy por concluida
mi colaboración en las actualizaciones
de "JUEGO BINGO".

Un cordial saludo a Louis, y todos los
amigos de este Foro.

Saludos/Regars/Salam

Mustafa


PD: Para Computadora Portatil (LAPTOP) pantalla 1280 x 800
les dejo una versión para la misma BINGO18-MINI.ZIP

[LOUIS]

Hola Amigos

Por aquí para dejarles ya todo actualizado al Bingo18 ... se podrá jugar tanto con los pares de cartones del Sr Mustafa, como también con los cartones que van listos para imprimir en el archivo word (son 100 tablas individuales de Bingo a 3 x página).

De igual modo los que bajaron el programa del sr Brunello, podrán emitir otras o más tablas de bingos si desean, ya que hay la opción de generar hasta mil cartones
Recuerden que si lo hacen, tendrán que renombrar el dbf que se genere a xbingo75 e incluirlo en el directorio principal.

Debo dar las gracias a las personas que me ayudaron a concluir este jueguito que ahora es para todos:
Al Sr Daniel Maximiliano
Al Sr EDK (no sé sus nombres)
Al Sr Mustafa López
y Al Sr Brunello Pulix

Gracias de todo corazón.

Louis

P.D.- Si ven al comienzo del juego la pantalla distinta en la parte baja, es porque no va generado ningún cartón del Sr Mustafa, una vez que generen el primer par de Cartones, lo verán habitual, aunque esto no quiera decir que lo hagan, queda a vuestra elección, ya que igual se puede jugar.

[danielmaximiliano]

Fanáticos del bingo en el año 2050:
Hola a todos , hoy les presento a Bingo 2390, corre en computadoras cuánticas refrigeradas con helio y argón

Verdaderamente Bingo fue un lindo proyecto en el grupo, gracias a todos por participar .