sample_240.md

Home

Using Beep and Sleep functions to make the old tin buzz sing (WinNT only?)

Before you begin:

See also:

• Using MessageBeep
• How to play MIDI notes

---

Code:

DECLARE Sleep IN kernel32 INTEGER dwMilliseconds

DECLARE INTEGER Beep IN kernel32;
	INTEGER dwFreq, INTEGER dwDur

= Beep1(100)
= Beep1(300)
= Beep1(200)
= Beep1(300)
= Beep1(400)
= Beep1(100)
= Beep1(300)
= Beep1(500)

PROCEDURE  Beep1(lnFreq)
	= Beep(lnFreq, 90)
	= Sleep (20)  

---

Listed functions:

Beep
Sleep