EvaluateModule – a module for evaluating expressions

EvaluateModule – a module for evaluating expressions

' A module for evaluating expressions, with support for' parenthesis and many math functions' Example:'   Dim expr As String = "(SQR(9)^3)+COS(0)*3+ABS(-10)"'   txtResult.Text = Evaluate(expr).ToString ' ==> 27+3+10 ==> 40        Imports System.Text.RegularExpressionsModule EvaluateModule    Function Evaluate(ByVal expr As String) As Double        ' A number is a sequence of digits optionally followed by a dot and         ' another sequence of digits. The number in parenthesis in order to         ' define an unnamed group.        Const Num As String = "(-?d+.?d*)"        ' List of 1-operand functions.        Const Func1 As String = "(exp|log|log10|abs|sqr|sqrt|sin|cos|tan|asin|ac" _            & "os|atan)"        ' List of 2-operand functions.        Const Func2 As String = "(atan2)"        ' List of N-operand functions.        Const FuncN As String = "(min|max)"        ' List of predefined constants.        Const Constants As String = "(e|pi)"        ' Define one Regex object for each supported operation.        ' They are outside the loop, so that they are compiled only once.        ' Binary operations are defined as two numbers with a symbol between         ' them        ' optionally separated by spaces.        Dim rePower As New Regex(Num & "s*(^)s*" & Num)        Dim reAddSub As New Regex(Num & "s*([-+])s*" & Num)        Dim reMulDiv As New Regex(Num & "s*([*/])s*" & Num)        ' These Regex objects resolve call to functions. (Case insensitivity.)        Dim reFunc1 As New Regex(Func1 & "(s*" & Num & "s*)", _            RegexOptions.IgnoreCase)        Dim reFunc2 As New Regex(Func2 & "(s*" & Num & "s*,s*" & Num & _            "s*)", RegexOptions.IgnoreCase)        Dim reFuncN As New Regex(FuncN & "((s*" & Num & "s*,)+s*" & Num & _            "s*)", RegexOptions.IgnoreCase)        ' This Regex object drop a + when it follows an operator.        Dim reSign1 As New Regex("([-+/*^])s*+")        ' This Regex object converts a double minus into a plus.        Dim reSign2 As New Regex("-s*-")        ' This Regex object drops parenthesis around a number.        ' (must not be preceded by an alphanum char (it might be a function         ' name)        Dim rePar As New Regex("(?' A Regex object that tells that the entire expression is a number        Dim reNum As New Regex("^s*[-+]?d+.?d*s*$")        ' The Regex object deals with constants. (Requires case insensitivity.)        Dim reConst As New Regex("s*" & Constants & "s*", _            RegexOptions.IgnoreCase)        ' This resolves predefined constants. (Can be kept out of the loop.)        expr = reConst.Replace(expr, AddressOf DoConstants)        ' Loop until the entire expression becomes just a number.        Do Until reNum.IsMatch(expr)            Dim saveExpr As String = expr            ' Perform all the math operations in the source string.            ' starting with operands with higher operands.            ' Note that we continue to perform each operation until there are            ' no matches, because we must account for expressions like (12*34*            ' 56)            ' Perform all power operations.            Do While rePower.IsMatch(expr)                expr = rePower.Replace(expr, AddressOf DoPower)            Loop            ' Perform all divisions and multiplications.            Do While reMulDiv.IsMatch(expr)                expr = reMulDiv.Replace(expr, AddressOf DoMulDiv)            Loop            ' Perform functions with variable numbers of arguments.             Do While reFuncN.IsMatch(expr)                expr = reFuncN.Replace(expr, AddressOf DoFuncN)            Loop            ' Perform functions with 2 arguments.             Do While reFunc2.IsMatch(expr)                expr = reFunc2.Replace(expr, AddressOf DoFunc2)            Loop            ' 1-operand functions must be processed last to deal correctly with             ' expressions such as SIN(ATAN(1)) before we drop parenthesis             ' pairs around numbers.            Do While reFunc1.IsMatch(expr)                expr = reFunc1.Replace(expr, AddressOf DoFunc1)            Loop            ' Discard + symbols (unary pluses)that follow another operator.            expr = reSign1.Replace(expr, "$1")            ' Simplify 2 consecutive minus signs into a plus sign.            expr = reSign2.Replace(expr, "+")            ' Perform all additions and subtractions.            Do While reAddSub.IsMatch(expr)                expr = reAddSub.Replace(expr, AddressOf DoAddSub)            Loop            ' attempt to discard parenthesis around numbers. We can do this            expr = rePar.Replace(expr, "$1")            ' if the expression didn't change, we have a syntax error.            ' this serves to avoid endless loops            If expr = saveExpr Then                ' if it didn't work, exit with syntax error exception.                Throw New SyntaxErrorException()            End If        Loop        ' Return the expression, which is now a number.        Return CDbl(expr)    End Function    ' These functions evaluate the actual math operations.    ' In all cases the Match object on entry has groups that identify    ' the two operands and the operator.    Function DoConstants(ByVal m As Match) As String        Select Case m.Groups(1).Value.ToUpper            Case "PI"                Return Math.PI.ToString            Case "E"                Return Math.E.ToString        End Select    End Function    Function DoPower(ByVal m As Match) As String        Dim n1 As Double = CDbl(m.Groups(1).Value)        Dim n2 As Double = CDbl(m.Groups(3).Value)        ' Group(2) is always the ^ character in this version.        Return (n1 ^ n2).ToString    End Function    Function DoMulDiv(ByVal m As Match) As String        Dim n1 As Double = CDbl(m.Groups(1).Value)        Dim n2 As Double = CDbl(m.Groups(3).Value)        Select Case m.Groups(2).Value            Case "/"                Return (n1 / n2).ToString            Case "*"                Return (n1 * n2).ToString        End Select    End Function    Function DoAddSub(ByVal m As Match) As String        Dim n1 As Double = CDbl(m.Groups(1).Value)        Dim n2 As Double = CDbl(m.Groups(3).Value)        Select Case m.Groups(2).Value            Case "+"                Return (n1 + n2).ToString            Case "-"                Return (n1 - n2).ToString        End Select    End Function    ' These functions evaluate functions.    Function DoFunc1(ByVal m As Match) As String        ' function argument is 2nd group.        Dim n1 As Double = CDbl(m.Groups(2).Value)        ' function name is 1st group.        Select Case m.Groups(1).Value.ToUpper            Case "EXP"                Return Math.Exp(n1).ToString            Case "LOG"                Return Math.Log(n1).ToString            Case "LOG10"                Return Math.Log10(n1).ToString            Case "ABS"                Return Math.Abs(n1).ToString            Case "SQR", "SQRT"                Return Math.Sqrt(n1).ToString            Case "SIN"                Return Math.Sin(n1).ToString            Case "COS"                Return Math.Cos(n1).ToString            Case "TAN"                Return Math.Tan(n1).ToString            Case "ASIN"                Return Math.Asin(n1).ToString            Case "ACOS"                Return Math.Acos(n1).ToString            Case "ATAN"                Return Math.Atan(n1).ToString        End Select    End Function    Function DoFunc2(ByVal m As Match) As String        ' function arguments are 2nd and 3rd group.        Dim n1 As Double = CDbl(m.Groups(2).Value)        Dim n2 As Double = CDbl(m.Groups(3).Value)        ' function name is 1st group.        Select Case m.Groups(1).Value.ToUpper            Case "ATAN2"                Return Math.Atan2(n1, n2).ToString        End Select    End Function    Function DoFuncN(ByVal m As Match) As String        ' function arguments are from group 2 onward.        Dim args As New ArrayList()        Dim i As Integer = 2        ' Load all the arguments into the array.        Do While m.Groups(i).Value <> ""            ' Get the argument, replace any comma to space,            '  and convert to double.            args.Add(CDbl(m.Groups(i).Value.Replace(","c, " "c)))            i += 1        Loop        ' function name is 1st group.        Select Case m.Groups(1).Value.ToUpper            Case "MIN"                args.Sort()                Return args(0).ToString            Case "MAX"                args.Sort()                Return args(args.Count - 1).ToString        End Select    End FunctionEnd Module' Note: This code is taken from Francesco Balena's' "Programming Microsoft Visual Basic .NET" - MS Press 2002, ISBN 0735613753' You can read a free chapter of the book at ' http://www.vb2themax.com/HtmlDoc.asp?Table=Books&ID=101000

devx-admin

devx-admin

Share the Post:
USA Companies

Top Software Development Companies in USA

Navigating the tech landscape to find the right partner is crucial yet challenging. This article offers a comparative glimpse into the top software development companies

Software Development

Top Software Development Companies

Looking for the best in software development? Our list of Top Software Development Companies is your gateway to finding the right tech partner. Dive in

India Web Development

Top Web Development Companies in India

In the digital race, the right web development partner is your winning edge. Dive into our curated list of top web development companies in India,

USA Web Development

Top Web Development Companies in USA

Looking for the best web development companies in the USA? We’ve got you covered! Check out our top 10 picks to find the right partner

Clean Energy Adoption

Inside Michigan’s Clean Energy Revolution

Democratic state legislators in Michigan continue to discuss and debate clean energy legislation in the hopes of establishing a comprehensive clean energy strategy for the

Chips Act Revolution

European Chips Act: What is it?

In response to the intensifying worldwide technology competition, Europe has unveiled the long-awaited European Chips Act. This daring legislative proposal aims to fortify Europe’s semiconductor

USA Companies

Top Software Development Companies in USA

Navigating the tech landscape to find the right partner is crucial yet challenging. This article offers a comparative glimpse into the top software development companies in the USA. Through a

Software Development

Top Software Development Companies

Looking for the best in software development? Our list of Top Software Development Companies is your gateway to finding the right tech partner. Dive in and explore the leaders in

India Web Development

Top Web Development Companies in India

In the digital race, the right web development partner is your winning edge. Dive into our curated list of top web development companies in India, and kickstart your journey to

USA Web Development

Top Web Development Companies in USA

Looking for the best web development companies in the USA? We’ve got you covered! Check out our top 10 picks to find the right partner for your online project. Your

Clean Energy Adoption

Inside Michigan’s Clean Energy Revolution

Democratic state legislators in Michigan continue to discuss and debate clean energy legislation in the hopes of establishing a comprehensive clean energy strategy for the state. A Senate committee meeting

Chips Act Revolution

European Chips Act: What is it?

In response to the intensifying worldwide technology competition, Europe has unveiled the long-awaited European Chips Act. This daring legislative proposal aims to fortify Europe’s semiconductor supply chain and enhance its

Revolutionized Low-Code

You Should Use Low-Code Platforms for Apps

As the demand for rapid software development increases, low-code platforms have emerged as a popular choice among developers for their ability to build applications with minimal coding. These platforms not

Cybersecurity Strategy

Five Powerful Strategies to Bolster Your Cybersecurity

In today’s increasingly digital landscape, businesses of all sizes must prioritize cyber security measures to defend against potential dangers. Cyber security professionals suggest five simple technological strategies to help companies

Global Layoffs

Tech Layoffs Are Getting Worse Globally

Since the start of 2023, the global technology sector has experienced a significant rise in layoffs, with over 236,000 workers being let go by 1,019 tech firms, as per data

Huawei Electric Dazzle

Huawei Dazzles with Electric Vehicles and Wireless Earbuds

During a prominent unveiling event, Huawei, the Chinese telecommunications powerhouse, kept quiet about its enigmatic new 5G phone and alleged cutting-edge chip development. Instead, Huawei astounded the audience by presenting

Cybersecurity Banking Revolution

Digital Banking Needs Cybersecurity

The banking, financial, and insurance (BFSI) sectors are pioneers in digital transformation, using web applications and application programming interfaces (APIs) to provide seamless services to customers around the world. Rising

FinTech Leadership

Terry Clune’s Fintech Empire

Over the past 30 years, Terry Clune has built a remarkable business empire, with CluneTech at the helm. The CEO and Founder has successfully created eight fintech firms, attracting renowned

The Role Of AI Within A Web Design Agency?

In the digital age, the role of Artificial Intelligence (AI) in web design is rapidly evolving, transitioning from a futuristic concept to practical tools used in design, coding, content writing

Generative AI Revolution

Is Generative AI the Next Internet?

The increasing demand for Generative AI models has led to a surge in its adoption across diverse sectors, with healthcare, automotive, and financial services being among the top beneficiaries. These

Microsoft Laptop

The New Surface Laptop Studio 2 Is Nuts

The Surface Laptop Studio 2 is a dynamic and robust all-in-one laptop designed for creators and professionals alike. It features a 14.4″ touchscreen and a cutting-edge design that is over

5G Innovations

GPU-Accelerated 5G in Japan

NTT DOCOMO, a global telecommunications giant, is set to break new ground in the industry as it prepares to launch a GPU-accelerated 5G network in Japan. This innovative approach will

AI Ethics

AI Journalism: Balancing Integrity and Innovation

An op-ed, produced using Microsoft’s Bing Chat AI software, recently appeared in the St. Louis Post-Dispatch, discussing the potential concerns surrounding the employment of artificial intelligence (AI) in journalism. These

Savings Extravaganza

Big Deal Days Extravaganza

The highly awaited Big Deal Days event for October 2023 is nearly here, scheduled for the 10th and 11th. Similar to the previous year, this autumn sale has already created

Cisco Splunk Deal

Cisco Splunk Deal Sparks Tech Acquisition Frenzy

Cisco’s recent massive purchase of Splunk, an AI-powered cybersecurity firm, for $28 billion signals a potential boost in tech deals after a year of subdued mergers and acquisitions in the

Iran Drone Expansion

Iran’s Jet-Propelled Drone Reshapes Power Balance

Iran has recently unveiled a jet-propelled variant of its Shahed series drone, marking a significant advancement in the nation’s drone technology. The new drone is poised to reshape the regional

Solar Geoengineering

Did the Overshoot Commission Shoot Down Geoengineering?

The Overshoot Commission has recently released a comprehensive report that discusses the controversial topic of Solar Geoengineering, also known as Solar Radiation Modification (SRM). The Commission’s primary objective is to

Remote Learning

Revolutionizing Remote Learning for Success

School districts are preparing to reveal a substantial technological upgrade designed to significantly improve remote learning experiences for both educators and students amid the ongoing pandemic. This major investment, which

Revolutionary SABERS Transforming

SABERS Batteries Transforming Industries

Scientists John Connell and Yi Lin from NASA’s Solid-state Architecture Batteries for Enhanced Rechargeability and Safety (SABERS) project are working on experimental solid-state battery packs that could dramatically change the

Build a Website

How Much Does It Cost to Build a Website?

Are you wondering how much it costs to build a website? The approximated cost is based on several factors, including which add-ons and platforms you choose. For example, a self-hosted