Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Play a sound
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
01395438
Message ID:
01396379
Vues:
113
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform