[ Acima ]

Unit CRT: Sound

Objetivo:
Liga o alto-falante interno na freqüência desejada.

Sintaxe:
Sound(freq);

Onde: freq é um número (tipo Word) que indica a freqüência do som em Mhz.
A freqüência é “tocada” até que um comando NoSound seja chamado
.

Veja Também:
NoSound

Exemplo:

 
Uses CRT;
 
Begin
 
    Sound(220); 	{ Beep }
    Delay(200);         { Espera 200 ms }
    NoSound;		{ Para de fazer barulho }
 
End.
[ Acima ]