|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

72.- Expression Evalutator. Librería.

Introducimos en un casillero una expresión, por ejemplo

2*cos(0.4)-log(7)

y al pulsar el botón nos calcula su valor.

La expresión es una cadena de caracteres (string) que podemos introducir mediante un EditText o con una constante de cadena:

exp="2*cos(0.4)-log(7)"

Es necesario cargar la librería ExpressionEvaluator


Copia y pega este código.
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' kio4.com
' mayo 2013 Dim Eval As Evaluator End Sub Sub Globals Dim etiqueta1, etiqueta2 As Label Dim casillero As EditText Dim boton As Button Dim exp As String Dim res As Double End Sub Sub Activity_Create(FirstTime As Boolean) Eval.Initialize ' Crea etiqueta (Label) etiqueta1.Initialize("etiqueta1") etiqueta1.TextSize = 20 etiqueta1.Color=Colors.Red etiqueta1.Gravity = Gravity.CENTER etiqueta1.Text = "Introduce expresión" Activity.AddView(etiqueta1, 20dip, 70dip, 210dip, 40dip) ' Crea casillero (EditText) casillero.Initialize("casillero") casillero.TextSize = 20 casillero.Color=Colors.LightGray casillero.Gravity = Gravity.Right casillero.Text = "2*(3+4)" Activity.AddView(casillero, 20dip, 120dip, 210dip, 40dip) ' Crea Botón (Button) boton.Initialize("boton") boton.TextColor = Colors.Red boton.Text = "Pulsa" Activity.AddView(boton, 0dip, 170dip, 100%x, 10%y) ' Crea etiqueta (Label) etiqueta2.Initialize("etiqueta2") etiqueta2.TextSize = 20 etiqueta2.Color=Colors.Red etiqueta2.Gravity = Gravity.CENTER etiqueta2.Text = "---" Activity.AddView(etiqueta2, 20dip, 230dip, 210dip, 40dip) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub boton_Click exp = casillero.Text res = Eval.Evaluate(exp) etiqueta2.text = res End Sub

_____________________________
- Información de la librería:

https://www.b4x.com/android/help/expressionevaluator.html


________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información