|
<< 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 este evento para saber quando ocorreu uma falha de escrita ou leitura. As variáveis de evento recebem informações sobre o erro ocorrido. Com estes valores, é possível rastrear quais Tags de Comunicação 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 de Comunicação estava efetuando quando ocorreu o erro, conforme as opções a seguir: •0: Erro de leitura de um só Elemento de Bloco de Comunicação (Size = 1). Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •1: Erro de escrita de um só Elemento de Bloco de Comunicação (Size = 1). Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •2: Erro de leitura de um Bloco de Comunicação. Size é determinado pelo número de Elementos de Bloco de Comunicação. Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 •3: Erro de escrita de um Bloco de Comunicação. Size é determinado pelo número de Elementos de Bloco de Comunicação. Param1 é N1, Param2 é N2, Param3 é N3 e Param4 é N4 |
Size |
Quantidade de valores escritos ou lidos |
Element |
Índice do Elemento de Bloco de Comunicação que estava sendo lido ou escrito, dentro do Bloco de Comunicação |
N1 |
Parâmetro 1 (um) da operação de leitura ou escrita que gerou o erro |
N2 |
Parâmetro 2 (dois) da operação de leitura ou escrita que gerou o erro |
N3 |
Parâmetro 3 (três) da operação de leitura ou escrita que gerou o erro |
N4 |
Parâmetro 4 (quatro) 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