Sub Process_Globals
Dim TimerMain As Timer
End Sub
Sub Globals
Dim lblWoche As Label
Dim AZVstd As EditText
Dim AZVstdwert As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
TimerMain.Initialize("TimerMain", 1000) '1000=1sek.
lblWoche.Initialize("lblWoche") : Activity.AddView(lblWoche, 1%x,1%y, 98%x,10%y)
lblWoche.Gravity = Gravity.CENTER : lblWoche.TextSize = 20
AZVstd.Initialize("AZVstd") : Activity.AddView(AZVstd, 14%x,32%y, 6%x,7%y)
AZVstd.InputType = AZVstd.INPUT_TYPE_NUMBERS
AZVstdwert=lblWoche.Text
TimerMain.Enabled = True
End Sub
Sub TimerMain_Tick
lblWoche.Text = AZVstdwert
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub