'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim scrollview1 As ScrollView
Dim button1 As Button
Dim Back As Button
Dim Panel1 As Panel
Dim PR As Button
Dim SB1, SB2, SB3, SB4, SB5, SB6 As SeekBar
Dim ImageView1 As ImageView
Dim label1 As Label
Dim a As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
activity.LoadLayout("RCAre.bal")
ScrollView1.Panel.LoadLayout("RCArePanel")
ScrollView1.Panel.Height = Panel1.Height
End Sub
Sub Back_click
StartActivity("main")
End Sub
Sub button1_click
ScrollView1.Panel.LoadLayout("DG")
ScrollView1.Panel.Height = Panel1.Height
If SB1.Value > SB2.Value AND SB1.Value > SB3.Value AND SB1.Value > SB4.Value AND SB1.Value > SB5.Value AND SB1.Value > SB6.Value Then
a.Initialize("a")
End If
End Sub
Sub PR_Click
If a.IsInitialized Then
ScrollView1.Panel.LoadLayout("R")
ScrollView1.Panel.Height = Panel1.Height
label1.Text = ("Scrape a little cane away from the base of the blade as shown below")
'imageview1.Bitmap = LoadBitmap(File.DirAssets, "IMG_1781.jpg")
Else
ToastMessageShow ("Unfortunately your results could not be processed. Thus, you are being taken to the home page", True)
StartActivity ("main")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
activity.Finish
End Sub