求VB.6串口接收字符串代碼！謝

給段代碼參考：

Option?Explicit

Dim?strss?As?String

Dim?sum?As?Integer

Private?Sub?Command1_Click()?'開始接收

Label1.Caption?=?"?"

If?MSComm1.PortOpen?=?True?Then

MSComm1.PortOpen?=?False

End?If

If?MSComm1.PortOpen?=?False?Then

MSComm1.CommPort?=?1?'串口號，

MSComm1.Settings?=?"9600,n,8,1?"'串口的屬性

MSComm1.InputLen?=?0

MSComm1.RThreshold?=?9

MSComm1.InputMode?=?comInputModeText

MSComm1.PortOpen?=?True'打開通信串口

MSComm1.InBufferCount?=?0

MSComm1.OutBufferCount?=?0

End?If

Print?MSComm1.PortOpen

End?Sub

Private?Sub?MSComm1_OnComm()

Dim?k,?i,?j?As?Integer

'Dim?myarray()?As?Byte既然以文本模式接收，則無須用Byte數組來獲取數據

Select?Case?MSComm1.CommEvent

Case?comEvReceive

k?=?MSComm1.InBufferCount

If?k?=?0?Then

Exit?Sub

End?If

ReDim?myarray(k?-?1)

strss?=?MSComm1.Input

Label1.Caption?=?Val(Mid(StrReverse(strss),?2,?8))

strss?=?""

Case?comEvSend

MSComm1.OutBufferCount?=?0

MSComm1.InBufferCount?=?0

End?Select

End?Sub

Private?Sub?Command5_Click()?'停止接收

If?MSComm1.PortOpen?=?True?Then

MSComm1.PortOpen?=?False

End?If

End?Sub

上一篇:JAVA中的鍵盤事件KeyEvent

下一篇:網吧wifi只給壹個驗證碼怎麽連接？