CyBWarrior

1. Bip
2. Sound

Il existe plusieurs façons de faire du son avec Turbo Pascal. Les méthodes qui vont suivrent permettent d’utiliser le haut-parleur interne du PC.
Pour la carte son, il faut employer des moyens détournés.

Bip

Pour faire un bip, une méthode bien connue est d’utiliser le caractère de controle de la table ASCII correpondant, qui est le 7.
On peut dont écrire :

begin
write(chr(7));{BIP!}
write(#7);{Re-BIP!}
end.

Sound

Une seconde possibilité plus souple est l’appel à Sound, qui demande l’emploi de l’unité crt.
Sound demande un argument qui représente la fréquence en Hertz du son à émmetre.
Voici un tableau qui permet de se retrouver entre les différentes vibrations :

Le La du diapason est, parait-il, situé sur la 2^ème octave.
Donc, on peut écrire :

uses crt;

begin
Sound(440);{LAAAAAAAA}
end.

Oui, mais là (:-)), problème : le haut-parleur ne s’arrête plus!
Il faut alors recourir à une seconde instruction : NoSound.
NoSound arrete tout bêtement le haut-parleur :

uses crt;

begin
Sound(440);{LAAAAAAAA}
NoSound;{On arrete}
end.

Cette fois-ci, ça s’arrete. Mais ça se passe tellement vite que l’on a même plus le temps d’entendre.
Il existe alors plusieurs possibilité de temporiser : avec des boucles, avec un readln…
On peut aussi utiliser Delay (qui est aussi compris dans l’unité crt). Delay suspend l’execution du programme pendant
le nombre de mili-secondes qui lui sont transmises en arguments.
Donc, pour faire un la de 1,5 s, on écrira :

uses crt;

begin
Sound(440);{LAAAAAAAA}
Delay(1500);{Pendant 1.5s}
NoSound;{On arrete}
end.