Code is not work on my Expectation

Question

Module Module1
  Sub Main()
    Dim x As New xxCalc
    Dim s As String = ("+ - *")
    Dim xi As Integer = 2
    Dim xj As Integer = 2
    Dim xk As Integer = 2
    Dim xl As Integer = 2
    Console.WriteLine(x.xcalc(xi, xj, xk, xl, s))
    Console.ReadLine()
  End Sub
  Public Class xxCalc
    Function xcalc(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer, ByVal l As Integer, ByVal opt As String) As Object
      Dim word As String() = opt.Split(New Char() {" "c})
      Return i & word(0) & j & word(1) & k & word(2) & l
    End Function
  End Class
End Module

Console Show 2+2-2*2 ???

I want to Mathmeticaly Calculate it

---

www.shariqdon.com

Answer 1

Module Module1
 Sub Main()
 Dim x As New xxCalc
 Dim s As String = ("+ - *")
 Dim xi As Integer = 2
 Dim xj As Integer = 2
 Dim xk As Integer = 2
 Dim xl As Integer = 2
 Console.WriteLine(x.xcalc(xi, xj, xk, xl, s))
 Console.ReadLine()
 End Sub
 Public Class xxCalc
 Function xcalc(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer, ByVal l As Integer, ByVal opt As String) As Object
 Dim word As String() = opt.Split(New Char() {" "c})
 Return i & word(0) & j & word(1) & k & word(2) & l
 End Function
 End Class
End Module

Console Show 2+2-2*2 ???

I want to Mathmeticaly Calculate it

---

www.shariqdon.com

Hello ShariqDON,

 

try this code , i think it should work

 

 

Module Module1
 Sub Main()
 Dim x As New xxCalc
 Dim s As String = ("+ - *")
 Dim xi As Integer = 2
 Dim xj As Integer = 2
 Dim xk As Integer = 2
 Dim xl As Integer = 2
 Console.WriteLine(x.xcalc(xi, xj, xk, xl, s))
 Console.ReadLine()
 End Sub


 Public Class xxCalc
 Function xcalc(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer, ByVal l As Integer, ByVal opt As String) As Object
  Dim word As String() = opt.Split(New Char() {" "c})

  Return i + Char.IsSymbol(word(0)) + j + Char.IsSymbol(word(1)) + k + Char.IsSymbol(word(2)) + l
 End Function
 End Class
End Module

 

 

Hello

---

Carmelo La Monica  http://community.visual-basic.it/carmelolamonica/

Answer 2

Your expectations need to change.  & is the string concatenation operator.  The code is doing what you asked it to do.

 

Calculating the resultant string to get "0" is not in the generic sense trivial.

--
Mike

Answer 3

its work but not Calculat Correct

 

---

www.shariqdon.com

Answer 4

have a look at my inline calculator:

http://www.vbforums.com/showthread.php?t=624262

---

thanks for any help

Answer 5

have a look at my inline calculator:

http://www.vbforums.com/showthread.php?t=624262

---

thanks for any help

 

Thats Nice! Yes, Its Work in Your Style.

How Can I do with My Code

---

www.shariqdon.com

Answer 6

its work but not Calculat Correct

 

---

www.shariqdon.com

you can't calculate an arithmetical computation from a string in vb.net.

my link shows how you can use SQL to do that though.

---

thanks for any help

Answer 7

you can't calculate an arithmetical computation from a string in vb.net.

my link shows how you can use SQL to do that though.

---

thanks for any help

any other way???

why "Cormilo La Monica" Provided Code Work ??? iThe Results is Garbage Value, but its work.

---

www.shariqdon.com

Answer 8

you can't calculate an arithmetical computation from a string in vb.net.

my link shows how you can use SQL to do that though.

---

thanks for any help

any other way???

why "Cormilo La Monica" Provided Code Work ??? iThe Results is Garbage Value, but its work.

---

www.shariqdon.com

it gave a garbage value because, Carmelo La Monica's code:

Return i + Char.IsSymbol(word(0)) + j + Char.IsSymbol(word(1)) + k + Char.IsSymbol(word(2)) + l

is equal to:

Return i + true + j + true + k + true + l

 

---

thanks for any help

Answer 9

you can't calculate an arithmetical computation from a string in vb.net.

my link shows how you can use SQL to do that though.

---

thanks for any help

any other way???

why "Cormilo La Monica" Provided Code Work ??? iThe Results is Garbage Value, but its work.

---

www.shariqdon.com

it gave a garbage value because, Carmelo La Monica's code:

Return i + Char.IsSymbol(word(0)) + j + Char.IsSymbol(word(1)) + k + Char.IsSymbol(word(2)) + l

is equal to:

Return i + true + j + true + k + true + l

 

---

thanks for any help

Please Explain me This line "

Dim SQL As String = "SELECT " & TextBox1.Text.ToLower.Replace("math.", "")

what is math.

 

---

www.shariqdon.com

Answer 10

for the calculations you want to do you can use:

 

Dim SQL As String= i.tostring & " " & word(0) & " " & j.tostring & " " & word(1) & " " & k.tostring & " " & word(2) " " & & l.tostring

---

thanks for any help