@piter, bom dia.
Duas formas de fazer isso são:
Primeira forma
- Criar um ToggleButton e no evento Change colocar o seguinte script:
Sub ToggleButton1_Change()
Set eixo = Screen.Item(“E3Chart1”).Axes.Item(“EixoHorizontal”)
’ Ultimas 5 horas
If Value Then
eixo.SetRealTimePeriod 5, 2
’ Ultimos 60 segundos
Else
eixo.SetRealTimePeriod 60, 0
End If
End Sub
Segunda forma
Sub opbReal_Change()
’ Seta o eixo que quer configurar
Set eixo = Screen.Item(“E3Chart1”).Axes.Item(“EixoHorizontal”)
’ Muda para o tipo real e seleciona a janela de tempo
If Value Then
eixo.ScaleType = 1
eixo.SetRealTimePeriod 60, 0
End If
End Sub
- No evento OnChange do OptionButton “Historico” colocar:
Sub OptionButton6_Change()
’ Seta o eixo que quer configurar
Set eixo = Screen.Item(“E3Chart1”).Axes.Item(“EixoHorizontal”)
’ Muda para o tipo real e seleciona a janela de tempo
If Value Then
eixo.ScaleType = 2
eixo.SetHistoricPeriod Now-5/24, Now
End If
End Sub