📄 formcyq.frm
字号:
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 5
Left = 9120
TabIndex = 11
Top = 1110
Width = 615
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 5
Left = 9840
TabIndex = 10
Top = 1140
Width = 315
End
Begin VB.Label plcvalue
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0000C0C0&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 4
Left = 9600
TabIndex = 9
Top = 3720
Width = 615
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 4
Left = 10320
TabIndex = 8
Top = 3750
Width = 315
End
Begin VB.Label plcvalue
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0000C0C0&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 3
Left = 9120
TabIndex = 7
Top = 795
Width = 615
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 3
Left = 9840
TabIndex = 6
Top = 825
Width = 315
End
Begin VB.Label plcvalue
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0000C0C0&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 2
Left = 8760
TabIndex = 5
Top = 2880
Width = 615
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 2
Left = 8880
TabIndex = 4
Top = 3240
Width = 315
End
Begin VB.Label plcvalue
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0000C0C0&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 1
Left = 3960
TabIndex = 3
Top = 840
Width = 735
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 1
Left = 4800
TabIndex = 2
Top = 870
Width = 315
End
Begin VB.Label Labedw
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BackStyle = 0 'Transparent
Caption = "Mpa"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Index = 0
Left = 2400
TabIndex = 1
Top = 5280
Width = 315
End
Begin VB.Label plcvalue
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0000C0C0&
BorderStyle = 1 'Fixed Single
Caption = "1000"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Index = 0
Left = 1680
TabIndex = 0
Top = 5250
Width = 615
End
Begin VB.Line Line1
BorderColor = &H00FFFF00&
Index = 0
X1 = 9840
X2 = 12630
Y1 = 3510
Y2 = 3510
End
End
Attribute VB_Name = "FormCyq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flagdj(110), DiNum(7), dousin, DJFlag(7)
Dim linenum, mnlnum(15), dispnum, swk, count1
Dim Run_f(2), fa_f(3), bmpname(1, 1)
Private Sub Form_Deactivate()
Timer1.Enabled = False
Unload Me
End Sub
Private Sub Form_Load()
'====================
'On Error Resume Next
Me.Height = 9345
Me.Picture = LoadPicture(bmpdir & "maincyq.bmp")
Me.Move 900, 800
'------------------------
linenum = 110
For i% = 0 To 3
fa_f(i%) = 0
Next
bmpname(0, 1) = bmpdir & "facz.bmp"
bmpname(1, 1) = bmpdir & "fasp.bmp"
For i% = 1 To linenum
Load Line1(i%)
Line1(i%).y1 = Line1(i% - 1).y1 - 15 '变量名字
Line1(i%).y2 = Line1(i% - 1).y2 - 15 '变量名字
flagdj(i%) = 2 '水位线显示标记1，显示 0，关显示
Line1(i%).Visible = True
Next
'===========================
dispnum = 11 '----------------本窗口显示的模拟量数
mnlnum(0) = Ainumgl * 2 + 0 '工业上水总管压力
mnlnum(1) = Ainumgl * 2 + 4 '软化水装置入口压
mnlnum(2) = Ainumgl * 2 + 6 '软化水流量
mnlnum(3) = Ainumgl * 2 + 3 '软化水装置出口压
mnlnum(4) = Ainumgl * 2 + 8 '软化水箱液位
mnlnum(5) = Ainumgl * 2 + 9 '除氧器出口温度
mnlnum(6) = Ainumgl * 2 + 7 '凝结水流量
mnlnum(7) = 17 ' ------------1#省煤器进水压力
mnlnum(8) = 17 + Ainumgl ' 2#省煤器进水压力
mnlnum(9) = Ainumgl * 2 + 10 ' "凝结水温度"
mnlnum(10) = 7 '--------------1#炉给水变频"
mnlnum(11) = 7 + Ainumgl '--2#炉给水变频"
'----------------------------
DiNum(0) = 20
DiNum(1) = 21
ImageBJf(0).Picture = LoadPicture(bmpdir & "BJ0.bmp")
ImageBJf(1).Picture = LoadPicture(bmpdir & "BJ1.bmp")
For i% = 0 To 1
Imagbj(i%).Picture = ImageBJf(0).Picture
Imagbj(i%).ToolTipText = DI_Nam(DiNum(i%)) & "报警"
Next
swk = linenum / LiangC(1, mnlnum(4))
For i% = 0 To dispnum
Labedw(i%).Caption = DanWei(mnlnum(i%))
plcvalue(i%).ToolTipText = AI_Nam(mnlnum(i%))
Next
Labedw(i%).Caption = DanWei(mnlnum(10))
plcvalue(i%).ToolTipText = "3#给水泵"
For i% = 1 To 2
Load Imapumpy(i%)
Next
For i% = 0 To 2
Imapumpy(i%).Picture = LoadPicture(bmpdir & "pump" & (2 - i%) & ".bmp")
Next
dousin = 1
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
'动态液位显示 2002-04-27
dousin = dousin + 1
If dousin > 1 Then dousin = 0
For i% = 0 To 1
If DJFlag(i%) <> PvtDI(DiNum(i%)) Then '报警处理
DJFlag(i%) = PvtDI(DiNum(i%))
Imagbj(i%).Picture = ImageBJf(DJFlag(i%)).Picture
End If
If PvtDI(DiNum(i%)) = 1 Then
Imagbj(i%).Picture = ImageBJf(dousin).Picture
End If
Next
If dousin = 1 Then Exit Sub
'=================================================================
yyy% = Int(swk * PvtAI(mnlnum(4))) '软水箱水位显示
For i% = 0 To linenum
If i% <= yyy% Then
If flagdj(i%) <> 1 Then
flagdj(i%) = 1 '开显示标记
Line1(i%).Visible = True
End If
Else
If flagdj(i%) = 0 Then Exit For
flagdj(i%) = 0 ' 关显示标记
Line1(i%).Visible = False
End If
Next
'-------------------------------------------
For i% = 0 To dispnum '模拟量显示
plcvalue(i%) = PvtAI(mnlnum(i%))
Next
If bengqh(0) = 1 Then
plcvalue(12) = PvtAI(mnlnum(10)) '3代1
plcvalue(10) = 0
End If
If bengqh(1) = 1 Then
plcvalue(12) = PvtAI(mnlnum(11)) '3代2
plcvalue(11) = 0
End If
End Sub
Private Sub Timer2_Timer()
Dim aaf As Boolean
count1 = count1 + 1
If count1 > 2 Then count1 = 0
For i% = 0 To 2
aaf = bengzt(i%) And Val(plcvalue(10 + i%)) > 0
If Run_f(i%) <> aaf Then
Run_f(i%) = aaf
If Not Run_f(i%) Then
Image1(i%).Picture = LoadPicture("")
plcvalue(10 + i%) = 0
End If
End If
If Run_f(i%) Then
Image1(i%).Picture = Imapumpy(count1).Picture
End If
Next
'------------------------------------
If fa_f(0) <> bengzt(0) Then '1#泵阀门
fa_f(0) = bengzt(0)
Image2(0).Picture = LoadPicture(bmpname(0, fa_f(0)))
End If
If fa_f(1) <> bengzt(1) Then
fa_f(1) = bengzt(1)
Image2(1).Picture = LoadPicture(bmpname(0, fa_f(1)))
End If
If fa_f(2) <> 1 - bengzt(0) Then
fa_f(2) = 1 - bengzt(0)
Image2(2).Picture = LoadPicture(bmpname(1, fa_f(2)))
End If
If fa_f(3) <> 1 - bengzt(1) Then
fa_f(3) = 1 - bengzt(1)
Image2(3).Picture = LoadPicture(bmpname(1, fa_f(3)))
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -