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.