Begin VB.PictureBox disp_pic

      BackColor       =   &H00161602&

      ForeColor       =   &H0000FFFF&

      Height          =   5895

      Left            =   120

      ScaleHeight     =   5835

      ScaleWidth      =   10035

      TabIndex        =   10

      Top             =   3600

      Width           =   10095

   End

   Begin ComctlLib.StatusBar StatusBar1

      Align           =   2  'Align Bottom

      Height          =   255

      Left            =   0

      TabIndex        =   5

      Top             =   9540

      Width           =   12735

      _ExtentX        =   22463

      _ExtentY        =   450

      SimpleText      =   ""

      _Version        =   327682

      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}

         NumPanels       =   2

         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}

            Alignment       =   2

            Object.Width           =   1411

            MinWidth        =   1411

            Object.Tag             =   ""

         EndProperty

         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}

            Alignment       =   2

            Object.Width           =   1411

            MinWidth        =   1411

            Object.Tag             =   ""

         EndProperty

      EndProperty

      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}

         Name            =   "System"

         Size            =   9.75

         Charset         =   0

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

   End

   Begin VB.Timer T_05s00

      Interval        =   500

      Left            =   600

      Top             =   480

   End

   Begin MSCommLib.MSComm MSComm1

      Left            =   1080

      Top             =   480

      _ExtentX        =   1005

      _ExtentY        =   1005

      _Version        =   393216

      CommPort        =   2

      DTREnable       =   0   'False

      InputLen        =   1

      RThreshold      =   1

      ParitySetting   =   2

      InputMode       =   1

   End

   Begin VB.Label disp_area

      BackColor       =   &H00161602&

      BorderStyle     =   1  'Fixed Single

      BeginProperty Font

         Name            =   "宋体"

         Size            =   9

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H0000FFFF&

      Height          =   3015

      Left            =   120

      TabIndex        =   11

      Top             =   480

      Width           =   10095

   End

   Begin ComctlLib.ImageList ImageList1

      Left            =   0

      Top             =   480

      _ExtentX        =   1005

      _ExtentY        =   1005

      BackColor       =   -2147483643

      ImageWidth      =   20

      ImageHeight     =   20

      MaskColor       =   12632256

      _Version        =   327682

      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}

         NumListImages   =   7

         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":001A

            Key             =   ""

         EndProperty

         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":0334

            Key             =   ""

         EndProperty

         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":064E

            Key             =   ""

         EndProperty

         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":0968

            Key             =   ""

         EndProperty

         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":0C82

            Key             =   ""

         EndProperty

         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":0F9C

            Key             =   ""

         EndProperty

         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}

            Picture         =   "Star_M6.frx":12B6

            Key             =   ""

         EndProperty

      EndProperty

   End

   Begin VB.Label rx_data

      BackColor       =   &H00000000&

      BorderStyle     =   1  'Fixed Single

      BeginProperty Font

         Name            =   "宋体"

         Size            =   9

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H0000FFFF&

      Height          =   1935

      Left            =   10320

      TabIndex        =   1

      Top             =   1560

      Width           =   5295

   End

   Begin VB.Label tx_data

      BackColor       =   &H00000000&

      BorderStyle     =   1  'Fixed Single

      BeginProperty Font

         Name            =   "宋体"

         Size            =   9

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H0000FFFF&

      Height          =   1068

      Left            =   10320

      TabIndex        =   0

      Top             =   480

      Width           =   5292

   End

   Begin VB.Menu mu_sys

      Caption         =   "系统[&S] "

      Begin VB.Menu sys_set

         Caption         =   "设定"

      End

      Begin VB.Menu mu_quit

         Caption         =   "退出"

      End

   End

   Begin VB.Menu compt

      Caption         =   "元件[&C] "

   End

   Begin VB.Menu AC_ch

      Caption         =   "通道[&F] "

   End

   Begin VB.Menu op

      Caption         =   "操作[&O] "

   End

   Begin VB.Menu help

      Caption         =   "帮助[&H]"

   End

End

Attribute VB_Name = "mn_form"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim V_1, V_1_real, V_1_Image, V_2, V_2_real, V_2_Image, V_1_m6, v_ric, tp00, tp01 As Single

Public num_rxright, num_sent, rx_CRC, T_pos

Sub Send(ByVal Cmd As Integer)

    Dim k(0) As Byte

    tx_data.Caption = ""

    If Cmd = 4 Then T_pos = &H178: Cmd = 3 Else T_pos = RAM_VScroll1.value

    tx_b(3) = Array(SN_VScroll.value, 3, T_pos \ 256, T_pos Mod 256, &H0, &H40, 0, 0, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0)

    tx_b(Cmd)(0) = SN_VScroll.value:    tx_b(Cmd)(1) = Cmd

    If Cmd = 16 Then Lenth = tx_b(Cmd)(5) * 2 + 7 Else Lenth = 6

    Sum = &HFFFF

    For i = 0 To Lenth - 1

        If tx_b(Cmd)(i) < 0 Then tx_b(Cmd)(i) = 256 + tx_b(Cmd)(i)

        k(0) = tx_b(Cmd)(i)

        Sum = Sum Xor (k(0) And &HFF)

        If Sum < 0 Then Sum = 65536 + Sum

        For j = 0 To 7

            If (Sum And 1) = 1 Then

                Sum = Int(Sum \ 2):     Sum = Sum Xor &HA001

                If Sum < 0 Then Sum = 65536 + Sum

            Else

                Sum = Int(Sum \ 2)

            End If

        Next

        MSComm1.Output = k: tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "

    Next

    If Sum < 0 Then Sum = 65536 + Sum

    k(0) = (Sum Mod 256):   tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "

    MSComm1.Output = k

    k(0) = (Sum \ 256):     tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "

    MSComm1.Output = k

    rx_data = "":           rx_CRC = &HFFFF

End Sub

Private Sub Combo1_Click()

    p = Combo1.ListIndex + 1

    If p > 0 And p < 3 Then Call Close_OpenPort(Int(p))

End Sub

Private Sub AC_ch_Click()

    Factor_Seting.Visible = True

    tx_REQ = 3

End Sub

Private Sub compt_Click()

    Comptform.Visible = True

End Sub

Private Sub Form_Load()

Call Close_OpenPort(1)

Call MakeToolbarFlat(Toolbar1)

sys_set.Visible = True

For i = 0 To 8

    tx_b(i) = Array(&H68, &H3, &H3, &H68, &H20, &H93, &H83, &H85, &H0, &H30 + Second(Time) Mod 10, &H0, &H30 + Second(Time) Mod 10, &H0, &H41 + Second(Time) Mod 10, &H0, &H61 + Second(Time) Mod 10, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1)

Next

tx_REQ = 3:     num_rxright = 0:    num_sent = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Unload controlform

    Unload Comptform

    Unload Factor_Seting

    Unload Me

End Sub

Private Sub MSComm1_OnComm()

    Dim temp  As Variant

    MSComm1.InputLen = 1

    While MSComm1.InBufferCount <> 0

        temp = MSComm1.Input

        If rx_ptr < 150 Then

            If rx_ptr = 3 Then rx_data.Caption = rx_data.Caption + vbCr

            rx_b(rx_ptr) = temp(0):    rx_data.Caption = rx_data.Caption + hexbyt(Int(temp(0))) + " "

            rx_ptr = rx_ptr + 1

            rx_CRC = rx_CRC Xor (temp(0) And &HFF)

            If rx_CRC < 0 Then rx_CRC = 65536 + rx_CRC

            For j = 0 To 7

                If (rx_CRC And 1) = 1 Then

                    rx_CRC = Int(rx_CRC \ 2)

                    rx_CRC = rx_CRC Xor &HA001

                    If rx_CRC < 0 Then rx_CRC = 65536 + rx_CRC

                Else

                    rx_CRC = Int(rx_CRC \ 2)

                End If

            Next

        End If

    Wend

End Sub

Private Sub op_Click()

    controlform.Visible = True

End Sub

Private Sub RAM_VScroll1_Change()

    RAM_addr1th.Text = strhex(RAM_VScroll1.value)

End Sub

Private Sub SN_VScroll_Change()

    SN_Text.Text = Str(SN_VScroll.value)                '站号调整与显示

End Sub

Private Sub sys_set_Click()

    s_set.Visible = True

End Sub

Private Sub T_05s00_Timer()

    mn_form.Caption = " X200测试  " + Format(Date, " yyyy-mm-dd ") + Format(Time, "hh:mm:ss ")    '标题刷新

    If rx_CRC = 0 Then

        Call Process

        num_rxright = (num_rxright + 1) Mod 10000       '显示接收正确次数

        StatusBar1.Panels(2) = Str(num_rxright)

    End If

    Call Send(tx_REQ)               '发送默认命令

    If tx_REQ <> 3 Then tx_REQ = 3

    num_sent = (num_sent + 1) Mod 10000

    StatusBar1.Panels(1) = Str(num_sent)                '显示召唤次数

    rx_ptr = 0

End Sub

Sub Close_OpenPort(port As Byte)

On Error Resume Next    ' 改变错误处理的方式。

    Err.Clear

    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

    MSComm1.CommPort = port

    MSComm1.Settings = "9600,n,8,1"

    MSComm1.InputLen = 0

    MSComm1.PortOpen = True

If Err.Number <> 0 Then

    msg = "Error # " & Str(Err.Number) & " was generated by " _

            & Err.Source & Chr(13) & Err.Description

    MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext

End If

End Sub

Public Sub Process()

    If (T_pos < 410) Then

        disp_area.Caption = ""

        For i = 0 To 63

            D_int(i) = b_i(rx_b(4 + i * 2), rx_b(3 + i * 2))

            If D_int(i) >= 0 Then

                disp_area.Caption = disp_area.Caption + Format(D_int(i), " 00000    ")

            Else

                disp_area.Caption = disp_area.Caption + "-" + Format(-D_int(i), "00000    ")

            End If

            If (i Mod 8) = 7 Then disp_area.Caption = disp_area.Caption + vbCr + " "

        Next

        sindraw (0)

    End If

    If T_pos = &H80 Then

        'For i = 0 To 7

            'Factor_Seting.AC_data(i).Caption = Format(b_i(rx_b(4 + i * 2), rx_b(3 + i * 2)) / 100, "0.00")

            Factor_Seting.AC_data(1).Caption = Format(b_i(rx_b(8), rx_b(7)) / 100, "0.00")

            Factor_Seting.AC_data(0).Caption = Format(b_i(rx_b(16), rx_b(15)) / 100, "0.00")

            Factor_Seting.AC_data(3).Caption = Format(b_i(rx_b(24), rx_b(23)) / 100, "0.00")

            Factor_Seting.AC_data(2).Caption = Format(b_i(rx_b(32), rx_b(31)) / 1000 * 38, "0.00")

            Factor_Seting.AC_data(5).Caption = Format(b_i(rx_b(40), rx_b(39)) / 1000 * 38, "0.00")

            Factor_Seting.AC_data(4).Caption = Format(b_i(rx_b(102), rx_b(101)) / 1000, "0.00")

            Factor_Seting.AC_data(7).Caption = Format(b_i(rx_b(104), rx_b(103)) / 1000, "0.00")

            'Factor_Seting.AC_data(7).Caption = Format(b_i(rx_b(6 + i * 2), rx_b(5 + i * 2)) / 100, "0.00")

        'Next

    End If

    If T_pos = &H178 Then

        For i = 0 To 7

            If rx_b(3 + i) < 128 Then Factor_Seting.VScroll1(i).value = -rx_b(3 + i) Else Factor_Seting.VScroll1(i).value = 256 - rx_b(3 + i)

        Next

    End If

End Sub

Public Sub sindraw(ByVal ch As Integer)

disp_pic.Cls

xsc = (disp_pic.Width - 200) / 32:      ysc = (disp_pic.Height - 200) / 1280:     xax = disp_pic.Height / 2

disp_pic.Line (xsc, xax)-(disp_pic.Width - xsc, xax), RGB(128, 128, 128)

disp_pic.Line (xsc, 100)-(xsc, disp_pic.Height - 100), RGB(128, 128, 128)

If T_pos < &H60 Then

    For i = 1 To 31

        disp_pic.Line (i * xsc, D_int((i - 1) Mod 16) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16) * ysc + xax), RGB(250, ch * 50, 0)

        disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 16) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 16) * ysc + xax), RGB(250, ch * 50, 200)

        disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 32) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 32) * ysc + xax), RGB(210, 150, 220)

        disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 48) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 48) * ysc + xax), RGB(150, ch * 50, 100)

    Next

Else

    For i = 1 To 31

        disp_pic.Line (i * xsc, xax)-((i + 1) * xsc, xax), RGB(250, ch * 50, 0)

        disp_pic.Line (i * xsc, 16 * ysc + xax)-((i + 1) * xsc, 16 * ysc + xax), RGB(250, ch * 50, 200)

        disp_pic.Line (i * xsc, 32 * ysc + xax)-((i + 1) * xsc, 32 * ysc + xax), RGB(210, 150, 220)

        disp_pic.Line (i * xsc, 48 * ysc + xax)-((i + 1) * xsc, 48 * ysc + xax), RGB(150, ch * 50, 100)

    Next

   End If

End Sub

VERSION 5.00

Begin VB.Form s_set

   Caption         =   "sys_set"

   ClientHeight    =   5025

   ClientLeft      =   60

   ClientTop       =   450

   ClientWidth     =   9360

   LinkTopic       =   "Form1"

   ScaleHeight     =   5025

   ScaleWidth      =   9360

   StartUpPosition =   3  '窗口缺省

   Begin VB.TextBox Text1

      Alignment       =   1  'Right Justify

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   405

      Index           =   3

      Left            =   7200

      TabIndex        =   25

      Text            =   "1.0"

      Top             =   2280

      Width           =   735

   End

   Begin VB.VScrollBar VScroll1

      Height          =   375

      Index           =   3

      Left            =   7920

      Max             =   255

      Min             =   1

      TabIndex        =   24

      Top             =   2280

      value           =   1

      Width           =   255

   End

   Begin VB.Commanon Command1

      Caption         =   "确认"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   735

      Left            =   7080

      TabIndex        =   21

      Top             =   3720

      Width           =   1095

   End

   Begin VB.VScrollBar VScroll1

      Height          =   375

      Index           =   2

      Left            =   7920

      Max             =   255

      Min             =   1

      TabIndex        =   20

      Top             =   1680

      value           =   10

      Width           =   255

   End

   Begin VB.VScrollBar VScroll1

      Height          =   375

      Index           =   1

      Left            =   7920

      Max             =   5

      Min             =   1

      TabIndex        =   19

      Top             =   1080

      value           =   1

      Width           =   255

   End

   Begin VB.VScrollBar VScroll1

      Height          =   375

      Index           =   0

      Left            =   7920

      Max             =   99

      Min             =   1

      TabIndex        =   18

      Top             =   480

      value           =   1

      Width           =   255

   End

   Begin VB.TextBox Text1

      Alignment       =   1  'Right Justify

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   405

      Index           =   2

      Left            =   7200

      TabIndex        =   17

      Text            =   "1.0"

      Top             =   1680

      Width           =   735

   End

   Begin VB.TextBox Text1

      Alignment       =   1  'Right Justify

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   405

      Index           =   1

      Left            =   7200

      TabIndex        =   16

      Text            =   "1"

      Top             =   1080

      Width           =   735

   End

   Begin VB.TextBox Text1

      Alignment       =   1  'Right Justify

      BeginProperty Font

         Name            =   "宋体"

         Size            =   12

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   405

      Index           =   0

      Left            =   7200

      TabIndex        =   15

      Text            =   "1"

      Top             =   480

      Width           =   735

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   5

      ItemData        =   "sys_set.frx":0000

      Left            =   2760

      List            =   "sys_set.frx":0016

      TabIndex        =   5

      Text            =   "100ms"

      Top             =   4080

      Width           =   1215

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   4

      ItemData        =   "sys_set.frx":0043

      Left            =   2760

      List            =   "sys_set.frx":0059

      TabIndex        =   4

      Text            =   "100ms"

      Top             =   3240

      Width           =   1215

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   3

      ItemData        =   "sys_set.frx":0086

      Left            =   2760

      List            =   "sys_set.frx":0090

      TabIndex        =   3

      Text            =   "上升沿"

      Top             =   2520

      Width           =   1215

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   2

      ItemData        =   "sys_set.frx":00A2

      Left            =   2760

      List            =   "sys_set.frx":00B2

      TabIndex        =   2

      Text            =   "保护模式"

      Top             =   1800

      Width           =   1215

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   1

      ItemData        =   "sys_set.frx":00E1

      Left            =   2760

      List            =   "sys_set.frx":00F1

      TabIndex        =   1

      Text            =   "Ia"

      Top             =   1080

      Width           =   1215

   End

   Begin VB.ComboBox Combo1

      Height          =   300

      Index           =   0

      ItemData        =   "sys_set.frx":0105

      Left            =   2760

      List            =   "sys_set.frx":0112

      TabIndex        =   0

      Text            =   "面板"

      Top             =   480

      Width           =   1215

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "CT 变比"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   9

      Left            =   5400

      TabIndex        =   23

      Top             =   2400

      Width           =   1455

   End

   Begin VB.Label Label2

      Caption         =   "CT变比"

      Height          =   15

      Left            =   5280

      TabIndex        =   22

      Top             =   2400

      Width           =   1215

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "星-三角启动切换时间"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   8

      Left            =   4440

      TabIndex        =   14

      Top             =   1800

      Width           =   2415

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "散热时间系数"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   7

      Left            =   5160

      TabIndex        =   13

      Top             =   1200

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "通信站号"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   6

      Left            =   5160

      TabIndex        =   12

      Top             =   600

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "启停出口方式"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   5

      Left            =   720

      TabIndex        =   11

      Top             =   4080

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "跳闸出口方式"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   4

      Left            =   720

      TabIndex        =   10

      Top             =   3240

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "接点检测方式"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   3

      Left            =   720

      TabIndex        =   9

      Top             =   2520

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "控制模式"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   2

      Left            =   720

      TabIndex        =   8

      Top             =   1800

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "模拟量输出"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   1

      Left            =   720

      TabIndex        =   7

      Top             =   1080

      Width           =   1695

   End

   Begin VB.Label Label1

      Alignment       =   1  'Right Justify

      Caption         =   "操作权限"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   0

      Left            =   720

      TabIndex        =   6

      Top             =   510

      Width           =   1695

   End

End

Attribute VB_Name = "s_set"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim hcd(32) As Byte

Private Sub Command1_Click()

    For i = 0 To 2

        If Combo1(i * 2).ListIndex < 0 Then Combo1(i * 2).ListIndex = 0

        If Combo1(i * 2 + 1).ListIndex < 0 Then Combo1(i * 2 + 1).ListIndex = 0

        hcd(i) = (Combo1(i * 2).ListIndex + 1) * 16 + (Combo1(i * 2 + 1).ListIndex + 1)

        hcd(i + 3) = VScroll1(i).value

    Next

    hcd(7) = VScroll1(3).value

    hcd(10) = &H34: hcd(11) = &HDA

    For i = 0 To 4

        hcd(10) = hcd(10) Xor hcd(i * 2): hcd(11) = hcd(11) Xor hcd(i * 2 + 1)

    Next

    i = 14 * 8 + &H100

    tx_b(16) = Array(&H8, &H10, i \ 256, i Mod 256, 0, &H8, &H10, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

    hcd(12) = &HFF: hcd(13) = &HFF: hcd(14) = &H12: hcd(15) = &H34

    For i = 7 To 7 + 32:        tx_b(16)(i) = hcd(i - 7):    Next

    tx_REQ = 16

End Sub

Private Sub VScroll1_Change(Index As Integer)

If Index = 2 Then

    Text1(2).Text = Format(VScroll1(2).value / 10, "0.0")

Else

    Text1(Index).Text = VScroll1(Index).value

End If

End Sub

第二段程序

VERSION 5.00

Begin VB.Form Comptform

   BorderStyle     =   1  'Fixed Single

   Caption         =   "参数设置"

   ClientHeight    =   3810

   ClientLeft      =   45

   ClientTop       =   330

   ClientWidth     =   3120

   Icon            =   "Compt.frx":0000

   LinkTopic       =   "Form1"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   3810

   ScaleWidth      =   3120

   StartUpPosition =   3  '窗口缺省

   Begin VB.Commanon Command2

      Caption         =   "下装"

      Height          =   495

      Left            =   1080

      Picture         =   "Compt.frx":038A

      Style           =   1  'Graphical

      TabIndex        =   9

      Top             =   3120

      Width           =   975

   End

   Begin VB.TextBox Text3

      Alignment       =   1  'Right Justify

      Appearance      =   0  'Flat

      BackColor       =   &H00FFFFFF&

      DataField       =   "定值3比例"

      DataSource      =   "Data1"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H00800000&

      Height          =   315

      Index           =   2

      Left            =   1080

      TabIndex        =   8

      Text            =   "1"

      Top             =   2020

      Width           =   975

   End

   Begin VB.TextBox Text3

      Alignment       =   1  'Right Justify

      Appearance      =   0  'Flat

      BackColor       =   &H00FFFFFF&

      DataField       =   "定值2比例"

      DataSource      =   "Data1"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H00800000&

      Height          =   315

      Index           =   1

      Left            =   1080

      TabIndex        =   7

      Text            =   "100"

      Top             =   1420

      Width           =   975

   End

   Begin VB.TextBox Text3

      Alignment       =   1  'Right Justify

      Appearance      =   0  'Flat

      BackColor       =   &H00FFFFFF&

      DataField       =   "定值1比例"

      DataSource      =   "Data1"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H00800000&

      Height          =   315

      Index           =   0

      Left            =   1080

      TabIndex        =   6

      Text            =   "200"

      Top             =   820

      Width           =   975

   End

   Begin VB.ComboBox Combo3

      BeginProperty Font

         Name            =   "宋体"

         Size            =   9

         Charset         =   0

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H00800000&

      Height          =   300

      ItemData        =   "Compt.frx":0714

      Left            =   1080

      List            =   "Compt.frx":0745

      TabIndex        =   1

      Text            =   "启动时间长保护"

      Top             =   220

      Width           =   1935

   End

   Begin VB.ComboBox Combo1

      Appearance      =   0  'Flat

      BackColor       =   &H00FFFFFF&

      DataField       =   "类型"

      DataSource      =   "Data1"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   9

         Charset         =   134

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      ForeColor       =   &H00800000&

      Height          =   300

      ItemData        =   "Compt.frx":0813

      Left            =   1080

      List            =   "Compt.frx":0832

      TabIndex        =   0

      Text            =   " 跳闸"

      Top             =   2620

      Width           =   1575

   End

   Begin VB.Label Label2

      Caption         =   "保护参数"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   0

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   0

      Left            =   120

      TabIndex        =   5

      Top             =   260

      Width           =   855

   End

   Begin VB.Label Label2

      Caption         =   "定  值"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   0

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   1

      Left            =   120

      TabIndex        =   4

      Top             =   860

      Width           =   855

   End

   Begin VB.Label Label2

      Caption         =   "时  限"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   0

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   2

      Left            =   120

      TabIndex        =   3

      Top             =   1460

      Width           =   855

   End

   Begin VB.Label Label2

      Caption         =   "参数1"

      BeginProperty Font

         Name            =   "宋体"

         Size            =   10.5

         Charset         =   0

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   255

      Index           =   3

      Left            =   120

      TabIndex        =   2

      Top             =   2060

      Width           =   855

   End

End

Attribute VB_Name = "Comptform"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim hcd(32) As Byte

Private Sub Combo1_Click()

If Combo1.Text = "调试0mA" Then

Label2(1).Caption = "调试0mA"

Label2(2).Caption = "调试4mA"

Label2(3).Caption = "调试20mA"

ElseIf Combo1.Text = "调试4mA" Then

Label2(1).Caption = "调试0mA"

Label2(2).Caption = "调试4mA"

Label2(3).Caption = "调试20mA"

ElseIf Combo1.Text = "调试20mA" Then

Label2(1).Caption = "调试0mA"

Label2(2).Caption = "调试4mA"

Label2(3).Caption = "调试20mA"

ElseIf Combo1.Text = "0_20mA" Then

Label2(1).Caption = "调试0mA"

Label2(2).Caption = "调试4mA"

Label2(3).Caption = "调试20mA"

ElseIf Combo1.Text = "4_20mA" Then

Label2(1).Caption = "调试0mA"

Label2(2).Caption = "调试4mA"

Label2(3).Caption = "调试20mA"

Else

Label2(1).Caption = "定  值"

Label2(2).Caption = "时  限"

Label2(3).Caption = "参数1"

End If

End Sub

Private Sub Command2_Click()

     Dim h As Integer

    If Combo3.Text = "启动时间长保护" Then

    h = 1

    ElseIf Combo3.Text = "定时限过负荷保护" Then

    h = 2

    ElseIf Combo3.Text = "反时限过负荷保护" Then

    h = 3

    ElseIf Combo3.Text = "堵转保护" Then

    h = 4

     ElseIf Combo3.Text = "电流不平衡保护" Then

    h = 5

    ElseIf Combo3.Text = "接地保护" Then

    h = 6

    ElseIf Combo3.Text = "过热保护" Then

    h = "7"

    ElseIf Combo3.Text = "欠电压保护" Then

    h = 8

    ElseIf Combo3.Text = "过电压保护" Then

    h = 9

    ElseIf Combo3.Text = "欠电流保护" Then

    h = 10

    ElseIf Combo3.Text = "断相保护" Then

    h = 11

    ElseIf Combo3.Text = "电压回路断相保护" Then

    h = 12

    ElseIf Combo3.Text = "欠压重启动功能" Then

    h = 13

    ElseIf Combo3.Text = "TE时间保护" Then

    h = 14

    ElseIf Combo3.Text = "变送值设定" Then

    h = 15

    End If

    If Combo1.ListIndex < 0 Then Combo1.ListIndex = 1

    hcd(6) = &HFF: hcd(7) = &HFF: hcd(8) = &H66: hcd(9) = &H66

    hcd(12) = &HFF: hcd(13) = &HFF: hcd(14) = &H12: hcd(15) = &H34

    If Combo1.ListIndex = 1 Then

        hcd(8) = &HA5

        hcd(9) = &H5A

    ElseIf Combo1.ListIndex = 2 Then

        hcd(8) = &H5A

        hcd(9) = &HA5

    ElseIf Combo1.ListIndex = 4 Then

        hcd(6) = &H0

        hcd(7) = &H1

    ElseIf Combo1.ListIndex = 5 Then

        hcd(6) = &H0

        hcd(7) = &H2

    ElseIf Combo1.ListIndex = 6 Then

        hcd(6) = &H0

        hcd(7) = &H3

    ElseIf Combo1.ListIndex = 7 Then

        hcd(6) = &H0

        hcd(7) = &H55

    ElseIf Combo1.ListIndex = 8 Then

        hcd(6) = &H0

        hcd(7) = &HAA

    End If

    For i = 0 To 2

        temp = Val(Text3(i).Text)

        hcd(i * 2) = temp \ 256

        hcd(i * 2 + 1) = temp Mod 256                       'para0-2

    Next

    hcd(10) = &H34

    hcd(11) = &HDA

    For i = 0 To 4

        hcd(10) = hcd(10) Xor hcd(i * 2)

        hcd(11) = hcd(11) Xor hcd(i * 2 + 1)

    Next

    If h = 15 Then

    i = (Val(h) + 1) * 8 + &H100

    Else

    i = (Val(h) - 1) * 8 + &H100

    End If

    tx_b(16) = Array(&H8, &H10, i \ 256, i Mod 256, 0, &H8, &H10, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

    For i = 7 To 7 + 32

    tx_b(16)(i) = hcd(i - 7)

    Next

    tx_REQ = 16

End Sub

VERSION 5.00

Begin VB.Form controlform

   BorderStyle     =   1  'Fixed Single

   Caption         =   "操作电机"

   ClientHeight    =   1995

   ClientLeft      =   45

   ClientTop       =   330

   ClientWidth     =   5430

   Icon            =   "controlform.frx":0000

   LinkTopic       =   "Form1"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   ScaleHeight     =   1995

   ScaleWidth      =   5430

   StartUpPosition =   3  '窗口缺省

   Begin VB.Commanon J_ctrl

      Caption         =   "校时"

      Height          =   615

      Index           =   5

      Left            =   3960

      Picture         =   "controlform.frx":08CA

      Style           =   1  'Graphical

      TabIndex        =   5

      Top             =   1200

      Width           =   975

   End

   Begin VB.Commanon J_ctrl

      Caption         =   "清除电度"

      Height          =   615

      Index           =   4

      Left            =   2280

      Picture         =   "controlform.frx":0C54

      Style           =   1  'Graphical

      TabIndex        =   4

      Top             =   1200

      Width           =   975

   End

   Begin VB.Commanon J_ctrl

      Caption         =   "复归"

      Height          =   615

      Index           =   3

      Left            =   480

      Picture         =   "controlform.frx":1A96

      Style           =   1  'Graphical

      TabIndex        =   3

      Top             =   1200

      Width           =   975

   End

   Begin VB.Commanon J_ctrl

      Caption         =   "停车"

      Height          =   615

      Index           =   2

      Left            =   3960

      Picture         =   "controlform.frx":1E20

      Style           =   1  'Graphical

      TabIndex        =   2

      Top             =   240

      Width           =   975

   End

   Begin VB.Commanon J_ctrl

      Caption         =   "启动B"

      Height          =   615

      Index           =   1

      Left            =   2280

      Picture         =   "controlform.frx":21AA

      Style           =   1  'Graphical

      TabIndex        =   1

      Top             =   240

      Width           =   975

   End