mainfun.dfm

串口数据采集的上位机源码

object frmMain: TfrmMain
  Left = 437
  Top = 183
  AutoScroll = False
  Caption = #25968#25454#37319#38598#20998#26512#24212#29992#31243#24207
  ClientHeight = 495
  ClientWidth = 804
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = frmMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ct: TChart
    Left = 24
    Top = -32
    Width = 745
    Height = 417
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #25968#25454#37319#38598#24212#29992#31243#24207)
    BottomAxis.Automatic = False
    BottomAxis.AutomaticMaximum = False
    BottomAxis.AutomaticMinimum = False
    BottomAxis.ExactDateTime = False
    BottomAxis.Increment = 1
    BottomAxis.Maximum = 10
    BottomAxis.MinorTickCount = 10
    BottomAxis.MinorTickLength = 3
    BottomAxis.Title.Caption = #26102#38388
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.ExactDateTime = False
    LeftAxis.Maximum = 1024
    View3D = False
    BorderStyle = bsSingle
    TabOrder = 0
    object Series1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Title = #36890#36947'0'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clGreen
      Title = #36890#36947'1'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series3: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clYellow
      Title = #36890#36947'2'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series4: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clBlue
      Title = #36890#36947'3'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series5: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clWhite
      Title = #36890#36947'4'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
  object tmct: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmctTimer
    Left = 336
    Top = 8
  end
  object frmMenu: TMainMenu
    Left = 264
    object N4: TMenuItem
      Caption = #25805#20316
      object mnStartSample: TMenuItem
        Caption = #24320#22987#37319#38598
        OnClick = mnStartSampleClick
      end
      object mnEndSample: TMenuItem
        Caption = #20572#27490#37319#38598
        OnClick = mnEndSampleClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N9Click
      end
    end
    object N1: TMenuItem
      Caption = #35774#32622
      object N2: TMenuItem
        Caption = #26174#31034#35774#32622'...'
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #37319#26679#35774#32622'...'
        OnClick = N3Click
      end
      object N5: TMenuItem
        Caption = #31995#32479#35774#32622'...'
        OnClick = N5Click
      end
    end
    object N10: TMenuItem
      Caption = #25968#25454#22788#29702
      object FFT1: TMenuItem
        Caption = 'FFT'
        OnClick = FFT1Click
      end
    end
  end
end