|
<< Clique para Mostrar o Sumário >>
OnCommError |
OnCommError(EvtType, Size, Element, N1, N2, N3, N4)
Ocorre quando algum erro de escrita ou leitura é detectado pelo Driver de Comunicação. Utilize o evento OnCommError para saber quando ocorreu uma falha de escrita ou leitura no Driver. As variáveis de evento recebem informações sobre o erro ocorrido. Com estes valores, é possível rastrear quais Tags estão apresentando problemas de comunicação.
Variáveis do evento OnCommError
Nome |
Descrição |
|---|---|
EvtType |
Informa qual o tipo de operação o Driver estava efetuando quando ocorreu o erro, conforme as opções a seguir: •0: Erro de leitura de um só Elemento (Size = 1). Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •1: Erro de escrita de um só Elemento (Size = 1). Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •2: Erro de leitura de um Bloco (Bloco de Comunicação). Size é determinado pelo número de Elementos do Bloco. Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •3: Erro de escrita de um Bloco (Bloco de Comunicação). Size é determinado pelo número de Elementos do Bloco. Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 |
Size |
Quantidade de valores sendo escritos ou lidos |
Element |
Índice do Elemento que estava sendo lido ou escrito, dentro do Bloco |
N1 |
Parâmetro 1 da operação de leitura ou escrita que gerou o erro |
N2 |
Parâmetro 2 da operação de leitura ou escrita que gerou o erro |
N3 |
Parâmetro 3 da operação de leitura ou escrita que gerou o erro |
N4 |
Parâmetro 4 da operação de leitura ou escrita que gerou o erro |
Exemplo:
Sub Driver1_OnCommError(Type, Size, Element, N1, N2, N3, N4)
Application.GetObject("Dados.TagInterno1").Value = _
Application.GetObject("Dados.TagInterno1").Value + 1
Application.GetObject("Dados.EvtType").Value = EvtType
Application.GetObject("Dados.Size").Value = Size
Application.GetObject("Dados.Element").Value = Element
Application.GetObject("Dados.N1").Value = N1
Application.GetObject("Dados.N2").Value = N2
Application.GetObject("Dados.N3").Value = N3
Application.GetObject("Dados.N4").Value = N4
End Sub