Hacer sonar cuando se pulsa tecla dentro de un get

[Verhoven]

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]

Cual es el valor de lSuenaTeclas ?

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

[Verhoven]

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]

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  Expand view  RUN

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

[Antonio Linares]

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