各位高人,小弟正在编个小的串口通信的程序,就是将一个memory里的东西显示出来.希望高人指点. 
在我的form里,有3个text 分别表示 voltage , current, 和一个东西direction.有一个start command, end command 我写了一些东西,望高人指点一下,小弟在此表示感激,谢谢.
Private Sub Command1_Click()
Dim Num As Integer

Dim outbte(0) As Byte

Num = Val(Text1.Text)

outbte(0) = CByte(Num)

MSComm1.OutBufferCount = 0 '...清空输出寄存器

MSComm1.Output = outbte(0) '...发送数据



Private Sub Command2_Click()
'...退出

Unload Me

End Sub


Private Sub Form_Load()
'...初始化

MSComm1.CommPort = 1 '...使用Com1口

MSComm1.Settings = "9600,n,8,1" '...设置通讯参数

MSComm1.PortOpen = True '...打开串口


End Sub

Private Sub MSComm1_OnComm()
Dim indata As Variant

Dim bte(0) As Byte

Select Case MSComm1.CommEvent

Case comEvReceive '...有接受事件发生

indata = MSComm1.Input

'...注意！要通过MSComm控件发送或接收二进制数据必须用Variant类型的变量对二进

'...制Byte类型的变量进行转换！

bte(0) = AscB(indata)

Text2.Text = bte(0)

MSComm1.InBufferCount = 0 '...清空输入寄存器

End Select

End Sub