📄 digcyc.frm
字号:
End
Begin VB.Label LabTon
Caption = "吨"
Height = 285
Index = 4
Left = 2640
TabIndex = 29
Top = 3000
Width = 285
End
Begin VB.Label Label1
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 = &H00000040&
Height = 255
Index = 3
Left = 315
TabIndex = 17
Top = 540
Width = 555
End
Begin VB.Label Label1
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 = &H00000040&
Height = 255
Index = 2
Left = 1800
TabIndex = 16
Top = 540
Width = 570
End
Begin VB.Label LabTon
Caption = "吨"
Height = 285
Index = 3
Left = 2640
TabIndex = 15
Top = 2520
Width = 285
End
Begin VB.Label LabTon
Caption = "吨"
Height = 285
Index = 2
Left = 2640
TabIndex = 13
Top = 2040
Width = 285
End
Begin VB.Label Label2
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 = &H0080FF80&
Height = 255
Index = 0
Left = -72540
TabIndex = 11
Top = 690
Width = 885
End
Begin VB.Label LabTon
Caption = "吨"
Height = 285
Index = 0
Left = 2640
TabIndex = 10
Top = 1080
Width = 240
End
Begin VB.Label LabTon
Caption = "吨"
Height = 285
Index = 1
Left = 2640
TabIndex = 9
Top = 1560
Width = 285
End
Begin VB.Label Label1
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 = &H0080FF80&
Height = 255
Index = 0
Left = -73470
TabIndex = 8
Top = 690
Width = 675
End
End
Begin VB.CommandButton CancelButton
Caption = "取消"
Height = 375
Left = 2520
TabIndex = 0
Top = 4680
Width = 855
End
Begin VB.CommandButton Ok_Button
Caption = "确定"
Height = 375
Left = 1440
TabIndex = 63
Top = 4680
Width = 855
End
End
Attribute VB_Name = "DigCyc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Dim I As Integer
Me.Width = 3800
SSTab2.Left = SSTab1.Left
SSTab2.Top = SSTab1.Top
SSTab2.Width = SSTab1.Width
SSTab2.Height = SSTab1.Height
IsAutoTime = Option1.Value
For I = 0 To 9
OpenTime(I).Enabled = False
CloseTime(I).Enabled = False
MaskEdBoxFen(I).Enabled = False
'If FrmMain.MyValve(I).InCyc = True Then CycValveCheck1(I).Value = 1
If FrmMain.MyValve(I).TitlName <> "" Then
CycValveCheck1(I).Caption = FrmMain.MyValve(I).TitlName
SetTimeValveName(I).Caption = FrmMain.MyValve(I).TitlName
End If
MaskEdBoxFen(I).Text = "00"
Next
FrmShow (True)
End Sub
Public Sub FrmShow(IsCyc As Boolean)
Me.Height = 5500
If IsCyc = False Then
SSTab1.Visible = True
SSTab2.Visible = False
' Me.Height = 5000
Else
SSTab1.Visible = False
SSTab2.Visible = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If QuitEnAble = False Then
Cancel = 1
Me.Hide
End If
End Sub
Private Sub CycTimer1_Timer()
Dim I, n As Integer
For I = 0 To 4
n = 2 * I
If FFOSeted(I) = True Then '如果是田间操作站设定的自动则
Option2_Click
CycValveCheck1(n) = 2
CycValveCheck1(n + 1) = 2
CycValveCheck1(n).Enabled = False
CycValveCheck1(n + 1).Enabled = False
End If
Next
End Sub
Private Sub MaskEdBoxFen_GotFocus(Index As Integer)
MaskEdBoxFen(Index).SelStart = 0
MaskEdBoxFen(Index).SelLength = 2
End Sub
Private Sub Option1_Click()
IsAutoTime = Option1.Value
FrmShow (Option1.Value)
End Sub
Private Sub Option2_Click()
IsAutoTime = Option1.Value
FrmShow (Option1.Value)
End Sub
Private Sub SetTimeValveName_Click(Index As Integer)
If SetTimeValveName(Index).Value = 1 Then
OpenTime(Index).Enabled = True
CloseTime(Index).Enabled = True
OpenTime(Index).Value = Now
CloseTime(Index).Value = Now + 1 / 24
Else
OpenTime(Index).Enabled = False
CloseTime(Index).Enabled = False
End If
End Sub
Private Sub CycValveCheck1_Click(Index As Integer)
If CycValveCheck1(Index).Value = 1 Then
MaskEdBoxFen(Index).Enabled = True
Else
MaskEdBoxFen(Index).Enabled = False
End If
End Sub
Private Sub CommandApply_Click()
Dim I As Integer
If IsAutoTime = True Then '如果是自动定时控制则
For I = 0 To 9
If SetTimeValveName(I).Value = 1 Then
FrmMain.MyValve(I).SetOpenTime = OpenTime(I).Value
FrmMain.MyValve(I).SetCloseTime = CloseTime(I).Value
FrmMain.MyValve(I).InCyc = True
Else
FrmMain.MyValve(I).SetOpenTime = 0
FrmMain.MyValve(I).SetCloseTime = 0
FrmMain.MyValve(I).InCyc = False
End If
Next
Else '自动定量控制
For I = 0 To 9
If CycValveCheck1(I).Value = 1 Then
FrmMain.MyValve(I).SetAmount = MaskEdBoxFen(I)
Call FrmMain.MyValve_DoOpen(I)
FrmMain.MyValve(I).InCyc = True
Else
FrmMain.MyValve(I).SetAmount = 0
' FrmMain.MyValve(i).InCyc = False
End If
Next
End If
End Sub
'定时开阀控制
Private Sub Ok_Button_Click()
Dim I As Integer
CommandApply_Click
Me.Hide
FrmMain.Refresh
End Sub
Private Sub CancelButton_Click()
Me.Hide
FrmMain.Refresh
End Sub
'Public Sub Cyc1Star()
'Dim I As Integer
'Dim CycLastID1 As Integer
''初始化
'StarID1 = -1
'Accont1 = 0
''检查是否加入循环
'For I = 5 To 0 Step -1
' If FrmMain.MyValve(I).InCyc = True Then
' If StarID1 = -1 Then '如果是第一个
' CycLastID1 = I '把该ID号保存下来。
' Else
' FrmMain.MyValve(I).CycNextID = StarID1
' End If
' Accont1 = Accont1 + 1
' StarID1 = I '链表首地址是自己
' FrmMain.MyValve(CycLastID1).CycNextID = I
' End If
'Next
''若有阀在循环里则循环立即开始
'If Accont1 > 0 Then
' FrmMain.MyValve(StarID1).CycStar 0
'End If
'End Sub
'Public Sub Cyc2Star()
'Dim I As Integer
'Dim CycLastID2 As Integer
'StarID2 = -1
'Accont2 = 0
''检查是否加入循环
'For I = 9 To 6 Step -1
' If FrmMain.MyValve(I).InCyc = True Then
' If StarID2 = -1 Then '如果是第一个
' CycLastID2 = I
' Else
' FrmMain.MyValve(I).CycNextID = StarID2
' End If
' Accont2 = Accont2 + 1
' StarID2 = I
' FrmMain.MyValve(CycLastID2).CycNextID = I
' End If
'Next
''若有阀在循环里则 循环立即开始
'If Accont2 > 0 Then
' FrmMain.MyValve(StarID2).CycStar 0 'Val(MaskEdBoxFen(StarID2).Text) / 1440
'End If
'End Sub
'Private Sub CycEnd1_Click()
'Dim I As Integer
'CycStar1.Enabled = True
'CycEnd1.Enabled = False
'LabTip1.Caption = "单击“循环开始”按钮，循环开始。"
'For I = 0 To 5
' FrmMain.MyValve(I).InCyc = False
'Next
'End Sub
'
'Private Sub CycEnd2_Click()
'Dim I As Integer
'CycStar2.Enabled = True
'CycEnd2.Enabled = False
'LabTip2.Caption = "单击“循环开始”按钮，循环开始。"
'For I = 6 To 9
' FrmMain.MyValve(I).InCyc = False
'Next
'End Sub
'Private Sub CycStar1_Click()
'CycStar1.Enabled = False
'CycEnd1.Enabled = True
'LabTip1.Caption = "单击“循环结束”按钮，循环结束。"
'Dim I As Integer
'For I = 0 To 5
' If CycValveCheck1(I).Value = 1 Then
' FrmMain.MyValve(I).InCyc = True
' FrmMain.MyValve(I).SetOpenTime = 0
' FrmMain.MyValve(I).SetCloseTime = 0
' FrmMain.MyValve(I).CycKeepTime = Val(MaskEdBoxFen(I).Text) / 12 '&&&-12
'' FrmMain.MyValve(i).SetAmount = Val(MaskEdBoxTon(i).Text)
' Else
' FrmMain.MyValve(I).InCyc = False
' End If
'Next
' '若有阀在循环里则 循环立即开始
' Cyc1Star
'End Sub
'Private Sub CycStar2_Click()
'CycStar2.Enabled = False
'CycEnd2.Enabled = True
'LabTip2.Caption = "单击“循环结束”按钮，循环结束。"
'Dim I As Integer
' For I = 6 To 9
' If CycValveCheck1(I).Value = 1 Then
' FrmMain.MyValve(I).InCyc = True
' FrmMain.MyValve(I).SetOpenTime = 0
' FrmMain.MyValve(I).SetCloseTime = 0
' FrmMain.MyValve(I).CycKeepTime = Val(MaskEdBoxFen(I).Text)
'' FrmMain.MyValve(i).SetAmount = Val(MaskEdBoxTon(i).Text)
' Else
' FrmMain.MyValve(I).InCyc = False
' End If
' Next
' '若有阀在循环里则 循环立即开始
' Cyc2Star
'End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -