Zobrazení zdroje stránky NoSound

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úry CRT]]