Structure fichiers midifile - midi (bf2)

Soyez le premier à donner votre avis sur cette source.

Vue 7 474 fois - Téléchargée 568 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
Messages postés
73
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
16 mars 2008
2
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
@+
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

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 !
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

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"
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

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.