Sub Process_Globals
Dim Val, TotalVal As Double
End Sub
Sub Globals
Dim sp1 As Spinner
Dim lst1 As List
Dim txteuro As EditText
Dim txttoteuro As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout ("calculator")
sp1.Add(" € 1,00")
sp1.Add(" € 2,00")
sp1.Add(" € 3,00")
sp1.Add(" € 4,00")
sp1.Add(" € 5,00")
lst1.Initialize
lst1.Add(1)
lst1.Add(2)
lst1.Add(3)
lst1.Add(4)
lst1.Add(5)
End Sub
Sub sp1_ItemClick (Position As Int, Value As Object)
Val = lst1.Get(Position)
txteuro.Text = Val
TotalVal = TotalVal + Val
txttoteuro.Text = TotalVal
End Sub