JUEGO BINGO

[LOUIS]

Hola Amigos

Saben estoy preocupado porque al tener el programa Bingo activado pero inactivo por unos 3 o 5 minutos, se cierra inesperadamente y crea un archivo llamado hb_out.log cuyo texto es el siguiente:

Application Internal Error - C:\BINGO14\Bingo.exe
Terminated at: 2024-02-26 18:53:12
Error irrecuperable 9006: hb_xgrab no puede asignar memoria
Called from TYPE(0)
Called from _ISCONTROLDEFINED(1094) in source\h_controlmisc.prg
Called from GETPROPERTY(7611) in source\h_controlmisc.prg
Called from BUSCANUME(276) in C:\BINGO14\bingo.prg
Called from (b)MAIN(113) in C:\BINGO14\bingo.prg
Called from _DOCONTROLEVENTPROCEDURE(5886) in source\h_windows.prg
Called from EVENTS(1698) in source\h_windows.prg
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5554) in source\h_windows.prg
Called from DOMETHOD(8092) in source\h_controlmisc.prg
Called from MAIN(168) in C:\BINGO14\bingo.prg
------------------------------------------------------------------------

Si saben a qué se debe por favor háganlo saber, lo estoy compilando con la versión 3.4.0 de HMG-IDE ANSI 1.0.8 y corre bajo windows 10 de 64 bits

De antemano muchas gracias

Louis

P.D.- La atención que dice Called from BUSCANUME(276) ... en la linea 276 dice:

DO WHILE PRINCE.BUTTON_2.Caption = "Continue" <----- línea 276
DO EVENTS
ENDDO

[mustafa]

Hola amigos:
Luis no sé que puede ser tu problema?, parece falta de Memoria?

yo estoy en la versión hmg.3.6 a 64 bits Todos los Prg salvados con UTF-8
viewtopic.php?t=7433

compilado con este Bat
@ECHO OFF
call c:\hmg.3.6\build64.bat Bingo.hbp %*

*--------------------------------------------------------------------------------------------*
Comparando en Administrador de tareas mi PC con Window 10 de 64 bits
Aplicaciones CPU Memoria Disco Red Consumo Tendencia
Bingo.exe 0% 4,3MB 0 0 Muy Baja Muy Baja
*-----------------------------------------------------------------------------------------------------*

Mejoras con esta nueva entrega: 25-2-2024

1.- Los Cartones se pueden marcar con la "X", pero la nueva opción es que
si se equivoca el usuario, puede desmarcar el número que se equivocó.

Problemas: Que hay que dar doble Clic al Mouse para que salga la "X" a
veces, hay que poner pausa, al desmarcar parece más rápido, ¿no sé que puede ser?

2.- En el Botón Lupa, ahora a la izquierda hay una base de datos que con color
calabaza, está marcando la comparativa de los cartones con el número de bingo,
si pulsamos el Botón "Faltan" aparece a la derecha los números correctos del
Cartón y los números que faltan por salir.

Problemas: Al pulsar el Botón "Faltan" al quitar el Mouse desaparece el Botón ?

3.- El resto del programa, un poco de colorines y arreglos, sin importancia.

Saludos/Regards/Salam
Mustafa

[LOUIS]

Amigo Mustafa

Su actualización es fabulosa, gracias por el update.

Yo estoy haciendo unos agregaditos más, que estoy próximo a subir, los estaba haciendo con el Bingo14, bueno, ahora veré como los adapto a esta
su última versión.

Saludos cordiales.

Louis

[LOUIS]

Hola Amigos

Saben, como ya tenía todos los cambios hechos en Bingo14, les subo esta versión, luego faltaría incorporarlas a la última versión de Bingo17 que hoy subió el Amigo Mustafa.

Con esta actualización ya podemos jugar a LINEA (Horizontal), acá en mi país se la juega y también gana premio,
si el cartón tiene los 5 números de cualquiera de las 3 filas, que haya salido, el jugador grita Línea, se
pausa el juego, se revisa el # de cartón por pantalla y si hay Linea, se da el premio, caso contrario se contínúa
jugando a Linea ... cuando ya haya Linea, se continuará jugando a Tabla llena o Full Bingo !

La Linea o el Full Bingo, la máquina revisa automáticamente, si no hay linea le hace ver los números que le faltan en las 3 filas,
y si no hay bingo, igual le hace ver el los números que le faltan para hacer bingo ...
Si hay linea, muestra la linea ganadora y si hay bingo muestra el cartón completo para que revise quien quiera.

Además todo es anunciado por el narrador, si hay o no linea y si hay o no bingo.

El msginfo de inicio de juego, ahora también lo dice el narrador.

También ahora hay un botón para ver el seguimiento o secuencia de cómo salieron las Bolas o Números, esto es
bueno para algún posible reclamo de algún jugador.

Lo que sí hubiera querido mostrar eran 2 botones para elegir si quiere revisar Linea o Bingo, pero se me complicó por mis modestos
conocimientos por eso tuve que implementar un MsgYesNo.

Hasta ahí la explicación de lo agregado dentro del Bingo14, espero les guste.


Saludos a todos
Louis

P.D.- Todo lo del Sr Mustafa está intacto, lo agregado es con las Tablas del Sr Brunello y su dbf (también va el archivo RTF para imprimir los cartones).

[LOUIS]

Hola Amigos

Subo la Actualización del Bingo 14 ... luego pasaré todo al Bingo 17 (porque lo último que agregó el Sr Mustafa es muy bueno, poder corregir la X que marca en el cartón) o si alguien lo hace por mí VALE

Creo que lo tuneé y se ve más llamativo, espero les guste.

Saludos a todos.

Louis

[LOUIS]

Hola amigos

He corregido el prg principal del Bingo14, optimizando y eliminando código innecesario como el del Draw Line por este:

Code: Select all

F=110
FOR i=1 TO 6									// LINEAS HORIZONTALES
    DRAW LINE IN WINDOW PRINCE AT F,15 TO F,1360-15 PENCOLOR GREEN PENWIDTH 2
    F=F+71
NEXT

C=15
FOR i=1 TO 16									// LINEAS VERTICALES
    DRAW LINE IN WINDOW PRINCE AT 110,C TO 463,C PENCOLOR GREEN PENWIDTH 2
    C=C+88.75
NEXT

y eliminé también variables innecesarias.

Lo pueden actualizar si desean.

Saludos a todos.

Louis.

P.D.- Está pendiente actualizar todo al Bingo17

[mustafa]

Hola Louis
Estoy trabajando con la actualizacion
Saludos
Mustafa

[mustafa]

Hola amigos:
Este Bonito juego de Bingo creado
por el amigo Louis, con su permiso
he creado algunas modificaciones

Aquí las últimas modificaciones

1.- Escoger Color de las Bolas Bingo
Colorines o Color Verde

Problemas: no consigo que al salvar el
tipo de Color Bola, aparezca el cambio
cuando empieza el juego.

2.- Mediante Botón de la Lupa
Se crean dos opciones, verificar Línea
pulsando <si> y verificar Bingo pulsar <no>
Se remplazó aplausos wav por formato mp3
ocupan menos espacio.

3.- Los Cartones se pueden marcar y desmarcar
por si el usuario tiene que rectificar.

Problemas: ¿Hay que pulsar 2 veces el golpe
de ratón, hay momentos que no funciona?

Con esta aportación me despido de "JUEGO BINGO"
satisfecho de haber colaborado, me retiro con
el permiso de Louis.

¡Que juguéis mucho al Bingo, amigos!

Saludos/Regards/salam

Mustafa

[LOUIS]

Amigo Mustafa, se me adelantó

Pero no hay problem, revisaré lo suyo (y que alguien más lo haga sería estupendo, ya que sí noté que hay que dar 2 o más clicks al querer marcar el número en los cartones que salen en la pantalla).

Por mi parte adapté los cambios que venía haciendo hasta el Bingo 14, hoy ya los pasé al Bingo17 y bueno, veremos cómo lo combinamos con el último suyo que es el Bingo18.

Saludos a todos.

Louis

[LOUIS]

Amigo Mustafa

Al escoger el color de las Bolas con el Botón (antes de empezar el juego) ... era una confusión pequeña que ya corregí

Saludos