Discussion :

[timetheo]

Bonjour,

voici mon problème :
j'ai écrit ce code sous TP7 et ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program essai_son_aleatoire ;
Uses crt ;
Var i, f : integer ;
BEGIN
repeat
randomize;
For i := 1 to 10 do
Begin
For f := 100 to 200 do
Sound (random(i)*f ) ;
Delay (random(5)*20) ;
End ;
Nosound ;
until keypressed;
END.

Lorsque j'essaie de l'exécuter sous "Borland Pascal" sur une autre machine, en changeant le uses crt par un uses wincrt, ça ne marche pas. Il ne semble pas connaître la fonction SOUND.
Quelqu'un pourrait-il m'aider ?
Auriez-vous une fonction équivalente pour faire du son sous "Borland Pascal" ?
Par avance merci.

TimeTheo.

[Transgarp]

Dans mon Programmer's Reference de Borland Pascal with Objects à la page 227 il est mentionné que la procédure Sound(Hz : Word) ne fonctionne qu'avec l'unit CRT

[timetheo]

Dans mon Programmer's Reference de Borland Pascal with Objects à la page 227 il est mentionné que la procédure Sound(Hz : Word) ne fonctionne qu'avec l'unit CRT

Merci beaucoup.

Auriez-vous une solution pour faire du son avec une autre procédure ?

[Alcatîz]

Bonjour et bienvenue !

Il faut passer par l'API de Windows. Une série de routines, devenues obsolètes sous Windows 3.1 mais conservées par souci de compatibilité, permettent de créer du son. Je n'ai pas de doc sous la main mais il doit être possible d'en trouver sur le net.

Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
OpenSound;
SetVoiceSound(1, 100 * 2 ^ 16, 100);
SetVoiceSound(1, 90 * 2 ^ 16, 90);
SetVoiceSound(1, 80 * 2 ^ 16, 90);
StartSound;
repeat until (WaitSoundState(1) <> 0);
CloseSound;