define_module.bas

应用研究计算上的许多地方上用的到的算法

Attribute VB_Name = "Define_module"

Public SoftEdit_U31 As String, HardwareEdit_U31 As String, SoftEdit_I31 As String, HardwareEdit_I31 As String, SoftEdit_DU31 As String, HardwareEdit_DU31 As String, SoftEdit_DI31 As String, HardwareEdit_DI31 As String
Public SoftEdit_P31S As String, HardwareEdit_P31S As String, SoftEdit_L31 As String, HardwareEdit_L31 As String, SoftEdit_F31 As String, HardwareEdit_F31 As String, SoftEdit_T31 As String, HardwareEdit_T31 As String
Public SoftEdit_U33 As String, HardwareEdit_U33 As String, SoftEdit_I33 As String, HardwareEdit_I33 As String, SoftEdit_P31 As String, HardwareEdit_P31 As String, SoftEdit_Q31 As String, HardwareEdit_Q31 As String, SoftEdit_S32 As String, HardwareEdit_S32 As String
Public RunTime As Double  '显示当前仪器运行时长
Public SoftEdit_temp As String, HardwareEdit_temp As String  '用于显示当前仪器版本号
Public AddrNew As Byte, CombaudNew As String  '用于刷新地址,波特率
'-------------------  通讯部分变量  ---------------------------------------
Public CRCListHi(0 To 255) As Byte      'CRC 校验表 Hi
Public CRCListLo(0 To 255) As Byte      'CRC 校验表 Lo
Public CrcDataHI As Byte    '
Public CrcDataLO As Byte
Public COMport As Byte          '通讯串口
Public COMbaud As String        '通讯波特率
Public COMtime As Integer       '通讯时间间隔
Public outbyte() As Byte        '发送数据指针
Public inputbyte() As Byte      '接收数据指针
Public SendBuf(0 To 300) As Byte
Public SendLen As Integer       ' 发送数据长度
Public RecBuf(0 To 300) As Byte
Public Reclen As Integer            '返回数据长度
Public DataArr(0 To 100) As Byte    '专用
Public SeachMTID As Integer         '仪器地址
Public MTID As Integer              '仪器标识
Public SetStarPos As Integer        '设置Ex31或Ex33类型：
                                    '0- 无PT的Ex31类型   1- 有PT的Ex31类型
                                    '2- Ex33类型

Public ComMode As Byte      '通讯方式，0：读表通讯，1：设表通讯
Public SetCount As Byte     '设置次数计数器

Public ComPortState As Boolean       ' 通讯口使用状态
Public SendCmdCount As Byte    '发送命令计数器，每发一个命令，状态栏的Send栏就加一个"．"
Public ReceiveCmdCount As Byte '同SendCmdCount ，用于接收
Public ReceiveDStr As String   '状态栏接收框固定显示的字符
Public starbartext As String   '状态栏第一框固定显示的字符
Public CommRecFlag As Byte     '是否通讯接收标志，发指令时清0，收到回复置1
Public CommRecCount As Byte    '通讯无接收计数器

'-----------------------------------对象定义--------------
Public MyTree As TreeView
Public CtrlPic As PictureBox

'--------------------------------------------显示值
Public isEnglish As Boolean     'Judge SystemLanguage
Public ParaAddr As Byte         'Address
Public ParaPt As String         'Pt
Public ParaCt As String         'ct
Public ParaBaud As Integer     'Baud
Public ParaHigh As String       'High
Public ParaLow As String        'Low
Public ParaBack As String       'Back
Public ParaRemoteSignal As String '遥信量开关 闭合或断开
Public ParaConnectionMode  As String  '接线方式 3相3线或3相4线
Public RNum As Integer
Public Mi As Integer
Public ModeRate As Integer        '不同型号产品带的小数的比率
Public MeasureVal1 As String      '测量数据1
Public MeasureVal2 As String
Public MeasureVal3 As String
Public MeasureVal4 As String
Public MeasureVal5 As String
Public MeasureVal6 As String
Public MeasureVal7 As String

Public ParaAddr_W As Byte       '写Addr
Public ParaPt_W As Long         '写Pt
Public ParaCt_W As Long         '写ct
Public ParaHigh_W As Integer       '写High
Public ParaHighE_W As Integer '写High指数
Public ParaLow_W As Integer       '写Low
Public ParaLowE_W As Integer   '写Low指数
Public ParaBack_W As Long       '写Back

'--------------------------------------------------------------------------------------  系统寄存器值
Public ParaFull As String      '表量程
Public HardwareType As Byte    '仪器型号
Public Polarity As Byte        '表极性 DI31,DU31
Public SuperScript As String, SubScript As String  '当为T31,L31,F31时量程的上下标
Public Temperature As Byte '温度探头
Public Checkout_0_resistance As Long '校0电阻值 T31
Public Checkout_Full_resistance As Long '校满电阻值 T31
Public M1_0 As Long      '模拟量1校0
Public M1_Full As Long     '模拟量1校满
Public M2_0 As Long    '模拟量2校0
Public M2_Full As Long      '模拟量2校满
Public M3_0 As Long      '模拟量3校0
Public M3_Full As Long      '模拟量3校满
Public M1 As Long    '模拟量1满值对应
Public M2 As Long      '模拟量2校满对应   S32专用


'---------------------------- define for Ex33
Public LedLine10 As Byte
Public LedLine11 As Byte
Public LedLine20 As Byte
Public LedLine21 As Byte
Public LedLine30 As Byte
Public LedLine31 As Byte
Public LedLineVal(0 To 6, 0 To 3) As Byte  'LedLine(0,x) 功率的
                                        'LedLine(1,x) Ia 的
Public Dotpos(0 To 13) As Byte    ' 三排数码管的小数点位置
Public IFullVal As Integer
Public UFullVal As Integer

'------------------------------- define for MultiPara Meter
Public RdGroup As Byte     '分块　多参数表　组号（3组）
Public CntGroup As Byte    ' 块内读命令　指针
Public CalFlag As Byte      '处于校表状态标志。
Public InstFlag As Byte     '处于 极值或实时值显示状态标志。
Public RdCalParaTime As Byte '读校准参数次数
Public VolFull As Long
Public CurrFull As Long
Public impkWh As Long
Public ValueNow(0 To 5) As Single  ' 实时电压电流值 0-AVol 1-ACurr...
Public UIgnval(0 To 15) As Long
Public PhaseTypeF As Byte        '读三相三或三相四类型标志 ，为0时不读
Public JLWay As Byte             '电能计量方式 1：绝对值输出 0：代数和输出