Exercícios

Neste exercício vamos implementar uma Tela para o cadastro de CLPs da aplicação, informando o nome, porta TCP/IP e endereço IP do equipamento.

Aplicação

1. Insira no projeto um novo Servidor de Dados, chamado "DadosHistorico".

2. Neste Servidor de Dados, insira três Tags Internos chamados "Equipamento", "IP" e "Porta".

3. Insira um objeto Banco de Dados no projeto.

4. Selecione a opção 0 - stAccess na aba Configuração e selecione um nome para o arquivo MDB.

5. Insira um objeto Histórico chamado "HistEquipamento" e crie os campos Equipamento, Porta e IP, configurando a coluna Fonte de cada um destes campos com seus respectivos Tags Internos criados no Servidor de Dados DadosHistorico.

6. Não é permitido mais de um registro com o mesmo nome de equipamento, portanto selecione o campo Equipamento como chave primária utilizando a Caixa de Seleção da coluna Chave Primária .

7. Abra a Janela de Propriedades do Histórico e configure-o para gravar os dados na tabela ConfigEquipamento do Banco de Dados, gravando um registro novo a cada 0 (zero) milissegundos.

8. Gere a estrutura da tabela.

Tela

1. Insira uma nova Tela no projeto, chamada "TelaEquipamentos", com o tamanho de 500 por 500 pixels.

2. Insira nesta Tela um objeto E3Browser.

3. Configure o E3Browser para exibir a tabela ConfigEquipamento e retornar os campos Equipamento, Porta e IP e ainda atualizar-se a cada 1000 milissegundos.

4. Abaixo do E3Browser, insira três SetPoints para poder editar o nome do equipamento, sua porta TCP/IP e seu endereço IP. Identifique cada SetPoint com um Texto.

5. Para facilitar os scripts seguintes, renomeie os SetPoints para "spEquipamento", "spPorta" e "spIP".

6. Crie uma Associação Bidirecional dos SetPoints com seus respectivos Tags em DadosHistorico.

7. Abaixo dos textos, insira três Botões de Comando chamados "Inserir", "Atualizar" e "Remover".

8. Na TelaInicial, insira um Botão de Comando para abrir a TelaEquipamentos.

Inserir

Para inserir um registro no Histórico sem habilitar a gravação por scan, deve-se utilizar o método WriteRecord do próprio Histórico.

1. Ao clicar em Inserir, o objeto Histórico deve inserir uma linha na tabela. No evento Click do botão Inserir, crie o script a seguir.

Application.GetObject("HistEquipamento").WriteRecord()

2. Execute a aplicação e cadastre pelo menos dois CLPs, modificando a porta TCP/IP de acordo com os equipamentos criados no Elipse Modbus Simulator.

Atualizar

Para atualizar um registro já existente na tabela, deve-se utilizar o comando Update. O registro que deve ser modificado é o registro selecionado. Para retornar o valor dos campos de um E3Browser, use o método GetColummValue.

1. Insira na Tela um objeto Consulta e nomeie-o como "ConsultaUpdate".

2. Na aba SQL, habilite a edição direta e altere o comando existente.

UPDATE ConfigEquipamento
SET Porta = <%Porta%>, IP = '<%IP%>'
WHERE Equipamento = '<%Equipamento%>'

3. Deseja-se atualizar a linha selecionada no E3Browser. Para retornar o valor de uma linha do E3Browser, crie o script a seguir no evento DblClick deste objeto.

Screen.Item("spEquipamento").Value = GetColumnValue(0)
Screen.Item("spPorta").Value = GetColumnValue(1)
Screen.Item("spIP").Value = GetColumnValue(2)

4. No botão Atualizar, adicione o script a seguir no evento Click.

'UPDATE

set cs = Screen.Item("ConsultaUpdate")

cs.SetVariableValue "Equipamento", Screen.Item("spEquipamento").Value
cs.SetVariableValue "IP", Screen.Item("spIP").Value
cs.SetVariableValue "Porta", Screen.Item("spPorta").Value
cs.Execute(True)

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

Apagar

Neste exercício, vamos apagar o registro selecionado no E3Browser. Para remover um registro da tabela, use o comando Delete.

1. Insira na Tela um objeto Consulta e nomeie-o como "ConsultaDelete".

2. Na aba SQL, edite o comando para o código a seguir.

DELETE FROM ConfigEquipamento
WHERE Equipamento = '<%Equipamento%>'

3. No botão Remover, insira o script a seguir.

'Nome do equipamento
clp = Screen.Item("spEquipamento").Value
'Confirmação do usuário
If MsgBox("Deseja realmente remover o equipamento " &  clp & "?", vbYesNo + vbQuestion) = vbYes Then
   Set cs = Screen.Item("ConsultaDelete")
   cs.SetVariableValue "Equipamento", Screen.Item("spEquipamento").Value
   cs.Execute()
End If