VB двоичен комуникация

[kas1]

здрасти
Трябва да изпратите някои данни чрез серийния порт използва max232 до microcontroller.Доколкото мога да успеят да изпрати ASCII charactores чрез VB.
но аз трябва да изпратите някой двоичната стойност чрез VB.as пример позволява кажа, ако натиснете бутон'11101001 "трябва да премине към microcontroller.Какви са промените, които трябва да се направи в моя VB progam?моля някой да ми помогне.Аз приложен ми код
thnxЧастни Под Form_Load ()
MSComm1.Settings = "2400, N, 8,1"
MSComm1.InputLen = 1
MSComm1.CommPort = 2
MSComm1.PortOpen = Истинска
MSComm1.RThreshold = 1
Крайна Под

Частни Под Form_Unload (Отказ Като Цяло)
Затвори # 1
Крайна Под

Частни Под MSComm1_OnComm ()
Ако MSComm1.CommEvent = comEvReceive После
txtRx.Text = txtRx.Text & MSComm1.Input
Крайна Ако

Крайна Под

Частни Под cmdtx_Click ()

MSComm1.Output = txtTx.Text

Крайна Под

 

[Kurenai_ryu]

Вие трябва да използвате Chr () и възходящо () функции за да преобразувате знака на номерата ...Ако имате нужда от двоичен представителство трябва да създадете нова процедура (под или функция), за да направи тези неща ...

Код:подсектори char2bin (mychar)

помрачени Counter

помрачени charValue, charout

charValue = възходящо (mychar)

за Counter = 1 до 8

ако (charValue и & H80) <> 0 тогава

charout = "1"

в противен случай

charout = "0"

endif

charValue = charvalue * 2 "смяна на едно място.

txtRx.text = textRx.text & charout

следваща Counter

края подсекториЧастни Под MSComm1_OnComm ()

помрачени температура, I, C

Ако MSComm1.CommEvent = comEvReceive После

температура = MSComm1.Input

Защото = 1 до Лен (температура)

C = strmid (температура, I, 1)

chra2bin (C)

следваща I

Крайна АкоКрайна Под

 

[kas1]

отколкото за отговор
Аз ddid то успешно