ioboardtestunit.~dfm

在Windows 2000或者XP系统下的ISA接口卡测试程序的完整代码

object Form1: TForm1
  Left = 204
  Top = 509
  ActiveControl = BitBtnReset
  BorderStyle = bsDialog
  Caption = 'I/O Adaptec Test'
  ClientHeight = 433
  ClientWidth = 704
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000788000000000000
    0707FFF777000000078800000000000078077F7778000000078800000000000F
    7707FFF77700000007880000000000707707FFF7770700000788000000000700
    00077F770000000007880000000000000000F0F0000000000788000000000000
    0000707000000000078800000000000000007FF0000000000788000000000000
    0000000000000000078800000000000000008870000000000788000000000000
    0000887000000000078800000000000000008870000000000788000000000000
    0000887000000000078800000000000000008870000000000788000000000000
    0000887000000000078800000000000000008870000000000788000000000000
    0000887000000000078800000000000000008870000000000788000000000000
    0000887000000000078800000000000000008870000000000000000000000000
    00008870000000000FF700000000000000008870000000000707000000000000
    00008870000000000F0F000000000000000088700000000077F7700000700000
    00008870000070777FFF70770700000000008870000000777FFF7077F0000000
    000088700000008777F770870000000000008870000000777FFF707000000000
    000088700000000000000000000000000000000000000000000000000000FFFC
    78FFF000707FE000707FC000707F8000707F8000707F1000707F3C00707F7E0C
    707F7E0FF07FFE0FF07FFE0FF07FFE0FF07FFE0FF07FFE0FF07FFE0FF07FFE0F
    F07FFE0FF07FFE0FF07FFE0FF07FFE0FF07FFE0FF07FFE0FF07EFE0E307EFE0E
    003CFE0E0008FE0E0001FE0E0001FE0E0003FE0E0007FE0E000FFF1E3FFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 398
    Width = 704
    Height = 35
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object LabelPointMap: TLabel
      Left = 14
      Top = 10
      Width = 119
      Height = 13
      AutoSize = False
      Caption = #22810#28857#31227#20301#28857#38453#26144#35937#65306
    end
    object SpeedButton11: TSpeedButton
      Left = 554
      Top = 7
      Width = 23
      Height = 22
      Caption = '<'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton11Click
    end
    object SpeedButton12: TSpeedButton
      Left = 576
      Top = 7
      Width = 23
      Height = 22
      Caption = '>'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton12Click
    end
    object BitBtnExit: TBitBtn
      Left = 602
      Top = 5
      Width = 95
      Height = 25
      Caption = #36864'     '#20986
      TabOrder = 0
      OnClick = BitBtnExitClick
    end
    object EditMoveMap: TEdit
      Left = 150
      Top = 7
      Width = 401
      Height = 21
      MaxLength = 60
      TabOrder = 1
      Text = '000000000000000000000000000000000000000000000000000000000000'
      OnChange = EditMoveMapChange
      OnKeyPress = EditOut1aKeyPress
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 704
    Height = 398
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 599
      Height = 396
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'0 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#21512#24182#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 0
        object LabelOut1a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn1a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelOut1b: TLabel
          Left = 139
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelIn1b: TLabel
          Left = 372
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelOut1c: TLabel
          Left = 188
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelIn1c: TLabel
          Left = 408
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object EditOut1a: TEdit
          Left = 60
          Top = 15
          Width = 76
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = '00000000'
          OnChange = EditOut1aChange
          OnKeyPress = EditOut1aKeyPress
          OnMouseDown = EditOut1aMouseDown
        end
        object EditIn1a: TEdit
          Left = 302
          Top = 19
          Width = 67
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = '00000000'
        end
        object BitBtnOut1: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup1: TCheckBox
          Left = 522
          Top = 18
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn1: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut1b: TEdit
          Left = 154
          Top = 17
          Width = 32
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 2
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          Text = '00'
          OnChange = EditOut1bChange
          OnKeyPress = EditOut1bKeyPress
          OnMouseDown = EditOut1bMouseDown
        end
        object EditOut1c: TEdit
          Left = 202
          Top = 15
          Width = 39
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
          Text = '000'
          OnChange = EditOut1cChange
          OnKeyPress = EditOut1cKeyPress
          OnMouseDown = EditOut1cMouseDown
        end
        object EditIn1b: TEdit
          Left = 386
          Top = 19
          Width = 19
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 2
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
          Text = '00'
        end
        object EditIn1c: TEdit
          Left = 422
          Top = 19
          Width = 29
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 8
          Text = '000'
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 60
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'1 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#21512#24182#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 1
        object LabelOut2a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn2a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelIn2b: TLabel
          Left = 372
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelOut2b: TLabel
          Left = 139
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelOut2c: TLabel
          Left = 188
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelIn2c: TLabel
          Left = 408
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object EditOut2a: TEdit
          Left = 62
          Top = 15
          Width = 76
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = '00000000'
          OnChange = EditOut1aChange
          OnKeyPress = EditOut1aKeyPress
          OnMouseDown = EditOut1aMouseDown
        end
        object EditIn2a: TEdit
          Left = 302
          Top = 19
          Width = 67
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = '00000000'
        end
        object BitBtnOut2: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup2: TCheckBox
          Left = 522
          Top = 18
          Width = 57