mainform.dfm

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

object frmMain: TfrmMain
  Left = 217
  Top = 150
  Width = 430
  Height = 300
  Caption = 'Digital Input With Interrupt'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 88
    Top = 256
    Width = 221
    Height = 13
    Caption = 'Hints : I/S -> Interrupt Event count per Second'
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 281
    Height = 65
    Caption = 'Device Selection'
    TabOrder = 0
    object txtDeviceName: TStaticText
      Left = 16
      Top = 24
      Width = 249
      Height = 25
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 88
    Width = 185
    Height = 161
    Caption = 'Digital Input Scan'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 54
      Height = 13
      Caption = 'Scan Time:'
    end
    object Label2: TLabel
      Left = 40
      Top = 88
      Width = 26
      Height = 13
      Caption = 'Data:'
    end
    object Label3: TLabel
      Left = 48
      Top = 24
      Width = 22
      Height = 13
      Caption = 'Port:'
    end
    object txtTimer: TEdit
      Left = 80
      Top = 56
      Width = 65
      Height = 21
      TabOrder = 0
      Text = '200'
    end
    object txtDIData: TEdit
      Left = 80
      Top = 88
      Width = 65
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = '0'
    end
    object btnStart: TButton
      Left = 16
      Top = 128
      Width = 65
      Height = 25
      Caption = '&Start'
      TabOrder = 2
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 104
      Top = 128
      Width = 65
      Height = 25
      Caption = 'St&op'
      Enabled = False
      TabOrder = 3
      OnClick = btnStopClick
    end
    object txtPort: TEdit
      Left = 80
      Top = 24
      Width = 65
      Height = 21
      TabOrder = 4
      Text = '0'
    end
  end
  object GroupBox3: TGroupBox
    Left = 216
    Top = 88
    Width = 185
    Height = 161
    Caption = 'Interrupt Event'
    TabOrder = 2
    object Label4: TLabel
      Left = 16
      Top = 64
      Width = 73
      Height = 13
      Caption = 'Interrupt Count:'
    end
    object Label5: TLabel
      Left = 136
      Top = 96
      Width = 18
      Height = 13
      Caption = '1/S'
    end
    object radNormal: TRadioButton
      Left = 32
      Top = 16
      Width = 113
      Height = 17
      Caption = 'Normal Priority'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object radCritical: TRadioButton
      Left = 32
      Top = 32
      Width = 113
      Height = 17
      Caption = 'Time Critical Priority'
      TabOrder = 1
    end
    object txtCount: TEdit
      Left = 96
      Top = 56
      Width = 57
      Height = 21
      TabOrder = 2
      Text = '1'
    end
    object txtIntRate: TEdit
      Left = 32
      Top = 96
      Width = 97
      Height = 21
      ReadOnly = True
      TabOrder = 3
      Text = '0'
    end
    object btnDisable: TButton
      Left = 104
      Top = 128
      Width = 67
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 4
      OnClick = btnDisableClick
    end
    object btnEnable: TButton
      Left = 24
      Top = 128
      Width = 67
      Height = 25
      Caption = 'Enable'
      TabOrder = 5
      OnClick = btnEnableClick
    end
  end
  object btnExit: TButton
    Left = 320
    Top = 48
    Width = 75
    Height = 25
    Caption = 'E&xit'
    TabOrder = 3
    OnClick = btnExitClick
  end
  object btnSelect: TButton
    Left = 320
    Top = 16
    Width = 75
    Height = 25
    Caption = '&Select Device'
    TabOrder = 4
    OnClick = btnSelectClick
  end
  object tmrRead: TTimer
    Enabled = False
    Interval = 200
    OnTimer = tmrReadTimer
    Left = 8
    Top = 96
  end
  object tmrCount: TTimer
    Enabled = False
    OnTimer = tmrCountTimer
    Left = 360
    Top = 96
  end
end