技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区

回复:IFIX历史趋势问题

啊啊啊啊哦

  • 帖子

    120

  • 精华

    0

  • 被关注

    9

论坛等级：侠客

注册时间：2008-09-10

普通 普通 如何晋级?

发布于 2010-08-09 21:47:38

1楼

完整的程序如下：
Private Sub AlarmSummaryOCX2_AlarmAck()


End Sub

Private Sub Calendar3_Click()
With HistTrndCht
.EndTime = Calendar3.Value & " 23:59:59"
End With
End Sub

Private Sub CFixPicture_Initialize()

ComboBox1.AddItem "温度"
ComboBox1.AddItem "吸力"
ComboBox2.AddItem "温度"
ComboBox2.AddItem "吸力"
ComboBox3.AddItem "温度"
ComboBox3.AddItem "吸力"
ComboBox4.AddItem "机测"
ComboBox4.AddItem "焦侧"
ComboBox5.AddItem "空1"
ComboBox5.AddItem "空2"
ComboBox5.AddItem "煤1"
ComboBox5.AddItem "煤2"
ComboBox6.AddItem "空1"
ComboBox6.AddItem "空2"
ComboBox6.AddItem "煤1"
ComboBox6.AddItem "煤2"
ComboBox7.AddItem "出口温度"
ComboBox7.AddItem "压力"
ComboBox7.AddItem "瞬时流量"
ComboBox7.AddItem "累积流量"
ComboBox8.AddItem "温度"
ComboBox8.AddItem "压力"
ComboBox9.AddItem "压力"
ComboBox9.AddItem "瞬时流量"
ComboBox9.AddItem "累积流量"
ComboBox10.AddItem "压力"
ComboBox10.AddItem "瞬时流量"
ComboBox10.AddItem "累积流量"
ComboBox11.AddItem "温度"
ComboBox11.AddItem "压力"
End Sub
Private Sub ComboBox11_Change()
If ComboBox11.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw534.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
End If
If ComboBox11.Value = "压力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw598.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw512.F_CV"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox1.Value = "吸力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw550.F_CV"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub Group11_Click()

End Sub

Private Sub Group41_Click()

End Sub

Private Sub Group12_Click()

End Sub

Private Sub Group22_Click()

End Sub

Private Sub Group39_Click()

End Sub

Private Sub Group35_Click()

End Sub

Private Sub Group37_Click()

End Sub

Private Sub Group28_Click()

End Sub

Private Sub HistTrndCht_Click()

End Sub

Private Sub BtnTime15minCmd_Click()
With HistTrndCht
.Duration = 900
.TimeBeforeNow = 900
.RefreshChartData
End With
End Sub

Private Sub BtnTime1hrCmd_Click()
With HistTrndCht
.Duration = 3600
.TimeBeforeNow = 3600
.RefreshChartData
End With
End Sub

Private Sub ComboBox11_Click()

End Sub

Private Sub BtnTime8hrCmd_Click()
With HistTrndCht
.Duration = 28800
.TimeBeforeNow = 28800
.RefreshChartData
End With
End Sub

Private Sub PipeVert23_Edit()
frmPipes.InitializeDynamo PipeVert23
frmPipes.Show
End Sub

Private Sub BtnTimeScrlNowCmd_Click()
With HistTrndCht
.EndTime = Now
.RefreshChartData
End With
End Sub

Private Sub PipeVert19_Edit()
frmPipes.InitializeDynamo PipeVert19
frmPipes.Show
End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub BtnTime1dayCmd_Click()
With HistTrndCht
.Duration = 86399
.TimeBeforeNow = 86399
.RefreshChartData
End With
End Sub

Private Sub BtnTime100ScrlBkCmd_Click()
HistTrndCht.ScrollPercentage = 99.99
HistTrndCht.ScrollBack
End Sub

Private Sub BtnTime100ScrlFwCmd_Click()
HistTrndCht.ScrollPercentage = 99.99
HistTrndCht.ScrollForward
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw514.F_CV"
ComboBox1.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox2.Value = "吸力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw552.F_CV"
ComboBox1.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox2_Click()

End Sub

Private Sub ComboBox3_Change()
If ComboBox3.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw322.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox3.Value = "吸力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw344.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub BtnTime50ScrlFwCmd_Click()
HistTrndCht.ScrollPercentage = 50
HistTrndCht.ScrollForward
End Sub

Private Sub ComboBox3_Click()

End Sub

Private Sub ComboBox4_Change()
If ComboBox4.Value = "机测" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw316.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox4.Value = "焦侧" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw318.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox4_Click()

End Sub

Private Sub BtnChrtDatRfrshCmd_Click()
HistTrndCht.RefreshChartData
HistTrndCht.Refresh
End Sub

Private Sub BtnTime50ScrlBkCmd_Click()
HistTrndCht.ScrollPercentage = 50
HistTrndCht.ScrollBack
End Sub

Private Sub ComboBox5_Change()
If ComboBox5.Value = "空1" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw564.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox5.Value = "空2" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw568.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox5.Value = "煤1" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw566.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox5.Value = "煤2" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw570.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox5_Click()

End Sub

Private Sub ComboBox10_Change()
If ComboBox10.Value = "压力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw546.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox10.Value = "瞬时流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw620.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox10.Value = "累积流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.DB1DBD188.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox10_Click()

End Sub

Private Sub ComboBox6_Change()
If ComboBox6.Value = "空1" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw572.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox6.Value = "空2" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw576.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox6.Value = "煤1" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw574.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox6.Value = "煤2" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw578.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub PipeHorzAnim2_Edit()
frmPipeAnim.InitializeDynamo PipeHorzAnim2
frmPipeAnim.Show
End Sub

Private Sub ComboBox6_Click()

End Sub

Private Sub ComboBox8_Change()
If ComboBox8.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw518.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox8.Value = "压力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw580.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox8_Click()

End Sub

Private Sub ComboBox9_Change()
If ComboBox9.Value = "压力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw542.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"

End If
If ComboBox9.Value = "瞬时流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw618.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"

End If
If ComboBox9.Value = "累积流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.DB1DBD184.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"

End If
HistTrndCht.AutoScaleDisplayLimits
End Sub

Private Sub ComboBox9_Click()

End Sub

Private Sub ComboBox7_Change()
If ComboBox7.Value = "出口温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw572.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox7.Value = "压力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw576.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox7.Value = "瞬时流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw574.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox7.Value = "累积流量" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw578.F_CV"
ComboBox1.Value = "请选择"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub
Private Sub ComboBox7_Click()

End Sub


Private Sub Calendar1_Click()
With HistTrndCht
.EndTime = Me.Calendar1.Value
.RefreshChartData
End With
End Sub
没个性
评论
编辑推荐： 关闭

请填写推广理由：

活动公告 查看全部公告>

AI 小西智伴登场，7×24 小时权威支援，让技术支持告别等待！

热门视频，猜你喜欢

本版热门话题

通信与网络组件

共有4448条技术帖

更多

评选标准

相关推荐

换一换

热门标签

换一换

相关帖子推荐

换一换
guzhang

恭喜，你发布的帖子

被评为精华帖！

快扫描右侧二维码晒一晒吧！

再发帖或跟帖交流2条，就能晋升VIP啦！开启更多专属权限！

  • 分享

  • 只看
    楼主

top
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。