unit1.dfm

在Delphi 環境下編寫的串口調試程序 ,能與下位機(MSP430F147)實現串口485通訊.完成對下位機狀態的檢測.校準. 對於使用Delphi的串口編程有一定的作用.

object Form1: TForm1
  Left = 179
  Top = 110
  Width = 757
  Height = 626
  Caption = 'Form1'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 288
    Top = 8
    Width = 168
    Height = 24
    Caption = 'CL6882'#26657#20934#36719#20214
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clNone
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 392
    Top = 216
    Width = 73
    Height = 25
    AutoSize = False
    Caption = #20027#26426#22320#22336
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 48
    Width = 153
    Height = 57
    Caption = #31532#19968#27493':2V'#30005#21387#26657#20934
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 16
      Top = 24
      Width = 65
      Height = 17
      Caption = '+2.5V'
      TabOrder = 0
    end
    object RadioButton2: TRadioButton
      Left = 80
      Top = 24
      Width = 57
      Height = 17
      Caption = '-2.5V'
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 184
    Top = 64
    Width = 73
    Height = 33
    Caption = '2V'#26657#20934
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 120
    Width = 153
    Height = 57
    Caption = #31532#20108#27493':6V'#30005#21387#26657#20934
    TabOrder = 2
    object RadioButton3: TRadioButton
      Left = 16
      Top = 24
      Width = 65
      Height = 17
      Caption = '+7.5V'
      TabOrder = 0
    end
    object RadioButton4: TRadioButton
      Left = 80
      Top = 24
      Width = 57
      Height = 17
      Caption = '-7.5V'
      TabOrder = 1
    end
  end
  object Button2: TButton
    Left = 184
    Top = 136
    Width = 73
    Height = 33
    Caption = '6V'#26657#20934
    TabOrder = 3
    OnClick = Button2Click
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 192
    Width = 153
    Height = 57
    Caption = #31532#19977#27493':12V'#30005#21387#26657#20934
    TabOrder = 4
    object RadioButton5: TRadioButton
      Left = 16
      Top = 24
      Width = 65
      Height = 17
      Caption = '+15V'
      TabOrder = 0
    end
    object RadioButton6: TRadioButton
      Left = 80
      Top = 24
      Width = 57
      Height = 17
      Caption = '-15V'
      TabOrder = 1
    end
  end
  object Button3: TButton
    Left = 184
    Top = 208
    Width = 73
    Height = 33
    Caption = '12V'#26657#20934
    TabOrder = 5
    OnClick = Button3Click
  end
  object GroupBox4: TGroupBox
    Left = 448
    Top = 48
    Width = 153
    Height = 57
    Caption = #31532#22235#27493':'#28201#24230#26657#20934
    TabOrder = 6
    object RadioButton7: TRadioButton
      Left = 16
      Top = 24
      Width = 65
      Height = 17
      Caption = '+0.5V'
      TabOrder = 0
    end
    object RadioButton8: TRadioButton
      Left = 80
      Top = 24
      Width = 57
      Height = 17
      Caption = '+1V'
      TabOrder = 1
    end
  end
  object Button4: TButton
    Left = 616
    Top = 64
    Width = 73
    Height = 33
    Caption = #28201#24230#26657#20934
    TabOrder = 7
    OnClick = Button4Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 392
    Width = 743
    Height = 153
    BevelEdges = [beLeft]
    ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20116#31508
    Lines.Strings = (
      '')
    TabOrder = 8
  end
  object GroupBox5: TGroupBox
    Left = 0
    Top = 264
    Width = 145
    Height = 57
    Caption = '+2.5v'#33539#22260'176~386'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    object Label2: TLabel
      Left = 16
      Top = 15
      Width = 113
      Height = 34
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNone
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      OnClick = Label2Click
    end
  end
  object GroupBox6: TGroupBox
    Left = 0
    Top = 328
    Width = 145
    Height = 57
    Caption = '-2.5V'#33539#22260'3708~3918'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    object Label3: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox7: TGroupBox
    Left = 160
    Top = 264
    Width = 145
    Height = 57
    Caption = '+7.5V'#33539#22260'96~306'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    object Label4: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox8: TGroupBox
    Left = 160
    Top = 328
    Width = 145
    Height = 57
    Caption = '-7.5V'#33539#22260'3789~3999'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    object Label5: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox9: TGroupBox
    Left = 320
    Top = 264
    Width = 145
    Height = 57
    Caption = '+15V'#33539#22260'104~314'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    object Label6: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox10: TGroupBox
    Left = 320
    Top = 328
    Width = 145
    Height = 57
    Caption = '-15V'#33539#22260'3790~3900'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    object Label7: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox12: TGroupBox
    Left = 472
    Top = 264
    Width = 145
    Height = 57
    Caption = '+0.5V'#33539#22260'1538~1738'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    object Label8: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object GroupBox11: TGroupBox
    Left = 472
    Top = 328
    Width = 145
    Height = 57
    Caption = '+1V'#33539#22260'3176~3376'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    object Label9: TLabel
      Left = 16
      Top = 16
      Width = 113
      Height = 33
      Alignment = taCenter
      AutoSize = False
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object Button5: TButton
    Left = 632
    Top = 216
    Width = 105
    Height = 41
    Caption = #30005#21387#29366#24577#26597#35810
    TabOrder = 17
    OnClick = N2Click
  end
  object Button6: TButton
    Left = 632
    Top = 336
    Width = 105
    Height = 41
    Caption = #26657#39564#26816#27979
    TabOrder = 18
    OnClick = Button6Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 548
    Width = 749
    Height = 24
    Panels = <
      item
        Width = 50
      end
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object ComboBox1: TComboBox
    Left = 464
    Top = 216
    Width = 57
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20116#31508
    ItemHeight = 13
    ParentFont = False
    TabOrder = 20
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11')
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object N1: TMenuItem
      Caption = #20018#21475#35774#32622
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #30005#27744#29366#24577#26597#35810
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #20851#20110
      OnClick = N3Click
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 72
    Top = 8
  end
end