Sincronia de Eventos com Redundância

<< Clique para Mostrar o Sumário >>

 

Sincronia 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 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 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 ou Elipse Power, 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

Esta página foi útil?