formrun.dfm

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

object Form2: TForm2
  Left = 365
  Top = 207
  BorderIcons = [biMinimize, biMaximize]
  BorderStyle = bsDialog
  Caption = 'Analog Input Demo'
  ClientHeight = 176
  ClientWidth = 254
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEE44EEEE44EE44444444EEEEEEEEEEEEEE44EEEE44EE44444444EEEEEEEEEEE
    EEE44EEEE44EEEEE44EEEEEEEEEEEEEEEEEE444444EEEEEE44EEEEEEEEEEEEEE
    EEEE444444EEEEEE44EEEEEEEEEE777777774477447777774477777777777777
    7777447744777777447777777777777777774477447777774477777777777777
    7777744447777777447777777777777777777444477774444444477777777777
    7777744447777444444447777777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object shapLed: TShape
    Left = 24
    Top = 8
    Width = 17
    Height = 25
    Brush.Color = clGray
    Shape = stCircle
  end
  object labVolRead: TLabel
    Left = 48
    Top = 14
    Width = 65
    Height = 13
    Caption = 'Voltage Read'
  end
  object txtVoltRead: TEdit
    Left = 24
    Top = 32
    Width = 97
    Height = 64
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -49
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    Text = '0.00'
    OnClick = txtVoltReadClick
  end
  object CmdRead: TButton
    Left = 150
    Top = 16
    Width = 90
    Height = 33
    Caption = '&Read One Data'
    TabOrder = 1
    OnClick = CmdReadClick
  end
  object CmdExit: TButton
    Left = 150
    Top = 64
    Width = 90
    Height = 33
    Caption = 'E&xit'
    TabOrder = 2
    OnClick = CmdExitClick
  end
  object GroupSample: TGroupBox
    Left = 8
    Top = 104
    Width = 233
    Height = 65
    Caption = 'Sampling Rate'
    TabOrder = 3
    object labStart: TLabel
      Left = 16
      Top = 40
      Width = 34
      Height = 13
      Caption = '0(Stop)'
    end
    object labEnd: TLabel
      Left = 176
      Top = 40
      Width = 47
      Height = 13
      Caption = '10(time/s)'
    end
    object hscrFreq: TScrollBar
      Left = 16
      Top = 16
      Width = 200
      Height = 17
      LargeChange = 10
      PageSize = 0
      Position = 10
      TabOrder = 0
      OnChange = hscrFreqChange
    end
    object txtSample: TEdit
      Left = 96
      Top = 40
      Width = 33
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = 'txtSample'
    end
  end
  object tmrLed: TTimer
    Interval = 400
    OnTimer = tmrLedTimer
    Left = 120
  end
  object tmrRead: TTimer
    Interval = 0
    OnTimer = tmrReadTimer
  end
end