11.1.PROCEDURI SI FUNCTII

Sound i2f10fj
Procedura Sound asigura pornirea generatorului de sunet cu o fregventa data. Procedura este definita astfel:
Procedure Sound (Hz:word);
Hz defineste frecventa sunetului in Hertz. Difuzorul va suna pana la apelul proceduri NoSound.
NoSound
Procedura NoSound decupleza generatorul de sunet. Procedura este definita astfel:
Procedure NoSound;
Delay
Procedura Delay fixseaza intervalul de timp destinat funtionari generatorului de sunet. Procedura este definita astfel:
Procedure Delay (ms:word);

Ms defineste timpul de itarziere (durata) in milisecunde.

11.2. Aplicatie

Programul muzica deonstreza cum sunt utilizate procedurile pentru generarea de sunete.
Program muzica;
Uses Crt;
Var i: word;
Begin
For i:=1 to 5 do
Begin
Sound(220*i);
Delay(200+i*i);
NoSound;
End;
For i:=5 downto 1 do
Begin
Sound (220*i);
Delay (200+i*i);
NoSound; end; end.