开发工具:
文件大小: 62kb
下载次数: 0
上传时间: 2013-07-24
详细说明： 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 ' 如果按十六进制接收时，按二进制发送，否则按文本发送 MSCom m1.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 ' 按十六进制接收文本方式发送的数据时，文本也要按二进制发送发送 If ChkHexReceive.Value = 1 Then MSComm1.InputMode = comInputModeBinary ' 二进制发送 Else MSComm1.InputMode = comInputModeText ' 文本发送 End If MSComm1.Output = Trim(TxtSend.Text) ' 发送数据 ModeSend = False ' 设置文本发送方式 End If End If Else MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口 End If Err: End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
