NoSound
Verze z 1. 10. 2012, 14:14, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Knihovna CRT)
Vypne vnitřní reproduktor.
- Deklarace
procedure NoSound;
- Režim
- Reálný, Chráněný
- Poznámky
- Následující úryvek programu emituje tón frekvence 440 Hz po dobu půl sekundy:
Sound(440); Delay(500); NoSound;
- Viz také
- Sound
Vzorový příklad
{Delay.PAS}
{Vzorový příklad pro procedury Delay, NoSound a Sound.}
uses Crt;
begin
Sound(220); { Píp }
Delay(200); { na 200 ms }
NoSound; { Úleva! Blaho! }
end.