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

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Free Pascal Discussion :

[Free Pascal] Problème avec delay


Sujet :

Free Pascal

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    57
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : Suisse

    Informations forums :
    Inscription : Janvier 2006
    Messages : 57
    Par défaut [Free Pascal] Problème avec delay
    Bonjour,

    J'utilise freepascal et je veux créer un petit programme de musique mais la fonction delay n'a pas l'air de fonctionner et je ne comprends pas pourquoi ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    program musique (input, output);
     
    uses wincrt;
     
    begin
    sound(xxx);
    delay(zzz);
    nosound;
    end.
    J'ai changé plusieurs fois la valeur de delay mais ca a pas l'air de faire grand chose... Sinon a part ca le son marche parfaitement !

    Merci d'avance de votre aide

  2. #2
    Responsable Pascal, Lazarus et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2003
    Messages
    8 028
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : Mars 2003
    Messages : 8 028
    Billets dans le blog
    2
    Par défaut
    Bonjour et bienvenue !

    Le code passe-t-il à la compilation ?

    - Si oui, le paramètre de delay est en millisecondes. Peut-être que les valeurs essayées sont trop faibles pour percevoir le délai d'attente ?

    - Si non, il faudrait peut-être déclarer l'unité CRT ? Je ne suis pas sûr que delay soit implémentée dans l'unité WinCRT (à vérifier).
    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]
    La tolérance atteindra un tel niveau que les personnes intelligentes seront interdites de toute réflexion afin de ne pas offenser les imbéciles. [Fiodor Mikhaïlovitch Dostoïevski]

  3. #3
    Membre chevronné

    Inscrit en
    Avril 2003
    Messages
    284
    Détails du profil
    Informations forums :
    Inscription : Avril 2003
    Messages : 284
    Par défaut
    sous windows il vaut mieux declarer l'unité windows dans les uses et utiliser :
    function Beep(
    dwFreq , // sound frequency, in hertz
    dwDuration WORD // sound duration, in milliseconds
    ): boolean;
    et pour les blancs, la fonction sleep;
    exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    program musique;
     
    uses windows;
     
    begin
      beep(1000,1000);
      sleep(500);
      beep(2000,500);
    end.

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    57
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : Suisse

    Informations forums :
    Inscription : Janvier 2006
    Messages : 57
    Par défaut
    Ok je vais essayer tout ca ! Merci...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Dev-Pascal] [Free Pascal] Erreurs de compilation avec Link.res
    Par swayly dans le forum Autres IDE
    Réponses: 7
    Dernier message: 16/03/2008, 01h37
  2. [Dev-Pascal] [1.9.2][Free Pascal] Problème de compilation avec Link.res
    Par Epotcirk dans le forum Autres IDE
    Réponses: 2
    Dernier message: 09/02/2006, 10h16
  3. Réponses: 10
    Dernier message: 14/04/2005, 19h23
  4. [Free Pascal] Graphique avec Dev-Pascal
    Par CompuTux dans le forum Free Pascal
    Réponses: 15
    Dernier message: 03/09/2004, 02h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo