mainform.dfm

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

object frmMain: TfrmMain
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Digital Output with Watchdog Fuction for PCI-1758UDO'
  ClientHeight = 467
  ClientWidth = 385
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 273
    Height = 73
    Caption = 'Device Selection'
    TabOrder = 0
    object txtDeviceName: TEdit
      Left = 8
      Top = 40
      Width = 257
      Height = 21
      Enabled = False
      TabOrder = 0
    end
    object btnSelDev: TButton
      Left = 184
      Top = 14
      Width = 81
      Height = 25
      Caption = 'Select &Device'
      TabOrder = 1
      OnClick = btnSelDevClick
    end
  end
  object btnExit: TButton
    Left = 293
    Top = 32
    Width = 75
    Height = 33
    Caption = 'Exit'
    TabOrder = 1
    OnClick = btnExitClick
  end
  object GBDO: TGroupBox
    Left = 8
    Top = 232
    Width = 369
    Height = 105
    Caption = 'Digital Output'
    TabOrder = 2
    object Label1: TLabel
      Left = 192
      Top = 24
      Width = 19
      Height = 13
      Caption = 'Hex'
    end
    object chkDI0: TCheckBox
      Left = 184
      Top = 56
      Width = 49
      Height = 17
      Caption = 'DI00'
      TabOrder = 0
    end
    object chkDI1: TCheckBox
      Left = 136
      Top = 56
      Width = 49
      Height = 17
      Caption = 'DI01'
      TabOrder = 1
    end
    object chkDI2: TCheckBox
      Left = 88
      Top = 56
      Width = 49
      Height = 17
      Caption = 'DI02'
      TabOrder = 2
    end
    object chkDI3: TCheckBox
      Left = 40
      Top = 56
      Width = 49
      Height = 17
      Caption = 'DI03'
      TabOrder = 3
    end
    object chkDI4: TCheckBox
      Left = 184
      Top = 80
      Width = 49
      Height = 17
      Caption = 'DI04'
      TabOrder = 4
    end
    object chkDI5: TCheckBox
      Left = 136
      Top = 80
      Width = 49
      Height = 17
      Caption = 'DI05'
      TabOrder = 5
    end
    object chkDI6: TCheckBox
      Left = 88
      Top = 80
      Width = 49
      Height = 17
      Caption = 'DI06'
      TabOrder = 6
    end
    object chkDI7: TCheckBox
      Left = 40
      Top = 80
      Width = 49
      Height = 17
      Caption = 'DI07'
      TabOrder = 7
    end
    object cmbPort: TComboBox
      Left = 56
      Top = 24
      Width = 57
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 8
      OnChange = cmbPortChange
    end
    object btnWrite: TButton
      Left = 272
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Write Byte'
      TabOrder = 9
      OnClick = btnWriteClick
    end
    object btnRead: TButton
      Left = 272
      Top = 72
      Width = 75
      Height = 25
      Caption = 'Read back'
      TabOrder = 10
      OnClick = btnReadClick
    end
    object txtPortStatus: TEdit
      Left = 136
      Top = 24
      Width = 49
      Height = 21
      TabOrder = 11
      Text = '00'
    end
  end
  object GBWatchdog: TGroupBox
    Left = 8
    Top = 344
    Width = 369
    Height = 113
    Caption = 'Watchdog'
    TabOrder = 3
    object TLabel
      Left = 40
      Top = 32
      Width = 3
      Height = 13
    end
    object Label2: TLabel
      Left = 24
      Top = 32
      Width = 83
      Height = 13
      Caption = 'Watchdog Status'
    end
    object Label3: TLabel
      Left = 24
      Top = 88
      Width = 90
      Height = 13
      Caption = 'Watchdog Counter'
    end
    object Label4: TLabel
      Left = 208
      Top = 88
      Width = 42
      Height = 13
      Caption = '*0.1us = '
    end
    object Label5: TLabel
      Left = 208
      Top = 56
      Width = 13
      Height = 13
      Caption = 'ms'
    end
    object Label6: TLabel
      Left = 312
      Top = 88
      Width = 13
      Height = 13
      Caption = 'ms'
    end
    object labWatchTime: TLabel
      Left = 256
      Top = 88
      Width = 3
      Height = 13
    end
    object labWatchdogTimer: TLabel
      Left = 256
      Top = 88
      Width = 24
      Height = 13
      Caption = '0000'
    end
    object txtWatchdogStatus: TEdit
      Left = 112
      Top = 24
      Width = 65
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object btnStart: TButton
      Left = 296
      Top = 16
      Width = 59
      Height = 25
      Caption = 'Start'
      TabOrder = 1
      OnClick = btnStartClick
    end
    object btnStop: TButton
      Left = 296
      Top = 48
      Width = 57
      Height = 25
      Caption = 'Stop'
      TabOrder = 2
      OnClick = btnStopClick
    end
    object btnFeed: TButton
      Left = 232
      Top = 16
      Width = 51
      Height = 25
      Caption = 'Feed'
      TabOrder = 3
      OnClick = btnFeedClick
    end
    object chkAutoFeed: TCheckBox
      Left = 24
      Top = 56
      Width = 145
      Height = 17
      Caption = 'Auto Feed the Watchdog'
      TabOrder = 4
      OnClick = chkAutoFeedClick
    end
    object txtWatchdogCounter: TEdit
      Left = 128
      Top = 88
      Width = 73
      Height = 21
      TabOrder = 5
      Text = '200000'
      OnChange = txtWatchdogCounterChange
    end
    object txtAutoTimer: TEdit
      Left = 168
      Top = 56
      Width = 41
      Height = 21
      TabOrder = 6
      Text = '200'
      OnChange = txtAutoTimerChange
    end
  end
  object GBPresetValue: TGroupBox
    Left = 8
    Top = 88
    Width = 369
    Height = 65
    Caption = 'Preset Value'
    TabOrder = 4
    object Label7: TLabel
      Left = 296
      Top = 24
      Width = 15
      Height = 13
      Caption = '1-0'
    end
    object Label8: TLabel
      Left = 208
      Top = 24
      Width = 15
      Height = 13
      Caption = '5-4'
    end
    object Label9: TLabel
      Left = 256
      Top = 24
      Width = 15
      Height = 13
      Caption = '3-2'
    end
    object Label10: TLabel
      Left = 16
      Top = 24
      Width = 16
      Height = 13
      Caption = 'F-E'
    end
    object Label11: TLabel
      Left = 64
      Top = 24
      Width = 18
      Height = 13
      Caption = 'D-C'
    end
    object Label12: TLabel
      Left = 96
      Top = 24
      Width = 20
      Height = 13
      Caption = 'B_A'
    end
    object Label13: TLabel
      Left = 136
      Top = 24
      Width = 15
      Height = 13
      Caption = '9-8'
    end
    object Label14: TLabel
      Left = 176
      Top = 24
      Width = 15
      Height = 13
      Caption = '7-6'
    end
    object Label16: TLabel
      Left = 96
      Top = 8
      Width = 129
      Height = 13
      Caption = 'DO Status when Power on '
    end
    object txtP1: TEdit
      Left = 288
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 0
      Text = 'AAAA'
      OnChange = txtP1Change
      OnKeyPress = txtP1KeyPress
    end
    object txtP2: TEdit
      Left = 248
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 1
      Text = 'AAAA'
      OnChange = txtP2Change
      OnKeyPress = txtP2KeyPress
    end
    object txtP3: TEdit
      Left = 208
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 2
      Text = 'AAAA'
      OnChange = txtP3Change
      OnKeyPress = txtP3KeyPress
    end
    object txtP4: TEdit
      Left = 168
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 3
      Text = 'AAAA'
      OnChange = txtP4Change
      OnKeyPress = txtP4KeyPress
    end
    object txtP5: TEdit
      Left = 128
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 4
      Text = 'AAAA'
      OnChange = txtP5Change
      OnKeyPress = txtP5KeyPress
    end
    object txtP6: TEdit
      Left = 88
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 5
      Text = 'AAAA'
      OnChange = txtP6Change
      OnKeyPress = txtP6KeyPress
    end
    object txtP7: TEdit
      Left = 48
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 6
      Text = 'AAAA'
      OnChange = txtP7Change
      OnKeyPress = txtP7KeyPress
    end
    object txtP8: TEdit
      Left = 8
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 7
      Text = 'AAAA'
      OnChange = txtP8Change
      OnKeyPress = txtP8KeyPress
    end
    object btnSetPreset: TButton
      Left = 336
      Top = 32
      Width = 27
      Height = 25
      Caption = 'Set'
      TabOrder = 8
      OnClick = btnSetPresetClick
    end
  end
  object GBWatchdogSet: TGroupBox
    Left = 8
    Top = 160
    Width = 369
    Height = 65
    Caption = 'Watchdog'
    TabOrder = 5
    object Label15: TLabel
      Left = 296
      Top = 24
      Width = 15
      Height = 13
      Caption = '1-0'
    end
    object Label17: TLabel
      Left = 208
      Top = 24
      Width = 15
      Height = 13
      Caption = '5-4'
    end
    object Label18: TLabel
      Left = 256
      Top = 24
      Width = 15
      Height = 13
      Caption = '3-2'
    end
    object Label19: TLabel
      Left = 16
      Top = 24
      Width = 16
      Height = 13
      Caption = 'F-E'
    end
    object Label20: TLabel
      Left = 64
      Top = 24
      Width = 18
      Height = 13
      Caption = 'D-C'
    end
    object Label21: TLabel
      Left = 96
      Top = 24
      Width = 20
      Height = 13
      Caption = 'B_A'
    end
    object Label22: TLabel
      Left = 136
      Top = 24
      Width = 15
      Height = 13
      Caption = '9-8'
    end
    object Label23: TLabel
      Left = 176
      Top = 24
      Width = 15
      Height = 13
      Caption = '7-6'
    end
    object Label24: TLabel
      Left = 88
      Top = 8
      Width = 183
      Height = 13
      Caption = 'DO Status when Watchdog is overrun.'
    end
    object txtWP1: TEdit
      Left = 288
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 0
      Text = 'AAAA'
      OnChange = txtWP1Change
      OnKeyPress = txtWP1KeyPress
    end
    object txtWP2: TEdit
      Left = 248
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 1
      Text = 'AAAA'
      OnChange = txtWP2Change
      OnKeyPress = txtWP2KeyPress
    end
    object txtWP3: TEdit
      Left = 208
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 2
      Text = 'AAAA'
      OnChange = txtWP3Change
      OnKeyPress = txtWP3KeyPress
    end
    object txtWP4: TEdit
      Left = 168
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 3
      Text = 'AAAA'
      OnChange = txtWP4Change
      OnKeyPress = txtWP4KeyPress
    end
    object txtWP5: TEdit
      Left = 128
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 4
      Text = 'AAAA'
      OnChange = txtWP5Change
      OnKeyPress = txtWP5KeyPress
    end
    object txtWP6: TEdit
      Left = 88
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 5
      Text = 'AAAA'
      OnChange = txtWP6Change
      OnKeyPress = txtWP6KeyPress
    end
    object txtWP7: TEdit
      Left = 48
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 6
      Text = 'AAAA'
      OnChange = txtWP7Change
      OnKeyPress = txtWP7KeyPress
    end
    object txtWP8: TEdit
      Left = 8
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 7
      Text = 'AAAA'
      OnChange = txtWP8Change
      OnKeyPress = txtWP8KeyPress
    end
    object btnWatchdogSet: TButton
      Left = 336
      Top = 32
      Width = 27
      Height = 25
      Caption = 'Set'
      TabOrder = 8
      OnClick = btnWatchdogSetClick
    end
  end
  object AutoFeedTimer: TTimer
    Enabled = False
    OnTimer = AutoFeedTimerTimer
    Left = 264
    Top = 400
  end
end