Pascal

Proceduri destinate gestiunii generatorului de sunet

si a intensitatii video

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

OctaveDoDo#ReRe#MiFaFa#SolSol#LaLa#Si

16569737882879298104110116123

2135139147156165175185196208220233247

Do major262278294312330350370392416440466494

4524556588624660700740784832880932988

5104811121176124813201400148015681664176018641976

6209622242352249626402800296031363328352037283952

7419244484704499252805600592062726656704074567904

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); {Sound si cu durata }

GoToXY(39,11);Write('Sol');Sound(392);Delay(500);{de 500 milisecunde }

GoToXY(39,12);Write('La');Sound(440);Delay(500); {scrisa în paranteza }

GoToXY(39,13);Write('Si');Sound(494);Delay(500); {procedurii Delay }

GoToXY(39,14);Write('Do');Sound(524);Delay(500);

GoToXY(34,16);Write(#7'Turbo Pascal'#7); {Se emit 2 sunete datorita

caracterului special #7 si

se afiseaza textul dintre

apostroafe}

NoSound; {Se opreste generatorul

de sunet}

ReadLn; {Se asteapta apasarea unei

taste}

End.

Program Prg_0013_Afisare_precisa_a_numerelor;

Uses Crt;

Const

A=15;B=5;C=3; {Se asociaza numerele intregi}

D=3.14;E=1.73;F=5.225; {Se asociaza numerele reale}

Begin {Începutul programului}

TextBackGround(Blue);ClrScr; {Fond albastru, Sterg ecranul}

TextColor(Yellow); {Culoarea scrisului galbena}

Sound(294);Delay(100); { Se emit sunete}

Sound(330);Delay(100); { Se emit sunete}

Sound(350);Delay(100); { Se emit sunete}

Sound(392);Delay(100); { Se emit sunete}

Sound(440);Delay(100); { Se emit sunete}

Sound(494);Delay(100); { Se emit sunete}

Sound(524);Delay(100); { Se emit sunete}

NoSound; {Se opreste generatorul de sunet}

GoToXY(27,5);Write('Afisare precisa a numerelor);

GoToXY(27,6);Write('===========================');