VB binario di comunicazione

[kas1]

salve
Ho bisogno di inviare dati attraverso la porta seriale utilizzando MAX232 di un microcontrollore.Finora mi potrebbe riuscire a inviare ASCII charactores attraverso VB.
ma ho bisogno di inviare alcune valore binario VB.as tramite un esempio, se diciamo i premere un pulsante'11101001 'dovrebbe passare al microcontrollore.quali sono le modifiche che ho bisogno di fare nel mio VB progam?qualcuno per favore mi aiuti.ho attaccato il mio codice
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 ()
Se MSComm1.CommEvent = Poi comEvReceive
txtRx.Text = txtRx.Text & MSComm1.Input
End If

End Sub

Private Sub cmdtx_Click ()

MSComm1.Output = txtTx.Text

End Sub

 

[Kurenai_ryu]

si dovrebbe usare la Chr () e Asc () per convertire i caratteri per i numeri ...Se avete bisogno di una rappresentazione binaria è necessario creare una nuova procedura (sub o una funzione) per fare questa roba ...

Codice:sub char2bin (mychar)

dim counter

dim charValue, charout

charValue = Asc (mychar)

per contatore = 1 a 8

se (e charValue & H80) <> 0 allora

charout = "1"

altro

charout = "0"

endif

charValue = charvalue * 2 'luogo uno spostamento.

txtRx.text = textRx.text & charout

prossima contro

End SubPrivate Sub MSComm1_OnComm ()

dim temp, i, c

Se MSComm1.CommEvent = Poi comEvReceive

temp = MSComm1.Input

per i = 1 a len (temp)

c = strmid (temp, i, 1)

chra2bin (c)

i prossimi

End IfEnd Sub

 

[kas1]

Grazie per la risposta
i ddid con successo