Que pasa con TONE ?

[JoseGS]

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

[Mauricio]

te puede funcionar

msgBeep()


saludos,
Mauricio

[JoseGS]

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 ....

[Antonio Linares]

Jose,

usa esta función:
http://forums.fivetechsupport.com/viewt ... 292#p55292

[karinha]

Hola,

Aca funciona perfecto:

Code: Select all

      //-> 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. )
 

[JoseGS]

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

[Antonio Linares]

Jose,

Funciona bien en Vista, solo que necesitas tener un altavoz interno conectado, según parece.

Vamos a probarlo en Windows 7

[Antonio Linares]

Jose,

probado ahora mismo en Windows 7 ultimate y ha funcionado ok en los altavoces externos

[JoseGS]

Muchas gracias Antonio