Atualizando um E3Chart Histórico com os Dados da Última Hora

<< Clique para Mostrar o Sumário >>

 

Atualizando um E3Chart Histórico com os Dados da Última Hora

O exemplo a seguir demonstra como atualizar um E3Chart com os dados históricos da última hora. Para este exemplo, é necessário que haja uma Consulta a uma tabela previamente criada em um banco de dados.

1.Crie um E3Chart em uma Tela.

2.Abra a Janela de Propriedades deste E3Chart e selecione a aba Eixos. Clique na opção Configurar do Eixo Horizontal e, na aba Escala, selecione a opção Intervalo de tempo (Histórico).

3.Selecione a aba Consultas e clique em Adicionar. O E3 Studio mostra uma caixa de diálogo para que se indique o nome do servidor de banco de dados em que a tabela da consulta está armazenada.

4.Selecione o servidor de banco de dados na caixa de diálogo e clique em OK. O E3 Studio abre a janela de configurações da Consulta.

5.Selecione na tabela histórica o campo E3TimeStamp e algum outro campo de dados para mostrar no gráfico.

6.No campo E3TimeStamp, crie um filtro conforme as especificações da figura a seguir.

Filtro a ser criado no campo E3TimeStamp

Filtro a ser criado no campo E3TimeStamp

7.Após ter criado o filtro conforme as especificações anteriores, clique em OK.

8.Crie uma nova Pena. Abra a Janela de Propriedades desta Pena e, na aba Dados, item Tipo de Pena, selecione a opção Histórica usando a Consulta e indique o campo da Consulta configurada.

9.No item Campo do eixo vertical, indique um campo da tabela. No item Campo do eixo horizontal, indique o campo E3TimeStamp. Clique em OK.

10.Crie um novo Botão de Comando na Tela e, na propriedade Caption, digite a expressão "Atualizar E3Chart Histórico".

11.Selecione a aba Scripts deste Botão de Comando e, no evento Click, escreva o script a seguir.

Sub CommandButton3_Click()
  Set Chart = Screen.Item("E3Chart1")
  Set Consulta = Chart.Item("Consulta1")
  Consulta.SetVariableValue "Ini", Now – 1 / 24
  Consulta.SetVariableValue "Fim", Now
  Chart.HorScaleBegin = Now – 1 / 24
  Chart.HorScaleEnd = Now
  Chart.Queries.UpdateData()
End Sub

 

12.Execute o projeto e verifique o resultado.

Esta página foi útil?