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