VB binærfilen kommunikasjon

[kas1]

hei
Jeg trenger å sende data via den serielle porten ved hjelp max232 til en microcontroller.Så langt jeg kan klare å sende ASCII charactores via VB.
men jeg må sende noen binærverdi via VB.as et eksempel kan si om jeg trykker på en knapp'11101001 'bør pass til microcontroller.Hva er de endringene som jeg trenger å gjøre i mitt VB progam?noen behage hjelpe meg.Jeg koblet min kode
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 (avbestille As Integer)
Lukk # 1
End Sub

Private Sub MSComm1_OnComm ()
Hvis MSComm1.CommEvent = comEvReceive Deretter
txtRx.Text = txtRx.Text & MSComm1.Input
End if

End Sub

Private Sub cmdtx_Click ()

MSComm1.Output = txtTx.Text

End Sub

 

[Kurenai_ryu]

bør du bruke Chr () og Asc () funksjoner for å konvertere tegnene til tallene ...Hvis du trenger en binær representasjon må du opprette en ny prosedyre (sub eller funksjon) å gjøre at ting ...

Code:sub char2bin (mychar)

dim counter

dim charValue, charout

charValue = Asc (mychar)

for teller = 1 til 8

if (charValue og & H80) <> 0 deretter

charout = "1"

ellers

charout = "0"

endif

charValue = charvalue * 2 "Skift ett sted.

txtRx.text = textRx.text & charout

neste møte

end subPrivate Sub MSComm1_OnComm ()

dim temp, i, c

Hvis MSComm1.CommEvent = comEvReceive Deretter

temp = MSComm1.Input

for i = 1 til len (temp)

c = strmid (temp, i, 1)

chra2bin (c)

neste i

End ifEnd Sub

 

[kas1]

thanx for svar
Jeg ddid det lykkes