Sub GetSDKversion() As String
Try
Dim versions As Map
versions.Initialize
'-- listet nur die Versionsnummern auf --
versions.Put(3, "1.5")
versions.Put(4, "1.6")
versions.Put(7, "2.1")
versions.Put(8, "2.2")
versions.Put(10, "2.3.3")
versions.Put(11, "3.0")
versions.Put(12, "3.1")
versions.Put(13, "3.2")
versions.Put(14, "4.0")
versions.Put(15, "4.0.3")
versions.Put(16, "4.0.4")
versions.Put(17, "4.1.2")
versions.Put(18, "4.2.2")
versions.Put(19, "4.3")
versions.Put(20, "4.4.2")
versions.Put(21, "5.0p")
versions.Put(22, "5.0")
versions.Put(23, "5.1")
versions.Put(24, "6.0")
versions.Put(27, "7.0")
'-- listet die Versionsnummern mit Versionsnamen auf --
' versions.Put(1, "1.0 BASE")
' versions.Put(2, "1.1 BASE_1_1")
' versions.Put(3, "1.5 CUPCAKE")
' versions.Put(4, "1.6 DONUT")
' versions.Put(5, "2.0 ECLAIR")
' versions.Put(6, "2.0.1 ECLAIR_0_1")
' versions.Put(7, "2.1 ECLAIR_MR1")
' versions.Put(8, "2.2 FROYO")
' versions.Put (9, "2.3 GINGERBREAD")
' versions.Put(10, "2.3.3 GINGERBREAD_MR1")
' versions.Put(11, "3.0 HONEYCOMB")
' versions.Put(12, "3.1 HONEYCOMB_MR1")
' versions.Put(13, "3.2 HONEYCOMB_MR2")
' versions.Put(14, "4.0 ICE_CREAM_SANDWICH")
' versions.Put(15, "4.0.3 ICE_CREAM_SANDWICH_MR1")
' versions.Put(16, "4.1 JELLY_BEAN")
' versions.Put(17, "4.2 JELLY_BEAN_MR1")
' versions.Put(18, "4.3 JELLY_BEAN_MR2")
' versions.Put(19, "4.4 KITKAT")
' versions.Put(20, "4.4w KITKAT_WATCH")
' versions.Put(21, "5.0 LOLLIPOP")
' versions.Put(22, "5.1 LOLLIPOP_MR1") '-- it is important that the last element should be the heigher sdk version available --
Dim p As Phone
Dim api As Int = p.SdkVersion
Dim vers As String = versions.Get(api)
If api>versions.GetKeyAt (versions.Size -1) Then '-- or If api>versions.Size Then 'version size should have all the elements in this case --
Log("Eine neuere API ist installiert (api=" &api &"). Please update 'GetSDKVersion' function")
Log ("Check diesen link: http://developer.android.com/guide/topics/manifest/uses-sdk-element.html")
Msgbox("Android-Version: "&GetSDKversion&"", "")
Return api
End If
Msgbox("Android-Version: "&GetSDKversion&"", "")
Return vers
Catch
Log(LastException)
Msgbox("Android-Version: "&LastException&"", "")
Return "error"
End Try
' Log("-- 30488 -- SDKversion: "&GetSDKversion&" --")
'
' Msgbox("Android-Version: "&GetSDKversion&"", "")
' Return versions.Get(p.SdkVersion)
End Sub