MIDI IN EN VB2005

Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016 - 9 juil. 2007 à 23:13
 Utilisateur anonyme - 17 déc. 2011 à 20:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43394-midi-in-en-vb2005

Utilisateur anonyme
17 déc. 2011 à 20:41
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.
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
11 juil. 2007 à 21:57
Bravo pour être sorti de ta caverne d'ours polaire !
C'est bien de passer voir les pingouin de temps en temps :p
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
10 juil. 2007 à 11:31
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
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
10 juil. 2007 à 11:12
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
TeBeCo Messages postés 467 Date d'inscription lundi 24 juin 2002 Statut Membre Dernière intervention 9 mars 2011
10 juil. 2007 à 08:05
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"
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
9 juil. 2007 à 23:13
Quelques soucis avec les caractères Multibytes.
S'il y a des connaisseurs je veux bien apprendre.

Afyn
Navedac
Rejoignez-nous