📄 pid.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00C0C0C0&
Caption = "Simple PID Loop Simulator - Industrial Level Control ... mlseim@mmm.com"
ClientHeight = 7020
ClientLeft = 3090
ClientTop = 2715
ClientWidth = 9420
LinkTopic = "Form1"
ScaleHeight = 7020
ScaleWidth = 9420
Begin VB.CommandButton Command3
Caption = "Create unstable water supply"
Height = 435
Left = 90
TabIndex = 46
Top = 5790
Width = 1275
End
Begin VB.PictureBox Picture2
BackColor = &H00000000&
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 1125
Left = 5190
ScaleHeight = 71
ScaleMode = 3 'Pixel
ScaleWidth = 271
TabIndex = 45
Top = 5850
Width = 4125
End
Begin VB.PictureBox Picture1
BackColor = &H00000000&
Height = 1305
Left = 5160
ScaleHeight = 83
ScaleMode = 3 'Pixel
ScaleWidth = 271
TabIndex = 44
Top = 4080
Width = 4125
End
Begin VB.CommandButton Command2
Caption = "Auto Control"
Height = 315
Left = 5100
TabIndex = 27
Top = 540
Width = 1245
End
Begin VB.CommandButton Command1
Caption = "Manual Control"
Height = 315
Left = 5100
TabIndex = 26
Top = 180
Width = 1245
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6000
TabIndex = 20
Text = "10"
Top = 1800
Width = 645
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6000
TabIndex = 19
Text = "3"
Top = 1410
Width = 645
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6000
TabIndex = 18
Text = "30"
Top = 990
Width = 615
End
Begin VB.Timer Timer1
Interval = 100
Left = 90
Top = 3810
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 660
TabIndex = 11
Top = 2670
Width = 675
End
Begin VB.VScrollBar VScroll1
Height = 3825
Left = 4020
Max = 0
Min = 3100
TabIndex = 7
Top = 690
Width = 255
End
Begin VB.HScrollBar HScroll2
Height = 255
Left = 810
Max = 100
TabIndex = 4
Top = 4650
Width = 1365
End
Begin VB.HScrollBar HScroll1
Height = 255
Left = 90
Max = 100
TabIndex = 1
Top = 930
Width = 1425
End
Begin VB.Label Label39
Caption = $"pid.frx":0000
ForeColor = &H00808000&
Height = 675
Left = 120
TabIndex = 54
Top = 6360
Width = 4545
End
Begin VB.Label Label15
Caption = $"pid.frx":009F
ForeColor = &H00808000&
Height = 795
Left = 6840
TabIndex = 53
Top = 150
Width = 2535
End
Begin VB.Line Line39
BorderWidth = 2
X1 = 30
X2 = 9330
Y1 = 30
Y2 = 30
End
Begin VB.Label Label43
BackColor = &H00C0C0C0&
Caption = "Process Variable - PV"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6210
TabIndex = 52
Top = 3840
Width = 1935
End
Begin VB.Label Label42
Caption = "Output Valve Position"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 6240
TabIndex = 51
Top = 5610
Width = 1905
End
Begin VB.Label Label41
Caption = "100%"
Height = 285
Left = 4740
TabIndex = 50
Top = 5850
Width = 435
End
Begin VB.Label Label40
Caption = "0%"
Height = 315
Left = 4890
TabIndex = 49
Top = 6750
Width = 285
End
Begin VB.Label Label38
ForeColor = &H00FF0000&
Height = 225
Left = 60
TabIndex = 48
Top = 1440
Width = 435
End
Begin VB.Label Label37
Caption = "% Valve Position"
Height = 255
Left = 2790
TabIndex = 47
Top = 5310
Width = 1245
End
Begin VB.Shape Shape19
FillColor = &H0000FF00&
Height = 285
Left = 1380
Shape = 3 'Circle
Top = 5880
Width = 255
End
Begin VB.Label Label36
Caption = "Rate"
Height = 165
Left = 6750
TabIndex = 43
Top = 3270
Width = 375
End
Begin VB.Label Label35
Caption = "d"
Height = 195
Left = 6540
TabIndex = 42
Top = 3150
Width = 135
End
Begin VB.Line Line38
X1 = 6570
X2 = 6570
Y1 = 3120
Y2 = 2880
End
Begin VB.Line Line37
X1 = 6960
X2 = 7050
Y1 = 3120
Y2 = 3180
End
Begin VB.Line Line36
X1 = 6960
X2 = 6870
Y1 = 3120
Y2 = 3180
End
Begin VB.Line Line35
X1 = 6960
X2 = 6960
Y1 = 3240
Y2 = 3120
End
Begin VB.Line Line34
X1 = 6720
X2 = 6960
Y1 = 3240
Y2 = 3240
End
Begin VB.Shape Shape18
Height = 255
Left = 6510
Top = 3120
Width = 225
End
Begin VB.Label Label34
Caption = "SP - PV"
Height = 225
Left = 6660
TabIndex = 41
Top = 2250
Width = 585
End
Begin VB.Label Label33
Caption = "0-120 Seconds"
Height = 225
Left = 6660
TabIndex = 40
Top = 1860
Width = 1245
End
Begin VB.Label Label32
Caption = "Reset"
Height = 225
Left = 7170
TabIndex = 39
Top = 2610
Width = 465
End
Begin VB.Line Line33
X1 = 6960
X2 = 6870
Y1 = 2880
Y2 = 2970
End
Begin VB.Line Line32
X1 = 6870
X2 = 6960
Y1 = 2790
Y2 = 2880
End
Begin VB.Line Line31
X1 = 6870
X2 = 7020
Y1 = 2970
Y2 = 2970
End
Begin VB.Line Line30
X1 = 7020
X2 = 6870
Y1 = 2790
Y2 = 2790
End
Begin VB.Label Label31
Caption = "OUT"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 7620
TabIndex = 38
Top = 3120
Width = 405
End
Begin VB.Line Line29
X1 = 6360
X2 = 6450
Y1 = 3540
Y2 = 3600
End
Begin VB.Line Line28
X1 = 6360
X2 = 6450
Y1 = 3540
Y2 = 3480
End
Begin VB.Line Line27
X1 = 6360
X2 = 7500
Y1 = 3540
Y2 = 3540
End
Begin VB.Line Line26
X1 = 7500
X2 = 7500
Y1 = 2880
Y2 = 3540
End
Begin VB.Line Line25
X1 = 7140
X2 = 7500
Y1 = 2880
Y2 = 2880
End
Begin VB.Label Label30
BackColor = &H00FFFFFF&
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6030
TabIndex = 37
Top = 2220
Width = 585
End
Begin VB.Label Label29
Caption = "e = error (difference)"
Height = 225
Left = 4560
TabIndex = 36
Top = 2220
Width = 1425
End
Begin VB.Label Label28
Caption = "e"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -