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".
Configurações do Banco de Dados e da tabela
3.Crie três 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
Templates
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 dela outras duas Pastas chamadas "Maquina1" e "Maquina2". Dentro destas Pastas crie três Tags Internos para cada uma.
Criando Tags
Crie na Fórmula duas Unidades chamadas "Maquina1" e "Maquina2". Associe cada campo destas Unidades aos Tags criados anteriormente.
Associando os Tags às Unidades da Fórmula
6.Defina os Conjuntos de Valores a serem carregados posteriormente nos Tags. Crie quatro Conjuntos de Valores, chamados de "Modelo1" até "Modelo4", e digite os valores mostrados na figura a seguir.
Configuração do Conjunto de Valores
7.Crie agora uma nova Tela chamada "Fórmulas".
8.Crie seis objetos 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.
Tela de Fórmula
NOTA |
Às vezes, pode ocorrer um erro na Tela que faz com que as imagens desapareçam. Para solucionar esta questão, deve-se desabilitar a opção Esconder extensões do MS-DOS para arquivos registrados. Esta opção está disponível no Windows Explorer. |
9.Crie um botão 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
Onde Formula1 é o nome do objeto Fórmula criado e o método LoadFormulaDlg é um método do Viewer. Ao ser executado este método, a caixa de diálogo da figura a seguir é mostrada.
Caixa de diálogo do método LoadFormulaDlg
10.Na divisão da direita são apresentadas as duas 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 ver 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 com o título "OK". Junto com o SetPoint, coloque um texto de identificação com o título "Modelo:". No botão deve ser criado o seguinte script.
Sub CommandButton2_Click()
Application.LoadFormulaValues_
"Formula1", "Maquina1", "Modelo1"
Screen.Item("Texto16").Value
End Sub
Onde 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 seus 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.
Alteração do valor
No entanto existe uma alternativa, o método LoadFormulaValuesQuiet, do Viewer. É feita uma opção pelo modo silencioso na Tela, utilizando para isto, o objeto Caixa de Seleção.
1.Crie um objeto Caixa de Seleção na Tela.
2.Coloque um texto de identificação ao seu lado, com o texto "Silencioso".
3.Volte ao script do botão OK e mude o código para o seguinte:
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
Onde CheckBox1 é o nome da Caixa de Seleção criada. Isto faz com que se o objeto estiver habilitado, seja utilizado o método LoadFormulaValuesQuiet. Caso contrário, é utilizado o método LoadFormulaValues.
1.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.
Tela final da Fórmula
2.Execute a aplicação e observe os resultados.