该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
主要代码:
'接受按钮事件
Private Sub Command1_Click()
On Error GoTo err Command1.Enabled = False
Ctime = Format(Now, "yyyymmdd_hhmmss")
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.Settings = CStr(Combo2) & "," & CStr(Combo3) & "," & CStr(Combo5) & "," & CStr(Combo6)
'MSComm1.Settings = "115200,N,8,1"
MSComm1.InputMode = comInputModeBinary
'MSComm1.Handshaking = comNone
MSComm1.InBufferSize = 512
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.InBufferCount = 0
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
If err Then
MsgBox "串口通信无效。"
Exit Sub
End If
End If
err: If err.Number <> 0 Then MsgBox "错误代码:" & err.Number & vbCrLf & "错误信息:" & err.Description End Sub
'端口事件启动Private Sub MSComm1_OnComm()
Dim i%
Case comEvReceive ' 收到 RThreshold # ofchars.
getLen = MSComm1.InBufferCount
Open ".\GetLen.txt" For Append As #1
Print #1, getLen
Close #1
av = MSComm1.Input
getBytes = av
For i = 0 To getLen - 1
Open ".\Data.txt" For Append As #1
Print #1, getBytes(i)
Close #1
Next
Countnumb = Countnumb + 1
Label2.Caption = Countnumb
Case Else
End Select
End Sub