diintform.dfm

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

object Form1: TForm1
  Left = 201
  Top = 105
  Width = 375
  Height = 358
  Caption = 'DiInt'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grpDeviceSelection: TGroupBox
    Left = 8
    Top = 16
    Width = 353
    Height = 41
    Caption = 'Devie Selection'
    TabOrder = 0
    object labDeviceName: TLabel
      Left = 19
      Top = 13
      Width = 3
      Height = 13
    end
    object btnSelectDevice: TButton
      Left = 240
      Top = 8
      Width = 97
      Height = 28
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = btnSelectDeviceClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 64
    Width = 353
    Height = 201
    Caption = 'Interrupt Event'
    TabOrder = 1
    object Label3: TLabel
      Left = 184
      Top = 72
      Width = 50
      Height = 13
      Caption = 'Frequency'
    end
    object Label4: TLabel
      Left = 15
      Top = 73
      Width = 67
      Height = 13
      Caption = 'InterruptCount'
    end
    object Label5: TLabel
      Left = 325
      Top = 72
      Width = 15
      Height = 13
      Caption = 'I/S'
    end
    object Label1: TLabel
      Left = 201
      Top = 120
      Width = 33
      Height = 13
      Caption = 'Counts'
    end
    object txtInterruptCount: TEdit
      Left = 96
      Top = 70
      Width = 80
      Height = 21
      TabOrder = 0
    end
    object stFrequency: TStaticText
      Left = 248
      Top = 68
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object rdgPriority: TRadioGroup
      Left = 8
      Top = 144
      Width = 137
      Height = 49
      Items.Strings = (
        'Normal Priority'
        'Time Critical Priority')
      TabOrder = 2
    end
    object btnEnable: TButton
      Left = 168
      Top = 160
      Width = 75
      Height = 25
      Caption = 'Enable'
      TabOrder = 3
      OnClick = btnEnableClick
    end
    object btnDisable: TButton
      Left = 264
      Top = 160
      Width = 75
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 4
      OnClick = btnDisableClick
    end
    object stCounts: TStaticText
      Left = 248
      Top = 115
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 5
    end
    object DI0: TCheckBox
      Left = 8
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI0'
      Checked = True
      State = cbChecked
      TabOrder = 6
    end
    object DI1: TCheckBox
      Left = 48
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI1'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
    object DI2: TCheckBox
      Left = 96
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI2'
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object DI3: TCheckBox
      Left = 136
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI3'
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
    object DI4: TCheckBox
      Left = 176
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI4'
      Checked = True
      State = cbChecked
      TabOrder = 10
    end
    object DI5: TCheckBox
      Left = 224
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI5'
      Checked = True
      State = cbChecked
      TabOrder = 11
    end
    object DI6: TCheckBox
      Left = 264
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI6'
      Checked = True
      State = cbChecked
      TabOrder = 12
    end
    object DI7: TCheckBox
      Left = 304
      Top = 32
      Width = 41
      Height = 17
      Caption = 'DI7'
      Checked = True
      State = cbChecked
      TabOrder = 13
    end
  end
  object btnClose: TButton
    Left = 272
    Top = 272
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object Memo1: TMemo
    Left = 0
    Top = 272
    Width = 249
    Height = 57
    BorderStyle = bsNone
    Color = clActiveBorder
    Enabled = False
    Lines.Strings = (
      'Hints: *I/S-> Interrupt Event count per Second'
      '          *Because of displaying data, you can get '
      '           about 3kHZ reponse by using PENTIUMIII '
      '           600 PC')
    ReadOnly = True
    TabOrder = 3
  end
  object tmrShow: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmrShowTimer
    Left = 24
    Top = 352
  end
end