pid.frm

用vb编写的pid控制程序

      BorderColor     =   &H000000C0&
      BorderWidth     =   2
      Height          =   3135
      Left            =   3690
      Top             =   1020
      Width           =   195
   End
   Begin VB.Label Label4 
      Caption         =   "Position 0-100%"
      Height          =   225
      Left            =   900
      TabIndex        =   5
      Top             =   4920
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "Valve"
      Height          =   255
      Left            =   1680
      TabIndex        =   3
      Top             =   4320
      Width           =   465
   End
   Begin VB.Shape Shape5 
      BorderWidth     =   2
      Height          =   435
      Left            =   2460
      Top             =   5010
      Width           =   315
   End
   Begin VB.Shape Shape4 
      BorderWidth     =   2
      Height          =   255
      Left            =   2460
      Top             =   4140
      Width           =   315
   End
   Begin VB.Line Line8 
      BorderWidth     =   2
      X1              =   2400
      X2              =   2400
      Y1              =   990
      Y2              =   420
   End
   Begin VB.Line Line7 
      BorderWidth     =   2
      X1              =   2190
      X2              =   2190
      Y1              =   630
      Y2              =   1020
   End
   Begin VB.Line Line6 
      BorderWidth     =   2
      X1              =   1350
      X2              =   2190
      Y1              =   630
      Y2              =   630
   End
   Begin VB.Line Line5 
      BorderWidth     =   2
      X1              =   1350
      X2              =   2400
      Y1              =   420
      Y2              =   420
   End
   Begin VB.Shape Shape3 
      BorderColor     =   &H00800000&
      BorderWidth     =   3
      Height          =   615
      Index           =   1
      Left            =   2220
      Top             =   4380
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "Position 0-100%"
      Height          =   255
      Left            =   210
      TabIndex        =   2
      Top             =   1200
      Width           =   1185
   End
   Begin VB.Label Label1 
      Caption         =   "Manual Valve"
      Height          =   225
      Left            =   1380
      TabIndex        =   0
      Top             =   150
      Width           =   1065
   End
   Begin VB.Shape Shape3 
      BorderColor     =   &H00800000&
      BorderWidth     =   3
      Height          =   615
      Index           =   0
      Left            =   600
      Top             =   240
      Width           =   735
   End
   Begin VB.Shape Shape2 
      BorderWidth     =   2
      FillColor       =   &H00FFFF00&
      FillStyle       =   0  'Solid
      Height          =   255
      Left            =   0
      Top             =   420
      Width           =   585
   End
   Begin VB.Shape Shape1 
      FillColor       =   &H0000FFFF&
      FillStyle       =   0  'Solid
      Height          =   3100
      Index           =   1
      Left            =   3690
      Top             =   1020
      Width           =   165
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C000&
      FillColor       =   &H00FFFF00&
      FillStyle       =   0  'Solid
      Height          =   3015
      Index           =   0
      Left            =   1680
      Top             =   1080
      Width           =   1995
   End
   Begin VB.Line Line4 
      BorderWidth     =   4
      X1              =   3660
      X2              =   1590
      Y1              =   4140
      Y2              =   4140
   End
   Begin VB.Line Line3 
      BorderWidth     =   4
      X1              =   3660
      X2              =   3660
      Y1              =   1050
      Y2              =   4140
   End
   Begin VB.Line Line2 
      BorderWidth     =   4
      X1              =   1590
      X2              =   3660
      Y1              =   1020
      Y2              =   1020
   End
   Begin VB.Line Line1 
      BorderWidth     =   4
      X1              =   1590
      X2              =   1590
      Y1              =   1020
      Y2              =   4140
   End
   Begin VB.Menu mnFile 
      Caption         =   "File"
      Begin VB.Menu mnExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnInstructions 
      Caption         =   "Instructions"
   End
   Begin VB.Menu mnAbout 
      Caption         =   "About"
      Begin VB.Menu mnLine1 
         Caption         =   "By Max Seim - [e-mail]"
      End
      Begin VB.Menu mnLine2 
         Caption         =   "Simple PID loop simulator - Version 01.18.02"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
'  Simple PID Loop Simulator ... for educational use.
'
'  By Max Seim,  [e-mail]
'     Systems Control Technician, 3M Company, Cottage Grove, Minnesota
'
Dim invalve As Integer
Dim outvalve As Integer
Dim mode As Integer '0=manual, 1=auto
Dim error As Integer
Dim stability As Integer '0=stable, 1=unstable
Dim supply As Integer
Dim x As Integer
Dim y As Integer
Dim gain As Long
Dim reset As Long
Dim rate As Long
Dim output As Integer
Dim pv As Long
Dim s1 As Integer
Dim s2 As Integer
Dim outgraph(100) As Integer
Dim pvgraph(100) As Integer
Dim inputd As Long
Dim inputdf As Long
Dim inputlast As Long
Dim feedback As Long
Dim dfilter As Long
Dim sp As Long

Private Sub Command1_Click() ' Go into MANUAL control
Shape12.FillStyle = 0
Shape13.FillStyle = 1
mode = 0
HScroll2.Enabled = True
End Sub

Private Sub Command2_Click() ' Go into AUTO control
Shape12.FillStyle = 1
Shape13.FillStyle = 0
mode = 1
HScroll2.Enabled = False
End Sub

Private Sub Command3_Click() ' Toggle the Unstable Water Supply
'
If stability = 0 Then
   Shape19.FillStyle = 0
   stability = 1
   Exit Sub
End If
If stability = 1 Then
   Shape19.FillStyle = 1
   stability = 0
   supply = 2000
End If
Label38.Caption = supply
End Sub

Private Sub Form_load()
' center the form
Form1.Left = (Screen.Width / 2) - (Form1.Width / 2)
Form1.Top = (Screen.Height / 2) - (Form1.Height / 2)

' Initialize the Sliders and other variables
VScroll1.Value = 0
Shape1(1).Top = (3100 - VScroll1.Value) + 1040
Shape1(1).Height = VScroll1.Value
Shape1(0).Top = (3100 - pv) + 1030
Shape1(0).Height = pv
Label12.Caption = VScroll1.Value

supply = 2000
Label38.Caption = supply
HScroll1.Value = 100
Label13.Caption = HScroll1.Value
invalve = (HScroll1.Value * (supply / 100)) / 60

outvalve = 0
Label14.Caption = 0
Text1.Text = pv

   Shape12.FillStyle = 1
   Shape13.FillStyle = 0
   mode = 1
   HScroll2.Enabled = False

gain = Text2.Text
reset = Text3.Text
rate = Text4.Text
VScroll1.Value = 1500
Shape1(1).Top = (3100 - VScroll1.Value) + 1040
Shape1(1).Height = VScroll1.Value
Label12.Caption = VScroll1.Value
sp = VScroll1.Value

Picture1.Cls
Picture1.ScaleMode = 3
Picture1.ScaleHeight = 3105
Picture1.ScaleWidth = 100
Picture1.AutoRedraw = True
Picture1.ForeColor = vbCyan
Picture1.DrawStyle = 0
Picture1.DrawWidth = 2

Picture2.Cls
Picture2.ScaleMode = 3
Picture2.ScaleHeight = 105
Picture2.ScaleWidth = 100
Picture2.AutoRedraw = True
Picture2.ForeColor = vbRed
Picture2.DrawStyle = 0
Picture2.DrawWidth = 2
End Sub

Private Sub HScroll1_Change() ' Slider control for INLET VALVE POSITION
Label13.Caption = HScroll1.Value
invalve = (HScroll1.Value * (supply / 100)) / 60
End Sub

Private Sub HScroll2_Change() ' Slider control for OUTLET VALVE POSITION
Label14.Caption = HScroll2.Value
outvalve = (HScroll2.Value * 30) / 60
End Sub

Private Sub mnExit_Click() ' Exit program
Erase outgraph
Erase pvgraph
Unload Me
End Sub

Private Sub mnInstructions_Click() ' Show instruction form
instructions.Show
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
   If Text2 < 0 Then
   Text2 = 0
   End If
      If Text2 > 100 Then
      Text2 = 100
      End If
gain = Val(Text2)
   If Text3 < 0 Then
   Text3 = 0
   End If
      If Text3 > 120 Then
      Text3 = 120
      End If
reset = Val(Text3)
   If Text4 < 0 Then
   Text4 = 0
   End If
      If Text4 > 120 Then
      Text4 = 120
      End If
rate = Val(Text4)

  If pv < 3101 Then
     pv = pv + invalve
  End If
     If pv > 0 Then
       pv = pv - outvalve
     End If
Text1.Text = pv
error = sp - pv
Label30.Caption = error
Label38.Caption = supply
tank
If stability = 1 Then
watersupply
   invalve = (HScroll1.Value * (supply / 100)) / 60
End If
  If mode = 1 Then
     pidloop
  End If

' Graph the PV, Process Variable
Picture1.Cls
pvgraph(100) = pv
For x = 0 To 99
pvgraph(x) = pvgraph(x + 1)
  Picture1.PSet (x, 3000 - (pvgraph(x)))
Next x

' Display the SP line (yellow)
Picture1.Line (0, 3000 - sp)-(100, 3000 - sp), vbYellow

' Graph the OUTPUT VALVE position
Picture2.Cls
outgraph(100) = outvalve
For x = 0 To 99
outgraph(x) = outgraph(x + 1)
  Picture2.PSet (x, 100 - (outgraph(x) * 2))
Next x
End Sub

Private Sub VScroll1_Change() ' Slider control for SP (setpoint)
Shape1(1).Top = (3100 - VScroll1.Value) + 1040
Shape1(1).Height = VScroll1.Value
Label12.Caption = VScroll1.Value
sp = VScroll1.Value
End Sub
Private Sub tank() ' Draw the water tank animation
If HScroll1.Value > 0 Then
   Shape7.FillStyle = 0
   Shape8.FillStyle = 0
   Shape9.FillStyle = 0
  Else: Shape7.FillStyle = 1
        Shape8.FillStyle = 1
        Shape9.FillStyle = 1
End If
If pv > -1 Then
   Shape1(0).Top = (3100 - pv) + 1030
   Shape1(0).Height = pv
End If
  If (pv > 0) Or (HScroll1.Value > 0) Then
  Shape10.FillStyle = 0
    Else: Shape10.FillStyle = 1
  End If
     If (HScroll2.Value > 0) And (pv > 0) Then
     Shape11.FillStyle = 0
       Else: Shape11.FillStyle = 1
     End If
End Sub
Private Sub watersupply() ' Create an unstable water supply
  Randomize
  s1 = Int(Rnd(1) * 20 + 1)
     Randomize
     s2 = Int(Rnd(1) * 1000 + 1)
If s2 < 100 Then
  supply = supply + s1
End If
If s2 > 900 Then
  supply = supply - s1
End If
   If supply < 500 Then
   supply = 500
   End If
      If supply > 2500 Then
      supply = 2500
      End If
      
End Sub

Private Sub pidloop()
dfilter = 10 ' Filter value to scale down derivative effect.
inputd = pv + (inputlast - pv) * (rate / 60)
inputlast = pv
inputdf = inputdf + (inputd - inputdf) * dfilter / 60
output = (sp - inputdf) * (gain / 100) + feedback
If output > 100 Then ' clamp output valve between 0 and 100%
  output = 100
End If
If output < 0 Then
  output = 0
End If
HScroll2.Value = 100 - output ' Change slider value (AUTO MODE)
Picture4.Width = HScroll2.Value * 20
Label14.Caption = HScroll2.Value
feedback = feedback - (feedback - output) * reset / 60
End Sub