Hacer sonar cuando se pulsa tecla dentro de un get

Hacer sonar cuando se pulsa tecla dentro de un get

Postby 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.
Verhoven
 
Posts: 522
Joined: Sun Oct 09, 2005 7:23 pm

Postby 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) ? :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby 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.
Verhoven
 
Posts: 522
Joined: Sun Oct 09, 2005 7:23 pm

Postby 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  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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby Antonio Linares » Fri Jul 25, 2008 9:52 am

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 45 guests