SUBPROGRAME DESTINATE GENERATORULUI DE SUNET 55593vup68igp9r 11.1.PROCEDURI SI FUNCTII 55593vup68igp9r Sound Procedura Sound asigura pornirea generatorului de sunet cu o fregventa data. Procedura este definita astfel: Procedure Sound (Hz:word); ug593v5568iggp 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 55593vup68igp9r 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.