📄 tempform2.frm
字号:
Index = 9
Left = 4080
TabIndex = 21
Top = 6504
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "09号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 8
Left = 2325
TabIndex = 20
Top = 6504
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "08号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 7
Left = 570
TabIndex = 19
Top = 6504
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "07号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 6
Left = 11100
TabIndex = 18
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "06号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 5
Left = 9345
TabIndex = 17
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "05号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 4
Left = 7590
TabIndex = 16
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "04号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 3
Left = 5835
TabIndex = 15
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "03号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 2
Left = 4080
TabIndex = 14
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "02号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 2325
TabIndex = 13
Top = 7860
Width = 1275
End
Begin VB.CheckBox Check1
BackColor = &H00C0FFFF&
Caption = "01号阀"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 0
Left = 570
TabIndex = 1
Top = 7860
Width = 1275
End
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "节水灌溉智能监控系统"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 540
Left = 4350
TabIndex = 10
Top = 210
Width = 7545
End
End
Attribute VB_Name = "TeamForm2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sjfmID(50) As String
Dim sjfmaddr(50) As String
Dim sjfmn(50) As String
Dim sjnum As Integer
Dim dout1 As Byte '继电器参数值
Dim dout2 As Byte '继电器参数值
Dim dout3 As Byte '继电器参数值
Dim dout4 As Byte '继电器参数值
Dim dout5 As Byte '继电器参数值
Dim dout6 As Byte '继电器参数值
Dim dout7 As Byte '继电器参数值
Private Sub Csure_Click()
Dim kk As Integer
kk = 1
sjnum = 0
For i = 0 To 41
sjfmn(kk) = 0
If Check1(i).value = 1 Then
sjfmn(kk) = i + 1
sjnum = sjnum + 1
kk = kk + 1
End If
sjfmID(i) = "": sjfmaddr(i) = ""
Next i
For k = 1 To 42
filedForm.Shape3(k).FillColor = QBColor(7)
Next k
For i = 1 To sjnum
For k = 1 To maxnum
If sjfmn(i) = Trim$(addrdata(k, 1)) Then
sjfmID(i) = Trim$(addrdata(k, 2))
sjfmaddr(i) = Trim$(addrdata(k, 3))
End If
Next k
Next i
Call open_all '在模块
Call close_jdq
filedForm.Show
End Sub
'闭合继电器开关 (打开指定编组指定编号的阀门)
Private Sub close_jdq()
Dim canbuff(13) As Byte
dout1 = 255: dout2 = 255: dout3 = 255
dout4 = 255: dout5 = 255: dout6 = 255
dout7 = 255
For i = 1 To sjnum
filedForm.Shape3(sjfmn(i)).FillColor = QBColor(12) '田间正在灌溉的阀门图形均成红色
'1号RTU动作
If Val("&H" + sjfmID(i)) = 1 Then
dout1 = dout1 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 1
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout1
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'2号RTU动作
If Val("&H" + sjfmID(i)) = 2 Then
dout2 = dout2 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 2
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout2
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'3号RTU动作
If Val("&H" + sjfmID(i)) = 3 Then
dout3 = dout3 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 3
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout3
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'4号RTU动作
If Val("&H" + sjfmID(i)) = 4 Then
dout4 = dout4 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 4
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout4
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'5号RTU动作
If Val("&H" + sjfmID(i)) = 5 Then
dout5 = dout5 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 5
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout5
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'6号RTU动作
If Val("&H" + sjfmID(i)) = 6 Then
dout6 = dout6 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 6
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout6
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
'7号RTU动作
If Val("&H" + sjfmID(i)) = 7 Then
dout7 = dout7 - 2 ^ (Val("&H" + sjfmaddr(i)) - 1)
canbuff(0) = &H3
canbuff(1) = 7
canbuff(2) = 0
canbuff(3) = &HAA
canbuff(4) = &H3
canbuff(5) = dout7
If (CAN_Trans(mindex, canbuff(0), 50) <> 1) Then
filedForm.Shape5(0).FillColor = QBColor(13)
Else
filedForm.Shape5(0).FillColor = QBColor(14)
End If
End If
Next i
End Sub
Private Sub Cclose_Click()
filedForm.Show
End Sub
Private Sub Check1_Click(Index As Integer)
If Check1(Index).value = 1 Then
Check1(Index).ForeColor = QBColor(12)
End If
If Check1(Index).value = 0 Then
Check1(Index).ForeColor = QBColor(0)
End If
End Sub
Private Sub Cmdbz_Click()
TeamForm.Show
End Sub
Private Sub Cmdzt_Click()
filedForm.Show
End Sub
Private Sub Cmdxx_Click()
xxForm.Show
End Sub
Private Sub Cdata_Click()
HisForm.Show
Call HisForm.get_cdata
End Sub
Private Sub Cmdset_Click()
commandbz = 2
PassForm.Show
End Sub
Private Sub Cmdzn_Click()
GuideForm.Show
End Sub
Private Sub Cmdquit_Click()
commandbz = 3
PassForm.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -