Sub Button1_Click
Page2.SetQRString(TextField1.Text)
B4XPages.ShowPage("page 2")
navi("53.1" & TAB & "10.3")
End Sub
Sub navi(Koordinaten As String)
Dim Intent1 As Intent
Dim lat As String
Dim lon As String
Dim map_URI As String
Dim feld() As String
feld = Regex.Split(TAB, Koordinaten)
lat = feld(0).Replace("," , ".")
lon = feld(1).Replace("," , ".")
If lat.Length > 2 And lon.Length > 2 Then
map_URI= "geo:" & lat & "," & lon & "?q=" & lat & "," & lon 'MAP
Intent1.Initialize(Intent1.ACTION_VIEW,map_URI)
Intent1.SetComponent("googlemaps")
StartActivity(Intent1)
End If
End Sub