ioboardtestunit.~dfm

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

          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 EditIn4b: 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 = 6
          Text = '00'
        end
        object EditIn4c: 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 = 7
          Text = '000'
        end
        object EditOut4c: 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 = 8
          Text = '000'
          OnChange = EditOut1cChange
          OnKeyPress = EditOut1cKeyPress
          OnMouseDown = EditOut1cMouseDown
        end
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 216
        Width = 583
        Height = 71
        Caption = 'I/O '#22522#22320#22336' '#65291'4 '#65309#23383#35835#20889#21475#65288#21475#32447#20998#24320#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 4
        object LabelOut5a: TLabel
          Left = 10
          Top = 22
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn5a: TLabel
          Left = 10
          Top = 44
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelOut5b: TLabel
          Left = 204
          Top = 21
          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 LabelIn5b: TLabel
          Left = 204
          Top = 43
          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 LabelOut5c: TLabel
          Left = 276
          Top = 21
          Width = 11
          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 LabelIn5c: TLabel
          Left = 276
          Top = 43
          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 EditOut5a: TEdit
          Left = 60
          Top = 17
          Width = 139
          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 = 16
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = '0000000000000000'
          OnChange = EditOut1aChange
          OnKeyPress = EditOut1aKeyPress
          OnMouseDown = EditOut1aMouseDown
        end
        object EditIn5a: TEdit
          Left = 65
          Top = 43
          Width = 134
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 16
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = '0000000000000000'
        end
        object BitBtnOut5: TBitBtn
          Left = 458
          Top = 21
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup5: TCheckBox
          Left = 522
          Top = 28
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn5: TBitBtn
          Left = 488
          Top = 21
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut5b: TEdit
          Left = 219
          Top = 17
          Width = 46
          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 = 4
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          Text = '0000'
          OnChange = EditOut1bChange
          OnKeyPress = EditOut1bKeyPress
          OnMouseDown = EditOut1bMouseDown
        end
        object EditOut5c: TEdit
          Left = 293
          Top = 17
          Width = 54
          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 = 5
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
          Text = '00000'
          OnChange = EditOut1cChange
          OnKeyPress = EditOut5cKeyPress
          OnMouseDown = EditOut1cMouseDown
        end
        object EditIn5b: TEdit
          Left = 224
          Top = 43
          Width = 40
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 4
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
          Text = '0000'
        end
        object EditIn5c: TEdit
          Left = 298
          Top = 43
          Width = 49
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 5
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 8
          Text = '00000'
        end
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 292
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'6 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#20998#24320#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 5
        object LabelOut6a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn6a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelIn6b: 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 LabelOut6b: 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 LabelOut6c: 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 LabelIn6c: 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 EditOut6a: 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 EditIn6a: 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 BitBtnOut6: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup6: TCheckBox
          Left = 522
          Top = 20
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn6: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut6b: TEdit
          Left = 152
          Top = 15
          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 EditIn6b: 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'