Sub Process_Globals
Dim Pins As List
End Sub
Sub Globals
Dim scvSteuerung As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Initialisiert die Pinwerte
If File.Exists(File.DirInternal, "Pins.txt") = False Then
InitPins
End If
Activity.LoadLayout("main")
End Sub
Sub Activity_Resume
'Liest die gespeicherten Pinwerte in die List
Pins = File.ReadList(File.DirInternal, "Pins.txt")
FillScollView
End Sub
Sub Activity_Pause (UserClosed As Boolean)
'Speichert die Pinwerte in eine Datei
File.WriteList(File.DirInternal, "Pins.txt", Pins)
End Sub
Sub InitPins
'Initilisiert die Pinwerte
Dim i As Int
Pins.Initialize
For i = 0 To 16
Pins.Add(False)
Next
'Speichert die Pinwerte in eine Datei
File.WriteList(File.DirInternal, "Pins.txt", Pins)
End Sub
Sub FillScollView
Dim i As Int
Dim width = 100dip As Int
Dim height = 60dip As Int
Dim height1 = height + 5dip As Int
For i = 0 To 16
Dim tbt As ToggleButton
tbt.Initialize("tbtPin")
tbt.Tag = i
tbt.TextOn = "Pin " & i & CRLF & "ON"
tbt.TextOff = "Pin " & i & CRLF & "OFF"
scvSteuerung.Panel.AddView(tbt, 10dip, 10dip + i * height1, width, height)
tbt.Checked = Pins.Get(i)
Next
scvSteuerung.Panel.Height = 10dip + i * height1
End Sub
Sub tbtPin_CheckedChange(Checked As Boolean)
Dim tbt As ToggleButton
Dim i As Int
tbt = Sender
i = tbt.Tag
Pins.Set(i, Checked)
End Sub