How Do I Calculate Numbers In One Textbox Using All The Operators

Dim result As Double
Dim plus As String()
Dim Substract As String()
Dim multiply As String()
Dim divide As String()
Dim powerto As String()
Dim num As Long

If TextBox1.Text.Contains("^") Then
powerto = TextBox1.Text.Split("^")
For Each NumToPower As String In powerto
num ^= CStr(NumToPower)
Next
End If


If TextBox1.Text.Contains("/") Then
divide = TextBox1.Text.Split("/")
For Each numbertodivide As String In divide
If numbertodivide <> 0 Then
num /= CStr(numbertodivide)
result = num
Else
MessageBox.Show("Cannot Divide By 0")

Exit Sub
End If
Next

End If

If TextBox1.Text.Contains("*") Then
multiply = TextBox1.Text.Split("*")
For Each NumToPower As String In multiply
num *= CStr(NumToPower)
Next
End If

If TextBox1.Text.Contains("+") Then
plus = TextBox1.Text.Split("+")
For Each NumToPower As String In plus
num += CStr(NumToPower)
Next
End If

If TextBox1.Text.Contains("-") Then
Substract = TextBox1.Text.Split("-")
For Each NumToPower As String In Substract
num -= CStr(NumToPower)
Next
End If


MessageBox.Show(num)


Now i am having a problem getting the numbers, for example if i have 25*2+3 written in the textbox. how i get only the 25 and only the 2 .

We don't give code here on CodeProject. You would appreciate the fact that people don’t get paid here to be part of community. They are also having proper jobs just like you, but are enthusiastic enough to help others in a community.

And that’s what it makes CodeProject such a great community.

Anyway, if you are just interested in code there is always “www.RentACoder.com”