Problem with function Tone FWH 8.04

[mauri.menabue]

Code: Select all

function Main()

   alert("Test sounds")
   Tone(  100, 1 )
   Tone(  200, 1 )
   Tone(  300, 1 )
   Tone(  400, 1 )
   Tone(  500, 1 )
   Tone(  600, 1 )
   Tone(  700, 1 )
   Tone(  800, 1 )
   Tone(  900, 1 )
   Tone( 1000, 1 )

return nil

OS. Xp Professional
xHarbour CVS
BCC 55

[toninhofwi]

[quote="mauri.menabue"]

Code: Select all

function Main()

   alert("Test sounds")
   Tone(  100, 1 )
   Tone(  200, 1 )
   Tone(  300, 1 )
   Tone(  400, 1 )
   Tone(  500, 1 )
   Tone(  600, 1 )
   Tone(  700, 1 )
   Tone(  800, 1 )
   Tone(  900, 1 )
   Tone( 1000, 1 )

return nil

Try to add:

request HB_GT_GUI_DEFAULT

in the main function.

Regards,

Toninho.

[Roger Seiler]

What actually is the problem? Are the sounds not being generated?

[Antonio Linares]

Roger,

Tone() is only supported in some GT modules for Harbour/xHarbour

[mauri.menabue]

Roger

This is the problem, but with

request HB_GT_GUI_DEFAULT

is now OK

thank Toninho

[Roger Seiler]

Okay. But when I link in gtgui.lib and put REQUEST HB_GT_GUI_DEFAULT at the top of my main prg, I get a link error with xHb (commercial Nov '07):

unresolved external symbol: _HB_FUN_HB_GT_GUI_DEFAULT

Any suggestions?

- Roger

[Antonio Linares]

Roger,

Try this code from your PRG (same parameters as Tone()):

Code: Select all

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( BEEP )
{
   Beep( hb_parnl( 1 ), hb_parnl( 2 ) * 1000 );
}

#pragma ENDDUMP

[Roger Seiler]

Antonio,

I tried it and nothing happened (no sound).

- Roger

[Roger Seiler]

Antonio,

Whoops! I misunderstood how to use it. I figured it out, and now it works - I now get my beep.

Thanks!

- Roger

[Antonio Linares]

Roger,

What Windows version are you using and how you made it work ?

Here it is not working (on Vista)

[Roger Seiler]

Antonio,

I don't know if anybody noticed, but though you are a quarter of the way around the world from where I'm sitting, you answered my question with a spot-on solution in just 18 minutes! And I had my problem fixed in my app in less than an hour.

I think that is PHENOMENAL customer service!

Thank you very much indeed!

- Roger

[Antonio Linares]

I guess that its because I don't have an internal speaker

Do you hear it on your external speakers ?

[Antonio Linares]

Roger,

Thanks for your kind words

[Roger Seiler]

Antonio,

Regarding type of speakers I'm using: internal.

Version of Windows where I tested: XP Professional.

It sounded normal in this configuration.

I'll hook up some external speakers in the morning and see if it works there, and will also test on my Vista computer.

Then I'll report the results.

- Roger

[Roger Seiler]

Antonio,

It also works fine here on Vista Home Premium, internal speakers.

- Roger