- 博客(0)
- 资源 (1)
- 收藏
- 关注
vb串口调试助手
vb串口调试助手,源码下载
Private Sub CmdSendFile_Click() '发送文件
On Error GoTo Err
If MSComm1.PortOpen = True Then ' 如果串口打开了,则可以发送数据
If FileData = "" Then ' 判断发送数据是否为空
MsgBox "发送的文件为空", 16, "串口调试助手" ' 发送数据为空则提示
Else
If ChkHexReceive.Value = 1 Then ' 如果按十六进制接收时,按二进制发送,否则按文本发送
MSComm1.InputMode = comInputModeBinary ' 二进制发送
Else
MSComm1.InputMode = comInputModeText ' 文本发送
End If
MSComm1.Output = Trim(FileData) ' 发送数据
ModeSend = True ' 设置文本发送方式
End If
Else
MsgBox "串口没有打开,请打开串口", 48, "串口调试助手" ' 如果串口没有被打开,提示打开串口
End If
Err:
End Sub
'====================================================================================
' 发送文本数据
'====================================================================================
Private Sub CmdSend_Click() ' 发送按钮
On Error GoTo Err
If MSComm1.PortOpen = True Then ' 如果串口打开了,则可以发送数据
If TxtSend.Text = "" Then ' 判断发送数据是否为空
MsgBox "发送数据不能为空", 16, "串口调试助手" ' 发送数据为空则提示
Else
If ChkHexSend.Value = 1 Then ' 发送方式判断
MSComm1.InputMode = comInputModeBinary ' 二进制发送
Call hexSend ' 发送十六进制数据
Else
2013-07-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人