Discussion :

[Cedrun]

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

[Alcatîz]

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

[Clandestino]

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.

[Cedrun]

Ok je vais essayer tout ca ! Merci...