FORMULAS

JAFREITAS 16/06/2011 11:15:30
#376950
gostaria de digitar uma fórmula em um campo texto exemplo:

A = (campo largura)
B = (campo comprimento)

C = (A*B)

fazer uma função que lê os campos A, B e C e retorna o valor de acordo com a fórmula digitada em C.
ROBIU 16/06/2011 11:23:39
#376955
seria assi:
Public Function Calculo(ValorA As Double, ValorB As Double) As Double
    Calculo = (ValorA * ValorB)
End Function


e pra chamar:

MsgBox Calculo(Text1.Text, Text2.Text)


ou:

Text3.Text= Calculo(Text1.Text, Text2.Text)
JAFREITAS 16/06/2011 13:04:15
#376969
Obrigado Roberto Martins

Mas gostaria de digitar a fórmula dentro de uma caixa de texto.

O campo C será um campo do tipo texto, vou digitar a formula dentro dele. Quero que o código interprete a formulá digitada dentro deste campo.
MARCELO.TREZE 16/06/2011 13:20:09
#376973 Resposta escolhida
use o o controle microsoft script control

vá em project / components e selecione Microsoft Script Control 1.0

e em um botão

Private Sub Command1_Click()
MsgBox ScriptControl1.Eval(Text1.Text)
End Sub



ou seja pode digitar no textbox assim: 1 + 1

ou mesmo formulas conmplexas

(3 * 8) + 4 ^ 2
JAFREITAS 16/06/2011 14:40:56
#376995
Muito Obrigado Marcelo

Esta dica resolveu meu problema.
Tópico encerrado , respostas não são mais permitidas
Voltar