Sincronização de Eventos com Redundância

Caso a opção Sync Events with Stby Driver na aba Time / Event Settings esteja habilitada, é necessário que cada Driver Escravo redundante possua 2 (dois) Tags Bloco para receber e enviar os eventos a serem quitados.

Através do Tag Bloco com o parâmetro B2 igual a -22, é possível ler os eventos quitados em um Driver e com o Tag Bloco com o parâmetro B2 igual a -23 é possível escrever os eventos a serem quitados em outro Driver.

Em ambos os casos o Tag Bloco deve possuir 6 (seis) Elementos, descritos a seguir:

• Elemento 0: Objeto × 100 + Variação
• Elemento 1: Índice
• Elemento 2: Classe (um, dois ou três)
• Elemento 3: Valor
• Elemento 4: Estampa de tempo válida (1: Válida ou 0: Inválida)
• Elemento 5: Estampa de tempo no formato de ponto flutuante de 64 bits

Exemplo de código para o E3, Power ou Water, supondo a existência de um DriverSlave1 quitando eventos em DriverSlave2 e vice-versa.

Sub SyncEvtsRead_OnRead() //Script em DriverSlave1
  Set EvtTag = Application.GetObject("DriverSlave2.SyncEvtsWrite")
  EvtTag.Item("Elemento1").Value = Item("Elemento1").Value
  EvtTag.Item("Elemento2").Value = Item("Elemento2").Value
  EvtTag.Item("Elemento3").Value = Item("Elemento3").Value
  EvtTag.Item("Elemento4").Value = Item("Elemento4").Value
  EvtTag.Item("Elemento5").Value = Item("Elemento5").Value
  EvtTag.Item("Elemento6").Value = Item("Elemento6").Value
  EvtTag.Write()
End Sub

Sub SyncEvtsRead_OnRead() //Script em DriverSlave2
  Set EvtTag = Application.GetObject("DriverSlave1.SyncEvtsWrite")
  EvtTag.Item("Elemento1").Value = Item("Elemento1").Value
  EvtTag.Item("Elemento2").Value = Item("Elemento2").Value
  EvtTag.Item("Elemento3").Value = Item("Elemento3").Value
  EvtTag.Item("Elemento4").Value = Item("Elemento4").Value
  EvtTag.Item("Elemento5").Value = Item("Elemento5").Value
  EvtTag.Item("Elemento6").Value = Item("Elemento6").Value
  EvtTag.Write()
End Sub