main.dfm

这我用delphi编写的ＡＶＲ串口通信工具串口通信原代码

object Form1: TForm1
  Left = 198
  Top = 173
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'AVR USART TOOL V1.0'
  ClientHeight = 421
  ClientWidth = 780
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0F00000000000000000000000000000700F00000000000000000000000000007
    700F00000000000000000000000000087700F000000000000000000000000008
    87700F00000000000000000000000000887700F0000000000000000000000000
    F887700F0000000000000000000000000F887700000000000000000000000000
    00F88700F0000000000FF00000000000000FF8700F00000000F00F0000000000
    00000F8700F000000F0000F000000000000070F8700F00000007700F00000000
    0000070F8700F000000787000000000000000070F8700F00F00788F000000000
    000000070F8700FF007FFF0F000000000000000070F8700007F000F000000000
    00000000070F87777F0F0000000000000000000000707778F0F0000000000000
    00000000007078880F00000000000000000000000F0778F870F0000000000000
    0000000FF0778F0F0F000000000000000000FFF00778F0F0F000000000000000
    000F000777FF0F00000000000000000000F088888F00F0000000000000000000
    0000000000F00000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFE3FFFFFFE1FFFFFFE0FFFFFFE07FFFFFE03FFFFFF01FFFFFE00F
    FFFFF00FFFFFF807FE7FFC03FC3FFE01F81FFF00F80FFF80780FFFC0300FFFE0
    000FFFF0001FFFF800FFFFFC01FFFFFC03FFFFF801FFFFE003FFFF0007FFFE00
    3FFFFC007FFFFC01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 72
    Top = 392
    Width = 105
    Height = 17
    Cursor = crHandPoint
    AutoSize = False
    Caption = 'AVR-ARM'#24320#21457#32593
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label4Click
    OnMouseMove = Label4MouseMove
    OnMouseLeave = Label4MouseLeave
  end
  object Memo1: TMemo
    Left = 224
    Top = 96
    Width = 217
    Height = 281
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
    Lines.Strings = (
      'Memo1')
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 248
    Top = 384
    Width = 73
    Height = 25
    Caption = #20195#30721#39044#35272
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    OnMouseDown = BitBtn1MouseDown
    OnMouseUp = BitBtn1MouseUp
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 209
    Height = 369
    Caption = 'UART0'
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #27874#29305#29575'(Bps)'
    end
    object Label6: TLabel
      Left = 104
      Top = 104
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #23383#31526#38271#24230
    end
    object Label1: TLabel
      Left = 16
      Top = 104
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #22855#20598#26657#39564
    end
    object CheckBox3: TCheckBox
      Left = 16
      Top = 24
      Width = 57
      Height = 25
      Caption = 'UART0'
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 104
      Top = 152
      Width = 81
      Height = 25
      Caption = '2'#20301#20572#27490#20301
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 152
      Width = 73
      Height = 25
      Caption = #20493#36895'U2X'
      TabOrder = 2
      OnClick = CheckBox1Click
    end
    object CheckBox5: TCheckBox
      Left = 16
      Top = 176
      Width = 81
      Height = 25
      Caption = 'Enable RX'
      TabOrder = 3
      OnClick = CheckBox5Click
    end
    object CheckBox6: TCheckBox
      Left = 16
      Top = 216
      Width = 177
      Height = 25
      Caption = 'Multi-Processer Comms Mode'
      TabOrder = 4
      OnClick = CheckBox6Click
    end
    object CheckBox7: TCheckBox
      Left = 104
      Top = 176
      Width = 89
      Height = 25
      Caption = 'EnableTX'
      TabOrder = 5
      OnClick = CheckBox7Click
    end
    object CheckBox8: TCheckBox
      Left = 16
      Top = 328
      Width = 185
      Height = 25
      Caption = 'Data Register Empty Interrupt'
      TabOrder = 6
      OnClick = CheckBox8Click
    end
    object CheckBox9: TCheckBox
      Left = 16
      Top = 280
      Width = 145
      Height = 25
      Caption = 'RX Complete Interrupt'
      TabOrder = 7
      OnClick = CheckBox9Click
    end
    object CheckBox11: TCheckBox
      Left = 16
      Top = 304
      Width = 161
      Height = 25
      Caption = 'TX Complete Interrupt'
      TabOrder = 8
      OnClick = CheckBox11Click
    end
    object ComboBox1: TComboBox
      Left = 16
      Top = 72
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 9
      Text = 'ComboBox1'
      OnChange = ComboBox1Change
      Items.Strings = (
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '14400'
        '19200'
        '28800'
        '38400'
        '43000'
        '56000'
        '57600'
        '76800'
        '115200')
    end
    object ComboBox4: TComboBox
      Left = 104
      Top = 120
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 10
      Text = 'ComboBox4'
      OnChange = ComboBox4Change
      Items.Strings = (
        '5'#20301
        '6'#20301
        '7'#20301
        '8'#20301
        '9'#20301)
    end
    object LabeledEdit1: TLabeledEdit
      Left = 104
      Top = 72
      Width = 89
      Height = 21
      EditLabel.Width = 31
      EditLabel.Height = 13
      EditLabel.Caption = 'UBRR'
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 11
    end
    object ComboBox5: TComboBox
      Left = 16
      Top = 120
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 12
      Text = 'ComboBox5'
      OnChange = ComboBox5Change
      Items.Strings = (
        #31105#27490
        #20445#30041
        #20598#26657#39564
        #22855#26657#39564)
    end
    object CheckBox4: TCheckBox
      Left = 104
      Top = 240
      Width = 81
      Height = 25
      Caption = 'Rising Edge'
      TabOrder = 13
      OnClick = CheckBox4Click
    end
    object CheckBox21: TCheckBox
      Left = 16
      Top = 240
      Width = 73
      Height = 25
      Caption = 'Synchro'
      TabOrder = 14
      OnClick = CheckBox21Click
    end
  end
  object BitBtn2: TBitBtn
    Left = 344
    Top = 384
    Width = 73
    Height = 25
    Caption = #29983#25104#25991#20214
    Enabled = False
    TabOrder = 3
  end
  object GroupBox3: TGroupBox
    Left = 224
    Top = 8
    Width = 217
    Height = 81
    Caption = #22788#29702#22120#20449#24687
    TabOrder = 4
    object Label5: TLabel
      Left = 16
      Top = 24
      Width = 73
      Height = 17
      AutoSize = False
      Caption = 'Target MCU'
    end
    object Label3: TLabel
      Left = 112
      Top = 24
      Width = 89
      Height = 17
      AutoSize = False
      Caption = #26230#25391#39057#29575'(Mhz)'
    end
    object ComboBox3: TComboBox
      Left = 16
      Top = 40
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboBox3'
      OnChange = ComboBox3Change
      Items.Strings = (
        'ATMega8'
        'ATMega16'
        'ATMega32'
        'ATMega64'
        'ATMega128')
    end
    object ComboBox2: TComboBox
      Left = 112
      Top = 40
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 1
      Text = 'ComboBox2'
      OnChange = ComboBox2Change
      Items.Strings = (
        '1.0000'
        '1.8432'
        '2.0000'
        '2.4576'
        '3.2768'
        '3.6864'
        '4.0000'
        '4.6080'
        '4.9152'
        '6.0000'
        '7.3728'
        '8.0000'
        '9.2160'
        '10.0000'
        '11.0592'
        '12.0000'
        '14.0000'
        '14.7456'
        '16.0000')
    end
  end
  object GroupBox2: TGroupBox
    Left = 528
    Top = 8
    Width = 209
    Height = 369
    Caption = 'UART1'
    TabOrder = 5
    object Label7: TLabel
      Left = 16
      Top = 56
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #27874#29305#29575'(Bps)'
    end
    object Label8: TLabel
      Left = 104
      Top = 104
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #23383#31526#38271#24230
    end
    object Label9: TLabel
      Left = 16
      Top = 104
      Width = 81
      Height = 17
      AutoSize = False
      Caption = #22855#20598#26657#39564
    end
    object CheckBox10: TCheckBox
      Left = 16
      Top = 24
      Width = 57
      Height = 25
      Caption = 'UART1'
      TabOrder = 0
    end
    object CheckBox12: TCheckBox
      Left = 104
      Top = 152
      Width = 81
      Height = 25
      Caption = '2'#20301#20572#27490#20301
      TabOrder = 1
      OnClick = CheckBox12Click
    end
    object CheckBox13: TCheckBox
      Left = 16
      Top = 152
      Width = 73
      Height = 25
      Caption = #20493#36895'U2X'
      TabOrder = 2
      OnClick = CheckBox13Click
    end
    object CheckBox14: TCheckBox
      Left = 16
      Top = 176
      Width = 81
      Height = 25
      Caption = 'Enable RX'
      TabOrder = 3
      OnClick = CheckBox14Click
    end
    object CheckBox15: TCheckBox
      Left = 16
      Top = 216
      Width = 177
      Height = 25
      Caption = 'Multi-Processer Comms Mode'
      TabOrder = 4
      OnClick = CheckBox15Click
    end
    object CheckBox16: TCheckBox
      Left = 104
      Top = 176
      Width = 89
      Height = 25
      Caption = 'EnableTX'
      TabOrder = 5
      OnClick = CheckBox16Click
    end
    object CheckBox17: TCheckBox
      Left = 16
      Top = 328
      Width = 185
      Height = 25
      Caption = 'Data Register Empty Interrupt'
      TabOrder = 6
      OnClick = CheckBox17Click
    end
    object CheckBox18: TCheckBox
      Left = 16
      Top = 280
      Width = 145
      Height = 25
      Caption = 'RX Complete Interrupt'
      TabOrder = 7
      OnClick = CheckBox18Click
    end
    object CheckBox19: TCheckBox
      Left = 16
      Top = 304
      Width = 161
      Height = 25
      Caption = 'TX Complete Interrupt'
      TabOrder = 8
      OnClick = CheckBox19Click
    end
    object ComboBox6: TComboBox
      Left = 16
      Top = 72
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 9
      Text = 'ComboBox6'
      OnChange = ComboBox6Change
      Items.Strings = (
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '14400'
        '19200'
        '28800'
        '38400'
        '43000'
        '56000'
        '57600'
        '76800'
        '115200')
    end
    object ComboBox7: TComboBox
      Left = 104
      Top = 120
      Width = 89
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
      ItemHeight = 13
      TabOrder = 10
      Text = 'ComboBox7'
      OnChange = ComboBox7Change
      Items.Strings = (
        '5'#20301
        '6'#20301
        '7'#20301
        '8'#20301
        '9'#20301)
    end
    object LabeledEdit2: TLabeledEdit
      Left = 104
      Top = 72
      Width = 89
      Height = 21
      EditLabel.Width = 31
      EditLabel.Height = 13
      EditLabel.Caption = 'UBRR'
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 11
    end
    object ComboBox8: TComboBox
      Left = 16
      Top = 120
      Width = 81
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 12
      Text = 'ComboBox8'
      OnChange = ComboBox8Change
      Items.Strings = (
        #31105#27490
        #20445#30041
        #20598#26657#39564
        #22855#26657#39564)
    end
    object CheckBox20: TCheckBox
      Left = 104
      Top = 240
      Width = 81
      Height = 25
      Caption = 'Rising Edge'
      TabOrder = 13
      OnClick = CheckBox20Click
    end
    object CheckBox22: TCheckBox
      Left = 16
      Top = 240
      Width = 81
      Height = 25
      Caption = 'Synchro'
      TabOrder = 14
      OnClick = CheckBox22Click
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 376
    Top = 304
  end
end