📄 frmother.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{2C68D6B6-59A4-4832-ADB6-1E82FE149E67}#77.1#0"; "OptionCurve.ocx"
Object = "{27F55C85-DB1E-11D5-993B-005022205D82}#1.0#0"; "Prgress.ocx"
Begin VB.Form frmOther
BorderStyle = 1 'Fixed Single
Caption = "单炉操作画面"
ClientHeight = 2580
ClientLeft = 45
ClientTop = 330
ClientWidth = 4140
Icon = "frmOther.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2580
ScaleWidth = 4140
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "解 锁"
Height = 255
Index = 7
Left = 1200
TabIndex = 35
Top = 6120
Width = 735
End
Begin VB.CheckBox Check1
Caption = "自动"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 34
ToolTipText = "是否允许程序自动控制阀门开停"
Top = 6360
Width = 735
End
Begin VB.CommandButton Command1
Caption = "初始化"
Height = 255
Index = 6
Left = 1200
TabIndex = 33
Top = 6480
Width = 735
End
Begin VB.CommandButton Command2
Caption = "INI4"
Enabled = 0 'False
Height = 255
Index = 3
Left = 3240
TabIndex = 32
Top = 6480
Width = 735
End
Begin VB.CommandButton Command2
Caption = "INI3"
Enabled = 0 'False
Height = 255
Index = 2
Left = 3240
TabIndex = 31
Top = 6120
Width = 735
End
Begin VB.CommandButton Command2
Caption = "INI2"
Enabled = 0 'False
Height = 255
Index = 1
Left = 2280
TabIndex = 30
Top = 6480
Width = 735
End
Begin VB.CommandButton Command2
Caption = "INI1"
Enabled = 0 'False
Height = 255
Index = 0
Left = 2280
TabIndex = 29
Top = 6120
Width = 735
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 375
Index = 3
Left = 3240
TabIndex = 27
Text = "0"
Top = 5160
Width = 495
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 375
Index = 2
Left = 2280
TabIndex = 23
Text = "0"
Top = 5160
Width = 495
End
Begin VB.CommandButton Command1
Caption = "调节"
Enabled = 0 'False
Height = 375
Index = 3
Left = 3240
TabIndex = 22
Top = 5640
Width = 735
End
Begin VB.CommandButton Command1
Caption = "调节"
Enabled = 0 'False
Height = 375
Index = 0
Left = 120
TabIndex = 13
Top = 5640
Width = 735
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 375
Index = 0
Left = 120
TabIndex = 12
Text = "0"
Top = 5160
Width = 495
End
Begin VB.CommandButton Command1
Caption = "调节"
Enabled = 0 'False
Height = 375
Index = 1
Left = 1200
TabIndex = 11
Top = 5640
Width = 735
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 375
Index = 1
Left = 1200
TabIndex = 10
Text = "0"
Top = 5160
Width = 495
End
Begin VB.CommandButton Command1
Caption = "调节"
Enabled = 0 'False
Height = 375
Index = 2
Left = 2280
TabIndex = 9
Top = 5640
Width = 735
End
Begin VB.CommandButton Command1
Caption = "关闭"
Height = 375
Index = 4
Left = 4560
TabIndex = 6
Top = 2760
Width = 735
End
Begin VB.CommandButton Command1
Caption = "流程图"
Height = 375
Index = 5
Left = 4560
TabIndex = 5
Top = 2280
Width = 735
End
Begin VB.Timer Timer1
Interval = 1000
Left = 0
Top = 0
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 375
Index = 4
Left = 240
TabIndex = 3
Text = "0"
Top = 240
Width = 700
End
Begin VB.CommandButton cmdSpeed
Caption = "转速设定"
Height = 375
Left = 120
TabIndex = 2
Top = 840
Width = 1095
End
Begin VB.CommandButton StopTransducer
Caption = "停止"
Height = 375
Left = 1680
TabIndex = 1
Top = 840
Width = 855
End
Begin OptCurve.LED LED2
Height = 615
Left = 1320
TabIndex = 0
Top = 0
Width = 1335
_ExtentX = 2355
_ExtentY = 1085
Size = 1
Label = "炉条机转速"
BackColor = 8454016
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Female = 1
End
Begin MSComCtl2.UpDown TranSpeed
Height = 360
Left = 960
TabIndex = 4
ToolTipText = "转速调节"
Top = 240
Width = 255
_ExtentX = 450
_ExtentY = 635
_Version = 393216
OrigLeft = 1800
OrigTop = 2040
OrigRight = 2055
OrigBottom = 2400
Increment = 10
Max = 1600
Enabled = -1 'True
End
Begin OptCurve.Switch Switch1
Height = 855
Left = 3240
TabIndex = 7
ToolTipText = "安全停车"
Top = 360
Width = 495
_ExtentX = 873
_ExtentY = 1508
Size = 2
End
Begin MSComCtl2.UpDown UpDown1
Height = 375
Index = 0
Left = 600
TabIndex = 8
Top = 5160
Width = 240
_ExtentX = 423
_ExtentY = 661
_Version = 393216
Max = 100
Enabled = -1 'True
End
Begin PRGRESSLib.Prgress prgStove
Height = 2175
Index = 0
Left = 120
TabIndex = 14
ToolTipText = "左边为流量,右边为阀门开度"
Top = 2880
Width = 735
_Version = 65536
_ExtentX = 1296
_ExtentY = 3836
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
aColor = 8454016
pColor = 16776960
ForeColor = 0
aV = 0
pV = 0
gV = 0
End
Begin PRGRESSLib.Prgress prgStove
Height = 2175
Index = 1
Left = 1200
TabIndex = 15
ToolTipText = "左边为流量,右边为阀门开度"
Top = 2880
Width = 735
_Version = 65536
_ExtentX = 1296
_ExtentY = 3836
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
aColor = 8454016
pColor = 16776960
ForeColor = 0
aV = 0
pV = 0
gV = 0
End
Begin PRGRESSLib.Prgress prgStove
Height = 2175
Index = 2
Left = 2280
TabIndex = 16
ToolTipText = "左边为流量,右边为阀门开度"
Top = 2880
Width = 735
_Version = 65536
_ExtentX = 1296
_ExtentY = 3836
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
aColor = 8454016
pColor = 16776960
ForeColor = 0
aV = 0
pV = 0
gV = 0
End
Begin MSComCtl2.UpDown UpDown1
Height = 375
Index = 1
Left = 1680
TabIndex = 17
Top = 5160
Width = 240
_ExtentX = 423
_ExtentY = 661
_Version = 393216
Max = 100
Enabled = -1 'True
End
Begin PRGRESSLib.Prgress prgStove
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -