Subprograme Destinate Generatorului de Sunet

Subprograme Destinate Generatorului de Sunet

11.1.PROCEDURI ŞI FUNCŢII

Sound

Procedura Sound asigură pornirea generatorului de sunet cu o fregvenţă dată. Procedura este definită astfel:

Procedure Sound (Hz:word);

Hz defineşte frecvenţa sunetului în Hertz. Difuzorul va suna până la apelul proceduri NoSound.

NoSound

Procedura NoSound decupleza generatorul de sunet. Procedura este definită astfel:

Procedure NoSound;

Delay

Procedura Delay fixsează intervalul de timp destinat funţionări generatorului de sunet. Procedura este definită astfel:

Procedure Delay (ms:word);

Ms defineşte timpul de îtârziere (durata) în milisecunde.

11.2. Aplicaţie

Programul muzică deonstreză cum sunt utilizate procedurile pentru generarea de sunete.

Program muzică;

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.

Căutări Recente: aplicatie de sters sms destinator iphone

Articole Asemănătoare:

1. Subprograme Orientate Spre Salvarea Imaginilor
2. Subprograme Orientate Spre Puncte
3. Definiri de culori şi palete
4. Initializarea Modulului Grafic
5. Tratarea Erorilor Grafice