WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Sound and Media

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

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) 

Article ID:   W15705
File Created: 2003:05:13:11:29:42
Last Updated: 2003:05:13:11:29:42