<< 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