Sub Globals
Public edNum1, edNum2 As EditText
Dim cb As CheckBox
Public p As Panel
Public btAgg1, btAgg2 As Button
Public btSot1, btSot2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim o As CustomDialog
p.Initialize("p")
btAgg1.Initialize("btAgg1") : p.AddView ( btAgg1, 0%x, 0%y, 50%x, 7.0%y) : btAgg1.Text = "+"
btAgg2.Initialize("btAgg2") : p.AddView ( btAgg2, 50%x, 0%y, 50%x, 7.0%y) : btAgg2.Text = "+"
edNum1.Initialize("edNum1") : p.AddView ( edNum1, 0%x, 9.4%y, 50%x, 15.6%y) : edNum1.Text = "0"
edNum2.Initialize("edNum2") : p.AddView ( edNum2, 50%x, 9.4%y, 50%x, 15.6%y) : edNum2.Text = "0"
btSot1.Initialize("btSot1") : p.AddView ( btSot1, 0%x, 27.2%y, 50%x, 7.0%y) : btSot1.Text = "-"
btSot2.Initialize("btSot2") : p.AddView ( btSot2, 50%x, 27.2%y, 50%x, 7.0%y) : btSot2.Text = "-"
cb.Initialize("cb") : p.AddView( cb, 1.4%x, 36.7%y, 100%x, 7.0%y) : cb.Checked = False
o.AddView(p, 0%x, 15%x, 100%x, 85%y)
o.Show("fsfd", "yes", "", "no", Null)
End Sub
Sub btAgg1_click
Dim n As Int
n = edNum1.Text
If n = 9 Then n = -1
n = n + 1
edNum1.Text = n
End Sub