Roger,
Thanks for your feedback,
Yes, that function uses the internal speaker
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Problem with function Tone FWH 8.04
Page: 1 2 (20 posts)
Confirmed: this "PRAGMA" solution works here on both internal and external speakers, and on XP Pro and Vista Home Premium.
Roger,
Thanks for the info,
Could you please post a sample with the parameters that you supply to the function ? Thanks,
// The following procs provide various sounds which can be requested from
// anywhere in the app...
PROCEDURE Correct()
tunes({ {392,2}, {523,2}, {880,2}, {1046,8} } )
RETURN
PROCEDURE Wrong()
tunes( { {164,10} } )
RETURN
PROCEDURE TheFifth()
tunes( { {392,2}, {392,2}, {392,2}, {311,8} } )
RETURN
PROCEDURE NannyBoo()
tunes( { {196,4}, {196,4}, {164,4}, {220,4}, {196,8}, {164,8} } )
RETURN
PROCEDURE tunes(aSong)
aeval(aSong, { | a | MYTONE(a[1], a[2]) } )
RETURN
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( MYTONE )
{
Beep( hb_parnl( 1 ), hb_parnl( 2 ) * 70 );
}
#pragma ENDDUMPHere it is again with a little explanation...
// The following procs provide various sounds which can be
// requested from anywhere in the app...
// Here are 4 "songs", each of which can be requested...
PROCEDURE Correct()
tunes({ {392,2}, {523,2}, {880,2}, {1046,8} } )
RETURN
PROCEDURE Wrong()
tunes( { {164,10} } )
RETURN
PROCEDURE TheFifth()
tunes( { {392,2}, {392,2}, {392,2}, {311,8} } )
RETURN
PROCEDURE NannyBoo()
tunes( { {196,4}, {196,4}, {164,4}, {220,4}, {196,8}, {164,8} } )
RETURN
// Now here is where a song gets initially processed...
PROCEDURE tunes(aSong)
aeval(aSong, { | a | MYTONE(a[1], a[2]) } )
RETURN
// And here is where the C code takes over to finish the job...
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( MYTONE )
{
Beep( hb_parnl( 1 ), hb_parnl( 2 ) * 70 );
}
#pragma ENDDUMPPage: 1 2 (20 posts)