biaoshuju.bas

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

Attribute VB_Name = "BiaoShuju"
Function BiaoShujuInit()
 Dim fname
 Dim file
 Dim LenStrting As String
 Dim hang As Integer
 Dim hangs As Integer
 Dim hangs1 As Integer
 hang = 0
 hangs = 0
 hangs1 = 0
 fname = App.Path & "\CanShu\BiaoShuJu.txt"
 'Form1.List1.Clear
 Set file = FSO.OpenTextFile(fname, ForReading, False)
        Do While file.AtEndOfStream <> True
         LenStrting = file.ReadLine
         Dim ss() As String
         ss = Split(LenStrting, ",")
         If ss(0) = "0000" Then
            hangs = hangs + 1
            'Form1.List1.AddItem ss(0) & ":00"
         End If
         If ss(0) = "1111" Then
            PowerVariableKEY(hangs1) = ss(1)       '用于校正系数计算
            hangs1 = hangs1 + 1
            'Form1.List1.AddItem ss(0) & ":00"
         End If
         
         shujuShowstring(hang) = ""
         ShujuXiang(hang) = LenStrting
         hang = hang + 1
         Loop
 file.Close
ZongShowHang = hang - hangs - hangs1
DangQianHang = 0
DangQianHang1 = 0
AdOpNUM1 = 0    '校正步骤数
AdOpNUM2 = 0
RDVariableEND = 0 '读电量值结束标志
RDCoeffEND = 0 '读系数结束标志
End Function
Function BiaoShuDuQu_Main()
Dim ID As String
Dim datad() As Byte
Dim hangs As Integer
'If DanGeDuQu = 55 Then
'    Exit Function
'End If

ID = BiaoShuJuID
hangs = 0
If ID = "FFFF" Then
    'Dim i As Byte
    'Form1.List1.Clear
    'For i = 0 To ShuJuNUM - 1
    '    If shujuShowstring(i) <> "" Then
             'Form1.List1.ListIndex = hangs
             'Form1.List1.Text = shujuShowstring(i)
             'hangs = hangs + 1
    '        Form1.List1.AddItem shujuShowstring(i)
    '        shujuShowstring(i) = ""
    '    End If
    'Next i
    DangQianHang = 0
Else
    ZuZheng ID, datad, 0, 3 '读电压
End If
End Function
Function ProcRDCoeffCommd()
Dim ID As String
Dim datad() As Byte
Dim DataString(10) As String
Dim i As Byte
i = 0
Do While AdjustKEY(AdOpNUM1, i) <> ""
    DataString(i) = AdjustKEY(AdOpNUM1, i)
    i = i + 1
Loop
'If AdOpNUM1 <> AdOpNUM Then
'    AdOpNUM1 = AdOpNUM1 + 1
'Else
'    AdOpNUM1 = 0
'End If

ID = BiaoShuJuID(DangQianHang1, i, DataString)
If ID = "FFFF" Then
    DangQianHang1 = 0
    If AdOpNUM1 <> AdOpNUM Then
        AdOpNUM1 = AdOpNUM1 + 1
    Else
        AdOpNUM1 = 0
    End If
Else
    ZuZheng ID, datad, 0, 1 '读参数
    DangQianHang1 = DangQianHang1 + 1
End If
'DangQianHang1 = DangQianHang1 + 1
End Function
Function ProcWRCoeffCommd()
Dim ID As String
Dim datad() As Byte
Dim DataString(10) As String
Dim i As Byte
i = 0
Do While AdjustKEY(AdOpNUM1, i) <> ""
    DataString(i) = AdjustKEY(AdOpNUM1, i)
    i = i + 1
Loop
If AdOpNUM1 <> AdOpNUM Then
    AdOpNUM1 = AdOpNUM1 + 1
Else
    AdOpNUM1 = 0
End If

ID = BiaoShuJuID(DangQianHang1, i, DataString)
If ID = "FFFF" Then
    DangQianHang1 = 0
Else
    ZuZheng ID, datad, 0, 2 '读参数
    DangQianHang1 = DangQianHang1 + 1
End If
'DangQianHang1 = DangQianHang1 + 1
End Function
Function ProcRDVariableCommd()
Dim ID As String
Dim datad() As Byte
ID = BiaoShuJuID(DangQianHang, ADJNUM, PowerVariableKEY)
If ID = "FFFF" Then
    DangQianHang = 0
Else
    ZuZheng ID, datad, 0, 3 '读电压
    DangQianHang = DangQianHang + 1
End If
'DangQianHang = DangQianHang + 1
End Function

Function ProcRDKEYDataCommd(Ptr As Integer, Number As Byte, Key() As String, FrameType As Byte)
Dim ID As String
Dim i As Byte
Dim datad() As Byte
If FrameType <> 2 Then
    i = 0
Else
    MsgBox ("运算出错")
End If
ID = BiaoShuJuID(Ptr, Number, Key)
If ID = "FFFF" Then
    Ptr = 0
Else
    ZuZheng ID, datad, i, FrameType '读电压
    Ptr = Ptr + 1
End If
End Function

Function BiaoShuJuID(Ptr As Integer, DataLen As Byte, Data() As String) As String
Dim temstr As String
Dim i As Integer
For i = Ptr To DataLen
    temstr = Data(i)
    If temstr = "" Then
        BiaoShuJuID = "FFFF"
        Exit Function
    End If
    BiaoShuJuID = temstr
    Exit Function
Next i
BiaoShuJuID = "FFFF"
End Function