[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:

---

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 ;)

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

sous windows il vaut mieux declarer l'unité windows dans les uses et utiliser :

Citation:

---

function Beep(
dwFreq , // sound frequency, in hertz
dwDuration :DWORD // sound duration, in milliseconds
): boolean;

---

et pour les blancs, la fonction sleep;
exemple :

Code:

---

1 2 3 4 5 6 7 8 9

program musique;   uses windows;   begin beep(1000,1000); sleep(500); beep(2000,500); end.

---

Ok je vais essayer tout ca ! Merci...