unit1.~dfm

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

object Form1: TForm1
  Left = 349
  Top = 120
  Width = 467
  Height = 572
  Caption = #27169#22411#39134#26426#27979#25511#24179#21488
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object tbshtSignalChart: TPageControl
    Left = 0
    Top = 0
    Width = 459
    Height = 545
    ActivePage = tbshtDebug
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tbshtDebug: TTabSheet
      Caption = #20018#21475#35843#35797
      ImageIndex = 1
      object Label7: TLabel
        Left = 8
        Top = 48
        Width = 57
        Height = 13
        Caption = #36873#25321#20018#21475'   '
      end
      object Label8: TLabel
        Left = 120
        Top = 48
        Width = 45
        Height = 13
        Caption = #27874#29305#29575'   '
      end
      object Label9: TLabel
        Left = 248
        Top = 48
        Width = 87
        Height = 13
        Caption = #25968#25454#26174#31034#26684#24335'     '
      end
      object Label10: TLabel
        Left = 48
        Top = 16
        Width = 396
        Height = 13
        Caption = #65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#25509#25910#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293
      end
      object Label11: TLabel
        Left = 48
        Top = 272
        Width = 396
        Height = 13
        Caption = #65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#21457#36865#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293
      end
      object Label13: TLabel
        Left = 136
        Top = 304
        Width = 45
        Height = 13
        Caption = #27874#29305#29575'   '
      end
      object lbCode1: TLabel
        Left = 40
        Top = 424
        Width = 6
        Height = 13
        Caption = '0'
      end
      object lbCode2: TLabel
        Left = 112
        Top = 424
        Width = 6
        Height = 13
        Caption = '0'
      end
      object Label16: TLabel
        Left = 272
        Top = 304
        Width = 57
        Height = 13
        Caption = #21457#36865#26684#24335'   '
      end
      object Label51: TLabel
        Left = 16
        Top = 304
        Width = 57
        Height = 13
        Caption = #36873#25321#20018#21475'   '
      end
      object lbCode3: TLabel
        Left = 192
        Top = 424
        Width = 6
        Height = 13
        Caption = '0'
      end
      object lbCode4: TLabel
        Left = 264
        Top = 424
        Width = 6
        Height = 13
        Caption = '0'
      end
      object Label62: TLabel
        Left = 8
        Top = 424
        Width = 24
        Height = 13
        Caption = #25351#20196
      end
      object Label2: TLabel
        Left = 8
        Top = 408
        Width = 372
        Height = 13
        Caption = #65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293#65293
      end
      object rchdtSerialIn: TRichEdit
        Left = 0
        Top = 80
        Width = 449
        Height = 137
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object cmbbxSerialIn: TComboBox
        Left = 72
        Top = 48
        Width = 41
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = '1'
        Items.Strings = (
          '1'
          '2'
          '3')
      end
      object btRecStart: TButton
        Left = 48
        Top = 232
        Width = 75
        Height = 25
        Caption = #24320#22987#25509#25910
        TabOrder = 2
        OnClick = btRecStartClick
      end
      object btRecStop: TButton
        Left = 168
        Top = 232
        Width = 75
        Height = 25
        Caption = #20572#27490#25509#25910
        Enabled = False
        TabOrder = 3
        OnClick = btRecStopClick
      end
      object cmbbxBaudIn: TComboBox
        Left = 176
        Top = 48
        Width = 57
        Height = 21
        ItemHeight = 13
        TabOrder = 4
        Text = '2400'
        Items.Strings = (
          '1200'
          '2400'
          '4800'
          '9600')
      end
      object btRecSave: TButton
        Left = 296
        Top = 232
        Width = 75
        Height = 25
        Caption = #25968#25454#20445#23384
        Enabled = False
        TabOrder = 5
        OnClick = btRecSaveClick
      end
      object cmbbxTypeIn: TComboBox
        Left = 344
        Top = 48
        Width = 57
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 6
        Text = 'Hex'
        Items.Strings = (
          'Hex'
          'Char')
      end
      object cmbbxSerialOut: TComboBox
        Left = 80
        Top = 304
        Width = 41
        Height = 21
        ItemHeight = 13
        ItemIndex = 1
        TabOrder = 7
        Text = '2'
        Items.Strings = (
          '1'
          '2'
          '3')
      end
      object cmbbxBaudOut: TComboBox
        Left = 192
        Top = 304
        Width = 57
        Height = 21
        ItemHeight = 13
        ItemIndex = 1
        TabOrder = 8
        Text = '2400'
        Items.Strings = (
          '1200'
          '2400'
          '4800'
          '9600')
      end
      object rchdtSerialOut: TRichEdit
        Left = 0
        Top = 336
        Width = 465
        Height = 65
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
      end
      object btSendOut: TButton
        Left = 360
        Top = 472
        Width = 81
        Height = 25
        Caption = #21457#36865
        TabOrder = 10
        OnClick = btSendOutClick
      end
      object dtCode1: TEdit
        Left = 40
        Top = 448
        Width = 49
        Height = 21
        TabOrder = 11
        Text = '0'
        OnChange = dtCode1Change
      end
      object dtCode3: TEdit
        Left = 192
        Top = 448
        Width = 49
        Height = 21
        TabOrder = 12
        Text = '0'
        OnChange = dtCode3Change
      end
      object cmbbxTypeOut: TComboBox
        Left = 344
        Top = 304
        Width = 57
        Height = 21
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 13
        Text = 'Hex'
        Items.Strings = (
          'Hex'
          'Char')
      end
      object dtCode2: TEdit
        Left = 112
        Top = 448
        Width = 49
        Height = 21
        TabOrder = 14
        Text = '0'
        OnChange = dtCode2Change
      end
      object dtCode4: TEdit
        Left = 264
        Top = 448
        Width = 49
        Height = 21
        TabOrder = 15
        Text = '0'
        OnChange = dtCode4Change
      end
      object rdgrpDataCode: TRadioGroup
        Left = 360
        Top = 408
        Width = 81
        Height = 49
        Caption = #21457#36865
        ItemIndex = 0
        Items.Strings = (
          #25351#20196
          #25968#25454)
        TabOrder = 16
      end
      object rchdtTmp: TRichEdit
        Left = 8
        Top = 480
        Width = 305
        Height = 17
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 17
        Visible = False
      end
    end
    object tbshtSignal: TTabSheet
      Caption = #26426#36733#20449#21495
      object ImgTrace: TImage
        Left = 0
        Top = 16
        Width = 209
        Height = 209
      end
      object Label17: TLabel
        Left = 16
        Top = 264
        Width = 68
        Height = 13
        Caption = #38464#34746'X(rad/s)  '
      end
      object Label18: TLabel
        Left = 16
        Top = 291
        Width = 68
        Height = 13
        Caption = #38464#34746'Y(rad/s)  '
      end
      object Label19: TLabel
        Left = 16
        Top = 373
        Width = 72
        Height = 13
        Caption = #21152#36895#24230'(m/s2)  '
      end
      object Label20: TLabel
        Left = 16
        Top = 401
        Width = 56
        Height = 13
        Caption = #39640#24230#35745'(m)  '
      end
      object Label21: TLabel
        Left = 16
        Top = 318
        Width = 68
        Height = 13
        Caption = #38464#34746'Z(rad/s)  '
      end
      object Label22: TLabel
        Left = 16
        Top = 346
        Width = 72
        Height = 13
        Caption = #21152#36895#24230'(m/s2)  '
      end
      object Label23: TLabel
        Left = 16
        Top = 428
        Width = 66
        Height = 13
        Caption = #31354#36895#35745'(m/s)  '
      end
      object Label24: TLabel
        Left = 16
        Top = 456
        Width = 70
        Height = 13
        Caption = #31995#32479#30005#21387'(V)   '
      end
      object Label25: TLabel
        Left = 320
        Top = 32
        Width = 48
        Height = 13
        Caption = #23450#20301#21542#12288
      end
      object Label26: TLabel
        Left = 320
        Top = 144
        Width = 24
        Height = 13
        Caption = #39640#24230
      end
      object lbShowAd0: TLabel
        Left = 112
        Top = 264
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd1: TLabel
        Left = 112
        Top = 291
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd4: TLabel
        Left = 112
        Top = 373
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd5: TLabel
        Left = 112
        Top = 401
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd2: TLabel
        Left = 112
        Top = 318
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowGps5: TLabel
        Left = 392
        Top = 172
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowGps1: TLabel
        Left = 392
        Top = 60
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd7: TLabel
        Left = 112
        Top = 456
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd6: TLabel
        Left = 112
        Top = 428
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowAd3: TLabel
        Left = 112
        Top = 346
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object Label37: TLabel
        Left = 216
        Top = 8
        Width = 223
        Height = 13
        Caption = #65293#65293#65293#65293#65293#22788#29702'Gps'#30340#25968#25454#65293#65293#65293#65293#65293#65293#65293
      end
      object lbShowGps6: TLabel
        Left = 392
        Top = 200
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object lbShowGps4: TLabel
        Left = 392
        Top = 144
        Width = 6
        Height = 13
        Caption = '0'
        Color = clBtnHighlight
        ParentColor = False
      end
      object Label53: TLabel
        Left = 320
        Top = 60
        Width = 36
        Height = 13
        Caption = #26102#38388#12288
      end
      object Label54: TLabel
        Left = 320
        Top = 172
        Width = 49
        Height = 13
        Caption = #19996#21521'_X'#12288
      end
      object Label55: TLabel