form1.frm

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

      Top             =   720
      Width           =   1575
   End
   Begin VB.CheckBox Check11 
      Caption         =   "11号表位"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6960
      TabIndex        =   4
      Top             =   720
      Width           =   1575
   End
   Begin VB.CheckBox Check12 
      Caption         =   "12号表位"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   8640
      TabIndex        =   3
      Top             =   720
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "全选"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   10680
      TabIndex        =   2
      Top             =   0
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "自动"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   240
      TabIndex        =   1
      Top             =   4560
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "群校正"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   8760
      TabIndex        =   0
      Top             =   1680
      Width           =   1575
   End
   Begin VB.Label Label3 
      Caption         =   "台体控制口"
      Height          =   255
      Left            =   240
      TabIndex        =   23
      Top             =   2880
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "表位串口配置"
      Height          =   255
      Left            =   240
      TabIndex        =   21
      Top             =   2160
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "台体串口配置"
      Height          =   255
      Left            =   240
      TabIndex        =   19
      Top             =   1440
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &O1
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFFE
    End If
End Sub

Private Sub Check10_Click()
    If Check10.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H200
    Else
        BiaoWeiNum = BiaoWeiNum And &HFDFF
    End If
End Sub

Private Sub Check11_Click()
    If Check11.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H400
    Else
        BiaoWeiNum = BiaoWeiNum And &HFBFF
    End If
End Sub

Private Sub Check12_Click()
    If Check12.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H800
    Else
        BiaoWeiNum = BiaoWeiNum And &H7FF
    End If
End Sub

Private Sub Check2_Click()
    If Check2.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &O2
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFFD
    End If
End Sub

Private Sub Check3_Click()
    If Check3.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &O4
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFFB
    End If
End Sub

Private Sub Check4_Click()
    If Check4.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H8
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFF7
    End If
End Sub

Private Sub Check5_Click()
    If Check5.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H10
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFEF
    End If

End Sub

Private Sub Check6_Click()
    If Check6.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H20
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFDF
    End If

End Sub

Private Sub Check7_Click()
    If Check7.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H40
    Else
        BiaoWeiNum = BiaoWeiNum And &HFFBF
    End If
End Sub

Private Sub Check8_Click()
    If Check8.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H80
    Else
        BiaoWeiNum = BiaoWeiNum And &HFF7F
    End If
End Sub

Private Sub Check9_Click()
    If Check9.Value = 1 Then
        BiaoWeiNum = BiaoWeiNum Or &H100
    Else
        BiaoWeiNum = BiaoWeiNum And &HFEFF
    End If
End Sub

Private Sub Command1_Click()
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Check8.Value = 1
Check9.Value = 1
Check10.Value = 1
Check11.Value = 1
Check12.Value = 1
BiaoWeiNum = &HFFF
End Sub

Private Sub Command2_Click()
    If BiaoWeiNum = 0 Then
        MsgBox ("请选择表位")
    End If
    StatiOperate  '统计操作步骤
    'ProcRDCoeffCommd '处理读参数命令
    'ProcRDVariableCommd '处理读变量命令
    ProcRDKEYDataCommd DangQianHang, ADJNUM, PowerVariableKEY, 3
    PutCommandBuff1 (CommNUM) '把命令放入数组中
    Form1.Timer1.Interval = 10
    Form1.Timer1.Enabled = True
    Form1.Timer2.Interval = 500
    Form1.Timer2.Enabled = True
    
    'AutoAdjustMeter '自动校表
End Sub
Function AutoAdjustMeter()
    Dim i As Byte
    Dim j As Byte
    'Dim RecFlag As Byte
    Form1.Timer1.Enabled = True
    
    'ProcRDSTDVariableCommd
    'PutCommandBuff
    '读标准值
    
    If RDVariableEND = 0 Then
        For i = 0 To 23    '是否发送完
            Do While CommDWOut(i).Comm <> ""
                Exit Function
            Loop
        Next i
            
        For i = 0 To 23   '是否接收完
            j = 0
            If CommSetJ(i).Comm <> "" Then
                Do While CommSetJ(i).Comm <> CommDWIn(j).Comm
                    If j = 23 Then
                        Exit Function
                    End If
                    j = j + 1
                Loop
            End If
        Next i
        
        For i = 0 To 23   '数据解析
            If CommSetJ(i).Comm <> "" Then
                DataJieXi (CommSetJ(i).Comm)
                For j = 0 To 23
                    If CommDWIn(j).Comm = CommSetJ(i).Comm Then
                        Exit For
                    End If
                Next j
                CommDWIn(j).Comm = ""
                CommDWIn(j).DataLen = 0
            End If
        Next i
        
        'ProcRDVariableCommd
        ProcRDKEYDataCommd DangQianHang, ADJNUM, PowerVariableKEY, 3
        If PutCommandBuff1(CommNUM) = 2 Then
            MsgBox ("请选择表位")
        End If
     End If
     If DangQianHang <> 0 Then
         Exit Function
     End If
     RDVariableEND = &HAA
     
     'ProcRDCoeffCommd
     'PutCommandBuff
     'For i = 0 To 23
     '   Do While CommDWOut(i).Comm = ""
     '       Exit Do
     '   Loop
     'Next i
    For i = 0 To 23    '是否发送完
        Do While CommDWOut(i).Comm <> ""
            Exit Function
        Loop
    Next i
     
     'For i = 0 To 23
     '   If CommSetJ(i).Comm <> "" Then
     '       Do While CommSetJ(i).Comm = CommDWIn(i).Comm
     '           Exit Do
     '       Loop
     '   End If
     'Next i
    For i = 0 To 23   '是否接收完
        j = 0
        If CommSetJ(i).Comm <> "" Then
            Do While CommSetJ(i).Comm <> CommDWIn(j).Comm
                If j = 23 Then
                    Exit Function
                End If
                j = j + 1
            Loop
        End If
    Next i
            
     'For i = 0 To 23
     '   If CommSetJ(i).Comm <> "" Then
     '       DataJieXi (CommSetJ(i).Comm)
     '       CommDWIn(i).Comm = ""
     '       CommDWIn(i).DataLen = 0
     '    End If
     'Next i
    For i = 0 To 23   '数据解析
        If CommSetJ(i).Comm <> "" Then
            DataJieXi (CommSetJ(i).Comm)
            For j = 0 To 23
                If CommDWIn(j).Comm = CommSetJ(i).Comm Then
                    Exit For
                End If
            Next j
            CommDWIn(j).Comm = ""
            CommDWIn(j).DataLen = 0
        End If
    Next i
            
     'ProcRDCoeffCommd
     'PutCommandBuff
     'Loop
        
    ProcRDCoeffCommd
    PutCommandBuff
    If DangQianHang1 <> 0 Then
        Exit Function
    End If
    
    CalCoeff
    ProcWRCoeffCommd
    PutCommandBuff
    'AjustStep
     For i = 0 To 23
        Do While CommDWOut(i).Comm = ""