unit1.dfm

delphi 水量PID控制演示程序 图形界面 很直观的演示了PID的全过程

object Form1: TForm1
  Left = 216
  Top = 118
  Width = 743
  Height = 480
  Caption = 'PID'#27700#37327#25511#21046#20223#30495#28436#31034#31995#32479
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    735
    446)
  PixelsPerInch = 96
  TextHeight = 12
  object iPanel1: TiPanel
    Left = 8
    Top = 8
    Width = 321
    Height = 425
    TitleText = 'PID'#27700#37327#25511#21046#20223#30495
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clTeal
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleAlignment = iahCenter
    TitleText_2 = 'PID'#27700#37327#25511#21046#20223#30495
    object Label1: TLabel
      Left = 26
      Top = 148
      Width = 36
      Height = 12
      Hint = #27604#20363#25918#22823#31995#25968
      Caption = #27604#20363#65306
      ParentShowHint = False
      ShowHint = True
    end
    object Label2: TLabel
      Left = 26
      Top = 172
      Width = 36
      Height = 12
      Hint = #31215#20998#26102#38388
      Caption = #31215#20998#65306
      ParentShowHint = False
      ShowHint = True
    end
    object Label3: TLabel
      Left = 26
      Top = 196
      Width = 36
      Height = 12
      Hint = #24494#20998#26102#38388
      Caption = #24494#20998#65306
      ParentShowHint = False
      ShowHint = True
    end
    object Label4: TLabel
      Left = 26
      Top = 221
      Width = 36
      Height = 12
      Hint = #35823#24046#37327
      Caption = #35823#24046#65306
      ParentShowHint = False
      ShowHint = True
    end
    object iPipeOut2: TiPipe
      Left = 31
      Top = 334
      Width = 145
      FlowInterval = 50
      FlowOn = True
      FlowReverse = True
      FlowIndicatorStyle = ipfisTriangle
      FlowIndicatorSize = 6
      FlowIndicatorSpacing = 8
      FlowIndicatorColor = clRed
      FlowIndicatorUseTubeColor = True
      FlowIndicatorHideWhenOff = True
      TubeColor = 8947712
    end
    object iTank1: TiTank
      Left = 142
      Top = 93
      Hint = '5000'#21544#20648#27700#32592
      ShowHint = True
      Position = 3000.000000000000000000
      PositionMax = 5000.000000000000000000
      CurrentMax = 3000.000000000000000000
      TankColor = clSilver
      TankShadowColor = clGray
      PointerStyle = itpsCutOut1
      PointerColor = clRed
      PositionMax_2 = 5000.000000000000000000
    end
    object iPipeIn1: TiPipe
      Left = 31
      Top = 43
      Width = 145
      FlowInterval = 50
      FlowOn = True
      FlowReverse = False
      FlowIndicatorStyle = ipfisTriangle
      FlowIndicatorSize = 6
      FlowIndicatorSpacing = 8
      FlowIndicatorColor = clRed
      FlowIndicatorUseTubeColor = True
      FlowIndicatorHideWhenOff = True
      TubeColor = 8947712
    end
    object iPipeIn2: TiPipe
      Left = 178
      Top = 59
      Width = 17
      Height = 36
      FlowInterval = 50
      FlowOn = True
      FlowReverse = True
      FlowIndicatorStyle = ipfisTriangle
      FlowIndicatorSize = 6
      FlowIndicatorSpacing = 8
      FlowIndicatorColor = clRed
      FlowIndicatorUseTubeColor = True
      FlowIndicatorHideWhenOff = True
      TubeColor = 8947712
    end
    object iPipeJoint1: TiPipeJoint
      Left = 174
      Top = 39
      AutoFrameRate = True
      BackGroundColor = clAqua
    end
    object iPipeOut1: TiPipe
      Left = 178
      Top = 291
      Width = 17
      Height = 40
      FlowInterval = 50
      FlowOn = True
      FlowReverse = True
      FlowIndicatorStyle = ipfisTriangle
      FlowIndicatorSize = 6
      FlowIndicatorSpacing = 8
      FlowIndicatorColor = clRed
      FlowIndicatorUseTubeColor = True
      FlowIndicatorHideWhenOff = True
      TubeColor = 8947712
    end
    object iPipeJoint2: TiPipeJoint
      Left = 174
      Top = 329
      BackGroundColor = clAqua
    end
    object iAnalogDisplayIn: TiAnalogDisplay
      Left = 202
      Top = 42
      Width = 50
      Hint = #36827#27700#38400#38376#24320#24230#65288't/s'#65289
      ShowHint = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Value = 50.000000000000000000
      ErrorActive = False
      ErrorText = 'Error'
      ErrorFont.Charset = DEFAULT_CHARSET
      ErrorFont.Color = clRed
      ErrorFont.Height = -11
      ErrorFont.Name = 'MS Sans Serif'
      ErrorFont.Style = [fsBold]
      ErrorBackGroundColor = clBlack
    end
    object iAnalogDisplayOut: TiAnalogDisplay
      Left = 202
      Top = 332
      Width = 50
      Hint = #20986#27700#38400#38376#24320#24230#65288't/s'#65289
      ShowHint = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Value = 50.000000000000000000
      ErrorActive = False
      ErrorText = 'Error'
      ErrorFont.Charset = DEFAULT_CHARSET
      ErrorFont.Color = clRed
      ErrorFont.Height = -11
      ErrorFont.Name = 'MS Sans Serif'
      ErrorFont.Style = [fsBold]
      ErrorBackGroundColor = clBlack
    end
    object iSliderTank: TiSlider
      Left = 234
      Top = 106
      Width = 65
      Height = 177
      Hint = #27700#31665#27700#20301#35774#23450#20540#65306'2500'
      ShowHint = True
      Position = 2500.000000000000000000
      PositionMax = 5000.000000000000000000
      CurrentMax = 2500.000000000000000000
      OnPositionChange = iSliderTankPositionChange
      KeyArrowStepSize = 1.000000000000000000
      KeyPageStepSize = 10.000000000000000000
      MouseWheelStepSize = 1.000000000000000000
      TickLabelFont.Charset = DEFAULT_CHARSET
      TickLabelFont.Color = clWindowText
      TickLabelFont.Height = -11
      TickLabelFont.Name = 'MS Sans Serif'
      TickLabelFont.Style = []
      TabOrder = 9
      PositionMax_2 = 5000.000000000000000000
      KeyArrowStepSize_2 = 1.000000000000000000
      KeyPageStepSize_2 = 10.000000000000000000
    end
    object iSliderIn: TiSlider
      Left = 30
      Top = 61
      Width = 105
      Height = 57
      Hint = #36827#27700#38400#38376#24320#24230#65288't/s'#65289
      ShowHint = True
      Position = 50.000000000000000000
      PositionMax = 100.000000000000000000
      CurrentMax = 50.000000000000000000
      OnPositionChange = iSliderInPositionChange
      KeyArrowStepSize = 1.000000000000000000
      KeyPageStepSize = 10.000000000000000000
      MouseWheelStepSize = 1.000000000000000000
      Orientation = ioHorizontal
      TickLabelFont.Charset = DEFAULT_CHARSET
      TickLabelFont.Color = clWindowText
      TickLabelFont.Height = -11
      TickLabelFont.Name = 'MS Sans Serif'
      TickLabelFont.Style = []
      TabOrder = 10
      PositionMax_2 = 100.000000000000000000
      KeyArrowStepSize_2 = 1.000000000000000000
      KeyPageStepSize_2 = 10.000000000000000000
    end
    object iSliderOut: TiSlider
      Left = 30
      Top = 352
      Width = 105
      Height = 57
      Hint = #20986#27700#38400#38376#24320#24230#65288't/s'#65289
      ShowHint = True
      Position = 50.000000000000000000
      PositionMax = 100.000000000000000000
      CurrentMax = 50.000000000000000000
      OnPositionChange = iSliderOutPositionChange
      KeyArrowStepSize = 1.000000000000000000
      KeyPageStepSize = 10.000000000000000000
      MouseWheelStepSize = 1.000000000000000000
      Orientation = ioHorizontal
      TickLabelFont.Charset = DEFAULT_CHARSET
      TickLabelFont.Color = clWindowText
      TickLabelFont.Height = -11
      TickLabelFont.Name = 'MS Sans Serif'
      TickLabelFont.Style = []
      TabOrder = 11
      PositionMax_2 = 100.000000000000000000
      KeyArrowStepSize_2 = 1.000000000000000000
      KeyPageStepSize_2 = 10.000000000000000000
    end
    object iAnalogDisplayTank: TiAnalogDisplay
      Left = 146
      Top = 177
      Width = 50
      Hint = #27700#31665#24403#21069#27700#20301
      ShowHint = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Value = 3000.000000000000000000
      OnChange = iAnalogDisplayTankChange
      ErrorActive = False
      ErrorText = 'Error'
      ErrorFont.Charset = DEFAULT_CHARSET
      ErrorFont.Color = clRed
      ErrorFont.Height = -11
      ErrorFont.Name = 'MS Sans Serif'
      ErrorFont.Style = [fsBold]
      ErrorBackGroundColor = clBlack
    end
    object LMDExtSpinEditP: TLMDExtSpinEdit
      Left = 63
      Top = 144
      Width = 60
      Height = 21
      Hint = #27604#20363#25918#22823#31995#25968
      Bevel.Mode = bmWindows
      Caret.BlinkRate = 530
      CtlXP = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      CustomButtons = <>
      Step = 0.100000000000000000
      MaxValue = 100.000000000000000000
      EditType = ntFloat
      Value = 0.800000000000000000
      FractionStep = 0.100000000000000000
      DateTime = 0.800000000000000000
    end
    object LMDExtSpinEditI: TLMDExtSpinEdit
      Left = 63
      Top = 168
      Width = 60
      Height = 21
      Hint = #31215#20998#26102#38388
      Bevel.Mode = bmWindows
      Caret.BlinkRate = 530
      CtlXP = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 14
      CustomButtons = <>
      Step = 0.100000000000000000