unit1.dfm

超音波測距程式

object Form1: TForm1
  Left = 278
  Top = 222
  Width = 808
  Height = 580
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 504
    Top = 408
    Width = 281
    Height = 141
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 8
      Width = 47
      Height = 13
      Caption = 'Serial port'
    end
    object Label2: TLabel
      Left = 17
      Top = 32
      Width = 54
      Height = 13
      Caption = 'Baud_Rate'
    end
    object Label3: TLabel
      Left = 30
      Top = 64
      Width = 41
      Height = 13
      Caption = 'Data_Bit'
    end
    object Label4: TLabel
      Left = 45
      Top = 88
      Width = 26
      Height = 13
      Caption = 'Parity'
    end
    object Label5: TLabel
      Left = 31
      Top = 112
      Width = 40
      Height = 13
      Caption = 'Stop_Bit'
    end
    object BaudRateIndex: TComboBox
      Left = 80
      Top = 33
      Width = 73
      Height = 21
      Style = csDropDownList
      BiDiMode = bdLeftToRight
      ItemHeight = 13
      ParentBiDiMode = False
      TabOrder = 0
      OnChange = BaudRateIndexChange
      Items.Strings = (
        'br110'
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '14400'
        '19200'
        '38400'
        '56000'
        '57600'
        '115200'
        '128000'
        '256000')
    end
    object DataBitIndex: TComboBox
      Left = 80
      Top = 58
      Width = 73
      Height = 21
      Style = csDropDownList
      BiDiMode = bdLeftToRight
      ItemHeight = 13
      ParentBiDiMode = False
      TabOrder = 1
      OnChange = BaudRateIndexChange
      Items.Strings = (
        '4'
        '5'
        '6'
        '7'
        '8')
    end
    object ParityIndex: TComboBox
      Left = 80
      Top = 83
      Width = 73
      Height = 21
      Style = csDropDownList
      BiDiMode = bdLeftToRight
      ItemHeight = 13
      ParentBiDiMode = False
      TabOrder = 2
      OnChange = BaudRateIndexChange
      Items.Strings = (
        'None'
        'Odd'
        'Even'
        'Mark'
        'Space')
    end
    object StopBitIndex: TComboBox
      Left = 80
      Top = 108
      Width = 73
      Height = 21
      Style = csDropDownList
      BiDiMode = bdLeftToRight
      ItemHeight = 13
      ParentBiDiMode = False
      TabOrder = 3
      OnChange = BaudRateIndexChange
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object PortIndex: TComboBox
      Left = 80
      Top = 8
      Width = 73
      Height = 21
      Style = csDropDownList
      BiDiMode = bdLeftToRight
      ItemHeight = 13
      ParentBiDiMode = False
      TabOrder = 4
      Items.Strings = (
        'Com1'
        'Com2'
        'Com3'
        'Com4')
    end
    object OpenPort: TButton
      Left = 184
      Top = 8
      Width = 89
      Height = 57
      Caption = 'OpenPort'
      TabOrder = 5
      OnClick = OpenPortClick
    end
    object ClosePort: TButton
      Left = 182
      Top = 72
      Width = 91
      Height = 57
      Caption = 'ClosePort'
      Enabled = False
      TabOrder = 6
      OnClick = ClosePortClick
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 408
    Width = 489
    Height = 141
    Caption = 'Panel3'
    TabOrder = 1
    object rbRecieveASCII: TRadioButton
      Left = 8
      Top = 16
      Width = 49
      Height = 17
      Caption = 'ASCII'
      TabOrder = 2
    end
    object rbRecieveHEX: TRadioButton
      Left = 8
      Top = 48
      Width = 49
      Height = 17
      Caption = 'HEX'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object Memo1: TMemo
      Left = 56
      Top = 8
      Width = 209
      Height = 129
      TabOrder = 0
    end
    object Memo2: TMemo
      Left = 264
      Top = 8
      Width = 105
      Height = 129
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 384
      Top = 12
      Width = 97
      Height = 21
      TabOrder = 4
      Text = 'FF'
    end
    object Edit2: TEdit
      Left = 384
      Top = 116
      Width = 97
      Height = 21
      TabOrder = 5
    end
    object Button1: TButton
      Left = 384
      Top = 48
      Width = 97
      Height = 57
      Caption = 'HEX to INT'
      TabOrder = 6
      OnClick = Button1Click
    end
  end
  object Sonar: TGroupBox
    Left = 8
    Top = 4
    Width = 240
    Height = 296
    BiDiMode = bdLeftToRight
    Caption = 'Sonar'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Label6: TLabel
      Left = 7
      Top = 20
      Width = 19
      Height = 16
      Caption = 'S0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 7
      Top = 39
      Width = 19
      Height = 16
      Caption = 'S1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 7
      Top = 59
      Width = 19
      Height = 16
      Caption = 'S2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 7
      Top = 78
      Width = 19
      Height = 16
      Caption = 'S3'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 7
      Top = 111
      Width = 19
      Height = 16
      Caption = 'S4'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 7
      Top = 130
      Width = 19
      Height = 16
      Caption = 'S5'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 7
      Top = 150
      Width = 19
      Height = 16
      Caption = 'S6'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 7
      Top = 169
      Width = 19
      Height = 16
      Caption = 'S7'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 7
      Top = 202
      Width = 19
      Height = 16
      Caption = 'S8'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 7
      Top = 221
      Width = 19
      Height = 16
      Caption = 'S9'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label16: TLabel
      Left = 7
      Top = 241
      Width = 27
      Height = 16
      Caption = 'S10'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label17: TLabel
      Left = 7
      Top = 260
      Width = 27
      Height = 16
      Caption = 'S11'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edt_Sonar_2a: TEdit
      Left = 33
      Top = 59
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edt_Sonar_3a: TEdit
      Left = 33
      Top = 78
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Edt_Sonar_0a: TEdit
      Left = 33
      Top = 20
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Edt_Sonar_1a: TEdit
      Left = 33
      Top = 39
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Edt_Sonar_2b: TEdit
      Left = 130
      Top = 59
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Edt_Sonar_3b: TEdit
      Left = 130
      Top = 78
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Edt_Sonar_0b: TEdit
      Left = 130
      Top = 20
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object Edt_Sonar_1b: TEdit
      Left = 130
      Top = 39
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object Edt_Distance_1a: TEdit
      Left = 72
      Top = 39
      Width = 56
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object Edt_Distance_1b: TEdit
      Left = 169
      Top = 39
      Width = 57
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object Edt_Distance_2a: TEdit
      Left = 72
      Top = 59
      Width = 56
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object Edt_Distance_2b: TEdit
      Left = 169
      Top = 59
      Width = 57
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object Edt_Distance_0a: TEdit
      Left = 72
      Top = 20
      Width = 56
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
    object Edt_Distance_0b: TEdit
      Left = 169
      Top = 20
      Width = 57
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
    end
    object Edt_Distance_3a: TEdit
      Left = 72
      Top = 78
      Width = 56
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
    end
    object Edt_Distance_3b: TEdit
      Left = 169
      Top = 78
      Width = 57
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
    end
    object Edt_Sonar_7a: TEdit
      Left = 33
      Top = 169
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
    end
    object Edt_Sonar_6a: TEdit
      Left = 33
      Top = 150
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET