我这个程序哪里错了???
sy451 2006-08-28 05:32:36 Option Explicit
Dim data(4) As Byte
Dim c As Variant
Dim m_redim As Boolean
Dim s As String
Private Sub Command1_Click()
If MSComm1.PortOpen <> True Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub Form_Load()
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 1 '初始是读取1个字符 以后将设置为4
MSComm1.SThreshold = 1 '初始是接收1个字符 以后将设置为4
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.OutBufferCount = 0 '清除发送缓冲区
m_redim = True '重组数据结构
Timer1.Interval = 1000
End Sub
Private Sub MSComm1_OnComm()
Dim c As Variant
Dim num As Integer
Dim m_byte(0) As Byte
Select Case MSComm1.CommEvent
'判断MSComm1通信事件
Case comEvReceive
'收到Rthreshold个字节产生的接收事件
If m_redim = True Then '''''''''''''''''''''
c = MSComm1.Input
m_byte(0) = AscB(c)
If m_byte(0) = 10 Then '是否是结束标志 ---!! 查看是否是0A结束标志
MSComm1.RThreshold = 4
MSComm1.InputLen = 4
m_redim = False
End If
Else
c = MSComm1.Input '接4个字符
' 这里怎么才能把前两个BYTE拿出来呀
End If
Case Else
End Select
End Sub