Hacer sonar cuando se pulsa tecla dentro de un get

Verhoven · Post by **Verhoven** » Fri Jul 25, 2008 6: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.

Post by **Antonio Linares** » Fri Jul 25, 2008 7:48 am

Cual es el valor de lSuenaTeclas ?

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

Verhoven · Post by **Verhoven** » Fri Jul 25, 2008 8: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 · Post by **mmercado** » Fri Jul 25, 2008 9: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

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

Post by **Antonio Linares** » Fri Jul 25, 2008 9:52 am

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