none
Formula con Texbox RRS feed

  • Pregunta

  • Hola amigos, espero q me puedan ayudar, lo que necesito es que el usuario ingrese una cantidad numérica y solo acepte los caracteres " + - * / ( ) . , " y la palabra "in" en un TextBox y que luego desde el mismo textbox al presionar enter calcule cualquier operación matemática usando MSScriptControl. o haga la conversión de mm a pulgada. Otra condición es que si se escribe "in" no permita ingresar mas caracteres

    textbox1 ingreso ==>> ((((2+5)-1)*5)/10)           respuesta al presionar enter textbox1=3

    textbox1 ingreso 5in       respuetsa al presionar enter textbox1=127

    sabiendo que  1 pulgada = 25.4

    Imports MSScriptControl

        Private Sub operacion()
            Try
                Dim x As New MSScriptControl.ScriptControl
                Formula = TextBox1.Text
                x.Language = "VBScript"
                result = x.Eval(Formula)
                TextBox1.Text = Format(result, "#0.000")
            Catch ex As Exception

            End Try
        End Sub

     Private Sub TextBox16_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox16.KeyPress

            If e.KeyChar = Convert.ToChar(Keys.Return) Then
                e.Handled = True ' ... evito el pitido
                Me.operacion()
                TextBox2.Focus()
            End If
        End Sub






    • Editado Marzamsteel lunes, 2 de noviembre de 2015 15:09
    lunes, 2 de noviembre de 2015 13:06

Respuestas

  • "Guayacoblack" preguntó:

    > lo que necesito es que el usuario ingrese una cantidad numerica y solo
    > acepte los caracteres " + - * / ( ) . , " y la palabra "in" en un TextBox
    > y que luego desde el mismo textbox al presionar enter calcule cualquier
    > operacion matematica usando MSScriptControl. o haga una conversion de
    > mm a pulgada.

    Hola:

    Puedes crearte tu propia función Eval que simule la del control Microsoft Script Control:

    Cómo evaluar expresiones matemáticas en VB .NET

    Solución de Fórmulas matemáticas

    Simplemente tienes que adaptar a tus necesidades los ejemplos que aparecen en los enlaces anteriores para que puedas evaluar las expresiones numéricas que has comentado en tu mensaje, sobre todo para que haga la conversión de milímetros a pulgadas.

    Un saludo


    Enrique Martínez Montejo
            [MS MVP - VB]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.

    lunes, 2 de noviembre de 2015 14:56
    Moderador
  • Hola

    Acá hay algunos ejemplos que te pueden ayudar

    http://netprincipiante.wix.com/netprincipiante

    Saludos


    Pedro López

    • Marcado como respuesta Marzamsteel martes, 10 de noviembre de 2015 22:24
    miércoles, 4 de noviembre de 2015 22:33

Todas las respuestas

  • "Guayacoblack" preguntó:

    > lo que necesito es que el usuario ingrese una cantidad numerica y solo
    > acepte los caracteres " + - * / ( ) . , " y la palabra "in" en un TextBox
    > y que luego desde el mismo textbox al presionar enter calcule cualquier
    > operacion matematica usando MSScriptControl. o haga una conversion de
    > mm a pulgada.

    Hola:

    Puedes crearte tu propia función Eval que simule la del control Microsoft Script Control:

    Cómo evaluar expresiones matemáticas en VB .NET

    Solución de Fórmulas matemáticas

    Simplemente tienes que adaptar a tus necesidades los ejemplos que aparecen en los enlaces anteriores para que puedas evaluar las expresiones numéricas que has comentado en tu mensaje, sobre todo para que haga la conversión de milímetros a pulgadas.

    Un saludo


    Enrique Martínez Montejo
            [MS MVP - VB]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.

    lunes, 2 de noviembre de 2015 14:56
    Moderador
  • "Guayacoblack" preguntó:

    > lo que necesito es que el usuario ingrese una cantidad numerica y solo
    > acepte los caracteres " + - * / ( ) . , " y la palabra "in" en un TextBox
    > y que luego desde el mismo textbox al presionar enter calcule cualquier
    > operacion matematica usando MSScriptControl. o haga una conversion de
    > mm a pulgada.

    Hola:

    Puedes crearte tu propia función Eval que simule la del control Microsoft Script Control:

    Cómo evaluar expresiones matemáticas en VB .NET

    Solución de Fórmulas matemáticas

    Simplemente tienes que adaptar a tus necesidades los ejemplos que aparecen en los enlaces anteriores para que puedas evaluar las expresiones numéricas que has comentado en tu mensaje, sobre todo para que haga la conversión de milímetros a pulgadas.

    Un saludo


    Enrique Martínez Montejo
            [MS MVP - VB]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.

    gracias amigo por los ejemplos. Tema solucionado
    miércoles, 4 de noviembre de 2015 12:20
  • Hola

    Acá hay algunos ejemplos que te pueden ayudar

    http://netprincipiante.wix.com/netprincipiante

    Saludos


    Pedro López

    • Marcado como respuesta Marzamsteel martes, 10 de noviembre de 2015 22:24
    miércoles, 4 de noviembre de 2015 22:33