Compatibilité TP7 et Borland Pascal pour la fonction SOUND

Bonjour,

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

Code:

---

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.

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

Citation:

---

Envoyé par 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

---

Merci beaucoup.

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

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:

---

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;

---

;)