JUEGO BINGO

[LOUIS]

Hola Sr Brunello

Gracias por su interés en participar ...

Veo que sus cartones tienen 10 columnas ... El Amigo Mustafa diseñó los cartones a 9 Columnas, por lo que se hizo fácil agrupar las 3 primeras para los números del 1 al 25, las columnas de la 4ta a la 6ta para los números del 26 al 50 y para las últimas 3 columnas del número 51 al 75.

Mi modesta opinión sería reajustar sus cartones a 9 columnas ... o ... dejarlos en 10 columnas y agrupar así:
Columnas 1 y 2 del número 1 al 15
Columnas 3 y 4 del número 16 al 30
Columnas 5 y 6 del número 31 al 45
Columnas 7 y 8 del número 46 al 60
Columnas 9 y 10 del número 61 al 75

Con su amable colaboración tendríamos un prg adicional para generar cartones a 10 columnas.

De antemano muchas gracias.

Saludos
Louis

[mustafa]

Hola amigo Louis:
Aquí la última modificación con tus acertados cambios, en especial los de la voz.

Hay una nueva pantalla en la generación de cartones para modificar los números
que salen repetidos y así poder crear cartones con números diferentes.

He utilizado en comando Browse porque las modificaciones son inmediatas y luego
pulsar él [ Botón Corregir ] y se modifica el Cartón y si no queremos modificar
mediante CHECKBOX nos pregunta '«- ¿Modificar Número Cartones?' si desmarcamos
saldrá como siempre sin poder corregir el Cartón.

Con estas aportaciones creo que podremos jugar al Bingo,

Saludos/Regars/Salam
Mustafa

[LOUIS]

Hola Amigo Mustafa

Su aporte es magnífico como siempre ... de Ud por lo menos Yo, aprendo muchísimo.

Gracias al cubo (Gracias³)

Saludos
Louis

[mustafa]

Hola Louis:
Una nueva modificación en el menú de Corrección de Cartones
la modificación está en el cambio de color si se introduce
un número diferente de los que previamente están autorizados.

Cartón Izquierda (1-25), Cartón Centro (26-50), Cartón Izquierdo (51-75)

Es solo un aviso, no altera el número que hemos introducido, pero
sirve de alerta si te equivocas al introducir el número.
Si no se corrige en Browse, en el Cartón saldrá el mismo número Erróneo

Saludos/Regards/Salam
Mustafa

PD: solo cambien el fichero "Cartones.prg" y procedan a compilar
de nuevo la aplicación "Bingo.hbp" ---> BINGO10.ZIP

[LOUIS]

Hola Amigo Mustafa

Gracias nuevamente por su importante aporte al código ... sabe sigo con la inquietud de cómo hacerle hablar a mi laptop en Español, ya que aquí en mi PC por default el idioma español está primero en la lista (tengo 2), pero en la Laptop, la tengo como # 3 ... o será que tendré que borrar los 2 primeros narradores, para que quede igual por default el primero en la lista del "SAPI.SpVoice"

Así tengo en Mi Pc de Escritorio:
---------------------------------------
Microsoft Helena Desktop - Spanish (Spain)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_ES-ES_HELENA_11.0

Microsoft Zira Desktop - English (United States)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_EN-US_ZIRA_11.0

Pero en la Laptop, la narradora Helena Desktop - Spanish (Spain) no está primera, sino tercera y por eso en la laptop me sale en inglés

Bueno Maestro, nuevamente gracias y ojalá alguien solucione esto para que el juego quede más óptimo.

Saludos
Louis

[AUGE_OHR]

hi Louis,

... sabe sigo con la inquietud de cómo hacerle hablar a mi laptop en Español, ya que aquí en mi PC por default el idioma español está primero en la lista (tengo 2), pero en la Laptop, la tengo como # 3 ... o será que tendré que borrar los 2 primeros narradores, para que quede igual por default el primero en la lista del "SAPI.SpVoice"

as i wrote here https://www.hmgforum.com/viewtopic.php?t=7505 that there is a BUG in harbour
you need a NEW hbwin.a to assign a Voice

Code: Select all

   oVoices:Voice  := oVoices:GetVoices():Item(cnVar -1)

[danielmaximiliano]

hi Louis
as i wrote here https://www.hmgforum.com/viewtopic.php?t=7505 that there is a BUG in harbour
you need a NEW hbwin.a to assign a Voice

Code: Select all

   oVoices:Voice  := oVoices:GetVoices():Item(cnVar -1)

Hola Jimmy , tendrías la amabilidad de hablar con Antonio Linares y pedirle el fuente con la corrección de olecore.c

[LOUIS]

Hola Jimmy y Daniel

Muchas gracias por sus respuestas ... quisiera si no es pedir mucho, y para salir del inconveniente, me indiquen como puedo eliminar los 2 primeros narradores que ya están incorporados en la Laptop ... si es de hacerlo manualmente o por código.
Si es manualmente, igual pueden indicar cómo hacerlo ?

De antemano muchas gracias.

Saludos
Louis

[danielmaximiliano]

Hola Jimmy y Daniel

Muchas gracias por sus respuestas ... quisiera si no es pedir mucho, y para salir del inconveniente, me indiquen como puedo eliminar los 2 primeros narradores que ya están incorporados en la Laptop ... si es de hacerlo manualmente o por código.
Si es manualmente, igual pueden indicar cómo hacerlo ?

De antemano muchas gracias.

Saludos
Louis

Hola Louis : ejecutar REGEDIT en modo administrador ve a la clave

Code: Select all

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens

borra las claves manualmente (modo sucio de hacerlo) sino desde el panel de control (un poco mas tedioso)

[mustafa]

Hola amigos:

Una nueva modificación estética de Pantalla, aparecen
los números dentro de Bolas de Colores o si lo prefieren
la misma Bola de color Verde Oscuro.

Al compilar dentro del Fichero -> Bingo.hbp , cambiar
_Bolas1.prg para bolas de color o _Bolas2.prg para bolas
verdes antes de compilar.

¡¡¡ A Jugar !!!

Saludos-Regard-Salam
Mustafa