<< Clique para Mostrar o Sumário >>   Procedimentos

1.Insira um objeto Fórmula na aplicação.

2.Configure o Banco de Dados e a tabela. Use um Banco de Dados existente no projeto e nomeie a tabela como "Produção".

3.Crie os seguintes Templates na Fórmula:

•Diâmetro Externo: Com restrição de valor absoluta entre 50 e 80

•Diâmetro Interno: Com restrição por diferença de valor de 10 e 10

•Altura: Com limite restrito

4.Na próxima etapa são definidas as Unidades relativas a esta Fórmula. Antes de criar as Unidades, no entanto, deve-se criar os Tags usados nesta Fórmula. Para isto, insira em um Servidor de Dados uma Pasta chamada "Formula" e dentro desta Pasta as Pastas "Maquina1" e "Maquina2". Dentro destas Pastas crie os Tags Internos mostrados na figura a seguir.

Crie na Fórmula as Unidades "Maquina1" e "Maquina2". Associe cada campo destas Unidades aos Tags criados anteriormente.

6.Defina os Conjuntos de Valores a serem carregados posteriormente nos Tags. Crie os Conjuntos de Valores de "Modelo1" até "Modelo4", e digite os valores mostrados na figura a seguir.

7.Crie agora uma nova Tela chamada "Fórmulas".

8.Crie objetos do tipo SetPoint nesta Tela, que devem ser associados a cada um dos Tags da Fórmula, e ajuste o tamanho da Tela ao dos objetos. A Tela deve estar semelhante à figura a seguir.

 

 

9.Crie um Botão de Comando na Tela com o título "Carregar Valores". Este Botão mostra uma caixa de diálogo com os valores existentes e as Unidades para as quais estes podem ser carregados, podendo ser selecionada qualquer opção. Para tanto, crie o seguinte script neste Botão.

Sub CommandButton1_Click()
  Application.LoadFormulaDlg_
    "Formula1", "Maquina1, Maquina2",_
    "Modelo1, Modelo2, Modelo3, Modelo4"
End Sub

 

Formula1 é o nome do objeto Fórmula criado e o método LoadFormulaDlg é um método do Viewer. Ao executar este método, a caixa de diálogo da figura a seguir é mostrada.

10.Na divisão da direita são apresentadas as Unidades criadas na Fórmula, assim como os Conjuntos de Valores. A opção Modo Silencioso inibe a possibilidade de o usuário alterar valores gravados em disco, que são carregados para os Tags.

11.Através deste Botão, pode-se visualizar a aplicação funcionando com as Fórmulas e os Tags recebendo os valores do disco. Este é um dos métodos para carregar valores de uma Fórmula, mas também existem métodos em que o usuário não necessita selecionar os valores ou as Unidades em uma caixa de diálogo.

12.Crie agora um objeto SetPoint na Tela e um Botão de Comando com o título "OK". Junto ao SetPoint, posicione um texto de identificação com o título "Modelo:". Neste Botão deve ser criado o script a seguir.

Sub CommandButton2_Click()
  Application.LoadFormulaValues_
    "Formula1", "Maquina1", "Modelo1"
  Screen.Item("Texto16").Value
End Sub

 

Texto16 é o nome do último SetPoint inserido na Tela. Este comando carrega o Conjunto de Valores especificado no SetPoint para a Unidade Maquina1. Ao ser executado, este método busca pelo Conjunto de Valores em disco. Caso encontre, carrega-o seguindo o padrão de restrições definido no Template da Fórmula. Os campos com restrições abertas podem ter os valores modificados pelo usuário. Para que o usuário não seja interrogado sobre as mudanças de valores nos campos carregados, deve-se utilizar o modo silencioso.

No entanto existe uma alternativa, o método LoadFormulaValuesQuiet, do Viewer. É definida uma opção pelo modo silencioso na Tela, utilizando para isto um objeto Caixa de Seleção.

1.Crie um objeto Caixa de Seleção na Tela.

2.Coloque um texto de identificação ao lado, com o texto "Silencioso".

3.Volte ao script do Botão OK e mude o script para o código a seguir.

Sub CommandButton2_Click()
  If Screen.Item("CheckBox1").Value = true Then
    Application.LoadFormulaValuesQuiet_
      "Formula1", "Maquina1", "Modelo1"
    Application.LoadFormulaValuesQuiet_
      "Formula1", "Maquina1", "Modelo2"
    Application.LoadFormulaValuesQuiet_
      "Formula1", "Maquina1", "Modelo3"
    Application.LoadFormulaValuesQuiet_
      "Formula1", "Maquina1", "Modelo4"
  Else
    Application.LoadFormulaValues_
      "Formula1", "Maquina1", "Modelo1"
    Application.LoadFormulaValues_
      "Formula1", "Maquina1", "Modelo2"
    Application.LoadFormulaValues_
      "Formula1", "Maquina1", "Modelo3"
    Application.LoadFormulaValues_
      "Formula1", "Maquina1", "Modelo4"
  End If
End Sub

 

CheckBox1 é o nome da Caixa de Seleção criada. Isto permite que, se o objeto está habilitado, seja utilizado o método LoadFormulaValuesQuiet. Caso contrário, é utilizado o método LoadFormulaValues.

4.Repita os últimos procedimentos desde a criação do SetPoint para os itens da Maquina2, modificando os scripts necessários. Ao final das alterações, a Tela deve estar semelhante à figura a seguir.

Execute a aplicação e observe os resultados.