📄 formdatass.frm
字号:
VERSION 5.00
Begin VB.Form FormDatass
BorderStyle = 3 'Fixed Dialog
Caption = "实时数据"
ClientHeight = 10290
ClientLeft = -105
ClientTop = 780
ClientWidth = 15255
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10290
ScaleWidth = 15255
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.Timer datacj
Interval = 2000
Left = 4560
Top = 960
End
Begin VB.Shape Shapled
BackColor = &H00FF8080&
BackStyle = 1 'Opaque
Height = 255
Index = 0
Left = 2250
Shape = 3 'Circle
Top = 45
Visible = 0 'False
Width = 255
End
Begin VB.Label Labeldw
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位"
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 = 3360
TabIndex = 1
Top = 60
Width = 420
End
Begin VB.Label Labelz
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H80000008&
BackStyle = 0 'Transparent
Caption = "值"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 285
Index = 0
Left = 2865
TabIndex = 0
Top = 45
Width = 240
End
Begin VB.Label Labelblm
BackColor = &H80000008&
BorderStyle = 1 'Fixed Single
Caption = "魏长军"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 360
Index = 0
Left = 45
TabIndex = 2
Top = 0
Width = 3795
End
Begin VB.Menu exitdata
Caption = "关闭(&X)"
End
End
Attribute VB_Name = "FormDatass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FlagDIsd(41), kl1, colorzt(1)
Private Sub datacj_Timer()
For j% = 0 To 2
For i% = 0 To 17 '每台汽炉的 18路模拟量显示 2003-08-23
Labelz(i% + j% * kl1).Caption = PvtAI(i% + j% * Ainumgl)
Next '显示位置 0-7；30-37
ab1% = Ainumgl
Labelz(ab1% + j% * kl1).Caption = Format(SumLL(j% * 2), "##0.00") '产汽累计
Labelz(ab1% + 1 + j% * kl1).Caption = Format(SumLL(j% * 2 + 1), "##0.00") '供水累计
ab1% = ab1% + 2
For i% = 0 To 3 '状态
If FlagDIsd(i% + j% * 4) <> PvtDI(i% + j% * 10) Then
FlagDIsd(i% + j% * 4) = PvtDI(i% + j% * 10)
Labelz(ab1% + i% + j% * kl1).Caption = workfs(FlagDIsd(i% + j% * 4))
Labelz(ab1% + i% + j% * kl1).ForeColor = colorzt(FlagDIsd(i% + j% * 4)) ' &HFFFF00
End If
Next '显示位置 21-23;51-53
ab1% = ab1% + 4
For i% = 0 To 5 '
If FlagDIsd(12 + i% + j% * 6) <> PvtDI(4 + i% + j% * 10) Then
FlagDIsd(12 + i% + j% * 6) = PvtDI(4 + i% + j% * 10)
If FlagDIsd(12 + i% + j% * 6) = 1 Then
Labelz(ab1% + i% + j% * kl1).Caption = "报警"
Labelz(ab1% + i% + j% * kl1).ForeColor = &HFF&
Else
Labelz(ab1% + i% + j% * kl1).Caption = "无"
Labelz(ab1% + i% + j% * kl1).ForeColor = &HFFFF00 ' &HFF00&
End If
End If
Next '显示位置 24-39；54-59
Next
'==========================================================公共部分
ab1% = 3 * 30
For i% = 0 To Ainumqt - 1
Labelz(ab1% + i%).Caption = PvtAI(Ainumgl * 3 + i%)
Next
ab1% = ab1% + Ainumqt
Labelz(ab1% + 0).Caption = Format(SumLL(4), "##0.00")
Labelz(ab1% + 1).Caption = Format(SumLL(5), "##0.00")
ab1% = ab1% + 2
For i% = 0 To 1
If FlagDIsd(30 + i%) <> PvtDI(30 + i%) Then
FlagDIsd(i% + 30) = PvtDI(30 + i%)
If PvtDI(i% + 30) = 1 Then
Labelz(ab1% + i%).Caption = "报警"
Labelz(ab1% + i%).ForeColor = &HFF&
Else
Labelz(ab1% + i%).Caption = "无"
Labelz(ab1% + i%).ForeColor = &HFFFF00 ' &HFF00&
End If
End If
Next
End Sub
Private Sub exitdata_Click()
qiantai = 1
datacj.Enabled = False
Unload Me
End Sub
Private Sub Form_Deactivate()
exitdata_Click
End Sub
Private Sub Form_Load()
On Error Resume Next
Labelz(0).Caption = ""
Labeldw(0).Caption = ""
Labelblm(0).Caption = ""
'===========2002-3-16=========
col1 = 4: row1 = 29 '设置行列数
jianj% = Labelblm(0).Height
For ii% = 1 To col1 '行
For jj% = 1 To row1 '列
k1% = (row1 + 1) * (ii% - 1) + jj%
Load Labelblm(k1%)
Labelblm(k1%).Top = Labelblm(k1% - 1).Top + jianj% '变量名字
Labelblm(k1%).Left = Labelblm(k1% - 1).Left
Labelblm(k1%).Visible = True
'====================
Load Labeldw(k1%) '单位
Labeldw(k1%).Top = Labeldw(k1% - 1).Top + jianj%
Labeldw(k1%).Left = Labeldw(k1% - 1).Left
Labeldw(k1%).Visible = True
Labeldw(k1%).ZOrder 0
'====================
Load Labelz(k1%) '值&H000000C0&
Labelz(k1%).Top = Labelz(k1% - 1).Top + jianj%
Labelz(k1%).Left = Labelz(k1% - 1).Left
Labelz(k1%).Visible = True
Labelz(k1%).ZOrder 0
Next
'---------------------
If ii% >= col1 Then Exit For
k1% = (row1 + 1) * (ii% - 1) + jj%
Load Labelblm(k1%)
Labelblm(k1%).Top = Labelblm((row1 + 1) * (ii% - 1)).Top
Labelblm(k1%).Left = Labelblm(k1% - 1).Left + Labelblm(0).Width
Labelblm(k1%).Visible = True
'====================
Load Labeldw(k1%) 'Labeldw
Labeldw(k1%).ZOrder 0
Labeldw(k1%).Top = Labeldw((row1 + 1) * (ii% - 1)).Top
Labeldw(k1%).Left = Labeldw(k1% - 1).Left + Labelblm(0).Width
Labeldw(k1%).Visible = True
'====================
Load Labelz(k1%)
Labelz(k1%).Top = Labelz((row1 + 1) * (ii% - 1)).Top
Labelz(k1%).Left = Labelz(k1% - 1).Left + Labelblm(0).Width
Labelz(k1%).Visible = True
Labelz(k1%).ZOrder 0
Next
'=========================================================
kl1 = 30
For j% = 0 To 2 '3台锅炉
For i% = 0 To Ainumgl - 1 '模拟量1
Labelblm(i% + j% * kl1).Caption = " " & AI_Nam(i% + j% * Ainumgl)
Labeldw(i% + j% * kl1).Caption = DanWei(i% + j% * Ainumgl)
Labelblm(i% + j% * kl1).ForeColor = &HFFFF& ' &H80FF&
Next
ab1% = Ainumgl
Labelblm(ab1% + j% * kl1).Caption = " " & (j% + 1) & "蒸汽流量累计"
Labeldw(ab1% + j% * kl1).Caption = "t/h"
Labelblm(ab1% + 1 + j% * kl1).Caption = " " & (j% + 1) & "给水流量累计"
Labeldw(ab1% + 1 + j% * kl1).Caption = "t/h"
ab1% = ab1% + 2
For i% = 0 To 3 '状态
Labelblm(ab1% + i% + j% * kl1).Caption = " " & DI_Nam(i% + j% * 10)
Labeldw(ab1% + i% + j% * kl1).Caption = ""
Labelz(ab1% + i% + j% * kl1).Left = Labelz(ab1% + i% + j% * kl1).Left + 200
Labelblm(ab1% + i% + j% * kl1).ForeColor = &HFFFFFF
Next '22-24 &H00FFFFFF&
ab1% = ab1% + 4
For i% = 0 To 5 '报警
Labelblm(ab1% + i% + j% * kl1).Caption = " " & DI_Nam(4 + i% + j% * 10)
Labeldw(ab1% + i% + j% * kl1).Caption = ""
Labelblm(ab1% + i% + j% * kl1).ForeColor = &HFF00FF
Labelz(ab1% + i% + j% * kl1).Left = Labelz(ab1% + i% + j% * kl1).Left + 200
Next '25-30
Next
ab1% = 3 * kl1
For i% = 0 To Ainumqt - 1
Labelblm(i% + ab1%).Caption = " " & AI_Nam(i% + Ainumgl * 3)
Labeldw(i% + ab1%).Caption = DanWei(i% + Ainumgl * 3)
Labelblm(i% + ab1%).ForeColor = &HFFFF00
Next
ab1% = ab1% + Ainumqt
Labelblm(ab1% + 0).Caption = " 软化水流量累计"
Labeldw(ab1% + 0).Caption = "t/h"
Labelblm(ab1% + 1).Caption = " 凝结水流量累计"
Labeldw(ab1% + 1).Caption = "t/h"
ab1% = ab1% + 2
For i% = 0 To 1
Labelblm(i% + ab1%).Caption = " " & DI_Nam(Dinumgl * 3 + i%)
Labeldw(i% + ab1%).Caption = ""
Labelblm(i% + ab1%).ForeColor = &HFF8080
Next
For i% = 0 To 40
FlagDIsd(i%) = 9
Next
colorzt(0) = &HFF8080
colorzt(1) = &HFF00&
Labelblm(118).Caption = Wtkfdw
Labelblm(119).Caption = "wln2005-05-23"
Labelblm(118).Alignment = 2
Labelblm(119).Alignment = 2
datacj_Timer
End Sub
Private Sub Form_Unload(Cancel As Integer)
exitdata_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -