unit1.~dfm

主要提供delphi 5与单片机通讯的源码及定义的通讯协议

object Form1: TForm1
  Left = 127
  Top = 146
  Width = 773
  Height = 466
  Caption = '单片机串口通讯测试软件'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 32
    Width = 52
    Height = 13
    Caption = '传输显示'
  end
  object Label2: TLabel
    Left = 9
    Top = 8
    Width = 77
    Height = 13
    Caption = 'MsComm Port'
  end
  object Label3: TLabel
    Left = 169
    Top = 8
    Width = 98
    Height = 13
    Caption = 'MsComm Setting'
  end
  object lblrts: TLabel
    Left = 693
    Top = 344
    Width = 42
    Height = 13
    Caption = 'lblrts'
  end
  object lblTimer2: TLabel
    Left = 637
    Top = 32
    Width = 63
    Height = 13
    Caption = 'lblTimer2'
  end
  object Label4: TLabel
    Left = 588
    Top = 60
    Width = 26
    Height = 13
    Caption = '命令'
  end
  object Label5: TLabel
    Left = 588
    Top = 81
    Width = 26
    Height = 13
    Caption = '地址'
  end
  object Label6: TLabel
    Left = 588
    Top = 128
    Width = 33
    Height = 13
    Caption = '数据1'
  end
  object Label7: TLabel
    Left = 588
    Top = 152
    Width = 33
    Height = 13
    Caption = '数据2'
  end
  object Label8: TLabel
    Left = 588
    Top = 175
    Width = 33
    Height = 13
    Caption = '数据3'
  end
  object Label9: TLabel
    Left = 406
    Top = 9
    Width = 52
    Height = 13
    Caption = '串口地址'
  end
  object Label10: TLabel
    Left = 588
    Top = 198
    Width = 33
    Height = 13
    Caption = '数据4'
  end
  object Label11: TLabel
    Left = 588
    Top = 221
    Width = 33
    Height = 13
    Caption = '数据5'
  end
  object Label12: TLabel
    Left = 588
    Top = 244
    Width = 33
    Height = 13
    Caption = '数据6'
  end
  object Label13: TLabel
    Left = 588
    Top = 267
    Width = 33
    Height = 13
    Caption = '数据7'
  end
  object Label14: TLabel
    Left = 588
    Top = 290
    Width = 33
    Height = 13
    Caption = '数据8'
  end
  object Label15: TLabel
    Left = 588
    Top = 104
    Width = 39
    Height = 13
    Caption = '控制字'
  end
  object memdisplay: TMemo
    Left = 8
    Top = 48
    Width = 569
    Height = 217
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = '楷体_GB2312'
    Font.Style = []
    Lines.Strings = (
      
        '命令  地址  Data1  Data2  Data3  Data4  Data5  Data6   Data7  校' +
        '验和  结束符')
    ParentFont = False
    TabOrder = 0
  end
  object edtCommport: TEdit
    Left = 89
    Top = 4
    Width = 64
    Height = 21
    TabOrder = 1
    Text = '2'
  end
  object edtCommsetting: TEdit
    Left = 273
    Top = 4
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '9600,n,8,1'
  end
  object btnClose: TButton
    Left = 605
    Top = 368
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 3
    OnClick = btnCloseClick
  end
  object MSComm1: TMSComm
    Left = 149
    Top = 120
    Width = 32
    Height = 32
    Cursor = crArrow
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000020000040000
      00020000802500000000080000000000000000003000000009000000}
  end
  object btnSend: TButton
    Left = 605
    Top = 320
    Width = 75
    Height = 25
    Caption = 'btnSend'
    TabOrder = 5
    OnClick = btnSendClick
  end
  object edtOut: TEdit
    Left = 629
    Top = 54
    Width = 81
    Height = 21
    TabOrder = 6
    Text = '$FA'
  end
  object Button1: TButton
    Left = 680
    Top = 320
    Width = 75
    Height = 25
    Caption = 'Timer1'
    TabOrder = 7
    OnClick = Button1Click
  end
  object RT: TButton
    Left = 605
    Top = 344
    Width = 75
    Height = 25
    Caption = 'RTS'
    TabOrder = 8
    OnClick = RTClick
  end
  object Button2: TButton
    Left = 541
    Top = 2
    Width = 75
    Height = 25
    Caption = 'Thread Begin'
    TabOrder = 9
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 629
    Top = 2
    Width = 75
    Height = 25
    Caption = 'Timer2'
    TabOrder = 10
    OnClick = Button3Click
  end
  object edtAddr: TEdit
    Left = 629
    Top = 77
    Width = 81
    Height = 21
    TabOrder = 11
    Text = '$00'
  end
  object edtData1: TEdit
    Left = 629
    Top = 124
    Width = 81
    Height = 21
    TabOrder = 12
    Text = '$00'
  end
  object edtData2: TEdit
    Left = 629
    Top = 148
    Width = 81
    Height = 21
    TabOrder = 13
    Text = '$00'
  end
  object edtData3: TEdit
    Left = 629
    Top = 171
    Width = 81
    Height = 21
    TabOrder = 14
    Text = '$00'
  end
  object edt: TEdit
    Left = 465
    Top = 4
    Width = 64
    Height = 21
    TabOrder = 15
    Text = '$2f8'
    OnExit = edtExit
  end
  object Button4: TButton
    Left = 680
    Top = 368
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 16
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 605
    Top = 392
    Width = 75
    Height = 25
    Caption = 'DeleteData'
    TabOrder = 17
    OnClick = Button5Click
  end
  object Edit1: TEdit
    Left = 629
    Top = 194
    Width = 81
    Height = 21
    TabOrder = 18
    Text = '$00'
  end
  object Edit2: TEdit
    Left = 629
    Top = 217
    Width = 81
    Height = 21
    TabOrder = 19
    Text = '$00'
  end
  object Edit3: TEdit
    Left = 629
    Top = 240
    Width = 81
    Height = 21
    TabOrder = 20
    Text = '$00'
  end
  object Edit4: TEdit
    Left = 629
    Top = 263
    Width = 81
    Height = 21
    TabOrder = 21
    Text = '$00'
  end
  object Edit5: TEdit
    Left = 629
    Top = 286
    Width = 81
    Height = 21
    TabOrder = 22
    Text = '$00'
  end
  object Edit6: TEdit
    Left = 629
    Top = 100
    Width = 81
    Height = 21
    TabOrder = 23
    Text = '$00'
  end
  object Button6: TButton
    Left = 32
    Top = 304
    Width = 75
    Height = 25
    Caption = 'Button6'
    TabOrder = 24
    OnClick = Button6Click
  end
  object Edit7: TEdit
    Left = 120
    Top = 304
    Width = 129
    Height = 21
    TabOrder = 25
    Text = '12'
  end
  object Edit8: TEdit
    Left = 264
    Top = 304
    Width = 121
    Height = 21
    TabOrder = 26
    Text = 'Edit8'
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 85
    Top = 120
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 8000
    OnTimer = Timer2Timer
    Left = 149
    Top = 176
  end
  object Table1: TTable
    DatabaseName = 'temp'
    TableName = 'temp.db'
    Left = 440
    Top = 88
  end
end