Midi in en vb2005

Soyez le premier à donner votre avis sur cette source.

Vue 10 256 fois - Téléchargée 894 fois

Description

Pour ceux qui possèdent un clavier Midi.
Démontre la capture des évènements l'entrée Midi
Il faut sélectioner le périphérique d'entreé en faisant un clic droit sur le pianon guide.

Afyn
Navedac

Le savoir faire des cancres

Conclusion :


Merci à EBArtsoft encore une fois

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
6
Bonjour,

Mis dans vbnet10, y a rien qui marche, comme beaucoup de sources ici hélas...

En plus le code est totalement éclaté entre plusieurs dossiers alors qu'il serait plus compréhensible de tout regrouper dans une ou deux forms.

Pour moi : A enlever des sources !

Cordialement, Joe.
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Bravo pour être sorti de ta caverne d'ours polaire !
C'est bien de passer voir les pingouin de temps en temps :p
Messages postés
608
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016

J'ai testé en remplaçant par la ligne suivante :

MenuItem.Text = System.Text.Encoding.ASCII.GetString(MidiInCaps.ProductName)

C'est par vraiment ça non plus ...

Voilà Product Name :

<MarshalAs(UnmanagedType.ByValArray, SizeConst:=64)> Dim ProductName As Byte()

Normalement c'est une structure de 32 Bytes
Mais avec .NET ça ne fonctionnait pas
J'ai augmenté la structure à 64 Bytes, mais c'est forcément du bricolage...

Merci de votre aide

Afyn
Navedac
Messages postés
608
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016

J'avais utilisé la fonction Unicode.getstring

MenuItem.Text = Encoding.Unicode.GetString(MidiInCaps.ProductName)

Mais on peut voir sur la capture d'écran qu'il y a des petits soucis.

Je vais tester avec ascii.getstring

Merci pour ta réponse

Afyn
Navedac
Messages postés
467
Date d'inscription
lundi 24 juin 2002
Statut
Membre
Dernière intervention
9 mars 2011

jeux de caractères :
namespace => System.Text.Encoding
ASCII
Unicode
UTF8
UTF16
Default (celui du systeme probablement l'ANSI sur bcp de pc)


string=>byte :
dim btData() as Byte = system.text.encoding.ascii.getbytes("salut")

byte => string
dim btData() as Byte
...
'remplissage
...
'decodage
dim sData as String = system.text.encoding.ascii.getstring(btdata)


(enfin ya plusieur fonction avec de l'overload a toi de choisir l'encoding qui te correspond ainsi qui les methode les plus approprié
j'espere avoir repondu a ta question sur les "caractère multibytes"
Afficher les 6 commentaires

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.