IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

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

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 ni 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.