unit1.~dfm

8051與 RS232 通訊控制碼,可以依內容斟酌修改

object Form1: TForm1
  Left = 218
  Top = 105
  Width = 648
  Height = 507
  Caption = '7122'#21443#25976#35373#23450
  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 = 192
    Width = 89
    Height = 25
    AutoSize = False
    Caption = #20659#36865#36039#26009
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26032#32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 144
    Top = 96
    Width = 29
    Height = 24
    Caption = 'NT'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 304
    Top = 96
    Width = 30
    Height = 24
    Caption = 'NR'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 144
    Top = 136
    Width = 28
    Height = 24
    Caption = 'RT'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 304
    Top = 136
    Width = 29
    Height = 24
    Caption = 'RR'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 144
    Top = 32
    Width = 66
    Height = 21
    Caption = #36890#35338#22496
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26032#32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 336
    Top = 192
    Width = 89
    Height = 25
    AutoSize = False
    Caption = #25509#25910#36039#26009
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26032#32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Button1: TButton
    Left = 24
    Top = 24
    Width = 97
    Height = 41
    Caption = #38283#21855#36890#35338#22496
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 496
    Top = 24
    Width = 97
    Height = 41
    Caption = #32080#26463#31995#32113
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = Button2Click
  end
  object mSend: TMemo
    Left = 8
    Top = 216
    Width = 305
    Height = 201
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = False
    TabOrder = 7
    OnKeyPress = mSendKeyPress
  end
  object CSpinEdit1: TCSpinEdit
    Left = 176
    Top = 88
    Width = 81
    Height = 34
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxValue = 131071
    MinValue = 64
    ParentFont = False
    TabOrder = 3
    Value = 8000
    OnChange = setup
  end
  object CSpinEdit2: TCSpinEdit
    Left = 336
    Top = 88
    Width = 81
    Height = 34
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxValue = 131071
    MinValue = 64
    ParentFont = False
    TabOrder = 5
    Value = 8000
    OnChange = setup
  end
  object CSpinEdit3: TCSpinEdit
    Left = 176
    Top = 128
    Width = 81
    Height = 34
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxValue = 1023
    MinValue = 4
    ParentFont = False
    TabOrder = 4
    Value = 100
    OnChange = setup
  end
  object CSpinEdit4: TCSpinEdit
    Left = 336
    Top = 128
    Width = 81
    Height = 34
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxValue = 1023
    MinValue = 4
    ParentFont = False
    TabOrder = 6
    Value = 100
    OnChange = setup
  end
  object OPMODE: TRadioGroup
    Left = 32
    Top = 96
    Width = 80
    Height = 57
    Caption = #24037#20316#27169#24335
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      'Standby'
      'Rx'
      'Tx')
    ParentFont = False
    TabOrder = 2
    OnClick = setup
  end
  object mReceive: TMemo
    Left = 320
    Top = 216
    Width = 305
    Height = 201
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      #25509#25910#36039#26009)
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object CSpinEdit5: TCSpinEdit
    Left = 216
    Top = 24
    Width = 41
    Height = 34
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxValue = 6
    MinValue = 1
    ParentFont = False
    TabOrder = 1
    Value = 1
  end
  object Button3: TButton
    Left = 200
    Top = 424
    Width = 113
    Height = 41
    Caption = #36865#20986
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 512
    Top = 424
    Width = 113
    Height = 41
    Caption = #28165#38500
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = Button4Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 448
    Top = 32
  end
end