quinta-feira, 8 de outubro de 2015

Função em VBA no Process Book para escrever um valor em um tag

Fazer referência á Biblioteca: PISDK 1.3 Type Library
     Menu Tools --> References

Public Sub EscreveValor(NomeTag As String, Valor As Variant)
    Dim srv As Server
    Dim tag As PIPoint
    Dim timestamp As String
    Dim startTime As String
    
Set srv = PISDK.Servers.DefaultServer
    startTime = srv.servertime

    Set tag = srv.PIPoints(NomeTag)
    Tag.Data.UpdateValue Valor, startTime, dmReplaceDuplicates
End Sub

Nenhum comentário:

Postar um comentário