Skip to main content
1 de 2

Resolver ecuación matemática desde TextBox en VB.NET

Necesito ayuda con el siguiente problema:

Tengo tres TextBox.

  1. PRECIOTextBox que contiene un número
  2. FORMULATextBox que contiene una fórmula matemática como "+10%*2"
  3. PRECIO_ATextBox que debería mostrar el resultado de la fórmula matemática entre el primer y segundo TextBox

Hasta ahora sólo logré trabajar con porcentajes y resolver fórmulas como "+10%+20%". Pero me encuentro en un problema cuando a esa fórmula se agregan símbolos de multiplicación y división. Les dejo el código que tengo hasta ahora:

Dim FormulaA As String = FORMULA_ATextBox.Text
Dim FormulaASeparado() As String
Dim Precio1 As Double = PRECIOTextBox.Text
FormulaASeparado = FormulaA.Split("%")

  For x = 0 To FormulaASeparado.Length - 1
      If FormulaASeparado(x).ToString <> "" Then
          If Val(FormulaASeparado(x)) > 0 Then
              Precio1 = Precio1 + (Precio1 * Val(FormulaASeparado(x)) / 100)
          Else
              Precio1 = Precio1 - (Precio1 * Math.Abs(Val(FormulaASeparado(x))) / 100)
          End If
      End If
  Next

PRECIO_ATextBox.Text = Precio1

Sería de gran ayuda si alguien puede colaborar. Hace semanas estoy trabado en esto jaja! Gracias!