Otevřít hlavní menu

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.