Skip to main content
se añadieron 2150 caracteres en el cuerpo
Origen Enlace

EDIT -------

Finalmente pude resolverlo con Expresiones regulares. Dejo el código por si a alguien le sirve:

        ' Definimos las expresiones regulares
    Dim Valor As String = FORMULA_ATextBox.Text
    Dim matchesP1 As MatchCollection = Regex.Matches(Valor, "\+\d+%")
    Dim matchesP2 As MatchCollection = Regex.Matches(Valor, "\-\d+%")
    Dim matchesM As MatchCollection = Regex.Matches(Valor, "\*\d+")
    Dim matchesD As MatchCollection = Regex.Matches(Valor, "\/\d+")
    Dim Precio As Double = PRECIOTextBox.Text
    Dim PrecioA As Double = PRECIO_ATextBox.Text

    ' Si encuentra % postivo
    For Each m As Match In matchesP1
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA + (PrecioA * match1.Value / 100)
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra % negativo
    For Each m As Match In matchesP2
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA - (PrecioA * match1.Value / 100)
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra *
    For Each m As Match In matchesM
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA * match1.Value
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra /
    For Each m As Match In matchesD
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA / match1.Value
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

Gracias a todos por la ayuda!

EDIT -------

Finalmente pude resolverlo con Expresiones regulares. Dejo el código por si a alguien le sirve:

        ' Definimos las expresiones regulares
    Dim Valor As String = FORMULA_ATextBox.Text
    Dim matchesP1 As MatchCollection = Regex.Matches(Valor, "\+\d+%")
    Dim matchesP2 As MatchCollection = Regex.Matches(Valor, "\-\d+%")
    Dim matchesM As MatchCollection = Regex.Matches(Valor, "\*\d+")
    Dim matchesD As MatchCollection = Regex.Matches(Valor, "\/\d+")
    Dim Precio As Double = PRECIOTextBox.Text
    Dim PrecioA As Double = PRECIO_ATextBox.Text

    ' Si encuentra % postivo
    For Each m As Match In matchesP1
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA + (PrecioA * match1.Value / 100)
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra % negativo
    For Each m As Match In matchesP2
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA - (PrecioA * match1.Value / 100)
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra *
    For Each m As Match In matchesM
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA * match1.Value
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

    ' Si encuentra /
    For Each m As Match In matchesD
        For Each c As Capture In m.Captures
            Dim regex As Regex = New Regex("\d+")
            Dim match1 As Match = regex.Match(c.Value)
            PrecioA = PrecioA / match1.Value
        Next
        PRECIO_ATextBox.Text = PrecioA
    Next

Gracias a todos por la ayuda!

Origen Enlace

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!