Structure fichiers midifile - midi (bf2)

Soyez le premier à donner votre avis sur cette source.

Vue 7 619 fois - Téléchargée 584 fois


Description

J'ai vu que certaines personnes s'interressent au MIDIFILE.
J'ai tiré un peu de Code de mon ATARI et je vous l'ai jeté dans VB6.
A vous de l'améliorer.
Afyn - Navedac

Conclusion :


Allez dans la fenêtre exécution ou dans le fichier log
Le parser est un peu simple mais bon ça peu suffire a comprendre.
BF1 - J'ai rajouté un glissé -> déposé et simplifié le Calcul des Delta Times.
BF2 - J'ai enlevé pas mal de bugs surtout au niveau des Meta Events. (21-09-2002)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Fife Messages postés 73 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 16 mars 2008 3
15 sept. 2002 à 15:39
arf... un parseur de fichiers midi...
C'est ce que je suis en train de faire... :D
Le mien est presque fini (mais ya encore quelques soucis de présentation...)

aller bon courage
@+
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
13 sept. 2002 à 15:40
Il reste à corriger la ligne suivante : enlever les "" :
Open "Form2.CommonDialog1.FileName" For Output As #1

Tout le code est inutile dans Form2 (seule la Form est utile pour le cmddlg : en fait on peut se passer de la form avec CreateObject)
On Error GoTo ErrHandler
Dim CDLG As Object
Set CDLG = CreateObject("MSComDlg.CommonDialog")
With CDLG
.DialogTitle = "Choisir un fichier .mid"
.Filter = "Fichiers au format Midi|*.mid"
.InitDir = App.Path
.ShowOpen
End With
Open CDLG.FileName For Binary As #1 ' Ouvre le fichier.
Set CDLG = Nothing

Cela étant dit, c'est le premier parseur de fichier midi qui est fonctionnel sur VBFrance, bravo ! mais le resultat est un peu obscure encore, ca serait bien s'il y avait plusieurs niveaux de détails : un niveau debug ou il y a tout, et un niveau normale ou il n'y a que les notes avec le n° de canal sur lequel la note est jouée, ca serait sympa si quelqu'un pouvait le faire.
Autre idée : récuperer le nom du fichier en argument de la ligne de commande, comme ca en faisant un sendto MidiView.exe avec l'explorateur, on aurrait le fichier parsé, cool !
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
11 sept. 2002 à 14:01
Maintenant, tu devrais corriger la ligne :
Open "Form2.CommonDialog1.FileName" For Output As #1
Je te conseille d'utiliser App.path au lieu de chemin en dur tq :
Form2.CommonDialog1.InitDir = "D:MIDIBVMIFIVIEW"
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
11 sept. 2002 à 09:03
tu devrais corriger la ligne :
Open "D:MIDIVBMidiWiewMidiView.txt" For Output As #1

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.