📄 frmpid.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{27F55C85-DB1E-11D5-993B-005022205D82}#1.0#0"; "Prgress.ocx"
Begin VB.Form frmPID
BorderStyle = 1 'Fixed Single
Caption = "PID调节【】"
ClientHeight = 4935
ClientLeft = 6030
ClientTop = 525
ClientWidth = 3000
Icon = "frmPID.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4935
ScaleWidth = 3000
Begin VB.TextBox Text1
Height = 4815
Left = 3000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 0
Width = 3375
End
Begin VB.PictureBox Picture1
Height = 4935
Left = 0
ScaleHeight = 4875
ScaleWidth = 2955
TabIndex = 0
Top = 0
Width = 3015
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 495
Left = 1440
TabIndex = 26
Top = 0
Width = 1575
Begin VB.OptionButton Option1
Caption = "自动"
Height = 255
Index = 0
Left = 120
TabIndex = 28
Top = 120
Value = -1 'True
Width = 680
End
Begin VB.OptionButton Option1
Caption = "手动"
Height = 255
Index = 1
Left = 840
TabIndex = 27
Top = 120
Width = 680
End
End
Begin VB.CommandButton CmdRec
Caption = "记录"
Height = 375
Left = 2430
TabIndex = 24
ToolTipText = "查看调节设定记录"
Top = 4440
Width = 495
End
Begin VB.TextBox TextOut
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Index = 1
Left = 2520
TabIndex = 23
Text = "mA"
ToolTipText = "调节输出电流"
Top = 4080
Width = 360
End
Begin VB.TextBox TextOut
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Index = 0
Left = 1440
TabIndex = 22
Text = "4"
ToolTipText = "调节输出电流"
Top = 4080
Width = 1080
End
Begin VB.TextBox txtKd
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 1440
TabIndex = 21
Text = "0.5"
Top = 3720
Width = 720
End
Begin VB.CommandButton cmdKd
Caption = "微分&D"
Enabled = 0 'False
Height = 315
Left = 2280
TabIndex = 20
Top = 3720
Width = 615
End
Begin VB.OptionButton PN
Caption = "正"
Enabled = 0 'False
Height = 255
Index = 1
Left = 2400
TabIndex = 19
Top = 2670
Width = 495
End
Begin VB.OptionButton PN
Caption = "反"
Enabled = 0 'False
Height = 255
Index = 0
Left = 1920
TabIndex = 17
Top = 2670
Value = -1 'True
Width = 495
End
Begin VB.CheckBox Check1
Caption = "气开阀"
Enabled = 0 'False
Height = 255
Left = 2040
TabIndex = 15
Top = 2370
Width = 855
End
Begin VB.Timer Timer1
Interval = 1000
Left = 480
Top = 4440
End
Begin VB.CommandButton cmdEdit
Caption = "参数修改"
Height = 375
Left = 1440
TabIndex = 14
Top = 4440
Width = 945
End
Begin VB.CommandButton cmdKi
Caption = "积分&I"
Enabled = 0 'False
Height = 315
Left = 2280
TabIndex = 13
Top = 3360
Width = 615
End
Begin VB.TextBox txtKi
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 1440
TabIndex = 12
Text = "0.5"
Top = 3360
Width = 720
End
Begin VB.CommandButton cmdKp
Caption = "比例&P"
Enabled = 0 'False
Height = 315
Left = 2280
TabIndex = 11
Top = 3000
Width = 615
End
Begin VB.TextBox txtKp
Alignment = 2 'Center
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 1440
TabIndex = 10
Text = "0.5"
Top = 3000
Width = 705
End
Begin VB.CommandButton cmdAuto
Caption = "调 节&A"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
MousePointer = 99 'Custom
TabIndex = 7
Top = 900
Width = 1455
End
Begin VB.TextBox txtAuto
Alignment = 2 'Center
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 2040
TabIndex = 6
Text = "0"
Top = 600
Width = 840
End
Begin VB.CommandButton cmdMan
Caption = "调 节&M"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
MousePointer = 99 'Custom
TabIndex = 5
Top = 1755
Width = 1455
End
Begin VB.TextBox txtMan
Alignment = 2 'Center
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 2040
TabIndex = 4
Text = "0"
Top = 1440
Width = 840
End
Begin PRGRESSLib.Prgress prgPID
Height = 4695
Left = 360
TabIndex = 1
Top = 120
Width = 615
_Version = 65536
_ExtentX = 1085
_ExtentY = 8281
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
aColor = 8454016
pColor = 16711680
ForeColor = 255
aV = 0
pV = 0
gV = 0
End
Begin MSComctlLib.Slider sldMan
Height = 4695
Left = 840
TabIndex = 3
ToolTipText = "输出值调节"
Top = 0
Width = 495
_ExtentX = 873
_ExtentY = 8281
_Version = 393216
Orientation = 1
LargeChange = 1
Max = 100
SelStart = 100
TickStyle = 1
Value = 100
End
Begin MSComctlLib.Slider sldAuto
Height = 4695
Left = 0
TabIndex = 2
ToolTipText = "给定值调节"
Top = 0
Width = 375
_ExtentX = 661
_ExtentY = 8281
_Version = 393216
Orientation = 1
Max = 100
SelStart = 100
Value = 100
TextPosition = 1
End
Begin VB.Line Line1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -