|
Sound procedure
PC Speaker sound routines |
|
| acUtils
|
| procedure Sound(Hz: Word);
|
| The Sound procedure starts the internal speaker. Hz specifies the frequency of the emitted sound in hertz. The speaker continues until explicitly turned off by a call to NoSound.
|
| The following program fragment emits a 440-hertz tone for half a second:
|
| uses acUtils;
|
| begin
|
| Sound(440); { Beep }
|
| Delay(500); { For 500 ms }
|
| NoSound; { Relief! }
|
| end.
|
| NoSound and Delay procedures.
|