OnCommError

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

 

O script a seguir contém um exemplo de uso deste evento.

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

Esta página foi útil?