Změny

Skočit na navigaci Skočit na vyhledávání

NoSound

Přidáno 531 bajtů, 1. 10. 2012, 14:02
Created page with "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 d..."
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]]

Navigační menu