📄 frmpg3.frm
字号:
Index = 12
Left = 120
Shape = 3 'Circle
Top = 3690
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 12
Left = 420
TabIndex = 12
Top = 3690
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 11
Left = 120
Shape = 3 'Circle
Top = 3420
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 11
Left = 420
TabIndex = 11
Top = 3420
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 10
Left = 120
Shape = 3 'Circle
Top = 3165
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 10
Left = 420
TabIndex = 10
Top = 3165
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 9
Left = 120
Shape = 3 'Circle
Top = 2895
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 9
Left = 420
TabIndex = 9
Top = 2895
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 8
Left = 120
Shape = 3 'Circle
Top = 2640
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 8
Left = 420
TabIndex = 8
Top = 2640
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 7
Left = 120
Shape = 3 'Circle
Top = 2370
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 7
Left = 420
TabIndex = 7
Top = 2370
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 6
Left = 120
Shape = 3 'Circle
Top = 2115
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 6
Left = 420
TabIndex = 6
Top = 2115
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 5
Left = 120
Shape = 3 'Circle
Top = 1845
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 5
Left = 420
TabIndex = 5
Top = 1845
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 4
Left = 120
Shape = 3 'Circle
Top = 1590
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 4
Left = 420
TabIndex = 4
Top = 1590
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 3
Left = 120
Shape = 3 'Circle
Top = 1320
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 3
Left = 420
TabIndex = 3
Top = 1320
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 2
Left = 120
Shape = 3 'Circle
Top = 1065
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 2
Left = 420
TabIndex = 2
Top = 1065
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 1
Left = 120
Shape = 3 'Circle
Top = 795
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 1
Left = 420
TabIndex = 1
Top = 795
Width = 1095
End
Begin VB.Shape shpSB
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillColor = &H80000004&
FillStyle = 0 'Solid
Height = 225
Index = 0
Left = 120
Shape = 3 'Circle
Top = 540
Width = 285
End
Begin VB.Label lbSB
BackColor = &H80000001&
Caption = "5#斗轮机堆料"
ForeColor = &H80000005&
Height = 195
Index = 0
Left = 420
TabIndex = 0
Top = 540
Width = 1095
End
End
Attribute VB_Name = "frmPG3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
lbTitle.Left = (Me.ScaleWidth - lbTitle.Width) / 2
Dim i As Long
For i = 0 To UIndex3
lbSB(i).Caption = nmPG3(i)
lbSB(i).Tag = 0
Next i
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Cancel = True
Me.Hide
End If
End Sub
Private Sub lbSB_Click(Index As Integer)
On Error Resume Next
DspBt = Time
If IsDsp = False Then
IsDsp = True
' lbSB(Index).Tag = Status3(Index) Xor 1
' Else
' lbSB(Index).Tag = lbSB(Index).Tag Xor 1
End If
DispStatus3(Index) = DispStatus3(Index) Xor 1
shpSB(Index).FillStyle = DispStatus3(Index)
Call dispStatus(Index)
End Sub
Public Sub dispStatus(ByVal Index As Integer)
Select Case Index
Case 0 To 13 '流程预告
Call dYuGao(Index)
Case 14 To 27 '故障
Call d皮带故障(Index)
Case 28 To 41 '皮带应答
Call dYD(Index)
Case 42 To 55 '皮带运行
Call dBts(Index)
Case 56 To 61 '斗轮机
Call dDou3(Index)
Case 62 To 64 '装船机
Call dZhuangChuan(Index)
Case 65 To 69 '门机
Call dMen(Index)
Case 70 To 83 '皮带紧停
Call d皮带紧停(Index)
End Select
End Sub
Private Sub dYuGao(ByVal vIndex As Integer)
Dim i As Integer
Dim Index As Integer
Dim DipStr() As String
DipStr = Split(lc3(vIndex), ",")
For i = 0 To UBound(DipStr)
Index = DipStr(i)
Select Case Index
Case 14 To 27 '故障
Call d皮带故障(Index)
Case 28 To 41 '皮带应答
Call dYD(Index)
Case 42 To 55 '皮带运行
Call dBts(Index)
Case 56 To 61 '斗轮机
Call dDou3(Index)
Case 62 To 64 '装船机
Call dZhuangChuan(Index)
Case 65 To 69 '门机
Call dMen(Index)
Case 70 To 83 '皮带紧停
Call d皮带紧停(Index)
End Select
Next i
End Sub
Private Sub dDou3(ByVal Index As Long) '斗轮机
Dim id As Integer
Dim vColor As Long
Dim X As Long
id = Val(lbSB(Index).Caption) - 1
Select Case id
Case 0
X = DispStatus2(1) Or DispStatus2(3) Or DispStatus2(11) Or DispStatus2(13)
Case 1
X = DispStatus2(0) Or DispStatus2(2) Or DispStatus2(10) Or DispStatus2(12) Or DispStatus2(14)
Case 2
X = DispStatus3(4) Or DispStatus3(5) Or DispStatus3(6) Or DispStatus3(7) Or DispStatus3(9) Or DispStatus3(11)
Case 3
X = DispStatus3(0) Or DispStatus3(1) Or DispStatus3(2) Or DispStatus3(3) Or DispStatus3(12)
Case 4
X = DispStatus2(15) Or DispStatus2(16) Or DispStatus2(17) Or DispStatus2(19)
End Select
Di⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -