Sub Process_Globals
Private ahnumeric As AHNumeric
End Sub
Sub Globals
Private ime As IME
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Dim locale As AHLocale
'locale.Initialize 'device default locale
locale.Initialize2("it") 'italic locale
ahnumeric.Initialize2(locale)
End If
Activity.LoadLayout("1")
ime.Initialize("ime")
ime.SetCustomFilter(EditText1, EditText1.INPUT_TYPE_DECIMAL_NUMBERS, "01234567890,.")
SetNumberToEditText(EditText1, 1000000.333)
End Sub
Sub GetNumberFromEditText(et As EditText) As Double
Return ahnumeric.Parse(et.Text)
End Sub
Sub SetNumberToEditText(et As EditText, d As Double)
et.Text = ahnumeric.Format(d)
End Sub
Sub Button1_Click
Dim d As Double = GetNumberFromEditText(EditText1)
Log(d)
End Sub