mainform.dfm

usb4711A数据采集卡的DI转换通道程序

object frmMain: TfrmMain
  Left = 214
  Top = 186
  Width = 530
  Height = 457
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'DI interrupt with filter function for PCI-1758'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 409
    Height = 57
    Caption = 'Device Selection'
    TabOrder = 0
    object txtDeviceName: TEdit
      Left = 8
      Top = 24
      Width = 289
      Height = 21
      Enabled = False
      TabOrder = 0
    end
    object btnSelDev: TButton
      Left = 312
      Top = 22
      Width = 81
      Height = 25
      Caption = 'Select &Device'
      TabOrder = 1
      OnClick = btnSelDevClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 376
    Top = 248
    Width = 137
    Height = 169
    Caption = 'Digital Input Scan'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 63
      Width = 60
      Height = 13
      Caption = 'Scan Time : '
    end
    object Label2: TLabel
      Left = 120
      Top = 63
      Width = 13
      Height = 13
      Caption = 'ms'
    end
    object Label3: TLabel
      Left = 20
      Top = 95
      Width = 29
      Height = 13
      Caption = 'Data :'
    end
    object editScanTime: TEdit
      Left = 80
      Top = 55
      Width = 33
      Height = 21
      TabOrder = 4
      Text = '200'
    end
    object editScanData: TEdit
      Left = 56
      Top = 88
      Width = 57
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object btnStart: TButton
      Left = 8
      Top = 128
      Width = 57
      Height = 25
      Caption = '&Scan'
      TabOrder = 1
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 80
      Top = 128
      Width = 49
      Height = 25
      Caption = 'St&op'
      Enabled = False
      TabOrder = 2
      OnClick = btnStopClick
    end
    object cmbPort: TComboBox
      Left = 40
      Top = 32
      Width = 81
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 80
    Width = 361
    Height = 337
    Caption = 'DI Interrupt'
    TabOrder = 2
    object lstIntChannel: TListView
      Left = 8
      Top = 16
      Width = 345
      Height = 273
      Checkboxes = True
      Columns = <
        item
          Caption = 'DI Channel'
          Width = 80
        end
        item
          Caption = 'Trigger Mode'
          Width = 100
        end
        item
          Caption = 'Filter'
        end
        item
          Caption = 'Interrupt Count'
          Width = 80
        end>
      GridLines = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
      OnChange = lstIntChannelChange
    end
    object btnFalling: TButton
      Left = 96
      Top = 304
      Width = 81
      Height = 25
      Caption = 'Falling Trigger'
      TabOrder = 1
      OnClick = btnFallingClick
    end
    object btnRising: TButton
      Left = 8
      Top = 304
      Width = 83
      Height = 25
      Caption = 'Rising Trigger'
      TabOrder = 2
      OnClick = btnRisingClick
    end
    object btnStopAll: TButton
      Left = 288
      Top = 304
      Width = 67
      Height = 25
      Caption = 'Stop All'
      TabOrder = 3
      OnClick = btnStopAllClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 376
    Top = 80
    Width = 137
    Height = 153
    Caption = 'Filter'
    TabOrder = 3
    object Label4: TLabel
      Left = 16
      Top = 32
      Width = 62
      Height = 13
      Caption = 'Filter Counter'
    end
    object Label5: TLabel
      Left = 8
      Top = 80
      Width = 42
      Height = 13
      Caption = '*0.2us = '
    end
    object Label6: TLabel
      Left = 104
      Top = 80
      Width = 20
      Height = 13
      Caption = 'KHz'
    end
    object labFilterHz: TLabel
      Left = 56
      Top = 80
      Width = 6
      Height = 13
      Caption = '0'
    end
    object txtFilterCounter: TEdit
      Left = 16
      Top = 48
      Width = 89
      Height = 21
      TabOrder = 0
      Text = '20000'
      OnChange = txtFilterCounterChange
    end
    object btnFilter: TButton
      Left = 56
      Top = 112
      Width = 67
      Height = 25
      Caption = 'Filter'
      TabOrder = 1
      OnClick = btnFilterClick
    end
  end
  object btnExit: TButton
    Left = 432
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = btnExitClick
  end
  object IntTimer: TTimer
    Enabled = False
    OnTimer = IntTimerTimer
    Left = 232
    Top = 384
  end
  object ScanTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = ScanTimerTimer
    Left = 376
    Top = 264
  end
end