diintform.dfm

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

object Form1: TForm1
  Left = 352
  Top = 255
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'DIINT FOR PCM3780'
  ClientHeight = 332
  ClientWidth = 492
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 361
    Height = 41
    Caption = 'Device Selection'
    TabOrder = 0
    object labDeviceName: TLabel
      Left = 8
      Top = 14
      Width = 191
      Height = 13
      BiDiMode = bdLeftToRight
      Caption = 'AFASFASDFASDFFFFFFFFFFFFFFFFFF'
      ParentBiDiMode = False
      Layout = tlCenter
    end
    object btnSelectDev: TButton
      Left = 264
      Top = 11
      Width = 82
      Height = 25
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = btnSelectDevClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 72
    Width = 297
    Height = 249
    Caption = 'Interrupt Setting'
    TabOrder = 1
    object lsvInt: TListView
      Left = 8
      Top = 24
      Width = 281
      Height = 177
      Checkboxes = True
      Columns = <
        item
          Caption = 'Channels'
          Width = 100
        end
        item
          Caption = 'Event Counts/Sec'
          Width = 150
        end>
      TabOrder = 0
      ViewStyle = vsReport
      OnChange = lsvIntChange
    end
    object btnDisable: TButton
      Left = 92
      Top = 208
      Width = 121
      Height = 25
      Caption = 'Disable all the events'
      TabOrder = 1
      OnClick = btnDisableClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 320
    Top = 72
    Width = 161
    Height = 249
    Caption = 'Digital Input Scan'
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 36
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object Label3: TLabel
      Left = 14
      Top = 80
      Width = 51
      Height = 13
      Caption = 'Scan Time'
    end
    object Label4: TLabel
      Left = 16
      Top = 128
      Width = 23
      Height = 13
      Caption = 'Data'
    end
    object cmbPort: TComboBox
      Left = 80
      Top = 33
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'Not available'
    end
    object Edit1: TEdit
      Left = 80
      Top = 76
      Width = 65
      Height = 21
      TabOrder = 1
      Text = '100'
    end
    object btnScan: TButton
      Left = 15
      Top = 200
      Width = 57
      Height = 25
      Caption = 'Scan'
      TabOrder = 2
      OnClick = btnScanClick
    end
    object btnStop: TButton
      Left = 96
      Top = 200
      Width = 51
      Height = 25
      Caption = 'Stop'
      TabOrder = 3
      OnClick = btnStopClick
    end
    object txtData: TEdit
      Left = 80
      Top = 124
      Width = 65
      Height = 21
      Color = clActiveBorder
      ReadOnly = True
      TabOrder = 4
    end
  end
  object btnExit: TButton
    Left = 392
    Top = 24
    Width = 81
    Height = 25
    Caption = 'Exit'
    TabOrder = 3
    OnClick = btnExitClick
  end
  object tmrDIScan: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmrDIScanTimer
    Left = 368
    Top = 65528
  end
  object tmrDIInt: TTimer
    Enabled = False
    Interval = 1001
    OnTimer = tmrDIIntTimer
    Left = 256
    Top = 280
  end
end