Criar Tag de Comunicação em RunTime

[wagner.dracha (Wagner Drachinski)]

Boa tarde

Gostaria de saber se alguém sabe como inserir uma tag de comunicação em RunTime.

Obrigado

[Fernando (Luiz Fernando Freire dos Reis)]

@wagner.dracha, boa tarde.

Pode fazer algo assim (conforme explicado neste artigo):

Sub CommandButton1_Click()
Set dvr = Application.GetObject("Driver1")
Set tag = dvr.AddObject("IOTag", True, "Tag1")
 tag.N1 = 1
 tag.N2 = 1
 tag.N3 = 0
 tag.N4 = CDbl(Mid(tag.Name,4)) 'Retorna, neste primeiro, 1
 dvr.Save
End Sub

Obs.1: Como há o método Save, precisará atualizar a aplicação sempre que realizar o comando e quiser posteriormente modificar a aplicação. Mais detalhes aqui e aqui.

Obs.2: Irá contabilizar uma licença de IO sempre que adicionar um novo tag à aplicação com os parâmetros N diferentes.

Sds.