Cours de Turbo Pascal 7


précédentsommairesuivant

Chapitre 9 - Audio

Sound ... Delay ... NoSound

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

Syntaxe :

 
Sélectionnez

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

Exemple :

 
Sélectionnez

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.

Chr(7)

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 :

 
Sélectionnez

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

précédentsommairesuivant

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2001-2013 Hugo Etievant. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.