mainrs232.dfm

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

object frmMain: TfrmMain
  Left = 127
  Top = 146
  Width = 798
  Height = 521
  BorderIcons = [biSystemMenu]
  Caption = '串口测试软件'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 80
    Width = 52
    Height = 13
    Caption = '传输显示'
  end
  object lblrts: TLabel
    Left = 693
    Top = 408
    Width = 42
    Height = 13
    Caption = 'lblrts'
    Visible = False
  end
  object lblTimer2: TLabel
    Left = 637
    Top = 32
    Width = 63
    Height = 13
    Caption = 'lblTimer2'
    Visible = False
  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 = 12
    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 = 26
    Height = 13
    Caption = '计数'
  end
  object Label16: TLabel
    Left = 7
    Top = 12
    Width = 26
    Height = 13
    Caption = '端口'
  end
  object Label17: TLabel
    Left = 136
    Top = 12
    Width = 39
    Height = 13
    Caption = '波特率'
  end
  object Label2: TLabel
    Left = 297
    Top = 12
    Width = 26
    Height = 13
    Caption = '地址'
  end
  object Label3: TLabel
    Left = 8
    Top = 44
    Width = 52
    Height = 13
    Caption = '发送数据'
  end
  object Label18: TLabel
    Left = 588
    Top = 313
    Width = 26
    Height = 13
    Caption = '校验'
  end
  object Label19: TLabel
    Left = 588
    Top = 336
    Width = 26
    Height = 13
    Caption = '结束'
  end
  object memoSend: TMemo
    Left = 8
    Top = 96
    Width = 569
    Height = 105
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Lines.Strings = (
      
        '地址 命令 Cunt Dat1 Dat2 Dat3 Dat4 Dat5 Dat6 Dat7 Dat8 校验和 结' +
        '束符')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object btnClose: TButton
    Left = 604
    Top = 432
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 1
    Visible = False
    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 = 604
    Top = 384
    Width = 75
    Height = 25
    Caption = 'btnSend'
    TabOrder = 3
    Visible = False
    OnClick = btnSendClick
  end
  object edtAddr: TEdit
    Left = 629
    Top = 54
    Width = 81
    Height = 21
    TabOrder = 4
    Text = '$0F'
  end
  object Button1: TButton
    Left = 680
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Timer1'
    TabOrder = 5
    Visible = False
    OnClick = Button1Click
  end
  object RT: TButton
    Left = 604
    Top = 408
    Width = 75
    Height = 25
    Caption = 'RTS'
    TabOrder = 6
    Visible = False
    OnClick = RTClick
  end
  object Button2: TButton
    Left = 541
    Top = 2
    Width = 75
    Height = 25
    Caption = 'Thread Begin'
    TabOrder = 7
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 629
    Top = 2
    Width = 75
    Height = 25
    Caption = 'Timer2'
    TabOrder = 8
    Visible = False
    OnClick = Button3Click
  end
  object edtCmd: TEdit
    Left = 629
    Top = 77
    Width = 81
    Height = 21
    TabOrder = 9
    Text = '$A7'
  end
  object edtData1: TEdit
    Left = 629
    Top = 124
    Width = 81
    Height = 21
    TabOrder = 10
    Text = '$01'
  end
  object edtData2: TEdit
    Left = 629
    Top = 148
    Width = 81
    Height = 21
    TabOrder = 11
    Text = '$00'
  end
  object edtData3: TEdit
    Left = 629
    Top = 171
    Width = 81
    Height = 21
    TabOrder = 12
    Text = '$00'
  end
  object edt: TEdit
    Left = 465
    Top = 8
    Width = 64
    Height = 21
    TabOrder = 13
    Text = '$2f8'
  end
  object Button4: TButton
    Left = 680
    Top = 432
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 14
    Visible = False
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 332
    Top = 424
    Width = 75
    Height = 25
    Caption = 'DeleteData'
    TabOrder = 15
    Visible = False
    OnClick = Button5Click
  end
  object edtData4: TEdit
    Left = 629
    Top = 194
    Width = 81
    Height = 21
    TabOrder = 16
    Text = '$00'
  end
  object edtData5: TEdit
    Left = 629
    Top = 217
    Width = 81
    Height = 21
    TabOrder = 17
    Text = '$00'
  end
  object edtData6: TEdit
    Left = 629
    Top = 240
    Width = 81
    Height = 21
    TabOrder = 18
    Text = '$00'
  end
  object edtData7: TEdit
    Left = 629
    Top = 263
    Width = 81
    Height = 21
    TabOrder = 19
    Text = '$00'
  end
  object edtData8: TEdit
    Left = 629
    Top = 286
    Width = 81
    Height = 21
    TabOrder = 20
    Text = '$00'
  end
  object edtCount: TEdit
    Left = 629
    Top = 100
    Width = 81
    Height = 21
    TabOrder = 21
    Text = '$0A'
  end
  object Button6: TButton
    Left = 16
    Top = 398
    Width = 75
    Height = 25
    Caption = 'Button6'
    TabOrder = 22
    OnClick = Button6Click
  end
  object Edit7: TEdit
    Left = 104
    Top = 400
    Width = 129
    Height = 21
    TabOrder = 23
    Text = '12'
  end
  object Edit8: TEdit
    Left = 248
    Top = 400
    Width = 121
    Height = 21
    TabOrder = 24
    Text = '200'
  end
  object cboCOMMport: TComboBox
    Left = 36
    Top = 8
    Width = 81
    Height = 21
    ItemHeight = 13
    TabOrder = 25
    Text = 'COM2'
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4 ')
  end
  object cboCOMMsetting: TComboBox
    Left = 177
    Top = 8
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 26
    Text = '9600,n,8,1'
    Items.Strings = (
      '300,n,8,1'
      '600,n,8,1'
      '1200,n,8,1'
      '2400,n,8,1'
      '4800,n,8,1'
      '9600,n,8,1'
      '19200,n,8,1'
      '38400,n,8,1'
      '')
  end
  object ComboBox1: TComboBox
    Left = 376
    Top = 400
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 27
    Text = 'ComboBox1'
    Visible = False
  end
  object Memoreceive: TMemo
    Left = 8
    Top = 214
    Width = 569
    Height = 131
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Lines.Strings = (
      
        '地址 命令 Cunt Dat1 Dat2 Dat3 Dat4 Dat5 Dat6 Dat7 Dat8 校验和 结' +
        '束符')
    ParentFont = False
    TabOrder = 28
  end
  object cboAddress: TComboBox
    Left = 326
    Top = 8
    Width = 68
    Height = 21
    ItemHeight = 13
    TabOrder = 29
    Text = '$00'
    OnChange = cboAddressChange
    Items.Strings = (
      '$01'
      '$02'
      '$03'
      '$04'
      '$05'
      '$06'
      '$07'
      '$08'
      '$09'
      '$0A'
      '$0B'
      '$0C'
      '$0D'
      '$0E'
      '$0F'
      '$FF')
  end
  object cboSend: TComboBox
    Left = 62
    Top = 40
    Width = 516
    Height = 21
    ItemHeight = 13
    TabOrder = 30
    Text = '$01,$A5,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$AF,$5A'
    Items.Strings = (
      '$01,$A5,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$AF,$5A'
      '$01,$A7,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$B1,$5A'
      '$01,$A9,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$B3,$5A'
      '$01,$AB,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$B5,$5A')
  end
  object edtSUM: TEdit
    Left = 629
    Top = 309
    Width = 81
    Height = 21
    TabOrder = 31
    Text = '$00'
  end
  object btnSendCmd: TButton
    Left = 632
    Top = 355
    Width = 75
    Height = 25
    Caption = '发送'
    TabOrder = 32
    OnClick = btnSendCmdClick
  end
  object edtEnd: TEdit
    Left = 629
    Top = 332
    Width = 81
    Height = 21
    TabOrder = 33
    Text = '$5A'
  end
  object Button7: TButton
    Left = 248
    Top = 424
    Width = 75
    Height = 25
    Caption = 'Button7'
    TabOrder = 34
    OnClick = Button7Click
  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 = 72
  end
  object MainMenu1: TMainMenu
    Left = 744
    Top = 16
    object N1: TMenuItem
      Caption = '关闭'
      OnClick = N1Click
    end
    object COM1: TMenuItem
      Caption = '设置COM'
    end
    object mnuStart: TMenuItem
      Caption = '启动'
      OnClick = mnuStartClick
    end
    object mnuStop: TMenuItem
      Caption = '停止'
      Enabled = False
      OnClick = mnuStopClick
    end
    object mnuSend: TMenuItem
      Caption = '发送'
      Enabled = False
      OnClick = mnuSendClick
    end
    object mnuGoOn: TMenuItem
      Caption = '连续'
      Enabled = False
      OnClick = mnuGoOnClick
    end
    object mnuReset: TMenuItem
      Caption = '复位'
      Enabled = False
      OnClick = mnuResetClick
    end
    object mnuLink: TMenuItem
      Caption = '连接'
      Enabled = False
      OnClick = mnuLinkClick
    end
  end
  object tmrSend: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = tmrSendTimer
    Left = 368
    Top = 360
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 20
    OnTimer = Timer3Timer
    Left = 184
    Top = 368
  end
end