mainfrm.dfm

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

object frmMain: TfrmMain
  Left = 205
  Top = 141
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Advantech Driver Demo: DI with Interrupt Event For  PCL733'
  ClientHeight = 309
  ClientWidth = 542
  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 Label5: TLabel
    Left = 32
    Top = 272
    Width = 169
    Height = 13
    Caption = 'Hints: This Demo is for PCL733 only'
  end
  object Label6: TLabel
    Left = 56
    Top = 288
    Width = 198
    Height = 13
    Caption = '  Events/S==>Interrupt Event Per Second'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 385
    Height = 49
    Caption = 'Device Selection'
    TabOrder = 0
    object cmdSelectDevice: TButton
      Left = 296
      Top = 16
      Width = 81
      Height = 25
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = cmdSelectDeviceClick
    end
    object ctlDeviceName: TStaticText
      Left = 16
      Top = 16
      Width = 273
      Height = 25
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 400
    Top = 16
    Width = 121
    Height = 49
    Caption = 'Port'
    TabOrder = 1
    object txtPort: TEdit
      Left = 16
      Top = 16
      Width = 81
      Height = 21
      TabOrder = 0
      OnChange = txtPortChange
    end
    object ctlSpinPort: TUpDown
      Left = 96
      Top = 16
      Width = 17
      Height = 25
      Min = 0
      Position = 0
      TabOrder = 1
      Wrap = False
      OnClick = ctlSpinPortClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 80
    Width = 153
    Height = 185
    Caption = 'Digital Input Scan'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 56
      Width = 54
      Height = 13
      Caption = 'Scan Time:'
    end
    object Label2: TLabel
      Left = 128
      Top = 56
      Width = 13
      Height = 13
      Caption = 'ms'
    end
    object Label3: TLabel
      Left = 32
      Top = 96
      Width = 26
      Height = 13
      Caption = 'Data:'
    end
    object Label4: TLabel
      Left = 128
      Top = 96
      Width = 8
      Height = 13
      Caption = 'H'
    end
    object txtScanTime: TEdit
      Left = 64
      Top = 48
      Width = 65
      Height = 21
      TabOrder = 0
      Text = '1000'
    end
    object ctlData: TStaticText
      Left = 64
      Top = 88
      Width = 64
      Height = 25
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object cmdStart: TButton
      Left = 24
      Top = 136
      Width = 49
      Height = 25
      Caption = 'S&tart'
      Enabled = False
      TabOrder = 2
      OnClick = cmdStartClick
    end
    object cmdStop: TButton
      Left = 88
      Top = 136
      Width = 49
      Height = 25
      Caption = '&Stop'
      Enabled = False
      TabOrder = 3
      OnClick = cmdStopClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 184
    Top = 80
    Width = 337
    Height = 185
    Caption = 'Interrupt Event'
    TabOrder = 3
    object Label7: TLabel
      Left = 24
      Top = 24
      Width = 17
      Height = 13
      Caption = 'No.'
    end
    object Label8: TLabel
      Left = 56
      Top = 24
      Width = 59
      Height = 13
      Caption = 'Event Count'
    end
    object Label9: TLabel
      Left = 120
      Top = 24
      Width = 51
      Height = 13
      Caption = 'Events / S'
    end
    object Label10: TLabel
      Left = 24
      Top = 64
      Width = 17
      Height = 13
      Caption = 'DI0'
    end
    object Label11: TLabel
      Left = 24
      Top = 120
      Width = 23
      Height = 13
      Caption = 'DI16'
    end
    object cmdEnableDI0: TButton
      Left = 200
      Top = 64
      Width = 57
      Height = 25
      Caption = 'Enable'
      Enabled = False
      TabOrder = 0
      OnClick = cmdEnableDI0Click
    end
    object cmdDisableDI0: TButton
      Left = 272
      Top = 64
      Width = 57
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 1
      OnClick = cmdDisableDI0Click
    end
    object cmdEnableDI16: TButton
      Left = 200
      Top = 112
      Width = 57
      Height = 25
      Caption = 'Enable'
      Enabled = False
      TabOrder = 2
      OnClick = cmdEnableDI16Click
    end
    object cmdDisableDI16: TButton
      Left = 272
      Top = 112
      Width = 57
      Height = 25
      Caption = 'Disable'
      Enabled = False
      TabOrder = 3
      OnClick = cmdDisableDI16Click
    end
    object txtEvtCntDI0: TEdit
      Left = 56
      Top = 64
      Width = 57
      Height = 21
      TabOrder = 4
      Text = '1'
    end
    object txtEvtCntDI16: TEdit
      Left = 56
      Top = 120
      Width = 57
      Height = 21
      TabOrder = 5
      Text = '1'
    end
    object ctlEvtFrqDI0: TStaticText
      Left = 120
      Top = 64
      Width = 57
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 6
    end
    object ctlEvtFrqDI16: TStaticText
      Left = 120
      Top = 120
      Width = 57
      Height = 21
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 7
    end
  end
  object cmdClose: TButton
    Left = 392
    Top = 272
    Width = 73
    Height = 25
    Caption = 'Close'
    TabOrder = 4
    OnClick = cmdCloseClick
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 296
    Top = 280
  end
end