Přidáno 531 bajtů,
1. 10. 2012, 14:02 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.
[[Category:CRT]]
[[Category:Procedúra CRT]]