Option Explicit ' 强制显式声明
Dim ComSwitch As Boolean ' 串口开关状态判断
Dim FileData As String ' 要发送的文件暂存
Dim SendCount As Long ' 发送数据字节计数器
Dim ReceiveCount As Long ' 接收数据字节计数器
Dim InputSignal As String ' 接收缓冲暂存
Dim OutputSignal As String ' 发送数据暂存
Dim DisplaySwitch As Boolean ' 显示开关
Dim ModeSend As Boolean ' 发送方式判断
Dim Savetime As Single ' 时间数据暂存 延时用
Dim SaveTextPath As String
Private Sub cmbCOM_Change()
If cmbCOM.ListIndex + 1 = MSComm1.CommPort Then Exit Sub
Timer1.Enabled = False
TimeDelay 100
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
cmdOpenCOM.Enabled = True
End Sub
Private Sub cmdOpenCOM_Click()
LED1.FillColor = QBColor(10)
If cmbCOM.ListIndex >= 0 And cmbCOM.ListIndex <= 20 Then
MsgBox cmbCOM.ListIndex + 1
MSComm1.CommPort = cmbCOM.ListIndex + 1
Else
MsgBox "指定通信端口时发生错误!", vbCritical + vbOKOnly, "系统信息"
Exit Sub
End If
'激活错误检测机制
'On Error GoTo comErr
MSComm1.Settings = "9600,n,8,1" '设定通信参数
MSComm1.PortOpen = True '打开通信端口
MSComm1.RThreshold = 10
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText '以文本方度接收
'cmdOpenCOM.Enabled = False
'cmdStart.Enabled = True
If MSComm1.PortOpen = True Then
MsgBox "kaiqi!"
End If
Exit Sub
'comErr:
'MsgBox "打开通信端口时发生错误!请确定通信端口存在且正常。", vbCritical + vbOKOnly, "系统信息"
End Sub