Dim OutputAscii As Boolean
Dim InputString As String
Dim 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
'
显示开关