下载文档原格式
经典的串口调试助手源代码（一）Dim OutputAscii As BooleanDim InputString As StringDim OutputString As String'=====================================================================================' 变量定义'=====================================================================================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 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory AsString, ByVal nShowCmd As Long) As LongPrivate Sub CloseCom() '关闭串口On Error GoTo ErrIf MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭txtstatus.Text = "STATUS：COM Port Cloced" ' 串口状态显示mnuconnect.Caption = "断开串口"cmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchoff.Visible = TrueImgSwitchon.Visible = FalseErr:End SubPrivate Sub UpdateStatus()If MSComm.PortOpen ThenStatusBar1.Panels(1).Text = "Connected"mnuautosend.Caption = "自动发送"mnuconnect.Caption = "断开串口"ElseStatusBar1.Panels(1).Text = "断开串口"mnuautosend.Caption = "disautosend"mnuconnect.Caption = "打开串口"End IfStatusBar1.Panels(2).Text = "COM" & mPortStatusBar1.Panels(3).Text = MSComm.SettingsIf (OutputAscii) ThenStatusBar1.Panels(4) = "ASCII"ElseStatusBar1.Panels(4) = "HEX"End If'On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ' 如果有效则，自动发送If MSComm.PortOpen = True Then ' 串口状态判断mnuautosend.Caption = "Dis&autosend"TmrAutoSend.Interval = Val(TxtAutoSendTime) ' 设置自动发送时间TmrAutoSend.Enabled = True ' 打开自动发送定时器Elsemnuautosend.Caption = "autosend"ChkAutoSend.Value = 0 ' 串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ' 如果无效，不发送mnuautosend.Caption = "autosend"TmrAutoSend.Enabled = False ' 关闭自动发送定时器End IfErr:End SubPrivate Sub CmdSendFile_Click() '发送文件On Error GoTo ErrIf MSComm.PortOpen = True Then ' 如果串口打开了，则可以发送数据If FileData = "" Then ' 判断发送数据是否为空MsgBox "发送的文件为空", 16, "串口调试助手" ' 发送数据为空则提示ElseIf ChkHexReceive.Value = 1 Then ' 如果按十六进制接收时，按二进制发送，否则按文本发送MSComm.InputMode = comInputModeBinary ' 二进制发送ElseMSComm.InputMode = comInputModeText ' 文本发送End IfMSComm.Output = Trim(FileData) ' 发送数据ModeSend = True ' 设置文本发送方式End IfElseMsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfErr:End SubPrivate Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer,StopBit As Integer)On Error GoTo ErrorTrap ' 错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭mPort = Port ' 设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.InBufferSize = 1024 ' 设置接收缓冲区为1024字节MSComm.OutBufferSize = 4096 ' 设置发送缓冲区为4096字节MSComm.InBufferCount = 0 ' 清空输入缓冲区MSComm.OutBufferCount = 0 ' 清空输出缓冲区MSComm.SThreshold = 1 ' 发送缓冲区空触发发送事件MSComm.RThreshold = 1 ' 每X个字符到接收缓冲区引起触发接收事件MSComm.OutBufferCount = 0 ' 清空发送缓冲区MSComm.InBufferCount = 0 ' 滑空接收缓冲MSComm.PortOpen = True ' 打开串口If MSComm.PortOpen = True Thentxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," & Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsetxtstatus.Text = "STATUS：COM Port Cloced" ' 串口没打开时，提示串口关闭状态End IfExit SubErrorTrap: ' 错误处理Select Case Err.NumberCase comPortAlreadyOpen ' 如果串口已经打开，则提示MsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComCase ElseMsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComEnd SelectErr.ClearEnd SubPrivate Sub Comm_reSet(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer,StopBit As Integer)On Error GoTo ErrorHint ' 错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭mPort = Port ' 设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.PortOpen = True ' 打开串口If MSComm.PortOpen = True Thencmdswitch.Caption = "关闭串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\kai.jpg") ' 显示串口已经打开的图标ImgSwitchoff.Visible = Falsemnuconnect.Caption = "disconnect"ImgSwitchon.Visible = Truetxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," & Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsecmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchon.Visible = FalseImgSwitchoff.Visible = Truetxtstatus.Text = "STATUS：COM Port Cloced"End IfExit SubErrorHint: ' 错误处理Select Case Err.NumberCase comPortAlreadyOpen ' 如果串口已经打开，则提示MsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ' 调用关闭串口函数Case ElseMsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ' 调用关闭串口函数End SelectErr.Clear ' 清除Err 对象的属性End SubPrivate Sub Command1_Click()End SubPrivate Sub cbobaudrate_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1),cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbocom_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbodatabit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cboparitybit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbostopbit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub chkautosend_Click()On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ' 如果有效则，自动发送If MSComm.PortOpen = True Then ' 串口状态判断mnuautosend.Caption = "取消自动发送"TmrAutoSend.Interval = Val(TxtAutoSendTime) ' 设置自动发送时间TmrAutoSend.Enabled = True ' 打开自动发送定时器ElseChkAutoSend.Value = 0 ' 串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ' 如果无效，不发送mnuautosend.Caption = "自动发送数据"TmrAutoSend.Enabled = False ' 关闭自动发送定时器End IfErr:End SubPrivate Sub cmdamend_Click()Dim spShell As Object ' 定义存放引用对象的变量Dim spFolder As Object ' 定义存放引用对象的变量Dim spFolderItem As Object ' 定义存放引用对象的变量Dim spPath As String ' 定义存放的变量On Error GoTo Err ' 错误处理，防止取消打开文件夹时报错Const WINDOW_HANDLE = 0Const NO_OPTIONS = 0Set spShell = CreateObject("Shell.Application")Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS,"C:\Scripts")Set spFolderItem = spFolder.SelfspPath = spFolderItem.PathspPath = Replace(spPath, "\", "\") ' Replace函数的返回值是一个字符串txtsavepath.Text = spPath ' 把文件夹路径显示在标签上SaveTextPath = txtsavepath.Text ' 路径暂存Err:End SubPrivate Sub CmdClearCounter_Click()On Error GoTo ErrSendCount = 0 ' 发送计数器清零ReceiveCount = 0 ' 接收计数器清零txtRXcount.Text = "RX:" & 0 ' 接收计数txtTXcount.Text = "TX:" & 0 ' 发送计数Err:End SubPrivate Sub cmdclearrecieve_Click()TxtReceive.Text = ""End SubPrivate Sub cmdclearsend_Click()txtsend.Text = ""End SubPrivate Sub CmdHelp_Click()FrmHelp.ShowEnd SubPrivate Sub CmdQuit_Click()If MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭Unload Me ' 卸载窗体，并退出程序EndEnd SubPrivate Sub cmdsavedisp_Click()On Error GoTo Err ' 错误处理SaveTextPath = txtsavepath ' 路径暂存Open txtsavepath & "\1.txt" For Output As #1 ' 打开文件' 不存在的话会创建文件,如已存在会覆盖' output 改为append 为追加' 改为input 则只读Print #1, Year(Date) & "年" & Month(Date) & "月" & Day(Date) & _"日" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & _"秒" & vbCrLf & TxtReceive.Text + vbCrLf ' 把接收区的文本保存文本前加上保存时间（0000年00月00日00时00分00秒）' vbcrlf 为回车换行Close #1 ' 关闭文件txtsavepath = "OK,1.txt Save" ' 提示保存成功cmdsavedisp.Enabled = FalseSavetime = Timer ' 记下开始的时间While Timer < Savetime + 5 ' 循环等待5 - 要延时的时间DoEvents ' 转让控制权，以便让操作系统处理其它的事件。
经典串口调试助手源程序及串口通信设置标题：串口调试助手之经典源程序及通信设置导言：串口调试助手是一种用于串口通信的调试工具，广泛应用于工业控制、测试等领域。
本文将介绍一种基于Windows平台的经典串口调试助手源程序及相关的串口通信设置，旨在帮助读者更好地了解该工具的使用和配置方法。
一、经典串口调试助手源程序1.开发平台：本程序采用C++ Builder 6.0开发。
2.功能概述：（1）串口设置包括设置串口波特率、数据位、校验位、停止位、流控、超时等参数。
（2）发送数据支持以字符串或Hex方式发送数据。
（3）接收数据实时显示串口接收到的数据，并支持数据格式设置。
（4）自动发送数据支持单次或循环发送，可设置发送时间间隔和发送次数。
（5）保存数据支持将接收到的数据保存为文本或二进制文件。
3.源程序结构本程序主要由以下几个模块组成：（1）Main Form：主窗体，包含图形界面显示和基本操作控件。
（2）Serial：串口类，负责串口相关操作，例如打开、关闭、设置参数、发送、接收等。
（3）SaveToFile：文件保存类，负责数据保存到文件中。
（4）Config：配置类，负责程序设置和读取。
（5）Hex：十六进制转换类，用于将字符串转换为Hex格式。
二、串口通信设置1.串口连接串口连接有两种方式：一种是通过RS232串口连接，需要将串口线插入串口，然后将串口线连接到目标设备；另一种是通过USB转串口连接，需要将USB转串口转接器插入计算机USB接口，然后将串口线连接到USB转串口转接器。
2.串口参数设置在使用串口调试助手前，必须先设置串口参数。
打开主窗体后，点击“串口设置”按钮，在弹出的窗口中设置串口的参数，包括波特率、数据位、校验位、停止位、流控和超时等参数。
其中，波特率是指通信时的数据传输速率，常用的有9600、19200、38400、57600、115200等。
数据位是指每次传输的数据位数，常用的有8位、7位、6位等。
串口调试助手使用说明和技术总结串口调试助手的技术报告1.软件简介串口调试助手是在Windows平台下开发的，工具是VC++6.0。
串口调试助手版支持常用的300 ~ 115200bps波特率，能设置校验、数据位和停止位，能以ASCII码或十六进制接收或发送数据或字符（包括中文），能发送文本文件，可以任意设定自动发送周期，并能将接收数据保存成文本文件。
是工程师调试串口的好助手工具。
2.软件特点(1) 支持XP /Vista/Win7系统；(2) 绿色软件，不需安装。
运行解压软件，将压缩包解压到指定目录即可。
卸载时只需将程序目录删除；(3) 支持常用的300 ~ 115200bps波特率；(4) 端口范围是COM1-COM4；(5) 能设置校验、数据位和停止位；(6) 能以字符或十六进制收发数据，支持中文字符的收发；(7) 支持文件数据的发送；(8) 数据发送端允许设置发送周期，自动发送数据；(9) 支持键盘输入，将键盘数据发送到串口；(10)支持自动清空(若设置了“自动清空”，则达到50行后，自动清空接收编辑框中显示的数据)接收窗口数据；(11) 如果没有“自动清空”，数据行达到400后，也自动清空，因为数据过多，影响接收速度，显示是最费CPU时间的操作(12)能够保存接收到的数据，保存地址默认的是C:\COMDATA；(13)设置了“停止显示”和“继续显示”按钮，可以方便的照出要使用的信息；(14)图钉按钮功能使程序能浮在最上层。
3.软件界面图1串口调试助手V3.0界面4.软件的设计流程本软件使用的是Windows API 串口编程，其编程基本步骤如下：(1)打开串口；(2)建立串口通信事件；(3)初始化串口；(4)建立数据线程；(5)读写数据；(6)结束时关闭串口。
5.遇到的问题与相应的解决方案(1)串口打开或者关闭有明显的提示(2)界面的大小设置问题，起初只有最小化按钮，按要求加上最大化以及界面要按照一定的规则能进行缩放(3)能发送和接收汉字(4)串口接收显示的数据丢失原因：接收显示是影响程序性能的一个大问题，当接收到大量数据时，串口通信助手响应不太及时，这个可能与调用类中的使用机制有关，但显示也没能很好地处理，不过在实际的传输过程中是没有丢失数据的。
串口调试助手使用方法你可以试试串口监控器，一个功能强大，非常易用的软件。
串口监控器是一个免费的多功能串口通讯监控软件，它能够多种方式显示，接收，分析通讯数据；能够以多种灵活方式发送数据；功能强大，操作简便，在串口通讯监控，设备通讯测试中，能够有效提高工作效率。
主要功能如下：接收数据：1. 以十六进制方式显示接收到的数据。
2. 以字符方式显示接收到的数据。
3. 数据帧自动识别，分行显示。
4. 接收数据自动换行设置。
5. 显示或隐藏数据帧的接收时间。
6. 自动清除，自动保存接收到的数据。
7. 接收数据个数计数。
发送数据：1. 十六进制方式发送数据。
2. 字符串方式发送数据。
3. 发送“发报窗口”当前光标行的数据帧。
4. 循环发送“发报窗口”当前光标行的数据帧。
5. 循环发送“发报窗口”固定行的数据帧。
6. 循环依次发送“发报窗口”的多行数据帧。
（设置起始行，行数）7. 触发发送，接收到“发报窗口”某一行数据，触发发送“发报窗口”另一行数据。
8. 发送数据个数计数。
实用增强功能：1. 强大易用的进制转换功能。
2. 智能识别当前光标处数据帧的行号，“字符”或“十六进制数”的个数。
3. 智能计算当前选择的“字符”或“十六进制数”的个数。
4. 强大的数据查找功能。
5. 定时保存，定时清除数据。
6. 根据自己的喜好，灵活变换操作界面。
应用场合：1. 截取和分析设备之间通讯数据流。
2. 串行外围设备硬件开发。
3. 串行设备驱动程序开发。
4. 调试和测试设备和设备之间的串行通讯过程。
5. 记录和分析RS232/422/485通信过程。
6. 模拟某设备通讯过程，对另外设备进行通讯测试。
（2016-11-21）本设计包含的函数模块有：1.打开/关闭串口和设置串口参数2.软件退出3.获取串口参数4.发送数据5.接受数据6.清空发送区7.清空接收区8.计数清零9.暂停/开启接收数据10.自动发送11.发送周期设置12.打开文件13.保存数据补充说明：1.设置串口参数里面包括了1）获取串口可用串口。
2)波特率下拉参数设置。
3）校验位下拉参数设置。
4）数据位下拉参数设置。
5）默认设置。
6）2.发送数据前先判断是否为十六进制，是否为自动发送。
是十六进制发送则把数据先转为十六进制格式并获取数据长度，再把数据转到发送缓冲区发送，否则ASCII码文本发送3.接收数据函数在串口运行时一直在判断是否有新数据，并根据不同的接收模式，加显不同格式的数据软件代码详细介绍：（74-92h）可用串口检测及下拉控件。
（96-109h）波特率下拉控件设置。
（113-121h）校验位下拉控件。
（125-131h）数据位下拉控件。
（135-141h）停止位下拉控件。
（145-155h）默认参数设置。
（159-162h）接收数据串口说明与启动。
（168-174h）关闭软件设置。
（176-180h）关闭窗口后先关闭线程再关闭进程。
（182-194h）定义串口各参数。
（197-281h）打开串口按钮回调函数，先判断是否有可用串口，没有则显示“无可用串口，无法打开”然后返回，有则继续判断当前是要打开串口还是关闭串口，若是需要打开串口则尝试设置串口参数并打开串口，打开串口失败会提示无法打开串口，打开串口成功则串口参数下拉控件变灰发送数据按钮点亮，判断自动发送控件如果被选中则打开串口后直接自动发送数据。
如果之前判断按钮回调是关闭串口，则进行关闭串口并配置相关参数。
（282-347h）CRC16查表法校验函数。
（349-357h）发送数据按钮回调及自动发送按钮回调。
（358-369h）发送数据线程配置。
（371-510h）发送数据函数，先判断是否正在发送数据，如不在发送则设置当前正在发送状态，后继续判断是写序列号模式还是串口调试模式，串口调试模式时先定义发送缓冲区和数组，再判断是否为16进制发送后进行对应进制转码，再尝试发送并刷新发送字节数。
串口调试助手简易操作说明
一、软件介绍
串口调试助手是一款串口通讯软件，用它通过RS232可以实现UPS与电脑之间的通讯。
通过发送232协议里面的相应指令，可以查询、设置以及监控UPS工作情况。
二、软件操作
1、本软件无需安装，双击图标如下图标，即可打开软件。
2、打开软件后，先进行下设置。
“串口”栏根据实际情况选择所使用的端口，软件默认的是COM1。
“波特率”栏选择2400。
其他栏保持为默认状态。
3、输入指令
输入相应的指令后按一次回车键。
如输入“QGS+回车键”，即可通讯，
通讯数据如下图示。
UPS常用通讯协议
注：无论是通过软件方式对UPS进行参数设置，还是在UPS LCD显示屏进行参数设置均需要注意以下事项。
1：系列机型，参数设置内容均需要在连接电池的情况下，方可保存，否则SUC33 30-80K
设置内容当次有效，重启机器后，即恢复为原设置。
2：其他机型均可在无电池下保存设置（更改设置后，不可立即断电，需等待几秒，再断电，否则设置有可能没有保存成功）。
【技术经验】串口调试助手的使用精讲以单片机为核心的电子产品行业，是一个瞬息万变的领域，不时时关注行业动态，不了解行业大势所向，不善于把握大势，如何能够抢抓机遇，顺势而为，请关注【微信号】：wujianying_danpianji，实时了解信息，抓住机遇时不我待。
扫一扫二维码或者长按图片关注导读串口通信(Serial Communication)，是指外设和计算机间，通过数据信号线、地线、控制线等，按位进行传输数据的一种通讯方式。
在调试中常用的工具就是串口调试助手。
当把“串口调试助手”红色圆框中的打勾选项去掉时，则上位机（ＰＣ键盘）中的非控制字符都可以发给单片机方框①中选中“字符格式显示”时，“接收区/键盘发送区”可以显示如图所示“普天同庆”字符。
方框②中为“多字符串发送区”，在需要的编号后填入字符后点击“自动循环发送”即可方框③中为“单字串发送区”，应选“字符格式发送”，在“单字串发送区”输入字符后，点击“自动发送”按钮即可。
方框④中为与串口相关参数的设置区域。
上图中方框①中刚开始的是选中“十六进制显示”，“十六进制发送”选项后出现的选中“字符格式显示”，“十六进制发送”按钮后，出现的是选中选中“字符格式显示”，“字符格式发送”按钮后，出现的是上图线头① 指向的为“十六进制显示”，“十六进制发送”时，“接收区”显示的图形线头②指向的为“十六进制显示”，“字符格式发送”时，“接收区”显示的图形方框③中为“字符格式显示”，“十六进制发送”时，“接收区”显示的图形方框④中为“字符格式显示”，“字符格式发送”时，“接收区”显示的图形喜欢本文的亲们，请在页尾点赞| 单 | 片| 机 | 精 | 讲 | 吴| 鉴 | 鹰 |微信第一单片机分享最受欢迎图文公号微信号：wujianying_danpianji《2015.3.13》● 技术源于积累，成功来自执着——单片机精讲。
串口调试助手详细讲解（结合实操），通讯问题不再是问题经常会有学员问我，老师老师，我的plc和变频器通讯不上了，不知道什么原因，您能帮我看看么。
其实吧，这个一般远程是帮不上你什么的，还是要你自己去测试，找出问题，那么怎么测试呢，今天就给大家做一个详细的解说，我们通过一个实际对的案例，结合一个叫做串口调试助手的小工具，带大家了解，通讯出问题了，一般是怎么去查找问题的。
案例是这样的：一台三菱的plc，plc的bd板和变频器通过485的接线方式连接了变频器，给变频器发送了一串数据过去，这一串数据能够让变频器正转，可是变频器就是死活不转。
第一步，检查接线，我们用的485 2线制的接线方法。
第二步，检查通讯参数，两边都是波特率9600、数据位8位，停止位1位，偶校验，变频器设置为1号站，全部通讯参数都没有问题。
第三步，观察DB板上面的2个指示灯，在控制正转时，s发送的指示灯闪了一下，而接收的指示灯R并没有亮。
这个时候的情况是，有发送数据出去，但变频器那边没有数据返回。
这种情况我们怀疑发送出去的数据是不是不对，这个时候考虑使用串口调试助手进行测试。
第四步，使用串口调试助手。
首先我们要了解控制正转需要给变频器发送什么数据，这个案例里面发送的数据是（01 06 32 00 10 01 4B 41）我们从2个方向进行检查：电脑连接变频器，通过一根USB转485的线（某宝可以买到这样的线），连接入下图，然后通过电脑发送（01 06 32 00 10 01 4B 41）这一串数据，看看变频器能不能启动正转。
这个线插入电脑时，在电脑的设备管理器位置会产生一个COM口，我这里显示的是COM9(假如没有显示这个口的话，那么说明电脑没有安装驱动，口到百度找一下这个驱动安装，或者找卖线厂家提供驱动程序，或者电脑下载一个驱动精灵软件可以解决这个问题)，显示如下图：这个时候我打开串口调试助手（类似的工具网上很多，百度一下可以找到，然后下载），界面如下图匹配好通讯参数，然后点击打开窗口，串口的指示灯点亮就可以通讯了这个时候，我们输入要发送的数据，点击，发送。
串口调试助手程序框架(一)【截图】【源码】main.cpp#include<windows.h>#include<commctrl.h>#include<iostream>#include<stdio.h>#include"resource.h"using namespace std;HINSTANCE hInst;//窗口实例HWND hRDCLEAR, hSDCLEAR;HMENU hRDCHAR;void Init(HWND hwndDlg){SetWindowText(GetDlgItem(hwndDlg, SETXONC), "0x13");SetWindowText(GetDlgItem(hwndDlg, SETXOFFC), "0x19");SetWindowText(GetDlgItem(hwndDlg, SETTO), "0");SendDlgItemMessage(hwndDlg, RDCHAR, BM_SETCHECK, 1, 0);//把RadioBox RDCHAR设置为选中SendDlgItemMessage(hwndDlg, SDCHAR, BM_SETCHECK, 1, 0);//默认发送字符SendDlgItemMessage(hwndDlg, CTASY, BM_SETCHECK, 1, 0);//默认异步通信//在一个groupbox中必须有一个radiobox的属性：组为真//串口号SetWindowText(GetDlgItem(hwndDlg, SETCOMNO), "COM4");//默认值SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM1"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM2"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM3"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM4"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM5"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM6"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM7"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM8"));SendDlgItemMessage(hwndDlg, SETCOMNO, CB_ADDSTRING, 0, (LPARAM)("COM9"));//波特率SetWindowText(GetDlgItem(hwndDlg, SETBR), "9600");//默认值SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("1200"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("2400"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("4800"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("9600"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("14400"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("28800"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("38400"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("57600"));SendDlgItemMessage(hwndDlg, SETBR, CB_ADDSTRING, 0, (LPARAM)("115200"));//数据位SetWindowText(GetDlgItem(hwndDlg, SETBS), "8");//默认值SendDlgItemMessage(hwndDlg, SETBS, CB_ADDSTRING, 0, (LPARAM)("4"));SendDlgItemMessage(hwndDlg, SETBS, CB_ADDSTRING, 0, (LPARAM)("5"));SendDlgItemMessage(hwndDlg, SETBS, CB_ADDSTRING, 0, (LPARAM)("6"));SendDlgItemMessage(hwndDlg, SETBS, CB_ADDSTRING, 0, (LPARAM)("7"));SendDlgItemMessage(hwndDlg, SETBS, CB_ADDSTRING, 0, (LPARAM)("8"));//校验位SetWindowText(GetDlgItem(hwndDlg, SETPAR), "N");//默认值SendDlgItemMessage(hwndDlg, SETPAR, CB_ADDSTRING, 0, (LPARAM)("N"));SendDlgItemMessage(hwndDlg, SETPAR, CB_ADDSTRING, 0, (LPARAM)("odd"));SendDlgItemMessage(hwndDlg, SETPAR, CB_ADDSTRING, 0, (LPARAM)("even"));//停止位SetWindowText(GetDlgItem(hwndDlg, SETSB), "1");//默认值SendDlgItemMessage(hwndDlg, SETSB, CB_ADDSTRING, 0, (LPARAM)("1"));SendDlgItemMessage(hwndDlg, SETSB, CB_ADDSTRING, 0, (LPARAM)("2"));}BOOL CALLBACK DlgMain(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam) {//窗口回调函数switch (uMsg)//消息处理{case WM_INITDIALOG://初始化{Init(hwndDlg);}return TRUE;case WM_CLOSE://关闭窗口{EndDialog(hwndDlg, 0);}return TRUE;case WM_COMMAND://菜单消息{switch (LOWORD(wParam)){case RDCLEAR://清空接收框数据{SetWindowText(hRDCLEAR, "");}return TRUE;case SDCLEAR://清空发送框数据{SetWindowText(GetDlgItem(hwndDlg, SDTEXT), "");}return TRUE;case SDSEND://发送数据{TCHAR szBuf[80];//缓存区string temp;GetWindowText(GetDlgItem(hwndDlg, SDTEXT), szBuf, 80);//获得接收框的文本temp = szBuf;//拼接字符串//cout<<temp;SetWindowText(GetDlgItem(hwndDlg, RDTEXT), temp.c_str());}return TRUE;case SETOP:{//打开串口}return TRUE;case SETCP:{//关闭串口}return TRUE;case SETSO:{}return TRUE;}}return TRUE;}return FALSE;}int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd) {hInst = hInstance;InitCommonControls();return DialogBox(hInst, MAKEINTRESOURCE(DLG_MAIN), NULL, (DLGPROC)DlgMain);}【源码】resource.h#ifndef IDC_STATIC#define IDC_STATIC (-1)#endif#define DLG_MAIN 100#define RDBOX 40000#define RDTEXT 40001#define RDCHAR 40002#define RDHEX 40003#define RDCLEAR 40004#define SDCHAR 40005#define SDHEX 40006#define SDCLEAR 40007#define SDSEND 40008#define SDAS 40009#define SDASTIME 40010#define SETCOMNO 40011#define CTSYN 40012#define CTASY 40013#define SETBR 40014#define SDTEXT 40015#define SETXONC 40016#define SETXOFFC 40017#define SETTO 40018#define SETPAR 40019#define SETSB 40020#define SETBS 40021#define SETOP 40022#define SETCP 40023#define SETSO 40024【源码】resource.rc#include<windows.h>#include<commctrl.h>#include<richedit.h>#include"resource.h"//// Dialog resources//LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRALDLG_MAIN DIALOG 0, 0, 635, 304STYLE DS_3DLOOK| DS_CENTER| DS_MODALFRAME| DS_SHELLFONT| WS_CAPTION| WS_VISIBLE| WS_POPUP| WS_SYSMENU CAPTION "SerialPortDebug"FONT 8, "Ms Shell Dlg"{GROUPBOX "Setting", 0, 257, 7, 365, 290, 0, WS_EX_LEFTLTEXT "Select Port", 0, 284, 30, 36, 8, SS_LEFT, WS_EX_LEFTGROUPBOX "Communication Type", 0, 278, 62, 295, 35, 0, WS_EX_LEFTLTEXT "ByteSize", 0, 469, 120, 28, 8, SS_LEFT, WS_EX_LEFTLTEXT "BaudRate", 0, 297, 122, 33, 8, SS_LEFT, WS_EX_LEFTGROUPBOX "Send Data", 0, 12, 135, 240, 162, 0, WS_EX_LEFTLTEXT "StopBits", 0, 471, 161, 27, 8, SS_LEFT, WS_EX_LEFTLTEXT "Parity", 0, 299, 162, 18, 8, SS_LEFT, WS_EX_LEFTAUTOCHECKBOX "fParity", 0, 401, 162, 35, 8, 0, WS_EX_LEFTAUTOCHECKBOX "CTS", 0, 296, 202, 30, 8, 0, WS_EX_LEFTAUTOCHECKBOX "DSR", 0, 365, 202, 31, 8, 0, WS_EX_LEFTAUTOCHECKBOX "DTR", 0, 436, 202, 31, 8, 0, WS_EX_LEFTAUTOCHECKBOX "XON/XOFF", 0, 507, 202, 53, 8, 0, WS_EX_LEFTLTEXT "ms", 0, 131, 228, 10, 8, SS_LEFT, WS_EX_LEFTLTEXT "ms", 0, 562, 237, 10, 8, SS_LEFT, WS_EX_LEFTLTEXT "XonChar", 0, 293, 238, 28, 8, SS_LEFT, WS_EX_LEFTLTEXT "XoffChar", 0, 383, 238, 28, 8, SS_LEFT, WS_EX_LEFTLTEXT "Timeouts", 0, 478, 238, 30, 8, SS_LEFT, WS_EX_LEFTGROUPBOX "Receive Data", RDBOX, 15, 10, 235, 120, 0, WS_EX_LEFTEDITTEXT RDTEXT, 20, 25, 225, 75, ES_AUTOHSCROLL | ES_MULTILINE | ES_READONLY, WS_EX_LEFTAUTORADIOBUTTON "Char", RDCHAR, 26, 112, 31, 8, WS_GROUP, WS_EX_LEFTAUTORADIOBUTTON "Hex", RDHEX, 80, 112, 29, 8, 0, WS_EX_LEFTPUSHBUTTON "Clear", RDCLEAR, 196, 108, 45, 14, 0, WS_EX_LEFTAUTORADIOBUTTON "Char", SDCHAR, 26, 208, 31, 8, WS_GROUP, WS_EX_LEFTAUTORADIOBUTTON "Hex", SDHEX, 82, 208, 29, 8, 0, WS_EX_LEFTPUSHBUTTON "Clear", SDCLEAR, 132, 204, 45, 14, 0, WS_EX_LEFTPUSHBUTTON "Send", SDSEND, 196, 204, 45, 14, 0, WS_EX_LEFTAUTOCHECKBOX "Auto send", SDAS, 26, 228, 48, 8, 0, WS_EX_LEFTEDITTEXT SDASTIME, 86, 225, 40, 14, ES_RIGHT | ES_AUTOHSCROLL, WS_EX_LEFTCOMBOBOX SETCOMNO, 337, 27, 95, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFTAUTORADIOBUTTON "Synchronous ", CTSYN, 326, 75, 59, 8, WS_GROUP, WS_EX_LEFTAUTORADIOBUTTON "Asynchronous ", CTASY, 472, 77, 63, 8, 0, WS_EX_LEFTCOMBOBOX SETBR, 337, 120, 48, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFTEDITTEXT SDTEXT, 20, 147, 227, 45, ES_AUTOHSCROLL, WS_EX_LEFTEDITTEXT SETXONC, 325, 235, 40, 14, ES_AUTOHSCROLL, WS_EX_LEFTEDITTEXT SETXOFFC, 417, 235, 40, 14, ES_AUTOHSCROLL, WS_EX_LEFTEDITTEXT SETTO, 512, 235, 40, 14, ES_AUTOHSCROLL, WS_EX_RIGHTCOMBOBOX SETPAR, 338, 160, 48, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFTCOMBOBOX SETSB, 512, 159, 48, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFTCOMBOBOX SETBS, 512, 117, 48, 30, CBS_DROPDOWN | CBS_HASSTRINGS, WS_EX_LEFTPUSHBUTTON "Open Port", SETOP, 297, 272, 45, 14, 0, WS_EX_LEFTPUSHBUTTON "Close Port", SETCP, 387, 272, 45, 14, 0, WS_EX_LEFTDEFPUSHBUTTON "Stop I/O", SETSO, 473, 271, 45, 14, 0, WS_EX_LEFT}//// Manifest resources//LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL1 RT_MANIFEST".\\manifest.xml"【源码】manifest.xml< ? xml version = "1.0" encoding = "UTF-8" standalone = "yes" ? ><assembly xmlns = "urn:schemas-microsoft-com:asm.v1" manifestVersion = "1.0"><dependency><dependentAssembly><assemblyIdentity type = "win32" name = "mon-Controls" version = "6.0.0.0" processorArchitecture = "*" publicKeyToken = "6595b64144ccf1df" language = "*" / >< / dependentAssembly>< / dependency><trustInfo xmlns = "urn:schemas-microsoft-com:asm.v3"><security><requestedPrivileges><requestedExecutionLevel level = "asInvoker" uiAccess = "false" / > < / requestedPrivileges> < / security>< / trustInfo>< / assembly>。
串口调试助手使用教程首先，确保你已经正确连接了串口调试助手软件和目标设备的串口。
1. 打开串口调试助手软件。
在软件界面的顶部菜单栏中，通常会有一个“串口”的选项，点击它展开串口设置。
2. 查找并选择正确的串口。
在串口设置中，你可以看到可用的串口列表。
选择正确的串口，通常以“COM”开头并带有具体的串口号。
如果你不确定应该选择哪个串口，可以尝试一个接一个地选择每个串口，然后观察是否有数据传输。
3. 配置串口参数。
继续在串口设置中，通常会有波特率、数据位、停止位、校验位和流控制等选项。
确保这些参数与你的设备设置相匹配。
如果你不确定设备的串口参数，可以参考设备的说明书或者询问设备厂商。
4. 打开串口。
完成串口参数配置后，点击一个按钮或者选项来打开串口连接。
通常会有一个“打开串口”、“连接”或者类似的按钮。
如果一切正常，你应该能在软件界面上看到串口的连接状态。
5. 监听串口数据。
一旦串口连接成功，你可以开始接收和发送数据。
通常会有一个数据接收区和一个数据发送区。
数据接收区会实时显示通过串口接收到的数据。
你可以通过不同的设置来选择以何种方式显示数据，例如文本、十六进制等。
6. 发送数据。
如果你需要通过串口发送数据到目标设备，你可以在数据发送区输入相应的数据，然后点击发送按钮或者类似的选项。
通过串口调试助手，你可以发送文本、十六进制等各种类型的数据。
7. 保存数据。
如果你需要保存通过串口接收或发送的数据，你可以使用串口调试助手提供的保存功能。
通常会有一个保存按钮或者菜单选项，点击它可以将数据保存为文件。
8. 关闭串口。
当你不再需要使用串口时，记得关闭串口连接。
一般会有一个“关闭串口”或者类似的按钮。
这样可以释放串口资源，同时避免不必要的错误。
以上就是使用串口调试助手的基本步骤。
根据不同的软件界面和功能设置，可能会略有差异，但基本原理是相似的。
请根据具体软件的说明和使用指南进行相关操作。
经典串口调试助手源程序及串口通信设置串口调试助手是一种用于串口通信调试的工具，它可以通过串口与外部设备进行数据的读写和处理，常用于单片机、嵌入式系统、电子设备等领域的开发调试中。
经典串口调试助手源程序经典串口调试助手是一款经典的串口调试工具，其源程序使用C语言编写，提供了丰富的功能和易于使用的界面，被广泛应用于各种领域的开发调试中。
该工具可以在Windows操作系统中运行，并支持多种串口通信协议，包括RS232、RS485、RS422等。
以下是经典串口调试助手部分源程序的示例：```c// 打开串口HANDLE OpenSerialPort(const char* portName){ HANDLE hCom; hCom = CreateFile(portName, // 串口名称GENERIC_READ | GENERIC_WRITE, // 读写访问0,// 无共享NULL,// 安全描述符OPEN_EXISTING,// 打开方式FILE_ATTRIBUTE_NORMAL, // 文件属性NULL); // 文件模板if (hCom ==INVALID_HANDLE_VALUE) // 判断是否打开成功{ return NULL; } return hCom;}// 发送数据int SendData(HANDLE hCom, const char* data, int len){ DWORD writeSize; if (!WriteFile(hCom, data, len, &writeSize, NULL)) // 写入数据{ return -1; } return writeSize;}// 接收数据int ReceiveData(HANDLE hCom, char* data, int len){ DWORD readSize; if (!ReadFile(hCom, data, len,&readSize, NULL)) // 读取数据{ return -1; } return readSize;}// 关闭串口int CloseSerialPort(HANDLE hCom){ if(!CloseHandle(hCom)) // 关闭句柄{ return-1; } return 0;}```上述函数实现了打开串口、发送数据、接收数据和关闭串口等基本功能，可以作为串口通信的底层驱动实现。
串口调试助手使用说明和技术总结一、引言二、使用说明1.硬件准备：首先需要一对串口线，将电脑的串口与设备的串口进行连接。
确保连接正确无误。
2. 软件安装：选择一款合适的串口调试助手软件，如Tera Term、SecureCRT等，并进行安装。
3.打开串口：打开串口调试助手软件，选择正确的串口端口号，并设置波特率。
一般情况下，设备的串口通信参数可以在设备的说明书中找到。
4.进行数据收发：点击软件界面上的“打开串口”按钮后，即可开始进行数据的收发。
可以直接在软件的发送窗口中输入要发送的数据，并点击“发送”按钮，或者通过点击“读取文件”按钮，从本地文件中读取数据并发送。
同时，接收到的数据也会在软件的接收窗口中实时显示。
5.数据解析：对于不同格式的数据，可以通过软件提供的解析功能进行解析。
一般情况下，串口数据是以字节流的形式进行传输的，解析时需要将字节解析为可读的格式。
6.其他功能：串口调试助手软件一般还提供了其他功能，如数据录制、数据回放、数据比对等。
根据实际需求，可以灵活运用这些功能。
三、技术总结1.串口通信协议：串口调试助手在数据收发过程中依赖于串口通信协议。
常见的串口通信协议有RS232、RS485等。
了解和理解这些协议对于正确使用串口调试助手非常重要。
3.数据解析：串口调试助手常常需要对收到的字节流进行解析，将其转化为可读的数据。
这需要根据具体的协议和数据格式进行解析工作，例如将十六进制数据转化为ASCII码等。
4.数据录制与回放：一些串口调试助手软件提供数据录制和回放功能，方便在需要时重新进行调试或查看数据。
这对于复杂系统的调试和故障排除非常有用。
5.多串口支持：一些串口调试助手软件支持多串口同时进行数据收发和调试。
这对于同时调试多个设备通信时非常方便。
6.错误处理：在使用串口调试助手过程中，可能会遇到数据传输错误、设备无响应等问题。
正确处理这些错误非常重要，可以使用软件提供的日志记录功能或者手动检查设备连接等方式来定位和解决问题。
串口调试工具的使用1运行串口调试助手首先运行串口调试助手运行后界面图如下所示：图1-1 串口调试工具界面图2 串口调试助手的使用2.1串口调试助手基本参数的设置串口通信最重要的参数是波特率、数据位、停止位和奇偶校验。
对于两个进行通行的端口，这些参数必须匹配：标题栏显示区调试区图2-1串口调试助手基本参数设置图（1）串口号软件启动后将自动识别所有可用的串口，您只需要在下拉框中选择即可。
如下图2-2所示，软件自动识别出COM3和COM4。
选择我们使用的串口COM4，点击“打开串口“按钮。
如果要使用另一个串口，请先单击”关闭串口“按钮，软件将显示串口已经关闭。
图2-3口号设置图（2）波特率它这是一个衡量通信速度的参数，表示每秒钟传送的bit的个数。
例如300波特表示每秒钟发送300个bit。
波特率和距离成反比，高波特率常常用于放置的很近的仪器间的通信。
我们常使用的波特率一般是9600和115200，我们这里选择波特率为9600。
图2-4波特率设置图（3）数据位这是衡量通信中实际数据位的参数。
当计算机发送一个信息包，实际的数据不一定是8位的，标准的值是5、7和8位。
如何设置取决于你想传送的信息。
比如，标准的ASCII 码是0～127（7位）。
扩展的ASCII码是0～255（8位）。
如果数据使用简单的文本（标准ASCII码），那么每个数据包使用7位数据。
每个包是指一个字节，包括开始/停止位，数据位和奇偶校验位。
由于实际数据位取决于通信协议的选取，术语“包”指任何通信的情况。
图2-5数据位设置图（4）停止位停止位用于表示单个包的最后一位。
典型的值为1，1.5和2位。
由于数据是在传输线上定时的，并且每一个设备有其自己的时钟，很可能在通信中两台设备间出现了小小的不同步。
因此停止位不仅仅是表示传输的结束，并且提供计算机校正时钟同步的机会。
适用于停止位的位数越多，不同时钟同步的容忍程度越大，但是数据传输率同时也越慢。
经典的串口调试工具源代码（二）Private Sub cmdswitch_Click()On Error GoTo ErrIf MSComm.PortOpen = True ThenComSwitch = TrueElseComSwitch = FalseEnd IfIf ComSwitch = False ThenStatusBar1.Panels(1).Text = "Connected"mnuconnect.Caption = "Dis&connect"OpenCom ' 打开串口ComSwitch = TrueElseCloseCom ' 关闭串口ComSwitch = FalseStatusBar1.Panels(1).Text = "Disconnected"mnuconnect.Caption = "&Connect"StatusBar1.Panels(2).Text = "COM" & mPort StatusBar1.Panels(3).Text = MSComm.SettingsIf (OutputAscii) ThenStatusBar1.Panels(4) = "ASCII"ElseStatusBar1.Panels(4) = "HEX"End IfEnd IfErr:End SubPrivate Sub Form_Load()On Error GoTo ErrlblWEB.FontUnderline = True ' WEB上加下划线lblWEB.ForeColor = vbBlue ' 蓝色显示WEBtxtsend.Text = "" ' 载入发送信息If MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭' 初始化串口Call Comm_initial(Val(Mid(cbocom.Text, 4, 1)), cbobaudrate.Text, Left(cboparitybit.Text, 1),cbodatabit.Text, cbostopbit.Text)' 数据位载入cbodatabit.AddItem "8"cbodatabit.AddItem "7"cbodatabit.AddItem "6"' 停止位载入cbostopbit.AddItem "1"cbostopbit.AddItem "1.5"cbostopbit.AddItem "2"Err:End SubPrivate Sub hexReceive()On Error GoTo ErrDim ReceiveArr() As Byte ' 接收数据数组Dim receiveData As String ' 数据暂存Dim Counter As Integer ' 接收数据个数计数器Dim i As Integer ' 循环变量If (MSComm.InBufferCount > 0) ThenCounter = MSComm.InBufferCount ' 读取接收数据个数receiveData = "" ' 清缓冲ReceiveArr = MSComm.Input ' 数据放入数组For i = 0 To (Counter - 1) Step 1 ' 数据格式处理If (ReceiveArr(i) < 16) ThenreceiveData = receiveData & "0" + Hex(ReceiveArr(i)) & Space(1) ' 小于16，前面加0ElsereceiveData = receiveData & Hex(ReceiveArr(i)) & Space(1) ' 加空格显示End IfNext iTxtReceive.Text = TxtReceive.Text + receiveData ' 显示接收的十六进制数据TxtReceive.SelStart = Len(TxtReceive.Text) ' 显示光标位置End IfReceiveCount = ReceiveCount + Counter ' 接收计数txtRXcount.Text = "RX:" & ReceiveCount ' 接收字节数显示If chkautoclear.Value = 1 Then ' 自动清空判断If ReceiveCount >= 65535 ThenTxtReceive.Text = ""End IfEnd IfErr:End SubPrivate Sub hexSend()On Error Resume NextDim outputLen As Integer ' 发送数据长度Dim outData As String ' 发送数据暂存Dim SendArr() As Byte ' 发送数组Dim TemporarySave As String ' 数据暂存Dim dataCount As Integer ' 数据个数计数Dim i As Integer ' 局部变量outData = UCase(Replace(txtsend.Text, Space(1), Space(0))) ' 先去掉空格，再转换为大写字母outData = UCase(outData) ' 转换成大写outputLen = Len(outData) ' 数据长度For i = 0 To outputLenTemporarySave = Mid(outData, i + 1, 1) ' 取一位数据If (Asc(TemporarySave) >= 48 And Asc(TemporarySave) <= 57) Or (Asc(TemporarySave) >= 65And Asc(TemporarySave) <= 70) ThendataCount = dataCount + 1ElseExit ForExit SubEnd IfNextIf dataCount Mod 2 <> 0 Then ' 判断十六进制数据是否为双数dataCount = dataCount - 1 ' 不是双数，则减1End IfoutData = Left(outData, dataCount) ' 取出有效的十六进制数据ReDim SendArr(dataCount / 2 - 1) ' 重新定义数组长度For i = 0 To dataCount / 2 - 1SendArr(i) = Val("&H" + Mid(outData, i * 2 + 1, 2)) ' 取出数据转换成十六进制并放入数组中NextSendCount = SendCount + (dataCount / 2) ' 计算总发送数txtTXcount.Text = "TX:" & SendCountMSComm.Output = SendArr ' 发送数据End SubPrivate Sub OpenCom() '打开串口On Error GoTo ErrIf MSComm.PortOpen = True Then MSComm.PortOpen = False ' 先判断串口是否打开，如果打开则先关闭Call Comm_reSet(Val(Mid(cbocom.Text, 4, 1)), cbobaudrate.Text, Left(cboparitybit.Text, 1),cbodatabit.Text, cbostopbit.Text) ' 串口设置If MSComm.PortOpen = True Thentxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," & Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.Textcmdswitch.Caption = "关闭串口"mnuconnect.Caption = "disconnect"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\kai.jpg") ' 显示串口已经打开的图标ImgSwitchon.Visible = TrueImgSwitchoff.Visible = FalseElsetxtstatus.Text = "STATUS：COM Port Cloced" ' 串口状态显示cmdswitch.Caption = "打开串口"mnuconnect.Caption = "connect"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchoff.Visible = TrueImgSwitchon.Visible = FalseEnd IfErr:End SubPrivate Sub textReceive()On Error GoTo ErrInputSignal = MSComm.InputReceiveCount = ReceiveCount + LenB(StrConv(InputSignal, vbFromUnicode)) ' 计算总接收数据If DisplaySwitch = False Then ' 显示接收文本TxtReceive.Text = TxtReceive.Text & InputSignal ' 单片机内存的值用TextReceive显示出TxtReceive.SelStart = Len(TxtReceive.Text) ' 显示光标位置End IftxtRXcount.Text = "RX:" & ReceiveCount ' 接收字节数显示If chkautoclear.Value = 1 Then ' 自动清空判断If ReceiveCount >= 65535 ThenTxtReceive.Text = ""End IfEnd IfErr:End SubPrivate Sub textSend()On Error GoTo ErrIf ModeSend = True ThenOutputSignal = FileData ' 发送文件ElseOutputSignal = txtsend.Text ' 发送文本End IfSendCount = SendCount + LenB(StrConv(OutputSignal, vbFromUnicode)) ' 计算总发送数txtTXcount.Text = "TX:" & SendCount ' 发送字节数显示Err:End SubPrivate Sub Image1_Click()End SubPrivate Sub mnuautosend_Click()On Error GoTo Err'If TmrAutoSend.Enabled = True Then ' 如果有效则，自动发送If MSComm.PortOpen = True Then ' 串口状态判断ChkAutoSend.Value = 1TmrAutoSend.Interval = Val(TxtAutoSendTime) ' 设置自动发送时间mnuautosend.Caption = "取消自动发送"TmrAutoSend.Enabled = True ' 打开自动发送定时器Elsemnuautosend.Caption = "自动发送"ChkAutoSend.Value = 0 ' 串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End If'ElseIf TmrAutoSend.Enabled = False Then ' 如果无效，不发送' mnuautosend.Caption = "autosend"' TmrAutoSend.Enabled = False ' 关闭自动发送定时器'End IfErr:End SubPrivate Sub mnucom_Click(Index As Integer)Dim i As IntegerDim OldPort As LongOn Error Resume NextWith MSCommOldPort = .CommPortIf MSComm.PortOpen Then.PortOpen = False.CommPort = Index.PortOpen = TrueIf Err.Number <> 0 Then ' This should not happen...MsgBox "Com" & Index & " is not available." & _vbCrLf & Err.DescriptionErr.Clear.CommPort = OldPortElseFor i = 1 To 4mnucom(i).Checked = FalseNext imnucom(Index).Checked = TrueEnd IfElse.CommPort = IndexFor i = 1 To 4mnucom(i).Checked = FalseNext imnucom(Index).Checked = TrueEnd IfEnd WithUpdateStatusEnd SubPrivate Sub mnuconnect_Click()On Error Resume NextIf MSComm.PortOpen = True ThenComSwitch = TrueElseComSwitch = FalseEnd IfWith MSCommIf .PortOpen = True Then.PortOpen = Falsetxtstatus.Text = "STATUS：COM Port Cloced" ' 串口状态显示cmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchoff.Visible = TrueImgSwitchon.Visible = FalseElse.PortOpen = TrueComSwitch = Truetxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," & Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.Textcmdswitch.Caption = "关闭串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\kai.jpg") ' 显示串口已经打开的图标ImgSwitchon.Visible = TrueImgSwitchoff.Visible = FalseIf Err.Number <> 0 ThenMsgBox "Com" & .CommPort & " is not available." & vbCrLf & _Err.DescriptionErr.ClearEnd IfEnd IfEnd WithUpdateStatusEnd SubPrivate Sub mnusave_Click()On Error GoTo Err ' 错误处理SaveTextPath = txtsavepath ' 路径暂存Open txtsavepath & "\1.txt" For Output As #1 ' 打开文件' 不存在的话会创建文件,如已存在会覆盖' output 改为append 为追加' 改为input 则只读Print #1, Year(Date) & "年" & Month(Date) & "月" & Day(Date) & _"日" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & _"秒" & vbCrLf & TxtReceive.Text + vbCrLf ' 把接收区的文本保存文本前加上保存时间（0000年00月00日00时00分00秒）' vbcrlf 为回车换行Close #1 ' 关闭文件txtsavepath = "OK,1.txt Save" ' 提示保存成功cmdsavedisp.Enabled = FalseSavetime = Timer ' 记下开始的时间While Timer < Savetime + 5 ' 循环等待5 - 要延时的时间DoEvents ' 转让控制权，以便让操作系统处理其它的事件。
串口调试助手使用说明为简单明了，有些不言自明的功能不作介绍。
1 串口调试助手1.1 设置串口参数：串口号：1-16波特率：600-256000，>115200 时需要硬件支持。
2 接收区／键盘发送区2.1 接收数据a 设置串口参数b 如果要按十六进制形式显示接收数据，将十六进制显示选项选中。
c 点击打开/关闭串口区中的打开串口按钮。
2.2 显示接收数据的长度因某些限制，显示接收数据的文本不能太长，所以当显示文本长度快达到 62K 时会自动将显示文本删减到 32K，此时文本可保留 32K 的字符或约 10K 的十六进制数据显示。
2.3 在键盘上发送英文字符a在接收区/键盘发送区的输入框中用鼠标点一下。
b在键盘按下按键立刻发送。
在这里不能发送回车换行，也不能发送汉字，若要发送请在单字符串发送区发送。
3 发送数据可以发送单字符串,多字符串(字符串序列或直接在键盘上发送英文字符。
有两种发送数据格式，一种是普通的字符串,另外一种是十六进制数据即 HEX 格式数据。
发送 HEX 格式数据时要在字符串输入区中输入 HEX 格式字符串，并且要将相应区内的十六进制发送选项选中。
例：HEX 格式数据字符串12 34 AB CD FF3.1 单字符串发送区3.1.1自动发送，自动发送周期：此项功能可以每隔一段时间反复地自动发送输入框中的数据，点击自动发送按钮后即启动自动发送功能。
自动发送周期最大为 65535mS。
3.2 多字符串发送区在多字符串发送区可以发送一个字符串，或者自动地、依次发送所有的字符串。
请把鼠标移到“接收区／键盘发送区”和“多字符串发送区”之间，当鼠标形状发生变化时按下鼠标器的左键不松开，然后移动鼠标，将“多字符串发送区”的宽度调宽一些，让“间隔时间”显露出来。
3.2.1发送一个字符串a 输入字符串。
b 如果要发送 16 进制数据, 要先在字符串后的 HEX 选项框中打上对勾。
c 点击发送按钮。
（通信企业管理）经典串口调试助手源程序及串口通信设置串口调试助手源程序及编程详细过程作者：龚建伟2001.6.20能够任意转载，但必须注明作者和说明来自，不得作为商用目次：1.建立项目2.于项目中插入MSComm控件3.利用ClassWizard定义CMSComm类控制变量4.于对话框中添加控件5.添加串口事件消息处理函数OnComm()6.打开和设置串口参数7.发送数据如果你仍没有下载源程序，又对本文有兴趣，请立即下载于众多网友的支持下，串口调试助手从2001年5月21日发布至今，短短壹个月，于全国各地累计下载量近5000人次，于近200多个电子邮件中，20多人提供了使用测试意见，更有50多位朋友提出要串口调试助手的源代码，为了答谢谢朋友们的支持，公开推出我最初用VC控件MSComm编写串口通信程序的源代码，且写出详细的编程过程，姑且叫串口调试助手源程序V1.0或VC串口通讯源程序吧，我相信，如果你用VC编程，那么有了这个代码，就能够轻而易举地完成串口编程任务了。
（也许本文过于详细，高手就不用见）开始吧：1.建立项目：打开VC＋＋6.0，建立壹个基于对话框的MFC应用程序SCommTest（和我源代码壹致，等会你会方便壹点）；2.于项目中插入MSComm控件选择Project菜单下AddToProject子菜单中的ComponentsandControls…选项，于弹出的对话框中双击RegisteredActiveXControls项（稍等壹会，这个过程较慢），则所有注册过的ActiveX控件出当下列表框中。
选择MicrosoftCommunicationsControl,version6.0，，单击Insert按钮将它插入到我们的Project中来，接受缺省的选项。
（如果你于控件列表中见不到MicrosoftCommunicationsControl,version6.0，那可能是你于安装VC6时没有把ActiveX壹项选上，重新安装VC6，选上ActiveX就能够了），这时于ClassView视窗中就能够见到CMSComm类了，（注意：此类于ClassWizard中见不到，重构clw 文件也壹样），且且于控件工具栏Controls中出现了电话图标（如图1所示），当下要做的是用鼠标将此图标拖到对话框中，程序运行后，这个图标是见不到的。
3.利用ClassWizard定义CMSComm类控制对象打开ClassWizard－>MemberViariables选项卡，选择CSCommTestDlg类，为IDC_MSCOMM1添加控制变量：m_ctrlComm，这时你能够见壹见，于对话框头文件中自动加入了//{{AFX_INCLUDES()#include"mscomm.h"//}}AFX_INCLUDES（这时运行程序，如果有错，那就再从头开始）。
4.于对话框中添加控件向主对话框中添加俩个编辑框，壹个用于接收显示数据ID为IDC_EDIT_RXDATA，另壹个用于输入发送数据，ID为IDC_EDIT_TXDATA，再添加壹个按钮，功能是按壹次就把发送编辑框中的内容发送壹次，将其ID设为IDC_BUTTON_MANUALSEND。
别忘记了将接收编辑框的Properties －>Styles中把Miltiline和VerticalScroll属性选上，发送编辑框若你想输入多行文字，也可选上Miltiline。
再打开ClassWizard－>MemberViariables选项卡，选择CSCommTestDlg类，为IDC_EDIT_RXDATA 添加CString变量m_strRXData，为IDC_EDIT_TXDATA添加CString变量m_strTXData。
说明：m_strRXData和m_strTXData分别用来放入接收和发送的字符数据。
5.添加串口事件消息处理函数OnComm()打开ClassWizard－>MessageMaps，选择类CSCommTestDlg，选择IDC_MSCOMM1，双击消息OnComm，将弹出的对话框中将函数名改为OnComm，（好记而已）OK。
这个函数是用来处理串口消息事件的，如每当串口接收到数据，就会产生壹个串口接收数据缓冲区中有字符的消息事件，我们刚才添加的函数就会执行，我们于OnComm()函数加入相应的处理代码就能实现自已想要的功能了。
请你于函数中加入如下代码：voidCSCommTestDlg::OnComm(){//TODO:AddyourcontrolnotificationhandlercodehereVARIANTvariant_inp;COleSafeArraysafearray_inp;LONGlen,k;BYTErxdata[2048];//设置BYTE数组An8-bitintegerthatisnotsigned.CStringstrtemp;if(m_ctrlComm.GetCommEvent()==2)//事件值为2表示接收缓冲区内有字符{////////以下你能够根据自己的通信协议加入处理代码variant_inp=m_ctrlComm.GetInput();//读缓冲区safearray_inp=variant_inp;//VARIANT型变量转换为ColeSafeArray型变量len=safearray_inp.GetOneDimSize();//得到有效数据长度for(k=0;k<len;k++)safearray_inp.GetElement(&k,rxdata+k);//转换为BYTE型数组for(k=0;k<len;k++)//将数组转换为Cstring型变量{BYTEbt=*(char*)(rxdata+k);//字符型strtemp.Format("%c",bt);//将字符送入临时变量strtemp存放m_strRXData+=strtemp;//加入接收编辑框对应字符串}}UpdateData(FALSE);//更新编辑框内容}到目前为止仍不能于接收编辑框中见到数据，因为我们仍没有打开串口，但运行程序不应该有任何错误，不然，你肯定哪儿没见仔细，因为我是打开VC6对照着做壹步写壹行的，运行试试。
没错吧？那么做下壹步：6.打开串口和设置串口参数你能够于你需要的时候打开串口，例如于程序中做壹个开始按钮，于该按钮的处理函数中打开串口。
当下我们于主对话框的CSCommTestDlg::OnInitDialog()打开串口，加入如下代码：//TODO:Addextrainitializationhereif(m_ctrlComm.GetPortOpen())m_ctrlComm.SetPortOpen(FALSE);m_ctrlComm.SetCommPort(1);//选择com1if(!m_ctrlComm.GetPortOpen())m_ctrlComm.SetPortOpen(TRUE);//打开串口elseAfxMessageBox("cannotopenserialport");m_ctrlComm.SetSettings("9600,n,8,1");//波特率9600，无校验，8个数据位，1个停止位m_ctrlComm.SetInputModel(1);//1：表示以二进制方式检取数据m_ctrlComm.SetRThreshold(1);//参数1表示每当串口接收缓冲区中有多于或等于1个字符时将引发壹个接收数据的OnComm事件m_ctrlComm.SetInputLen(0);//设置当前接收区数据长度为0m_ctrlComm.GetInput();//先预读缓冲区以清除残留数据当下你能够试试程序了，将串口线接好后（不会接？去见见我写的串口接线基本方法），打开串口调试助手，且将串口设于com2，选上自动发送，也能够等会手动发送。
再执行你编写的程序，接收框里应该有数据显示了。
7.发送数据先为发送按钮添加壹个单击消息即BN_CLICKED处理函数，打开ClassWizard－>MessageMaps，选择类CSCommTestDlg，选择IDC_BUTTON_MANUALSEND，双击BN_CLICKED 添加OnButtonManualsend()函数，且于函数中添加如下代码：voidCSCommTestDlg::OnButtonManualsend(){//TODO:AddyourcontrolnotificationhandlercodehereUpdateData(TRUE);//读取编辑框内容m_ctrlComm.SetOutput(COleVariant(m_strTXData));//发送数据}运行程序，于发送编辑框中随意输入点什么，单击发送按钮，啊！见见，于另壹端的串口调试助手（或别的调试工具）接收框里出现了什么。
如果你真是初次涉猎串口编程，又壹次成功，那该说声谢谢我了，因为我第壹次做串口程序时可费劲了，那时网上的资料也不好找。
开开玩笑，谢谢你的支持，有什么好东西别忘了给我寄壹份。
最后说明壹下，由于用到VC控件，于没有安装VC的计算机上运行时要从VC中把mscomm32.ocx、msvcrt.dll、mfc42.dll拷到Windows目录下的System子目录中（win2000为System32）龚建伟2001.6.20什么是VARIANT数据类型？如何使用VARIANT数据类型？怎么以十六进制或二进制发送和接收？如果仍想再深入了解，请见：串口调试助手源程序及编程详细过程（二）2001.8.26这是更新后适合本文的源程序（2001.8.25制作），如果仍没有下载源程序，又对本文有兴趣，请立即下载（当然，你见完本文也能够自己做出来，这个程序是接着上壹个做的，如果你没下载前面程序，则没必要再下载了，本程序全部包含）。
8.发送十六进制字符于主对话框中加入壹个复选接钮，ID为IDC_CHECK_HEXSENDCaption:十六进制发送，再利用ClassWizard为其添加控制变量：m_ctrlHexSend；于ClassView中为SCommTestDlg类添加以下俩个PUBLIC成员函数，且输入相应代码;//由于这个转换函数的格式限制，于发送框中的十六制字符应该每俩个字符之间插入壹个空隔//如：A123450B0029//CByteArray是壹个动态字节数组，可参见MSDN帮助intCSCommTestDlg::String2Hex(CStringstr,CByteArray&senddata){inthexdata,lowhexdata;inthexdatalen=0;intlen=str.GetLength();senddata.SetSize(len/2);for(inti=0;i<len;){charlstr,hstr=str[i];if(hstr==''){i++;continue;}i++;if(i>=len)break;lstr=str[i];hexdata=ConvertHexChar(hstr);lowhexdata=ConvertHexChar(lstr);if((hexdata==16)||(lowhexdata==16))break;elsehexdata=hexdata*16+lowhexdata;i++;senddata[hexdatalen]=(char)hexdata;hexdatalen++;}senddata.SetSize(hexdatalen);returnhexdatalen;}//这是壹个将字符转换为相应的十六进制值的函数//好多C语言书上均能够找到//功能：若是于0-F之间的字符，则转换为相应的十六进制字符，否则返回-1charCSCommTestDlg::ConvertHexChar(charch){if((ch>='0')&&(ch<='9'))returnch-0x30;elseif((ch>='A')&&(ch<='F'))returnch-'A'+10;elseif((ch>='a')&&(ch<='f'))returnch-'a'+10;elsereturn(-1);}再将CSCommTestDlg::OnButtonManualsend()修改成以下形式：voidCSCommTestDlg::OnButtonManualsend(){//TODO:AddyourcontrolnotificationhandlercodehereUpdateData(TRUE);//读取编辑框内容if(m_ctrlHexSend.GetCheck()){CByteArrayhexdata;intlen=String2Hex(m_strTXData,hexdata);//此处返回的len能够用于计算发送了多少个十六进制数m_ctrlComm.SetOutput(COleVariant(hexdata));//发送十六进制数据}elsem_ctrlComm.SetOutput(COleVariant(m_strTXData));//发送ASCII字符数据}当下，你先将串口线接好且打开串口调试助手V2.1，选上以十六制显示，设置好相应串口，然后运行我们这个程序，于发送框中输入00010203A1CC等十六进制字符，且选上以十六进制发送，单击手动发送，于串口调试助手的接收框中应该能够见到00010203A1CC了。
