Sub Butt2_Click
CleanPanels
Panel1.Visible=True
End Sub
Sub Butt1_Click
Dim Intent As Intent
Try
If Label34.Text.ToLowerCase.Contains("vodacom") Then
'Vodacom
Intent.Initialize(Intent.ACTION_CALL, "tel:*111%23")
Else If Label34.Text.ToLowerCase.Contains("mtn") Then
'MTN
Intent.Initialize(Intent.ACTION_CALL, "tel:*136%23")
Else If Label34.Text.ToLowerCase.Contains("cell c") Then
'Cell C
Intent.Initialize(Intent.ACTION_CALL, "tel:*101%23")
End If
Catch
Msgbox2Async("Your Call Was Unsuccesful","No Connection","OK","","",Null,False)
End Try
' Start the activity to dial the number
rp.CheckAndRequest(rp.PERMISSION_CALL_PHONE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Try
StartActivity(Intent)
Catch
Msgbox2Async("There Is No Sim Card In Your Controller","No Sim Card","OK","","",Null,False)
End Try
End If
End Sub
Sub AboutPhone
rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Try
sim.Initialize
Label21.Text=p.Manufacturer.ToUpperCase
Label29.Text=p.Model.ToUpperCase
Label36.Text = sim.GetNetworkCountryIso.ToUpperCase
Label23.Text = sim.GetPhoneType.ToUpperCase
Label27.Text = sim.GetSimState.ToUpperCase
Label31.Text = sim.IsNetworkRoaming
Label31.Text = Label31.Text.ToUpperCase
Label34.Text = sim.GetNetworkOperatorName.ToUpperCase
Label38.Text = sim.GetLine1Number.ToUpperCase
Catch
Log(LastException)
End Try
End If
End Sub