Cours de Turbo Pascal 7

Pour faire du son, il faut indiquer la fréquence (f) en Hz et la durée (t) en ms.

Syntaxe :

Sound(f);
Delay(t);
NoSound;

Exemple :

Program Exemple11;

Uses Crt;

Var i, f : Integer;

BEGIN
  for i := 1 to 20 do
    begin
      for f := 500 to 1000 do Sound(f);
      Delay(10);
    end;
  Nosound;
END.

La fonction Chr permet d'obtenir le caractère de la table ASCII correspondant au numéro. Il se trouve que les 31 premiers caractères sont des caractères de contrôle : beep, delete, insert, return, esc… Le caractère 7 correspond au beep.

Syntaxes :

Write(Chr(7));
Write(#7);