Hacer sonar cuando se pulsa tecla dentro de un get

Board index FiveWin para Harbour/xHarbour Hacer sonar cuando se pulsa tecla dentro de un get

Posts: 563

Joined: Sun Oct 09, 2005 07:23 PM

Hacer sonar cuando se pulsa tecla dentro de un get
Posted: Fri Jul 25, 2008 06:10 AM

Con el siguiente código intento que al introducir cada dígito de un número en un get suene una nota, pero no logro que funcione.

REDEFINE GET oGet VAR nGet ID 406 OF oDlg FONT oFont1Get;
PICTURE '999.99';
COLOR ClrLtrGet,ClrFonGet;
ON CHANGE (self:assign(),iif(lSuenaTeclas,suenanumero(nKey),.f.));
UPDATE

Les ruego me ayuden.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Hacer sonar cuando se pulsa tecla dentro de un get
Posted: Fri Jul 25, 2008 07:48 AM

Cual es el valor de lSuenaTeclas ?

Y cual es el código fuente de suenanumero(nKey) ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Verhoven

Posts: 563

Joined: Sun Oct 09, 2005 07:23 PM

Hacer sonar cuando se pulsa tecla dentro de un get
Posted: Fri Jul 25, 2008 08:42 AM

lSuenaTeclas:=.t.

function suenanumero(nKey)
local nFrecuenciaBase:=493.90
tone(493.90+10*(nKey-49),1)
return nil

Pero el problema es que el GET no recoge los "teclazos". Se queda vacio. Para que funcione el GET tengo que suprimir toda la líne de ON CHANGE.

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Hacer sonar cuando se pulsa tecla dentro de un get
Posted: Fri Jul 25, 2008 09:32 AM

Verhoven wrote:Pero el problema es que el GET no recoge los "teclazos". Se queda vacio. Para que funcione el GET tengo que suprimir toda la líne de ON CHANGE.

Trata de la siguiente manera:

Code: Select all Collapse

REDEFINE GET oGet VAR nGet ID 406 OF oDlg FONT oFont1Get; 
PICTURE '999.99'; 
COLOR ClrLtrGet,ClrFonGet; 
ON CHANGE iif(lSuenaTeclas,suenanumero(nKey),Nil); 
UPDATE

Saludos.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Hacer sonar cuando se pulsa tecla dentro de un get
Posted: Fri Jul 25, 2008 09:52 AM

Llama a Tone() directamente y comprueba que te funcione.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion