module1.bas

VB上位机程序VB上位机程序VB上位机程序VB上位机程序

Attribute VB_Name = "Module1"
'*********************************************
'用于变量声明
'*********************************************
Public Test_COM As Boolean
Public com_now_num As Integer         '当前串口号
Public com_last_num As Integer        '上一个串口号
Public com_last_open_num As Integer   '上一个打开的端口，在打开下个端口前要关闭
Public jiaoyan As String              '转换为校验值
Public intTime As Integer             '周期发送间隔

'**********************************
'发送模块
'**********************************

Public intOutMode As Integer    '发送模式
Public strSendText As String    '发送文本数据
Public bytSendByte() As Byte    '发送二进制数据

'**********************************
'接收模块
'**********************************

Public bytReceiveByte() As Byte     '接收到的字节
Public intReceiveLen As Integer     '接收到的字节数


'**********************************
'显示模块
'**********************************

Public strAddress As String     '地址信息
Public strHex As String         '十六进制编码
Public strAscii As String        'ASCII码