1

Cuento con tres TextBox.

LISTATextBox, DESCUENTOTextBox y COSTOTextbox.

COSTOTextbox sería igual a LISTATextbox + DESCUENTOTextBox.

Mi problema está en que en DESCUENTOTextBox tendría que colocar una fórmula como la siguiente: 10%-20%+5%.

Siempre son operaciones con %. Y siempre sumo o resto los porcentajes.

  • Ejemplo: si en LISTA tengo 100 y en DESCUENTO -10%-10%, COSTO debería dar como resultado 81.

Existe alguna forma de resolverlo? Hasta ahora sólo pude trabajar con cuentas simples, pero no fórmulas en cadena.

Les dejo el código que tengo hasta ahora:

Private Sub DESCUENTOTextBox_TextChanged(sender As Object, e As EventArgs) Handles DESCUENTOTextBox.TextChanged

    Dim Numero As String
    Dim math As String
    math = Val(DESCUENTOTextBox.Text)
    Numero = LISTATextBox.Text + DESCUENTOTextBox.Text
    COSTOTextBox.Text = Numero

End Sub

---- EDIT --------------------------------------------------------------

Dejo el código final con el que pude resolver el problema. Gracias Agustin M.!

Private Sub DESCUENTOTextBox_TextChanged(sender As Object, e As EventArgs) Handles DESCUENTOTextBox.TextChanged

    Dim Descuento As String = DESCUENTOTextBox.Text

    Dim DescuentoSeparado() As String
    If LISTATextBox.Text = "" Then
        LISTATextBox.Text = "0"
    End If
    If LISTATextBox.Text > "0" Then
        Dim Lista As Double = LISTATextBox.Text

        DescuentoSeparado = Descuento.Split("%")
        'En DescuentoSeparado almacenamos el Array separado por %

        For x = 0 To DescuentoSeparado.Length - 1
            If DescuentoSeparado(x).ToString <> "" Then
                ' Recorremos el Array y dependiendo si el descuento es
                ' positivo o negativo se lo sumamos o restamos a Lista
                If Val(DescuentoSeparado(x)) > 0 Then
                    Lista = Lista + (Lista * Val(DescuentoSeparado(x)) / 100)
                Else
                    Lista = Lista - (Lista * Math.Abs(Val(DescuentoSeparado(x))) / 100)
                End If
            End If
        Next

        ' Finalmente obtenemos Costo.
        COSTOTextBox.Text = Lista
    End If
    If LISTATextBox.Text = "0" Then
        COSTOTextBox.Text = "0"
    End If

End Sub
3
  • ¿Podrías poner más ejemplos de lo que se debería evaluar? ¿Son siempre operaciones con %, o es una pregunta más amplia? ¿Qué intentaste hasta ahora?
    – Mariano
    Commented el 29 may. 2017 a las 23:08
  • Hola! Gracias por responder. Siempre son operaciones con %. Y siempre sumo o resto los porcentajes. Si en LISTA tengo 100 y en DESCUENTO -10%-10%, COSTO debería dar como resultado 81. Commented el 29 may. 2017 a las 23:10
  • formulas es para fórmulas de hojas de cálculo pero esta pregunta no se refiere a dicho tipo de fórmulas.
    – Rubén
    Commented el 14 abr. 2018 a las 4:54

1 respuesta 1

2

Tu problema puede ser resuelto separando la cadena que posee los descuentos con el carácter de porcentaje (%). Luego podemos recorrer el array que nos resulta de eso para aplicar los descuentos al precio de Lista, finalmente quedando un costo.

Código de Ejemplo:

    Dim Descuento As String = "10%-20%+5%"

    Dim DescuentoSeparado() As String
    Dim Lista As Double = 200
    Dim Dto As Double
    Dim Costo As Double

    DescuentoSeparado = Descuento.Split("%")
    'En DescuentoSeparado almacenamos el Array separado por %

    For x = 0 To DescuentoSeparado.Length - 1
        If DescuentoSeparado(x).ToString <> "" Then
            ' Recorremos el Array y dependiendo si el descuento es
            ' positivo o negativo se lo sumamos o restamos a Lista
            If Val(DescuentoSeparado(x)) > 0 Then
                Lista = Lista + (Lista * Val(DescuentoSeparado(x)) / 100)
            Else
                Lista = Lista - (Lista * Math.Abs(Val(DescuentoSeparado(x))) / 100)
            End If
         End If
    Next

    ' Finalmente obtenemos Costo.
    Costo = Lista
1
  • Excelente respuesta! Quedó perfecto. Muchas gracias!! Commented el 5 jun. 2017 a las 18:43

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.