VB的二进制通信

[kas1]

您好
我需要把一些数据通过串口使用max232到微控制器。到目前为止
， 我可以把管理的ASCII charactores通过VB的。
但我需要把一些二进制值通过一个例子让VB.as说如果我按下一个按钮
， '11101001 '应该传递给微控制器。什么样的变化
， 我需要在我的VB的程序？任何人
， 请帮助我。附件I我的代码
thnx私人小组Form_Load （ ）
MSComm1.Settings = “ 2400年，
氮 ， 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]

你应该使用人权委员会（ ）和递增（ ）函数转换字符为数字...如果您需要一个二进制代表您必须创建一个新的程序（ Sub或Function ）这样做的东西...

码：分char2bin （ mychar ）

暗柜

昏暗charValue ， charout

charValue =递增（ mychar ）

为反= 1至8

如果（ charValue和＆ H80 ） “ ” 0然后

charout = “ 1 ”

其他的

charout = “ 0 ”

endif

charValue = charvalue * 2 '转移一个地方。

txtRx.text = textRx.text ＆ charout

未来反

分结束私人小组MSComm1_OnComm （ ）

暗淡的气温，我和c

如果MSComm1.CommEvent = comEvReceive然后

气温= MSComm1.Input

我= 1至伦（气温）

ç = strmid （气温，一， 1 ）

chra2bin （三）

下面，我

为此，如果完小组

 

[kas1]

thanx的答复
字母i ddid成功