FiveTech Software tech support forums

Code: Select all  Expand view

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

[quote="mauri.menabue"]

Code: Select all  Expand view

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.

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

Roger,

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

Roger

This is the problem, but with

request HB_GT_GUI_DEFAULT

is now OK

thank Toninho

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

Roger,

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

Code: Select all  Expand view

#pragma BEGINDUMP

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

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

#pragma ENDDUMP


Antonio,

I tried it and nothing happened (no sound).

- Roger

Antonio,

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

Thanks!

- Roger

Roger,

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

Here it is not working (on Vista)

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

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

Do you hear it on your external speakers ?

Roger,

Thanks for your kind words

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

Antonio,

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

- Roger