Desafio VI

<< Clique para Mostrar o Sumário >>

 

Desafio VI

Crie um Comando de Passo para controle de posição do Tap do Transformador TR-01

 

DICA

Utilize o padrão *TapPosition, que é padronizado no Elipse Power.

 

Este Comando serve para ajustar o Tap do Transformador, que é representado pela Medida PosicaoTap. Portanto, primeiramente é necessário configurar esta Medida.

1.Selecione a Medida PosicaoTap do Transformador TR-01 e apague a fonte de medida SCADA.

2.Selecione a fonte Operator desta Medida e configure o valor inicial como 8 (oito).

Fonte do tipo Operator

Fonte do tipo Operator

3.Após, insira a pasta Commands no Transformador e, dentro desta pasta, crie um Comando de Passo.

4.Renomeie o Comando para "cmdTapPosition" e configure o tipo como *TapPosition na coluna Tipo.

5.Expanda o Comando e renomeie a UnidadeComando1 para "DesceTap". Verifique se a propriedade CommandName desta Unidade está configurada como StepDown.

6.Renomeie a UnidadeComando2 para "SobeTap". Verifique se a propriedade CommandName desta Unidade está configurada como StepUp.

Unidade de Comando

Unidade de Comando

7.Na coluna Tag, associe a fonte Operator da Medida TapPosition com a expressão "SE1.[TR-01].Terminal1.PosicaoTap.Operator", utilizando o AppBrowser. A expressão é a mesma para ambas as Unidades.

Tag

Tag

Até agora, todos os comandos enviavam valores fixos para o Tag associado. No caso do controle de Tap é um pouco diferente, pois precisamos saber o valor atual da Medida, para poder incrementá-la ou decrementá-la. Portanto, é necessário reconfigurar o padrão de comando *TapPosition.

8.Abra a janela de configurações do padrão *TapPosition na aba Comandos do objeto Configuração do Power.

9.Configure a coluna Operate Value com o valor -1 (menos um) para a Semântica StepDown.

10.Mantenha o valor 1 (um) para a Semântica StepUp.

Semânticas

Semânticas

11.Altere o script do evento OnOperate. Ao invés de apenas enviar o comando WriteValue, vamos somá-lo ao valor atual do Tag. O script deve ser configurado com o código a seguir (a parte destacada em negrito deve ser adicionada ao script original).

Sub OnOperate(ActorID, WriteValue, FeedbackValue, Failed)
  Set Tag = Application.GetObject(OperateWriteTag)
  Failed = Not Tag.WriteEx(Tag.Value + WriteValue)
End Sub

 

12.Execute a aplicação e teste a nova funcionalidade.

Esta página foi útil?