unit1.dfm

超音波測距程式

      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
    end
    object Edt_Sonar_5a: TEdit
      Left = 33
      Top = 130
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
    end
    object Edt_Sonar_4a: TEdit
      Left = 33
      Top = 111
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
    end
    object Edt_Distance_4a: TEdit
      Left = 72
      Top = 111
      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 = 20
    end
    object Edt_Distance_5a: TEdit
      Left = 72
      Top = 130
      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 = 21
    end
    object Edt_Distance_6a: TEdit
      Left = 72
      Top = 150
      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 = 22
    end
    object Edt_Distance_7a: TEdit
      Left = 72
      Top = 169
      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 = 23
    end
    object Edt_Sonar_7b: TEdit
      Left = 130
      Top = 169
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 24
    end
    object Edt_Sonar_6b: TEdit
      Left = 130
      Top = 150
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 25
    end
    object Edt_Sonar_5b: TEdit
      Left = 130
      Top = 130
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 26
    end
    object Edt_Sonar_4b: TEdit
      Left = 130
      Top = 111
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 27
    end
    object Edt_Distance_4b: TEdit
      Left = 169
      Top = 111
      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 = 28
    end
    object Edt_Distance_5b: TEdit
      Left = 169
      Top = 130
      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 = 29
    end
    object Edt_Distance_6b: TEdit
      Left = 169
      Top = 150
      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 = 30
    end
    object Edt_Distance_7b: TEdit
      Left = 169
      Top = 169
      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 = 31
    end
    object Edt_Sonar_11a: TEdit
      Left = 33
      Top = 260
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 32
    end
    object Edt_Sonar_10a: TEdit
      Left = 33
      Top = 241
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 33
    end
    object Edt_Sonar_9a: TEdit
      Left = 33
      Top = 221
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 34
    end
    object Edt_Sonar_8a: TEdit
      Left = 33
      Top = 202
      Width = 40
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 35
    end
    object Edt_Distance_8a: TEdit
      Left = 72
      Top = 202
      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 = 36
    end
    object Edt_Distance_9a: TEdit
      Left = 72
      Top = 221
      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 = 37
    end
    object Edt_Distance_10a: TEdit
      Left = 72
      Top = 241
      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 = 38
    end
    object Edt_Distance_11a: TEdit
      Left = 72
      Top = 260
      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 = 39
    end
    object Edt_Sonar_11b: TEdit
      Left = 130
      Top = 260
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 40
    end
    object Edt_Sonar_10b: TEdit
      Left = 130
      Top = 241
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 41
    end
    object Edt_Sonar_9b: TEdit
      Left = 130
      Top = 221
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 42
    end
    object Edt_Sonar_8b: TEdit
      Left = 130
      Top = 202
      Width = 41
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 43
    end
    object Edt_Distance_8b: TEdit
      Left = 169
      Top = 202
      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 = 44
    end
    object Edt_Distance_9b: TEdit
      Left = 169
      Top = 221
      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 = 45
    end
    object Edt_Distance_10b: TEdit
      Left = 169
      Top = 241
      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 = 46
    end
    object Edt_Distance_11b: TEdit
      Left = 169
      Top = 260
      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 = 47
    end
  end
  object Memo3: TMemo
    Left = 7
    Top = 306
    Width = 117
    Height = 98
    TabOrder = 3
  end
  object Memo4: TMemo
    Left = 124
    Top = 306
    Width = 124
    Height = 98
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 364
    Top = 0
    Width = 421
    Height = 405
    Color = clInfoBk
    TabOrder = 5
    object PaintBox1: TPaintBox
      Left = 8
      Top = 0
      Width = 406
      Height = 401
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
  end
  object btClear: TButton
    Left = 254
    Top = 377
    Width = 104
    Height = 28
    Caption = #28165#38500
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = btClearClick
  end
  object btShow_Axis: TButton
    Left = 254
    Top = 345
    Width = 104
    Height = 26
    Caption = #30059#24231#27161#36600
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = btShow_AxisClick
  end
  object btSonar: TButton
    Left = 254
    Top = 312
    Width = 104
    Height = 30
    Caption = 'Sonar'#30332#23556#32218
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #32048#26126#39636
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = btSonarClick
  end
  object Panel4: TPanel
    Left = 254
    Top = 13
    Width = 104
    Height = 287
    TabOrder = 9
    object chkb_0: TCheckBox
      Left = 20
      Top = 13
      Width = 65
      Height = 17
      Caption = 'Sonar-0'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object chkb_1: TCheckBox
      Left = 20
      Top = 33
      Width = 62
      Height = 17
      Caption = 'Sonar-1'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object chkb_2: TCheckBox
      Left = 20
      Top = 52
      Width = 69
      Height = 17
      Caption = 'Sonar-2'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object chkb_3: TCheckBox
      Left = 20
      Top = 72
      Width = 65
      Height = 17
      Caption = 'Sonar-3'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object chkb_7: TCheckBox
      Left = 20
      Top = 163
      Width = 65
      Height = 17
      Caption = 'Sonar-7'
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object chkb_4: TCheckBox
      Left = 20
      Top = 104
      Width = 65
      Height = 17
      Caption = 'Sonar-4'
      Checked = True
      State = cbChecked
      TabOrder = 5
    end
    object chkb_5: TCheckBox
      Left = 20
      Top = 124
      Width = 62
      Height = 17
      Caption = 'Sonar-5'
      Checked = True
      State = cbChecked
      TabOrder = 6
    end
    object chkb_6: TCheckBox
      Left = 20
      Top = 143
      Width = 69
      Height = 17
      Caption = 'Sonar-6'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
    object chkb_11: TCheckBox
      Left = 20
      Top = 254
      Width = 65
      Height = 17
      Caption = 'Sonar-11'
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object chkb_8: TCheckBox
      Left = 20
      Top = 195
      Width = 65
      Height = 17
      Caption = 'Sonar-8'
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
    object chkb_9: TCheckBox
      Left = 20
      Top = 215
      Width = 62
      Height = 17
      Caption = 'Sonar-9'
      Checked = True
      State = cbChecked
      TabOrder = 10
    end
    object chkb_10: TCheckBox
      Left = 20
      Top = 234
      Width = 69
      Height = 17
      Caption = 'Sonar-10'
      Checked = True
      State = cbChecked
      TabOrder = 11
    end
  end
  object Comm1: TComm
    DeviceName = 'Com1'
    MonitorEvents = [evBreak, evError, evRxChar, evRxFlag, evTxEmpty]
    FlowControl = fcNone
    OnBreak = Comm1Break
    OnCts = Comm1Cts
    OnDsr = Comm1Dsr
    OnRing = Comm1Ring
    OnRlsd = Comm1Rlsd
    OnError = Comm1Error
    OnRxChar = Comm1RxChar
    OnRxFlag = Comm1RxFlag
    OnTxEmpty = Comm1TxEmpty
    Left = 513
    Top = 464
  end
  object Comm2: TComm
    DeviceName = 'Com2'
    MonitorEvents = [evBreak, evCts, evDsr, evError, evRing, evRlsd, evRxChar, evRxFlag, evTxEmpty]
    Left = 176
    Top = 65528
  end
end