module1.bas

主要用于控制三相电能表检验装置

Attribute VB_Name = "Variable"
Option Explicit
'Public MeterNUM As Long
Public BiaoWeiNum As Long
Public FSO As New FileSystemObject
Public Const ShuJuNUM = 157 + 8 + 20
Public Const ADJNUM = 12
Public Const AdjustNUM1 = 4 '不用
Public ShujuXiang(ShuJuNUM) As String
Public shujuShowstring(ShuJuNUM) As String
Public ZongShowHang As Integer
Public DangQianHang As Integer
Public DangQianHang1 As Integer
Public DangQianHang2 As Integer
Public outdata(255) As Byte
Public Indata(599) As Byte '不用
Public inLen As Integer '不用
Public OutCiShu As Byte '发送剩余次数，成功后清除
Public JiaoZhengCanShu(99, 32) As String
Public ZongHangShu As Byte
Public CommNUM As Byte '串口数
Public Scancomm(23) As String
Type DuanKouStuct
    Comm As String
    Peizhi As String
End Type
    Public TaiTiDuanKou As DuanKouStuct '台体所用的端口
    Public BiaoWei(11) As DuanKouStuct  '12个表位所用的端口
Public ScanMeter(23) As String '不用

Type MeterDataType
    Comm As String
    Voltage(3) As String
    Current(3) As String
    Power(4) As String
    Var(4) As String
    PF(4) As String
    HarmonicWave(6) As String
End Type
    Public MeterData(23) As MeterDataType
    Public StandMeterData As MeterDataType
    
Public PowerVariableKEY(ADJNUM) As String '用于校正系数计算,放置有用电量标识码
Public AdjustKEY(9, ADJNUM) As String '每一步骤的标识码
Public AdjustOperate(9) As String '校正步骤
Public AdOpNUM As Byte  '操作步数
Public AdOpNUM1 As Byte '读校正步骤数
Public AdOpNUM2 As Byte '写校正步骤数

Public RDVariableEND As String
Public RDCoeffEND As String
Public XuHao As Byte
Function HextoString(Data As Byte) As String
    Dim temp As String
    Select Case Data And &HF0
    Case 0
         temp = "0"
    Case &H10
         temp = "1"
    Case &H20
         temp = "2"
    Case &H30
         temp = "3"
    Case &H40
         temp = "4"
    Case &H50
         temp = "5"
    Case &H60
         temp = "6"
    Case &H70
        temp = "7"
    Case &H80
        temp = "8"
    Case &H90
        temp = "9"
    Case &HA0
        temp = "A"
    Case &HB0
        temp = "B"
    Case &HC0
        temp = "C"
    Case &HD0
        temp = "D"
    Case &HE0
        temp = "E"
    Case &HF0
        temp = "F"
    End Select
    Select Case Data And &HF
    Case 0
         temp = temp & "0"
    Case &H1
         temp = temp & "1"
    Case &H2
         temp = temp & "2"
    Case &H3
         temp = temp & "3"
    Case &H4
         temp = temp & "4"
    Case &H5
         temp = temp & "5"
    Case &H6
         temp = temp & "6"
    Case &H7
        temp = temp & "7"
    Case &H8
        temp = temp & "8"
    Case &H9
        temp = temp & "9"
    Case &HA
        temp = temp & "A"
    Case &HB
        temp = temp & "B"
    Case &HC
        temp = temp & "C"
    Case &HD
        temp = temp & "D"
    Case &HE
        temp = temp & "E"
    Case &HF
        temp = temp & "F"
    End Select
    HextoString = temp
End Function