Determina a origem dos dados de uma Pena. As opções disponíveis para esta propriedade estão descritas na tabela a seguir.
Opções disponíveis para a propriedade DataSourceType
Opção |
Descrição |
|---|---|
0 - Tempo Real |
Indica uma conexão desta Pena a um Tag atualizado em tempo real |
1 - Histórica |
Indica uma conexão desta Pena aos dados recebidos de uma Consulta |
2 - Histórica e Tempo Real |
Indica uma conexão desta Pena a Tags de tempo real e dados históricos simultaneamente |
3 - Automática |
Indica uma conexão automática desta Pena a um servidor, conforme um período de tempo selecionado no Eixo Horizontal |
Quando esta propriedade é igual a 0 (zero, Tempo Real), as propriedades XLink e YLink informam os links utilizados, ou então a propriedade UseTimeStamp informa que a propriedade XLink não é usada, estando em seu lugar a estampa de tempo da propriedade YLink. Quando esta propriedade é igual a 1 (um, Histórica), as propriedades XField e YField informam os campos da tabela a serem usados. A propriedade QueryName indica o nome da tabela usada. Quando esta propriedade é igual a 2 (dois, Histórica e Tempo Real), as opções 0 (zero) e 1 (um) funcionam simultaneamente para a Pena. Quando esta propriedade é igual a 3 (três, Automática), a Pena é plotada utilizando um Eixo automático, que recebe os limites mínimos e máximos a partir das configurações da unidade de engenharia do Tag no servidor.
NOTA |
Em tempo de execução, quando esta propriedade é alterada e a Pena deixar de mostrar os dados de tempo real, é preciso utilizar o método Connect para que estes dados sejam mostrados novamente. |
Exemplo:
Sub CommandButton1_Click()
Set E3Chart1 = Screen.Item("E3Chart1")
MsgBox "Clique em OK para criar a Pena."
Set Pen = E3Chart1.Pens.AddPen("Pen1")
Pen.DataSourceType = 0 ' Tempo real
Pen.YLink = "Dados.TagDemo1"
Pen.UseTimeStamp = True ' Em X usa a estampa de tempo
Pen.Color = RGB(255, 0, 0)
Pen.Docstring = "Teste"
MsgBox "Clique em OK para conectar."
Pen.Connect() ' Começa a receber os dados
MsgBox "Clique em OK para enquadrar."
E3Chart1.FitPen(0)
MsgBox "Clique em OK para remover a Pena."
E3Chart1.Pens.Remove(Pen.Name)
End Sub