Visual Basic em Português

Existem algumas formas de calcular expressões matemáticas, mas na maioria delas, é necessário efectuar uma série de validações, como propriedades distributivas, funções trigonométricas, etc., e a utilização de um grande número de linhas de código.

Uma forma simples de calcular uma expressão matemática, através de uma string, é usando o Microsoft Script Control, um controlo ActiveX normalmente disponível no sistema operativo, e já com alguns anos, mas que ainda pode ajudar bastante na simplificação do código.

Para utilizar este controlo, é apenas necessário adicionar uma referência ao Microsoft Script Control 1.0, no separador COM.

Depois no código é apenas necessário:

Dim ScriptEngine As New MSScriptControl.ScriptControl
ScriptEngine.Language = "VBScript"

Dim expression As String = "(10 + 154) * 300 / (40 - 4)^2"

Dim result As String = ScriptEngine.Eval(expression)
Debug.Writeline(result)

Isto irá mostrar o resultado da expressão, que neste caso é 37,962962962963

Mas podem-se usar expressões mais complexas, com funções trigonométricas incluídas. Como exemplo (expressão sem sentido):

Dim expression As String = "sin(30)*cos(9)/tan(4)*2"

Este controlo permite também efectuar outras operações, como por exemplo:

Dim msg As String = "Msgbox(""Isto é um teste ..."")"
ScriptEngine.ExecuteStatement(msg)

Mas para mais informação sobre elas, deixo aqui este link, entre muitos outros disponíveis: How To Call Functions Using the Script Control

PS: Como sempre, qualquer dúvida, comentário ou correcção ao artigo é sempre bem vinda!