Custom Beeps - Play with Speaker

Keywords: 	 custom beeps play with speaker

---

If you do not like standard beep try this:

; play with speaker
; do not work with sound card
sDLLName = StrCat(DirWindows(1), "kernel32.dll")
#DefineFunction beep1(sDLLName,freq,dur)
;dur=int(dur/3.0)
freq=int(freq*20)
dur=dur/4
result = DLLCall(sDLLName, long:"Beep",long:freq,long:dur)
Return result
#EndFunction

Beep1(SDllName,26,128)
Beep1(SDllName,27,128)
Beep1(SDllName,28,128)
Beep1(SDllName,29,128)
Beep1(SDllName,30,128)
Beep1(SDllName,31,128)
Beep1(SDllName,32,128)
Beep1(SDllName,33,128)
Beep1(SDllName,34,128)
Beep1(SDllName,35,128)
Beep1(SDllName,0,24)
Beep1(SDllName,35,128)
Beep1(SDllName,36,128)
Beep1(SDllName,37,128)
Beep1(SDllName,38,128)
Beep1(SDllName,39,128)
Beep1(SDllName,40,128)
Beep1(SDllName,41,128)
Beep1(SDllName,42,128)
Beep1(SDllName,43,128)
Beep1(SDllName,44,128)
Beep1(SDllName,45,128)
Beep1(SDllName,0,24)
Beep1(SDllName,45,128)
Beep1(SDllName,46,128)
Beep1(SDllName,47,128)
Beep1(SDllName,48,128)
Beep1(SDllName,49,128)
Beep1(SDllName,50,128)
Beep1(SDllName,51,128)
Beep1(SDllName,52,128)
Beep1(SDllName,53,128)
Beep1(SDllName,54,128)
Beep1(SDllName,55,128)
Beep1(SDllName,0,24)
Beep1(SDllName,55,128)
Beep1(SDllName,56,128)
Beep1(SDllName,57,128)
Beep1(SDllName,58,128)
Beep1(SDllName,59,128)
Beep1(SDllName,60,128)
Beep1(SDllName,61,128)
Beep1(SDllName,62,128)
Beep1(SDllName,63,128)
Beep1(SDllName,64,128)
Beep1(SDllName,65,8)
Beep1(SDllName,64,16)
Beep1(SDllName,63,16)
Beep1(SDllName,62,16)
Beep1(SDllName,61,24)
Beep1(SDllName,60,32)
Beep1(SDllName,59,32)
Beep1(SDllName,58,32)