VB binaire communication

[kas1]

salut
i besoin d'envoyer des données par le port série en utilisant max232 à un microcontrôleur.Jusqu'à présent, je parvient à envoyer charactores ASCII via VB.
mais
j'ai besoin d'envoyer de valeur binaire VB.as par exemple permet de dire si je presse un bouton'11101001 'devrait passer du microcontrôleur.quels sont les changements que
j'ai besoin de faire dans mon VB Progr?personne
s'il vous plaît, aidez-moi.i ci-joint mon code
thnxPrivate Sub Form_Load ()
MSComm1.Settings = "2400, N, 8,1"
MSComm1.InputLen = 1
MSComm1.CommPort = 2
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub

Private Sub Form_Unload (Cancel As Integer)
Close # 1
End Sub

Private Sub MSComm1_OnComm ()
Si MSComm1.CommEvent = Puis comEvReceive
txtRx.Text = txtRx.Text & MSComm1.Input
End If

End Sub

Private Sub cmdtx_Click ()

MSComm1.Output = txtTx.Text

End Sub

 

[news]

Firma Samsung przeważnie testuje wersje beta Androida na rynku polskim lub niemieckim. Tym razem na stronie Samsunga znalazło się trzecie wydanie beta systemu Android 5.0 Lollipop dla smartfona Samsung Galaxy S5. Nowy ROM oznaczony jest jako G900FXXU1BNL9 i dedykowany jest na rynek polski. Wg listy zmian testowa wersja ma poprawić wydajność....

Read more...

 

[Kurenai_ryu]

vous devriez utiliser le Chr () et Asc () fonctions de conversion de caractères de chiffres ...Si vous avez besoin d'une représentation binaire, vous devez créer une nouvelle procédure (sub ou fonction) de faire ce genre de choses ...

Code:sous char2bin (mychar)

dim counter

dim charValue, charout

charValue = Asc (mychar)

pour compteur = 1 à 8

if (charValue et & h80) <> 0 alors

charout = "1"

autre

charout = "0"

endif

charValue = charvalue * 2 'un changement de place.

txtRx.text = textRx.text & charout

prochain contre

end subPrivate Sub MSComm1_OnComm ()

dim temp, i, c

Si MSComm1.CommEvent = Puis comEvReceive

temp = MSComm1.Input

pour i = 1 to len (temp)

c = strmid (temp, i, 1)

chra2bin (c)

next i

End IfEnd Sub

 

[kas1]

merci pour la réponse
i ddid avec succès