Hola amigos:
Estoy intentando utilizar TONE() que hasta ahora no habia necesitado en FWH y no logro que suene NADA !
Fue reemplazado TONE() o que ?
Gracias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Que pasa con TONE ?
te puede funcionar
msgBeep()
saludos,
Mauricio
Es que quiero hacer una especie de audiometro... se debe ir incrementando el sonido hasta que la persona no escuche y con ello puedo medir la capacidad auditiva ....
Hola,
Aca funciona perfecto:
Aca funciona perfecto:
//-> Erro
TONE(3000,1)
TONE(2000,1)
TONE(1000,1)
//-> Alerta
TONE(2500,9)
TONE(2500,9)
//---------------------------------------------------------------------------//
FUNCTION Beep(SOM)
SET CONSOLE ON
IF SOM=1 &&Sinal de Abandono
TONE(87.3,2)
TONE(40,7)
ELSEIF SOM=2 &&Abertura
TONE(1300,8)
TONE(1800,5)
ELSEIF SOM=3 &&Erro
TONE(3000,1) ; TONE(2000,1) ; TONE(1000,1)
ELSEIF SOM=4 &&Alerta
TONE(2500,9)
ELSEIF SOM=5 &&Confirma‡ao-I
TONE(5000.1)
TONE(5000.1)
ELSEIF SOM=6 &&Abertura de menus
TONE(5000.1)
ELSEIF SOM=7
TONE(50,4)
TONE(70,4)
TONE(130.8,6)
TONE(196.0,6)
TONE(500, 3)
TONE(900, 2)
TONE(1000)
TONE(1000, 2)
TONE(1500)
TONE(1500, 2)
TONE(1700, 1)
TONE(2000)
TONE(2000, 2)
TONE(2400, 2)
TONE(2800, 2)
TONE(2500, 2)
TONE(2600, 3)
TONE(3000, 2)
ENDIF
SET CONSOLE OFF
RETURN( .T. )João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Gracias Antonio
Funciono perfecto, solo una inquietud:
Se lee en el post que me indicastes que no funciona en Windows Vista, eso es cierto ?, que hago en dicho evento ?
Gracias
Jose,
Funciona bien en Vista, solo que necesitas tener un altavoz interno conectado, según parece.
Vamos a probarlo en Windows 7
Jose,
probado ahora mismo en Windows 7 ultimate y ha funcionado ok en los altavoces externos 
Muchas gracias Antonio