A Calculation Engine for .NET

Imports System.Collections
Imports System.Reflection
Imports System.Globalization

Public Class Form1

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' create calc engine
        Dim ce As New CalcEngine.CalcEngine()

        ' register custom function
        ce.RegisterFunction("Add", 2, AddressOf Add)

        ' test
        Console.WriteLine(ce.Evaluate("Add(420, 123+123)"))

    End Sub

    Private Shared Function Add(ByVal p As List(Of CalcEngine.Expression)) As Object
        Return CDbl(p(0)) + CDbl(p(1))
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles _btnEval.Click
        Dim ce As New CalcEngine.CalcEngine()
        _lblResult.Text = ce.Evaluate(_txtExpression.Text).ToString()
    End Sub
End Class