经典的串口调试工具源代码(一)

《经典的串口调试工具源代码(一)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、经典的串口调试助手源代码（一）DimOutputAsciiAsBooleanDimInputStringAsStringDimOutputStringAsString'====================================================================================='                  变量定义'=============================================================

2、========================OptionExplicit                                                                    '强制显式声明DimComSwitchAsBoolean                                                           '串口开关状态判断DimFileDataAsString                                 

3、                            '要发送的文件暂存DimSendCountAsLong                                                              '发送数据字节计数器DimReceiveCountAsLong                                                           '接收数据字节计数器DimInputSignalAsString               

4、                                           '接收缓冲暂存DimOutputSignalAsString                                                         '发送数据暂存DimDisplaySwitchAsBoolean                                                       '显示开关DimModeSendAsBoolean            

5、                                                '发送方式判断DimSavetimeAsSingle                                                             '时间数据暂存延时用DimSaveTextPathAsString                                                         '保存文本路径'网页超链接申明PrivateDeclare

6、FunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateSubCloseCom() '关闭串口OnErrorGoToErr   IfMSComm.PortOpe

7、n=TrueThenMSComm.PortOpen=False                         '先判断串口是否打开，如果打开则先关闭      txtstatus.Text="STATUS：COMPortCloced"                                     '串口状态显示   mnuconnect.Caption="断开串口"   cmdswitch.Caption="打开串口"      'ImgSwitch.Picture=LoadPicture(

8、"f:我的VB串口调试软件图片guan.jpg")        '显示串口已经关闭的图标   ImgSwitchoff.Visible=True   ImgSwitchon.Visible=FalseErr:   EndSubPrivateSubUpdateStatus()   IfMSComm.PortOpenThen       StatusBar1.Panels(1).Text="Connected"           m