文件名称：vb串口调试助手
文件大小：62KB
文件格式：ZIP
更新时间：2016-08-13 04:16:18
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 ' 按十六进制接收文本方式发送的数据时，文本也要按二进制发送发送 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
【文件预览】：
vb串口调试助手
----图片()
--------mouse.cur(766B)
--------PARTS038.ICO(766B)
--------com.ico(4KB)
--------NETW0019.ICO(766B)
--------Close.jpg(772B)
--------zhaojun.jpg(15KB)
--------kai.jpg(15KB)
--------工程1.exe(116KB)
--------Open.jpg(768B)
--------guan.jpg(14KB)
--------未标题-1.bmp(192B)
----串口调试助手.vbp(886B)
----FrmHelp.log(89B)
----Module1.bas(31B)
----串口调试助手.vbw(134B)
----串口调试助手.log(51B)
----串口调试助手.frm(43KB)
----FrmHelp.frm(1KB)