unit_main.dfm

使用GPIB卡控制数控电源（Agilent66X）测试电流的一个小程序

object Form_Main: TForm_Main
  Left = 289
  Top = 216
  Width = 424
  Height = 344
  Caption = 'CurrentTest'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CGauge_pro: TCGauge
    Left = 0
    Top = 280
    Width = 415
    Height = 17
    ForeColor = clBlue
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 416
    Height = 281
    ActivePage = TabSheet1
    Align = alTop
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '待机电流测试'
      object Label1: TLabel
        Left = 20
        Top = 16
        Width = 93
        Height = 13
        AutoSize = False
        Caption = '采样时间间隔'
      end
      object Label2: TLabel
        Left = 160
        Top = 16
        Width = 24
        Height = 13
        AutoSize = False
        Caption = '毫秒'
      end
      object Label19: TLabel
        Left = 47
        Top = 40
        Width = 66
        Height = 13
        AutoSize = False
        Caption = '采样次数'
      end
      object Label20: TLabel
        Left = 160
        Top = 40
        Width = 12
        Height = 13
        AutoSize = False
        Caption = '次'
      end
      object Edit_tim: TEdit
        Left = 112
        Top = 11
        Width = 41
        Height = 21
        TabOrder = 0
        OnChange = Edit_timChange
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 136
        Width = 377
        Height = 113
        Caption = '测试结果'
        TabOrder = 1
        object Label3: TLabel
          Left = 22
          Top = 25
          Width = 48
          Height = 13
          AutoSize = False
          Caption = '最大电流'
        end
        object Label6: TLabel
          Left = 152
          Top = 23
          Width = 24
          Height = 13
          AutoSize = False
          Caption = '安'
        end
        object Label7: TLabel
          Left = 152
          Top = 52
          Width = 24
          Height = 13
          AutoSize = False
          Caption = '安'
        end
        object Label4: TLabel
          Left = 24
          Top = 49
          Width = 48
          Height = 13
          AutoSize = False
          Caption = '最小电流'
        end
        object Label5: TLabel
          Left = 24
          Top = 75
          Width = 48
          Height = 13
          AutoSize = False
          Caption = '平均电流'
        end
        object Label8: TLabel
          Left = 152
          Top = 77
          Width = 24
          Height = 13
          AutoSize = False
          Caption = '安'
        end
        object Label9: TLabel
          Left = 224
          Top = 24
          Width = 48
          Height = 13
          AutoSize = False
          Caption = '测试用时'
        end
        object Label11: TLabel
          Left = 344
          Top = 24
          Width = 12
          Height = 13
          AutoSize = False
          Caption = '秒'
        end
        object Edit_CurrMax: TEdit
          Left = 88
          Top = 21
          Width = 55
          Height = 21
          Color = 16777147
          ReadOnly = True
          TabOrder = 0
        end
        object Edit_CurrMin: TEdit
          Left = 88
          Top = 47
          Width = 55
          Height = 21
          Color = 14145535
          ReadOnly = True
          TabOrder = 1
        end
        object Edit_CurrAver: TEdit
          Left = 88
          Top = 73
          Width = 55
          Height = 21
          Color = 12582911
          ReadOnly = True
          TabOrder = 2
        end
        object Edit_TestTime: TEdit
          Left = 280
          Top = 20
          Width = 57
          Height = 21
          Color = 15588572
          ReadOnly = True
          TabOrder = 3
        end
        object CheckBox_RealtimneChg: TCheckBox
          Left = 272
          Top = 88
          Width = 97
          Height = 17
          Caption = '实时改变'
          TabOrder = 4
          OnClick = CheckBox_RealtimneChgClick
        end
      end
      object BitBtn_Start: TBitBtn
        Left = 304
        Top = 0
        Width = 75
        Height = 25
        Caption = '开始'
        TabOrder = 2
        OnClick = BitBtn_StartClick
      end
      object BitBtn_Reset: TBitBtn
        Left = 304
        Top = 32
        Width = 75
        Height = 25
        Caption = '复位'
        TabOrder = 3
        OnClick = BitBtn_ResetClick
      end
      object Edit_testN: TEdit
        Left = 112
        Top = 34
        Width = 41
        Height = 21
        TabOrder = 4
        OnChange = Edit_testNChange
      end
      object BitBtn_InitPow: TBitBtn
        Left = 304
        Top = 64
        Width = 75
        Height = 25
        Caption = '电源初始化'
        TabOrder = 5
        OnClick = BitBtn_InitPowClick
      end
      object Panel1: TPanel
        Left = 8
        Top = 96
        Width = 377
        Height = 38
        BorderStyle = bsSingle
        Color = clSilver
        TabOrder = 6
        object Label12: TLabel
          Left = 7
          Top = 12
          Width = 73
          Height = 13
          AutoSize = False
          Caption = '当前电流'
        end
        object Label13: TLabel
          Left = 171
          Top = 11
          Width = 41
          Height = 13
          AutoSize = False
          Caption = '安'
        end
        object Edit_CurrCurr: TEdit
          Left = 79
          Top = 6
          Width = 85
          Height = 21
          ReadOnly = True
          TabOrder = 0
        end
        object Panel_S: TPanel
          Left = 272
          Top = 4
          Width = 81
          Height = 25
          Color = clCaptionText
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'GPIB设置'
      ImageIndex = 1
      object Label14: TLabel
        Left = 24
        Top = 32
        Width = 57
        Height = 13
        AutoSize = False
        Caption = 'GPIB总线'
      end
      object Label15: TLabel
        Left = 28
        Top = 56
        Width = 61
        Height = 13
        AutoSize = False
        Caption = 'GPIB地址'
      end
      object Label16: TLabel
        Left = 32
        Top = 112
        Width = 57
        Height = 13
        AutoSize = False
        Caption = '输出电压'
      end
      object Label17: TLabel
        Left = 62
        Top = 157
        Width = 35
        Height = 13
        AutoSize = False
        Caption = '限流'
      end
      object Label18: TLabel
        Left = 61
        Top = 134
        Width = 36
        Height = 13
        AutoSize = False
        Caption = '限压'
      end
      object Edit_GpibIndex: TEdit
        Left = 96
        Top = 28
        Width = 54
        Height = 21
        TabOrder = 0
      end
      object Edit_PriAdd: TEdit
        Left = 95
        Top = 52
        Width = 55
        Height = 21
        TabOrder = 1
      end
      object Edit_OutPutPow: TEdit
        Left = 96
        Top = 107
        Width = 56
        Height = 21
        TabOrder = 2
      end
      object Edit_VoltProt: TEdit
        Left = 96
        Top = 131
        Width = 56
        Height = 21
        TabOrder = 3
      end
      object Edit_CurrLimt: TEdit
        Left = 96
        Top = 155
        Width = 56
        Height = 21
        TabOrder = 4
      end
    end
    object TabSheet3: TTabSheet
      Caption = '查看测试历史'
      ImageIndex = 2
      object Memo_log: TMemo
        Left = 0
        Top = 0
        Width = 408
        Height = 217
        Align = alTop
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object BitBtn_Clear: TBitBtn
        Left = 320
        Top = 224
        Width = 75
        Height = 25
        Caption = '清除记录'
        TabOrder = 1
        OnClick = BitBtn_ClearClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 298
    Width = 416
    Height = 19
    Panels = <
      item
        Text = '就绪'
        Width = 50
      end>
    SimplePanel = False
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 360
    Top = 8
  end
end