unit1.dfm

一个不错的串口调试程序

object Form1: TForm1
  Left = 466
  Top = 390
  Width = 444
  Height = 505
  Caption = 'RS232 Kommunikation - Mikrocontrollerboard   ㏕.Wiens 2004 '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 160
    Width = 123
    Height = 20
    Caption = 'LEDs an Port 0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 296
    Top = 160
    Width = 130
    Height = 20
    Caption = 'Taster an Port 2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 48
    Top = 112
    Width = 98
    Height = 13
    Caption = 'Wert an Port 0 (dez):'
  end
  object B_open: TButton
    Left = 40
    Top = 24
    Width = 153
    Height = 57
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = B_openClick
  end
  object GroupBox1: TGroupBox
    Left = 160
    Top = 200
    Width = 113
    Height = 97
    Caption = 'Einstellungen'
    TabOrder = 1
    object Label3: TLabel
      Left = 16
      Top = 24
      Width = 52
      Height = 13
      Caption = '9600 Baud'
    end
    object Label4: TLabel
      Left = 16
      Top = 40
      Width = 59
      Height = 13
      Caption = 'keine Parit鋞'
    end
    object Label5: TLabel
      Left = 16
      Top = 56
      Width = 54
      Height = 13
      Caption = '8 Datenbits'
    end
    object Label6: TLabel
      Left = 16
      Top = 72
      Width = 42
      Height = 13
      Caption = '1 Stopbit'
    end
    object TLabel
      Left = 16
      Top = 88
      Width = 3
      Height = 13
    end
  end
  object E_port0: TEdit
    Left = 160
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '0'
  end
  object CB_Port0_0: TCheckBox
    Left = 24
    Top = 200
    Width = 97
    Height = 17
    Caption = 'P 0.0'
    TabOrder = 3
    OnClick = CB_clicked
  end
  object CB_Port0_1: TCheckBox
    Left = 24
    Top = 232
    Width = 97
    Height = 17
    Caption = 'P 0.1'
    TabOrder = 4
    OnClick = CB_clicked
  end
  object CB_Port0_2: TCheckBox
    Left = 24
    Top = 264
    Width = 97
    Height = 17
    Caption = 'P 0.2'
    TabOrder = 5
    OnClick = CB_clicked
  end
  object CB_Port0_3: TCheckBox
    Left = 24
    Top = 296
    Width = 97
    Height = 17
    Caption = 'P 0.3'
    TabOrder = 6
    OnClick = CB_clicked
  end
  object CB_Port0_4: TCheckBox
    Left = 24
    Top = 328
    Width = 97
    Height = 17
    Caption = 'P 0.4'
    TabOrder = 7
    OnClick = CB_clicked
  end
  object CB_Port0_5: TCheckBox
    Left = 24
    Top = 360
    Width = 97
    Height = 17
    Caption = 'P 0.5'
    TabOrder = 8
    OnClick = CB_clicked
  end
  object CB_Port0_6: TCheckBox
    Left = 24
    Top = 392
    Width = 97
    Height = 17
    Caption = 'P 0.6'
    TabOrder = 9
    OnClick = CB_clicked
  end
  object CB_Port0_7: TCheckBox
    Left = 24
    Top = 424
    Width = 97
    Height = 17
    Caption = 'P 0.7'
    TabOrder = 10
    OnClick = CB_clicked
  end
  object CB_Port2_0: TCheckBox
    Left = 304
    Top = 200
    Width = 97
    Height = 17
    Caption = 'P 2.0'
    TabOrder = 11
  end
  object CB_Port2_1: TCheckBox
    Left = 304
    Top = 232
    Width = 97
    Height = 17
    Caption = 'P 2.1'
    TabOrder = 12
  end
  object CB_Port2_2: TCheckBox
    Left = 304
    Top = 264
    Width = 97
    Height = 17
    Caption = 'P 2.2'
    TabOrder = 13
  end
  object CB_Port2_3: TCheckBox
    Left = 304
    Top = 296
    Width = 97
    Height = 17
    Caption = 'P 2.3'
    TabOrder = 14
  end
  object CB_Port2_4: TCheckBox
    Left = 304
    Top = 328
    Width = 97
    Height = 17
    Caption = 'P 2.4'
    TabOrder = 15
  end
  object CB_Port2_5: TCheckBox
    Left = 304
    Top = 360
    Width = 97
    Height = 17
    Caption = 'P 2.5'
    TabOrder = 16
  end
  object CB_Port2_6: TCheckBox
    Left = 304
    Top = 392
    Width = 97
    Height = 17
    Caption = 'P 2.6'
    TabOrder = 17
  end
  object CB_Port2_7: TCheckBox
    Left = 304
    Top = 424
    Width = 97
    Height = 17
    Caption = 'P 2.7'
    TabOrder = 18
  end
  object B_ChkTaster: TButton
    Left = 248
    Top = 24
    Width = 153
    Height = 57
    Caption = 'Tasterzustand abfragen'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 19
    OnClick = B_ChkTasterClick
  end
end