#Region Project Attributes
#ApplicationLabel: Excel Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Spinner1 As Spinner
Private Spinner2 As Spinner
Private Spinner3 As Spinner
Private spin1,spin2,spin3 As String
Dim workbook1 As ReadableWorkbook
Dim moviesSheet As ReadableSheet
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
My(File.DirAssets, "temp.xls")
End Sub
Sub My (Dir As String, FileName As String)
workbook1.Initialize(Dir, FileName)
moviesSheet = workbook1.GetSheet(0)
For i=1 To moviesSheet.RowsCount - 1
If moviesSheet.GetCellValue(0,i)<>moviesSheet.GetCellValue(0,i-1) Then
Spinner1.Add(moviesSheet.GetCellValue(0,i))
End If
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
spin1=Value
For i=1 To moviesSheet.RowsCount - 1
If moviesSheet.GetCellValue(0,i)=Value And moviesSheet.GetCellValue(1,i)<>moviesSheet.GetCellValue(1,i-1) Then
Spinner2.Add(moviesSheet.GetCellValue(1,i))
End If
Next
End Sub
Sub Spinner2_ItemClick (Position As Int, Value As Object)
spin2=Value
For i=1 To moviesSheet.RowsCount - 1
If moviesSheet.GetCellValue(0,i)=spin1 And moviesSheet.GetCellValue(1,i)=Value And moviesSheet.GetCellValue(2,i)<>moviesSheet.GetCellValue(2,i-1) Then
Spinner3.Add(moviesSheet.GetCellValue(2,i))
End If
Next
End Sub
Sub Spinner3_ItemClick (Position As Int, Value As Object)
spin3=Value
End Sub