mainform.dfm

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

object frmMain: TfrmMain
  Left = 234
  Top = 182
  Width = 441
  Height = 388
  Caption = 'frmMain'
  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 Label1: TLabel
    Left = 240
    Top = 42
    Width = 99
    Height = 13
    Caption = 'Pattern Match value:'
  end
  object Label2: TLabel
    Left = 240
    Top = 66
    Width = 127
    Height = 13
    Caption = 'Counter 2 value(2~65535):'
  end
  object Label3: TLabel
    Left = 240
    Top = 90
    Width = 141
    Height = 13
    Caption = 'Change Status channel(0-31):'
  end
  object txtDeviceName: TEdit
    Left = 8
    Top = 8
    Width = 305
    Height = 21
    ReadOnly = True
    TabOrder = 0
  end
  object cmdSelectDevice: TButton
    Left = 328
    Top = 8
    Width = 89
    Height = 25
    Caption = '&Select Device...'
    TabOrder = 1
    OnClick = cmdSelectDeviceClick
  end
  object chkFDiPatternMatch: TCheckBox
    Left = 8
    Top = 40
    Width = 137
    Height = 17
    Caption = 'Pattern Match Interrupt:'
    TabOrder = 2
    OnClick = chkFDiPatternMatchClick
  end
  object chkTimer: TCheckBox
    Left = 8
    Top = 64
    Width = 97
    Height = 17
    Caption = 'Timer interrupt:'
    TabOrder = 3
    OnClick = chkTimerClick
  end
  object chkStatusChange: TCheckBox
    Left = 8
    Top = 88
    Width = 137
    Height = 17
    Caption = 'Status Change Interrupt:'
    TabOrder = 4
    OnClick = chkStatusChangeClick
  end
  object txtPatternMatchEvent: TEdit
    Left = 144
    Top = 40
    Width = 81
    Height = 21
    TabOrder = 5
    Text = '0'
  end
  object txtCounterEvent: TEdit
    Left = 144
    Top = 64
    Width = 81
    Height = 21
    TabOrder = 6
    Text = '0'
  end
  object txtStatusChangeEvent: TEdit
    Left = 144
    Top = 88
    Width = 81
    Height = 21
    TabOrder = 7
    Text = '0'
  end
  object txtPatternMatchValue: TEdit
    Left = 344
    Top = 40
    Width = 73
    Height = 21
    TabOrder = 8
    Text = 'FFFFFF'
    OnChange = txtPatternMatchValueChange
    OnKeyPress = txtPatternMatchValueKeyPress
  end
  object txtCounterValue: TEdit
    Left = 368
    Top = 64
    Width = 49
    Height = 21
    TabOrder = 9
    Text = '65535'
    OnChange = txtCounterValueChange
  end
  object txtChangeStatusChannel: TEdit
    Left = 384
    Top = 88
    Width = 33
    Height = 21
    TabOrder = 10
    Text = '31'
    OnChange = txtChangeStatusChannelChange
  end
  object grpDiInterrupt: TGroupBox
    Left = 8
    Top = 112
    Width = 409
    Height = 209
    Caption = 'Auxiliary DI Interrupt Events'
    TabOrder = 11
    object GroupBox1: TGroupBox
      Left = 8
      Top = 16
      Width = 393
      Height = 78
      Caption = 'DI interruipt signal condition'
      TabOrder = 0
      object lstDiSignalCondition7: TListBox
        Left = 60
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 0
        OnClick = lstDiSignalCondition7Click
      end
      object lstDiSignalCondition6: TListBox
        Left = 100
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 1
        OnClick = lstDiSignalCondition6Click
      end
      object lstDiSignalCondition5: TListBox
        Left = 140
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 2
        OnClick = lstDiSignalCondition5Click
      end
      object lstDiSignalCondition4: TListBox
        Left = 180
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 3
        OnClick = lstDiSignalCondition4Click
      end
      object lstDiSignalCondition3: TListBox
        Left = 220
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 4
        OnClick = lstDiSignalCondition3Click
      end
      object lstDiSignalCondition2: TListBox
        Left = 260
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 5
        OnClick = lstDiSignalCondition2Click
      end
      object lstDiSignalCondition1: TListBox
        Left = 300
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 6
        OnClick = lstDiSignalCondition1Click
      end
      object lstDiSignalCondition0: TListBox
        Left = 340
        Top = 36
        Width = 40
        Height = 33
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'Rising'
          'Falling')
        ParentCtl3D = False
        TabOrder = 7
        OnClick = lstDiSignalCondition0Click
      end
      object ListBox9: TListBox
        Left = 12
        Top = 36
        Width = 48
        Height = 33
        Color = cl3DLight
        Ctl3D = True
        Enabled = False
        ItemHeight = 13
        Items.Strings = (
          'Trigger'
          'edge')
        ParentCtl3D = False
        TabOrder = 8
      end
      object Edit2: TEdit
        Left = 12
        Top = 15
        Width = 48
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 9
        Text = 'Channel'
      end
      object Edit3: TEdit
        Left = 60
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 10
        Text = '     7'
      end
      object Edit4: TEdit
        Left = 100
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 11
        Text = '     6'
      end
      object Edit5: TEdit
        Left = 140
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 12
        Text = '     5'
      end
      object Edit6: TEdit
        Left = 180
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 13
        Text = '     4'
      end
      object Edit7: TEdit
        Left = 220
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 14
        Text = '     3'
      end
      object Edit8: TEdit
        Left = 260
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 15
        Text = '     2'
      end
      object Edit9: TEdit
        Left = 300
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 16
        Text = '     1'
      end
      object Edit10: TEdit
        Left = 340
        Top = 15
        Width = 40
        Height = 21
        Color = cl3DLight
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 17
        Text = '     0'
      end
    end
    object chkDiInterrupt0: TCheckBox
      Left = 16
      Top = 104
      Width = 89
      Height = 17
      Caption = 'DI 0 interrupt:'
      TabOrder = 1
      OnClick = chkDiInterrupt0Click
    end
    object chkDiInterrupt1: TCheckBox
      Left = 16
      Top = 128
      Width = 89
      Height = 17
      Caption = 'DI 1 interrupt:'
      TabOrder = 2
      OnClick = chkDiInterrupt1Click
    end
    object chkDiInterrupt2: TCheckBox
      Left = 16
      Top = 152
      Width = 89
      Height = 17
      Caption = 'DI 2 interrupt:'
      TabOrder = 3
      OnClick = chkDiInterrupt2Click
    end
    object chkDiInterrupt3: TCheckBox
      Left = 16
      Top = 176
      Width = 89
      Height = 17
      Caption = 'DI 3 interrupt:'
      TabOrder = 4
      OnClick = chkDiInterrupt3Click
    end
    object chkDiInterrupt4: TCheckBox
      Left = 224
      Top = 104
      Width = 89
      Height = 17
      Caption = 'DI 4 interrupt:'
      TabOrder = 5
      OnClick = chkDiInterrupt4Click
    end
    object chkDiInterrupt5: TCheckBox
      Left = 224
      Top = 128
      Width = 89
      Height = 17
      Caption = 'DI 5 interrupt:'
      TabOrder = 6
      OnClick = chkDiInterrupt5Click
    end
    object chkDiInterrupt6: TCheckBox
      Left = 224
      Top = 152
      Width = 89
      Height = 17
      Caption = 'DI 6 interrupt:'
      TabOrder = 7
      OnClick = chkDiInterrupt6Click
    end
    object chkDiInterrupt7: TCheckBox
      Left = 224
      Top = 176
      Width = 89
      Height = 17
      Caption = 'DI 7 interrupt:'
      TabOrder = 8
      OnClick = chkDiInterrupt7Click
    end
    object txtDiInterrupt1: TEdit
      Left = 104
      Top = 128
      Width = 81
      Height = 21
      TabOrder = 9
      Text = '0'
    end
    object txtDiInterrupt2: TEdit
      Left = 104
      Top = 152
      Width = 81
      Height = 21
      TabOrder = 10
      Text = '0'
    end
    object txtDiInterrupt3: TEdit
      Left = 104
      Top = 176
      Width = 81
      Height = 21
      TabOrder = 11
      Text = '0'
    end
    object txtDiInterrupt0: TEdit
      Left = 104
      Top = 104
      Width = 81
      Height = 21
      TabOrder = 12
      Text = '0'
    end
    object txtDiInterrupt4: TEdit
      Left = 312
      Top = 104
      Width = 81
      Height = 21
      TabOrder = 13
      Text = '0'
    end
    object txtDiInterrupt5: TEdit
      Left = 312
      Top = 128
      Width = 81
      Height = 21
      TabOrder = 14
      Text = '0'
    end
    object txtDiInterrupt6: TEdit
      Left = 312
      Top = 152
      Width = 81
      Height = 21
      TabOrder = 15
      Text = '0'
    end
    object txtDiInterrupt7: TEdit
      Left = 312
      Top = 176
      Width = 81
      Height = 21
      TabOrder = 16
      Text = '0'
    end
  end
  object cmdStart: TButton
    Left = 200
    Top = 328
    Width = 65
    Height = 25
    Caption = 'Sta&rt'
    TabOrder = 12
    OnClick = cmdStartClick
  end
  object cmdStop: TButton
    Left = 272
    Top = 328
    Width = 65
    Height = 25
    Caption = 'Sto&p'
    TabOrder = 13
    OnClick = cmdStopClick
  end
  object cmdExit: TButton
    Left = 352
    Top = 328
    Width = 65
    Height = 25
    Caption = 'E&xit'
    TabOrder = 14
    OnClick = cmdExitClick
  end
end