diintform.dfm

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

object Diintfrm: TDiintfrm
  Left = 358
  Top = 196
  BorderStyle = bsDialog
  Caption = 'Digital Input with Interrupt'
  ClientHeight = 311
  ClientWidth = 367
  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 = 246
      Top = 11
      Width = 91
      Height = 25
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = btnSelectDeviceClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 64
    Width = 353
    Height = 185
    Caption = 'Interrupt Event'
    TabOrder = 1
    object Label3: TLabel
      Left = 192
      Top = 56
      Width = 50
      Height = 13
      Caption = 'Frequency'
    end
    object Label4: TLabel
      Left = 7
      Top = 57
      Width = 67
      Height = 13
      Caption = 'InterruptCount'
    end
    object Label5: TLabel
      Left = 325
      Top = 56
      Width = 15
      Height = 13
      Caption = 'I/S'
    end
    object Label1: TLabel
      Left = 208
      Top = 104
      Width = 33
      Height = 13
      Caption = 'Counts'
    end
    object txtInterruptCount: TEdit
      Left = 95
      Top = 54
      Width = 80
      Height = 21
      TabOrder = 0
    end
    object stFrequency: TStaticText
      Left = 248
      Top = 52
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object rdgPriority: TRadioGroup
      Left = 8
      Top = 128
      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 = 256
      Top = 144
      Width = 75
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 4
      OnClick = btnDisableClick
    end
    object stCounts: TStaticText
      Left = 248
      Top = 99
      Width = 73
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 5
    end
    object DI0: TCheckBox
      Left = 8
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI0'
      Checked = True
      State = cbChecked
      TabOrder = 6
    end
    object DI1: TCheckBox
      Left = 50
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI1'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
    object DI2: TCheckBox
      Left = 92
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI2'
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object DI3: TCheckBox
      Left = 134
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI3'
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
    object DI4: TCheckBox
      Left = 177
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI4'
      Checked = True
      State = cbChecked
      TabOrder = 10
    end
    object DI5: TCheckBox
      Left = 219
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI5'
      Checked = True
      State = cbChecked
      TabOrder = 11
    end
    object DI6: TCheckBox
      Left = 261
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI6'
      Checked = True
      State = cbChecked
      TabOrder = 12
    end
    object DI7: TCheckBox
      Left = 304
      Top = 24
      Width = 41
      Height = 17
      Caption = 'DI7'
      Checked = True
      State = cbChecked
      TabOrder = 13
    end
  end
  object btnClose: TButton
    Left = 272
    Top = 264
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 256
    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 = 312
    Top = 296
  end
end