<< Clique para Mostrar o Sumário >>
Criação de uma Pena por Script |
O exemplo a seguir demonstra como criar uma Pena por script, conforme os procedimentos a seguir.
1.Crie um E3Chart em uma Tela.
2.Crie um Botão de Comando nesta Tela. Na propriedade Caption, digite o texto "Criar Pena".
3.Abra a Janela de Propriedades deste Botão de Comando e selecione a aba Scripts. Digite o script a seguir no evento Click.
Sub Texto1_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.VerDataSource = "Dados.TagDemo1"
Pen.UseTimeStamp = True ' No X usa o timestamp
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 desconectar"
Pen.Disconnect() ' Para de receber os dados
MsgBox "Clique em OK para remover a Pena"
E3Chart1.Pens.Remove(Pen.Name)
End Sub
4.Execute o projeto e verifique o resultado.