Para alterar as propriedades da bomba, vamos criar um XControl que vai ser utilizado como Tela indexada.
1.Insira um XControl chamado "XC_Comando".
2.Configure-o conforme a figura a seguir. São utilizados três Textos ("Nome", "Comando" e "Velocidade"), um Botão Liga e Desliga ("ON" e "OFF") e um Botão de Comando ("Velocidade").
XControl XC_Comando
3.Crie a propriedade Fonte para acessar as propriedades do XObject XO_Bomba.
Propriedade Fonte
4.No Texto Nome, crie uma Associação Simples na propriedade Value com a propriedade DocString do objeto XO_Bomba.
Associação Simples com a propriedade DocString
5.No Botão Liga e Desliga, crie uma Associação Bidirecional na propriedade Value com a propriedade Estado do XObject XO_Bomba para alterar o estado da bomba. Na propriedade Caption, crie uma Associação Digital para alterar o texto do Botão de Comando dependendo do valor da propriedade Estado.
Associações com as propriedades Value e Caption
6.No Botão de Comando, vamos alterar o valor da velocidade de rotação da bomba. Para isto, vamos utilizar o método SelectMenu do Viewer no evento Click do Botão de Comando e passar o valor retornado para a propriedade Velocidade.
NOTA |
Como o retorno do método SelectMenu começa em 1 (um) e não em 0 (zero) como o valor da Propriedade Velocidade (0: Baixa, 1: Média e 2: Alta), subtraímos 1 (um) da variável op no script. |
op = Application.SelectMenu("Baixa|Média|Alta")
XC_Comando.Fonte.Velocidade = op - 1
7.Na propriedade Caption do Botão Liga e Desliga, crie uma Associação por Tabela para alterar o texto do Botão de Comando de acordo com o valor da Propriedade Velocidade.
Associação com as propriedades Caption e Velocidade
8.Para desabilitar a alteração da velocidade se a bomba estiver desligada, crie uma Associação Simples na propriedade Enabled com a propriedade Estado.
Associação entre as propriedades Enabled e Estado
9.Salve as modificações e registre a biblioteca.