Dialogue avec une carte à puce

Question

J'ai enfin réussi à faire un reset sur ma carte à puce grace au controle mscomm1.
Le problème est que l'ATR est illisible. 
Ca ressemble à ca : "Y[ï6ßÉöÿ"
Ca c'est avec mscomm1 en comInputModeText
 
 
J'ai essayé avec mscomm1 en comInputModeBinary mais ca bug : Erreur d'éxecution 13 : Type incompatible
 
Voici mon code pour afficher la réponse de carte :

    Private Sub MSComm1_OnComm()
    Text1.Text = Text1.Text + MSComm1.Input
    End Sub


Savez vous comment résoudre ce problème ?
Merci d'avance

Kangourou_Nomade · Answer

Perso je dirais que c'est pas trop grave ta chaine bizarre dans le sens ou tu peux tirer de ta chaine un tableau Byte :



Dim ByteTab() as Byte



'Input en mode text bien sur



Redim ByteTab(1 to len(MSComm1.Input))



For i = 1 to Len(MSComm1.Input)

ByteTab(i)=ascB(mid$(MSComm1.Input),i,1)

Next i

Le Rasta fou rien, vous le savez bien

stolken · Answer

Oula tu peux expliquer ton code je comprend rien ?

Ca sert à quoi "len" ?

Dialogue avec une carte à puce

2 réponses

Discussions similaires