请高手指点下列子程序的功能作用(3)。

lichudi 2003-08-19 05:33:19
Sub S10Permite()
Dim j%
TNumber = TNumber + 1
If TNumber > 360 Then TNumber = 360 '1440
If TNumber = 360 Then
For i = 1 To TNumber - 1
For j% = 1 To PNumber
DTrend(j%, i) = DTrend(j%, i + 1)
Next j%
TString(i) = TString(i + 1)
Next i
End If
For j% = 1 To PNumber
DTrend(j%, TNumber) = Data(j%)
Next j%
TString(TNumber) = TTT
'如果任意四个参数趋势图窗口打开,刷新数据
If FTAny Then
With frmTrend4ofANY.Trend1
.AddXY 0, TTT, Data(TrendIndex(0))
.AddXY 1, TTT, Data(TrendIndex(1))
.AddXY 2, TTT, Data(TrendIndex(2))
.AddXY 3, TTT, Data(TrendIndex(3))
.Refresh
For j% = 0 To 3
frmTrend4ofANY.Trend1.VarID = j%
frmTrend4ofANY.labMaxV(j%).Caption = Format$(.VarVisibleMax, "##0.0")
frmTrend4ofANY.labMinV(j%).Caption = Format$(.VarVisibleMin, "##0.0")
frmTrend4ofANY.labAvrV(j%).Caption = Format$(.VarVisibleAvg, "##0.0")
Next j%
End With
End If
'如果床温趋势图窗口打开,刷新数据
If FTBT Then
With frmTrend4ofBT.Trend1
.AddXY 0, TTT, Data(41)
.AddXY 1, TTT, Data(42)
.AddXY 2, TTT, Data(43)
.AddXY 3, TTT, Data(44)
.Refresh
For j% = 0 To 3
.VarID = j%
frmTrend4ofBT.labMaxV(j%).Caption = Format$(.VarVisibleMax, "##0.0")
frmTrend4ofBT.labMinV(j%).Caption = Format$(.VarVisibleMin, "##0.0")
frmTrend4ofBT.labAvrV(j%).Caption = Format$(.VarVisibleAvg, "##0.0")
Next j%
End With
End If

'如果一个参数趋势图窗口打开,刷新数据
If FTOne Then
With frmTrendOne.Trend1
frmTrendOne.Indicator1.BarValue = Data(TrendOnePindex)
.AddXY 0, TTT, Data(TrendOnePindex)
.Refresh
.CaptionID = 4
.CaptionText = Format$(.VarVisibleMax, "##0.000")
.CaptionID = 6
.CaptionText = Format$(.VarVisibleMin, "##0.000")
.CaptionID = 8
.CaptionText = Format$(.VarVisibleAvg, "##0.000")
.Refresh
End With
frmTrendOne.Indicator1.Refresh
End If
'
If ModelFlag Then
frmModel.Trend1.AddXY 0, TTT, Data(73)
frmModel.Trend1.Refresh
frmModel.Trend2.AddXY 0, TTT, Data(74)
frmModel.Trend2.Refresh
End If
'
If IndicatorFlag Then
For i = 0 To 7
frmIndicator.Indicator1(i).BarValue = Data(BarIndex(i))
Next i
End If

End Sub
Sub AlarmPermite()
Dim DataIndex As Integer, Aup As Single, Adown As Single, Limit As Single
Dim st As String, dt As Single, t As Date, AlarmStart As Boolean
Dim i As Integer, AlarmFlagTemp As Integer

AlarmStart = False
With AAA
For i = 1 To 4
DataIndex = .DataIndex(i)
Aup = .UpLimit(i)
Adown = .DownLimit(i)
Limit = .PLimit(i)
Select Case .Flag(i)
Case 0
If Data(DataIndex) > (Aup + Limit) Then
.Flag(i) = 1
.MValue(i) = Data(DataIndex)
AlarmStart = True
.StartTime(i) = TTT
' Call CloseVoice
VoiceFlag(i) = True
Call UpAlarmPermite(.PName(i))
AlarmNumber = AlarmNumber + 1
End If
If Data(DataIndex) < (Adown - Limit) Then
.Flag(i) = 2
.MValue(i) = Data(DataIndex)
AlarmStart = True
.StartTime(i) = TTT
' Call CloseVoice
VoiceFlag(i) = True
Call DownAlarmPermite(.PName(i))
AlarmNumber = AlarmNumber + 1
End If
Case 1
If Data(DataIndex) < (Aup - Limit) Then
.Flag(i) = 0
frmMain.AdodcAlarm.Recordset.AddNew
frmMain.AdodcAlarm.Recordset("发生日期") = Format(.StartTime(i), "yyyy年mm月dd日")
frmMain.AdodcAlarm.Recordset("发生时间") = Format(.StartTime(i), "hh:nn:ss")
frmMain.AdodcAlarm.Recordset("参数名称") = .PName(i)
frmMain.AdodcAlarm.Recordset("越限方向") = "上限"
frmMain.AdodcAlarm.Recordset("越限极值") = .MValue(i)
frmMain.AdodcAlarm.Recordset("单位") = .PUnit(i)
frmMain.AdodcAlarm.Recordset("终止时间") = Format(TTT, "yyyy年mm月dd日 hh:nn:ss")
frmMain.AdodcAlarm.Recordset.Update
VoiceFlag(i) = False
AlarmNumber = AlarmNumber - 1
Else
If Data(DataIndex) > .MValue(i) Then .MValue(i) = Data(DataIndex)
If Not AlarmStart Then Call UpAlarmPermite(.PName(i))
End If
Case 2
If Data(DataIndex) > (Adown + Limit) Then
.Flag(i) = 0
frmMain.AdodcAlarm.Recordset.AddNew
frmMain.AdodcAlarm.Recordset("发生日期") = Format(.StartTime(i), "yyyy年mm月dd日")
frmMain.AdodcAlarm.Recordset("发生时间") = Format(.StartTime(i), "hh:nn:ss")
frmMain.AdodcAlarm.Recordset("参数名称") = .PName(i)
frmMain.AdodcAlarm.Recordset("越限方向") = "下限"
frmMain.AdodcAlarm.Recordset("越限极值") = .MValue(i)
frmMain.AdodcAlarm.Recordset("单位") = .PUnit(i)
frmMain.AdodcAlarm.Recordset("终止时间") = Format(TTT, "yyyy年mm月dd日 hh:nn:ss")
frmMain.AdodcAlarm.Recordset.Update
VoiceFlag(i) = False
AlarmNumber = AlarmNumber - 1
Else
If Data(DataIndex) < .MValue(i) Then .MValue(i) = Data(DataIndex)
If Not AlarmStart Then Call DownAlarmPermite(.PName(i))
End If
End Select
Next i
If AlarmNumber > 0 Then
frmMain.AniLineAlarm.Text = "请注意! "
For i = 1 To 4
If .Flag(i) = 1 Then frmMain.AniLineAlarm.Text = frmMain.AniLineAlarm.Text + .PName(i) + "超高 "
If .Flag(i) = 2 Then frmMain.AniLineAlarm.Text = frmMain.AniLineAlarm.Text + .PName(i) + "超低 "
Next i
End If
If AlarmNumber = 0 Then frmMain.AniLineAlarm.Visible = False
End With
End Sub

...全文
31 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
lvkate 2003-08-19
  • 打赏
  • 举报
回复
太长了,没头没脑的,不知道你问什么?

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧