Production d'un fichier MIDI à partir d'une chaîne de caractères façon QBasic

Bonjour !

J'avais trouvé sur le forum freebasic.net un programme amusant, qui produit un fichier MIDI à partir d'une chaîne de caractères suivant la syntaxe de la commande PLAY de QBasic.

J'ai essayé de traduire le code en Pascal, et pour le moment je n'y suis pas arrivé. Je poste mon code au cas où quelqu'un verrait l'erreur avant moi.

Le fichier sarabande.mid est produit par le programme en Basic ; le fichier sarabande1.mid est produit mon programme en Pascal. Si vous l'écoutez, ça donne quelque chose d'amusant : on dirait de la musique "contemporaine". Il faudrait que j'essaie de l'envoyer à France-Musique...

La transcription de la sarabande de Bach est l'œuvre de votre serviteur. J'espère que vous apprécierez le raffinement de la chose. 8-)

Hello !

Ca fait un peu requiem, ta version :ptdr:
C'est pas une question de tempo à régler ? On dirait que le tien est 5 fois plus "lent" que l'original.

Citation:

---

Envoyé par M.Dlb

Ca fait un peu requiem, ta version :ptdr:
C'est pas une question de tempo à régler ? On dirait que le tien est 5 fois plus "lent" que l'original.

---

Hélas, je crois qu'il n'y a pas seulement une différence de tempo : ça n'a carrément plus rien à voir.

Bon, je vais comparer encore une fois le code original avec ma traduction. Mais je vais utiliser une chaîne plus courte. (Je ne sais pas pourquoi je n'ai pas eu cette idée plus tôt.)

Bonne nouvelle. Avec une chaîne de départ plus courte (CDE), les deux fichiers produits sont identiques.

Code:

---

1 2 3 4

#include "play2mid.bas"   midiFileName = "test1bas.mid" Play("CDE")

---

Code:

---

1 2 3

00000000: 4d54 6864 0000 0006 0000 0001 0078 4d54 MThd.........xMT 00000010: 726b 0000 0014 0090 307f 7880 3000 0090 rk......0.x.0... 00000020: 327f 7880 3200 00ff 2f00 2.x.2.../.

---

Code:

---

1 2 3 4 5 6 7

uses SysUtils, Play2Mid;   begin midiFileName := 'test1pas.mid'; Play('CDE'); end.

---

Code:

---

1 2 3

00000000: 4d54 6864 0000 0006 0000 0001 0078 4d54 MThd.........xMT 00000010: 726b 0000 0014 0090 307f 7880 3000 0090 rk......0.x.0... 00000020: 327f 7880 3200 00ff 2f00 2.x.2.../.

---

J'ai trouvé et corrigé une erreur. Il ne reste plus qu'une différence entre mes deux sarabandes : un "%" au lieu d'un "&". Mais je n'arrive pas à voir quelle est la partie du code qui génère ces caractères. :?

Bizarrement, à l'écoute, les deux fichiers semblent identiques.

Si quelqu'un comprend à quoi sert cette fonction, je suis preneur d'une explication.

Code:

---

1 2 3 4 5 6 7 8 9

function WriteVarLen(Value as integer) as string dim a as string a = chr(Value and 127) do while (Value > 127) Value = Value shr 7 a = chr((Value and 127) or 128) + a loop return a end function

---

Je pense l'avoir traduite comme il faut, mais sans en comprendre du tout la logique. :?

J'ai trouvé la dernière erreur. Il fallait utiliser Round et non pas Trunc. En pièce jointe la version corrigée. :)