After suggestions about create sound and a little more thought I asked myself 'Why Just A Beep?'
Many different sounds can be created with SoundEasy.pbi so reprogrammed to this:
Code: Select all
InitSound()
IncludeFile "SoundEasy.pbi"
Enumeration Warnings
#Beep
EndEnumeration
Procedure SoundWarning(Warning.i)
Define CurrentSound.i
InitSound()
Select Warning
Case #Beep
CurrentSound = CreateSound(#PB_Any, 1000, 0.5)
EndSelect
PlaySound(CurrentSound)
While SoundStatus(CurrentSound) <> #PB_Sound_Stopped : Wend
FreeSound(CurrentSound)
EndProcedure
SoundWarning(#Beep)
Delay(1000)
If anyone creates a sound with SoundEasy post here with the title for your sound and I can add to the code above.
We could end up with a whole library of sounds far exceeding the lowly beep.
collectordave