SUBPROGRAME DESTINATE GENERATORULUI DE SUNET, Aplicatie Proceduri

SUBPROGRAME DESTINATE GENERATORULUI DE SUNET

5

11.1.PROCEDURI SI FUNCTII

5

Sound

Procedura Sound asigura pornirea generatorului de sunet cu o fregventa data. Procedura este definita astfel:

Procedure Sound (Hz:word); ug593v5

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

5

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.

download