📄 frmdi_do.frm
字号:
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "4#油泵电机"
Height = 180
Index = 15
Left = 240
TabIndex = 24
Top = 6000
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "3#油泵电机"
Height = 180
Index = 14
Left = 240
TabIndex = 23
Top = 5640
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "2#油泵电机"
Height = 180
Index = 13
Left = 240
TabIndex = 22
Top = 5280
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "1#油泵电机"
Height = 180
Index = 12
Left = 240
TabIndex = 21
Top = 4920
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "8#风机油泵"
Height = 180
Index = 11
Left = 240
TabIndex = 20
Top = 4560
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "7#风机油泵"
Height = 180
Index = 10
Left = 240
TabIndex = 19
Top = 4200
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "6#风机油泵"
Height = 180
Index = 9
Left = 240
TabIndex = 18
Top = 3840
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "5#风机油泵"
Height = 180
Index = 8
Left = 240
TabIndex = 17
Top = 3480
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "4#风机油泵"
Height = 180
Index = 7
Left = 240
TabIndex = 16
Top = 3120
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "3#风机油泵"
Height = 180
Index = 6
Left = 240
TabIndex = 15
Top = 2760
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "2#风机油泵"
Height = 180
Index = 5
Left = 240
TabIndex = 14
Top = 2400
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "1#风机油泵"
Height = 180
Index = 4
Left = 240
TabIndex = 13
Top = 2040
Width = 900
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "4#风机"
Height = 180
Index = 3
Left = 600
TabIndex = 12
Top = 1680
Width = 540
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "3#风机"
Height = 180
Index = 2
Left = 600
TabIndex = 11
Top = 1320
Width = 540
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "2#风机"
Height = 180
Index = 1
Left = 600
TabIndex = 10
Top = 960
Width = 540
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "1#风机"
Height = 180
Index = 0
Left = 600
TabIndex = 9
Top = 600
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "停止控制"
Height = 180
Index = 6
Left = 5520
TabIndex = 6
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "运行控制"
ForeColor = &H00000000&
Height = 180
Index = 5
Left = 4680
TabIndex = 5
Top = 120
Width = 720
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 0
Left = 3960
Shape = 2 'Oval
Top = 480
Width = 300
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "远控状态"
Height = 180
Index = 4
Left = 3840
TabIndex = 4
Top = 120
Width = 720
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 0
Left = 3120
Shape = 2 'Oval
Top = 480
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 0
Left = 2280
Shape = 2 'Oval
Top = 480
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 0
Left = 1440
Shape = 2 'Oval
Top = 480
Width = 300
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "故障状态"
Height = 180
Index = 3
Left = 3000
TabIndex = 3
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "停止状态"
Height = 180
Index = 2
Left = 2160
TabIndex = 2
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "运行状态"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 1320
TabIndex = 1
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "设备"
Height = 180
Index = 0
Left = 720
TabIndex = 0
Top = 120
Width = 360
End
Begin VB.Menu munExit
Caption = "退出"
End
Begin VB.Menu munNode
Caption = ""
Enabled = 0 'False
End
Begin VB.Menu munConfig
Caption = "设备控制"
End
End
Attribute VB_Name = "frmDI_DO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdRun_Click(Index As Integer)
Dim AddressT As String, SlotT As Long, ChannelT As Long
cmdRun(Index).Enabled = False
Ack = False
Unload frmQuestion
frmQuestion.lbMsg = "您真的要运行“" & Label2(Index).Caption & "”？"
frmQuestion.Show 1
If Not Ack Then
cmdRun(Index).Enabled = True
Exit Sub
End If
With Catenation(Index)
If .HHCaten And .LLCaten Then
AddressT = Trim(MotherBoard(Signal(.OutTag(0)).Board).Address)
SlotT = Signal(.OutTag(0)).Slot
ChannelT = Signal(.OutTag(0)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 1, 0
TimeDelay 100
AddressT = Trim(MotherBoard(Signal(.OutTag(0)).Board).Address)
SlotT = Signal(.OutTag(0)).Slot
ChannelT = Signal(.OutTag(0)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT + 1
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 1, 0
TimeDelay 4000
AddressT = Trim(MotherBoard(Signal(.OutTag(0)).Board).Address)
SlotT = Signal(.OutTag(0)).Slot
ChannelT = Signal(.OutTag(0)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 0, 0
TimeDelay 100
AddressT = Trim(MotherBoard(Signal(.OutTag(0)).Board).Address)
SlotT = Signal(.OutTag(0)).Slot
ChannelT = Signal(.OutTag(0)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT + 1
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 0, 0
Else
AddressT = Trim(MotherBoard(Signal(.OutTag(0)).Board).Address)
SlotT = Signal(.OutTag(0)).Slot
ChannelT = Signal(.OutTag(0)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 1, AddressT, ChannelT, 1, 5
End If
End With
cmdRun(Index).Enabled = True
End Sub
Private Sub cmdStop_Click(Index As Integer)
Dim AddressT As String, SlotT As Long, ChannelT As Long
cmdStop(Index).Enabled = False
Ack = False
Unload frmQuestion
frmQuestion.lbMsg = "您真的要停止“" & Label2(Index).Caption & "”？"
frmQuestion.Show 1
If Not Ack Then
cmdStop(Index).Enabled = True
Exit Sub
End If
With Catenation(Index)
If .HHCaten And .LLCaten Then
AddressT = Trim(MotherBoard(Signal(.OutTag(1)).Board).Address)
SlotT = Signal(.OutTag(1)).Slot
ChannelT = Signal(.OutTag(1)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 1, 0
TimeDelay 100
AddressT = Trim(MotherBoard(Signal(.OutTag(1)).Board).Address)
SlotT = Signal(.OutTag(1)).Slot
ChannelT = Signal(.OutTag(1)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT + 1
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 1, 0
TimeDelay 4000
AddressT = Trim(MotherBoard(Signal(.OutTag(1)).Board).Address)
SlotT = Signal(.OutTag(1)).Slot
ChannelT = Signal(.OutTag(1)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 0, 0
TimeDelay 100
AddressT = Trim(MotherBoard(Signal(.OutTag(1)).Board).Address)
SlotT = Signal(.OutTag(1)).Slot
ChannelT = Signal(.OutTag(1)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT + 1
Read_Valve.YF6051_writeSigleValue 2, AddressT, ChannelT, 0, 0
Else
AddressT = Trim(MotherBoard(Signal(.OutTag(1)).Board).Address)
SlotT = Signal(.OutTag(1)).Slot
ChannelT = Signal(.OutTag(1)).Channel
ChannelT = (SlotT - 2) * 8 + ChannelT
Read_Valve.YF6051_writeSigleValue 1, AddressT, ChannelT, 1, 5
End If
End With
cmdStop(Index).Enabled = True
End Sub
Private Sub munConfig_Click()
Dim i As Long
lngPopedom = 4
frmPassword.Show 1
If mPassword Then
mPassword = False
For i = 0 To cmdRun.UBound
cmdRun(i).Enabled = True
cmdStop(i).Enabled = True
Next
Else
Exit Sub
End If
End Sub
Private Sub munExit_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Dim i As Long, j As Long
For i = 0 To UBound(Catenation)
With Catenation(i)
If .InTag(0) <> 0 And Signal(.InTag(0)).CalValue = 1 Then
Shape1(i).FillColor = &HFF00&
Else
Shape1(i).FillColor = &H0&
End If
If .InTag(1) <> 0 And Signal(.InTag(1)).CalValue = 1 Then
Shape2(i).FillColor = &HFF&
Else
Shape2(i).FillColor = &H0&
End If
If .InTag(2) <> 0 And Signal(.InTag(2)).CalValue = 1 Then
Shape3(i).FillColor = &HFF&
Else
Shape3(i).FillColor = &H0&
End If
If .InTag(3) <> 0 And Signal(.InTag(3)).CalValue = 1 Then
Shape4(i).FillColor = &HFF00&
Else
Shape4(i).FillColor = &H0&
End If
If .OutTag(0) <> 0 And Signal(.OutTag(0)).CalValue = 1 Then
cmdRun(i).BackColor = &HFF00&
Else
cmdRun(i).BackColor = &H8000000F
End If
If .OutTag(1) <> 0 And Signal(.OutTag(1)).CalValue = 1 Then
cmdStop(i).BackColor = &HFF&
Else
cmdStop(i).BackColor = &H8000000F
End If
End With
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -