Thanks folks for all you replies.
On chasing this up on one pc, where I could not hear the sounfd at all...
Got oto Dell.. turned out that there was no speaker ..not even an internal one
..I thought it strange that any computer would be sold without an internal speaker
..Dell say it was an 'Optional' extra !!!
Regards,
gerard
>Try This,,,
>Make sure the wav file exist in the directory of your application
>
>SET BELL TO "smchimeup2.wav"
>? CHR(7)
>SET BELL TO
>
>
>****************************
>Declare Integer waveOutSetVolume In WinMM.Dll ;
> integer hwo, Integer dwVolume
>Declare Integer waveOutGetVolume In WinMM.Dll ;
> integer hwo, Integer @dwVolume
>
>* Set current volume level to 1/4 on both channels
>SetVolume(Int(0xFFFF*1/4),Int(0xFFFF*1/4))
>? "Current volume", GetVolume()
>
>
>Function SetVolume
>Lparameters tnLeftChannel, tnRightChannel
>* Set current volume level to tnLeftChannel, tnRightChannel values
>waveOutSetVolume(0,Eval('0x'+;
> Right(Trans(m.tnLeftChannel,'@0'),4)+;
> Right(Trans(m.tnRightChannel,'@0'),4)) )
>
>Function GetVolume
>* Get current volume level as hex
>Local liVolume
>liVolume = 0
>waveOutGetVolume(0,@liVolume)
>*!* lnLeft = Eval('0x'+Substr(Trans(liVolume,'@0'),7,4))
>*!* lnRight = Eval('0x'+Substr(Trans(liVolume,'@0'),3,4))
>Return '0x'+Substr(Trans(liVolume,'@0'),7,4)+Substr(Trans(liVolume,'@0'),3,4)
>
>
>HTH
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only