Sub Process_Globals
Dim ApiKey As String = "AIzaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 'Add your browser key here.
End Sub
Sub Globals
Dim Button1 As Button, EditText1 As EditText, CustomListView1 As CustomListView
Dim PlaceList As List 'Request result list.
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Button1.Background = LoadDrawable("ic_menu_search")
CustomListView1.DefaultTextColor = Colors.Black
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim KeyWord As String = EditText1.Text.Trim
If KeyWord = "" Then Return 'Exit when keyword is blank.
KeyWord = KeyWord.Replace(" ", "+") 'Required to replace all space by + to use in request query.
Text_Search_Request(KeyWord)
End Sub
Sub Text_Search_Request(KeyWord As String)
ProgressDialogShow("Searching...")
Dim job As HttpJob
job.Initialize("SearchPlace", Me)
job.Download("https://maps.googleapis.com/maps/api/place/textsearch/json?query=" & KeyWord & "&key=" & ApiKey)
End Sub
Sub JobDone (Job As HttpJob)
ProgressDialogHide
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "SearchPlace"
JsonTree(Job.getString)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub JsonTree(JobString As String)
PlaceList.Initialize
Dim parser As JSONParser
parser.Initialize(JobString)
Dim root As Map = parser.NextObject
Dim results As List = root.Get("results")
For Each colresults As Map In results
Dim TempMap As Map : TempMap.Initialize
Dim name As String = colresults.Get("name")
TempMap.Put("Name", name)
Dim formatted_address As String = colresults.Get("formatted_address")
TempMap.Put("Address", formatted_address)
Dim types As List = colresults.Get("types")
Dim TempType As String = ""
For Each coltypes As String In types
TempType = TempType & coltypes & " "
Next
TempMap.Put("Type", TempType)
Dim geometry As Map = colresults.Get("geometry")
Dim Location As Map = geometry.Get("location")
Dim lng As Double = Location.Get("lng")
Dim lat As Double = Location.Get("lat")
TempMap.Put("Lat", lat)
TempMap.Put("Lng", lng)
PlaceList.Add(TempMap)
Next
Display_Result 'Display results to customlistview.
End Sub
Sub Display_Result
CustomListView1.Clear
For x = 0 To PlaceList.Size - 1
Dim TempMap As Map = PlaceList.Get(x)
Dim SB As StringBuilder
SB.Initialize
SB.Append("Name: ").Append(TempMap.Get("Name"))
SB.Append(CRLF)
SB.Append("Address: ").Append(TempMap.Get("Address"))
SB.Append(CRLF)
SB.Append("Type: ").Append(TempMap.Get("Type"))
SB.Append(CRLF)
SB.Append("Latitute: ").Append(TempMap.Get("Lat"))
SB.Append(CRLF)
SB.Append("Longhitute: ").Append(TempMap.Get("Lng"))
CustomListView1.AddTextItem(SB.ToString, x)
Next
End Sub
Sub LoadDrawable(Name As String) As Object
'Gets a drawable from the Android system resources
Dim R As Reflector
R.Target = R.GetContext
R.Target = R.RunMethod("getResources")
R.Target = R.RunMethod("getSystem")
Dim ID_Drawable As Int
ID_Drawable = R.RunMethod4("getIdentifier", Array As Object(Name, "drawable", "android"), _
Array As String("java.lang.String", "java.lang.String", "java.lang.String"))
R.Target = R.GetContext
R.Target = R.RunMethod("getResources")
Return R.RunMethod2("getDrawable", ID_Drawable, "java.lang.int")
End Sub
