IFIX历史趋势问题

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 "吸力"

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 BtnTime50ScrlFwCmd_Click()
HistTrndCht.ScrollPercentage = 50
HistTrndCht.ScrollForward
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 Calendar1_Click()
With HistTrndCht
      .EndTime = Me.Calendar1.Value
      .RefreshChartData
      End With
End Sub

问题补充：
我用IFIX做了个历史趋势，多个数据在同一画面，当选某一数据时就显示该数据的趋势图，每个数据趋势图的Y轴值是不一样的，请教高手选不同数据时调用不同Y轴值的趋势图如何做，以上是我的部分数据VB脚本，数据太多了，没法全部发出来，需要如何修改，请指教。QQ6587982，请赐教

最佳答案

其实把Y轴就用数值1做单位,也就是不要单位,最大值取所有变量中最大值最大的那个最大值做Y坐标值满度,这样当标尺移到地方,显示该曲线值并补上这个曲线变量的单位就可以了.
这个方法不是我创造的,即使悉亚特软件(HOLLYSYS也是用这个软件)采用的显示多条历史曲线的办法.

提问者对于答案的评价：
没人回答，只有你一个，虽然你的方法没采用，分还是给你吧

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc309800.html

IFIX历史趋势问题

相关推荐