Procedura Sound


Procedura Sound asigura pornirea generatorului de sunet cu o frecventa data. Frecventa reprezinta numarul de oscilatii generate într-o secunda. Procedura se defineste astfel :
Sound(Hz);
Hz – reprezinta frecventa sunetului exprimata în Hertzi.

Frecventa notelor muzicale

Octave
Do
Do#
Re
Re#
Mi
Fa
Fa#
Sol
Sol#
La
La#
Si

1
65
69
73
78
82
87
92
98
104
110
116
123

2
135
139
147
156
165
175
185
196
208
220
233
247

Do major
262
278
294
312
330
350
370
392
416
440
466
494

4
524
556
588
624
660
700
740
784
832
880
932
988

5
1048
1112
1176
1248
1320
1400
1480
1568
1664
1760
1864
1976

6
2096
2224
2352
2496
2640
2800
2960
3136
3328
3520
3728
3952

7
4192
4448
4704
4992
5280
5600
5920
6272
6656
7040
7456
7904


Procedura NoSound


Procedura NoSound decupleaza generatorul de sunet. Daca o procedura Sound nu este urmata, dupa procedura Delay de o procedura NoSound, atunci sunetul continua, chiar daca am parasit mediul Pascal. Ea se defineste prin :
NoSound;

Procedura Delay


Procedura Delay defineste intervalul de timp destinat functionarii generatorului de sunet. Folosita independent de procedurile Sound si NoSound, stabileste o pauza exprimata în milisecunde. O secunda este egala cu o mie de milisecunde. Deci 500 milisecunde reprezinta o jumatate de secunda. Combinate, cele trei proceduri pot produce un sunet cu o anumita durata de timp.

Program Prg_0012_Sound_Delay_NoSound;

Uses Crt;
Begin
TextBackGround(Blue);ClrScr; {Fond albastru, Sterg ecran}
TextColor(Yellow); {Scris galben}
GoToXY(33,5);Write('Gama Do Major');
GoToXY(39,7);Write('Do');Sound(262);Delay(500); {Se emit sunete cu }
GoToXY(39,8);Write('Re');Sound(294);Delay(500); { frecventa scrisa în }
GoToXY(39,9);Write('Mi');Sound(330);Delay(500); {paranteza procedurii }
GoToXY(39,10);Write('Fa');Sound(350);Delay(500); {So