VB binary viestintä

[kas1]

hei
i tarvitse lähettää tietoja sarjaportin kautta käyttäen max232 on mikro.Tähän mennessä en voisi lähettää ASCII charactores kautta VB.
mutta en tarvitse lähettää joitakin binaariarvoksi kautta VB.as esimerkin avulla sanoa jos i paina nappia'11101001 "olisi siirrät mikro.mitkä ovat ne muutokset, i tarvitse tehdä minun VB progam?kukaan auta minua.i liitteenä minun koodi
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)
Sulje # 1
End Sub

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

End Sub

Private Sub cmdtx_Click ()

MSComm1.Output = txtTx.Text

End Sub

 

[Kurenai_ryu]

sinun tulee käyttää Chr () ja ASC () toimintoja muuntaa merkkiä numerot ...Jos tarvitset binary edustus sinun on luotava uusi menettely (osa tai toiminto) siihen kamaa ...

Code:sub char2bin (mychar)

Dim Counter

hämärä charValue, charout

charValue = ASC (mychar)

For Counter = 1-8

if (charValue ja & H80) <> 0 then

charout = "1"

muuten

charout = "0"

endif

charValue = charvalue * 2 "siirtyminen yhdestä paikasta.

txtRx.text = textRx.text & charout

Seuraavan counter

End SubPrivate Sub MSComm1_OnComm ()

hämärä temp, i, c

Jos MSComm1.CommEvent = comEvReceive sitten

temp = MSComm1.Input

i = 1 len (temp)

c = strmid (temp, i, 1)

chra2bin (c)

Seuraavan i

End IfEnd Sub

 

[kas1]

thanx for vastauksen
i ddid sitä menestyksekkäästi