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
|