diintform.dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 368
  Height = 355
  Caption = 'Diint-1780'
  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 = 345
    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 = 345
    Height = 177
    Caption = 'Interrupt Event'
    TabOrder = 1
    object Label3: TLabel
      Left = 184
      Top = 32
      Width = 50
      Height = 13
      Caption = 'Frequency'
    end
    object Label4: TLabel
      Left = 7
      Top = 81
      Width = 67
      Height = 13
      Caption = 'InterruptCount'
    end
    object Label5: TLabel
      Left = 325
      Top = 32
      Width = 15
      Height = 13
      Caption = 'I/S'
    end
    object Label1: TLabel
      Left = 192
      Top = 80
      Width = 33
      Height = 13
      Caption = 'Counts'
    end
    object Label7: TLabel
      Left = 104
      Top = 56
      Width = 64
      Height = 13
      Caption = 'DI7 <----> DI0'
    end
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 76
      Height = 13
      Caption = 'Interrupt Source'
    end
    object txtInterruptCount: TEdit
      Left = 95
      Top = 78
      Width = 80
      Height = 21
      TabOrder = 0
    end
    object stFrequency: TStaticText
      Left = 240
      Top = 28
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object rdgPriority: TRadioGroup
      Left = 16
      Top = 120
      Width = 137
      Height = 49
      Items.Strings = (
        'Normal Priority'
        'Time Critical Priority')
      TabOrder = 2
    end
    object btnEnable: TButton
      Left = 168
      Top = 144
      Width = 75
      Height = 25
      Caption = 'Enable'
      TabOrder = 3
      OnClick = btnEnableClick
    end
    object btnDisable: TButton
      Left = 264
      Top = 144
      Width = 75
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 4
      OnClick = btnDisableClick
    end
    object stCounts: TStaticText
      Left = 239
      Top = 75
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 5
    end
    object stIntSource: TStaticText
      Left = 96
      Top = 28
      Width = 81
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 6
    end
  end
  object btnClose: TButton
    Left = 272
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 248
    Width = 249
    Height = 65
    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 = 280
    Top = 296
  end
end