فعال کردن حالت پرواز در اندروید5

[amirmahdi3744 5]

سلام خسته نباشید من می خوام حالت پرواز رو روشن کنم .یک کتابخونه پیدا کردم به اسم Toggle که در اندروید 5 ارور میدهد.خیلی سریع نیاز دارم لطفا پاسخ بدید

[محمدرضا شاهپیری 5,561]

مهدی جان کتابخونه توگل برای اندرویدهای جیلی بین به پایین دیگه AIRPLAN کارنمیکنه متد زیر درواقع متد کلی برای همه نسخه های اندروید هست

با استفاده از کتابخونه javaobject اول متد زیر رو به اکتیویتی اضافه کن 

#If java
import android.content.Intent;
import android.os.Build;
import android.provider.Settings;
import anywheresoftware.b4a.BA;
public void setSettings(int value) {
        
            if (Build.VERSION.SDK_INT < Build.VERSION_CODES.JELLY_BEAN_MR1) {
                Settings.System.putInt(
                         BA.applicationContext.getContentResolver(),
                          "airplane_mode_on", value);
            } else {
                Settings.Global.putInt(
                		BA.applicationContext.getContentResolver(),
                          Settings.Global.AIRPLANE_MODE_ON, value);
            } 
            Intent intent = new Intent("android.intent.action.AIRPLANE_MODE");
            intent.putExtra("state", value);
		    BA.applicationContext.sendBroadcast(intent);
		  
 
}
#End If

این دسترسی ها رو هم اضافه کن

AddPermission(android.permission.WRITE_SECURE_SETTINGS)
AddPermission(android.permission.WRITE_SETTINGS)

نحوه استفاده هم که دیگه مشخصه برای روشن کردن متد زیر

Dim jo As JavaObject
jo.InitializeContext.RunMethod("setSettings",Array As Object(1))

برای خاموش کردن هم فقط کافیه به جای 1 مقدار صفر بزاری

موفق باشید

[amirmahdi3744 5]

بعید میدونم این ارور مال این متد باشه کدهای اکتیویتیتو پیوست کن

 

 

بفرمایید

#Region  Project Attributes 
	#ApplicationLabel: AppCompat2
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#AdditionalRes: ..\resource
#AdditionalRes: C:\Users\amirmahdi\Downloads\Telegram Desktop\b4a_appcompat, de.amberhome.objects.appcompat
#AdditionalRes: C:\Users\amirmahdi\Downloads\Telegram Desktop\support\v7\appcompat\res, android.support.v7.appcompat
#Extends: android.support.v7.app.ActionBarActivity


#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub
#If java
import android.content.Intent;
import android.os.Build;
import android.provider.Settings;
import anywheresoftware.b4a.BA;
public void setSettings(int value) {
        
            if (Build.VERSION.SDK_INT < Build.VERSION_CODES.JELLY_BEAN_MR1) {
                Settings.System.putInt(
                         BA.applicationContext.getContentResolver(),
                          "airplane_mode_on", value);
            } else {
                Settings.Global.putInt(
                		BA.applicationContext.getContentResolver(),
                          Settings.Global.AIRPLANE_MODE_ON, value);
            } 
            Intent intent = new Intent("android.intent.action.AIRPLANE_MODE");
            intent.putExtra("state", value);
		    BA.applicationContext.sendBroadcast(intent);
		  
 
}
#End If
Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim phone As Phone
Dim flash1 As AdvancedCamera
	Private SeekBar1 As SeekBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	'Set some ActionBar options
	Dim bar As ACActionBar
	bar.Initialize
	bar.Title = "Simple AppCompat example"
	bar.Subtitle = "This is a Subtitle"
	
	Activity.AddMenuItem("Menu test", "Menu")
	Dim jo As JavaObject
jo.InitializeContext.RunMethod("setSettings",Array As Object(1))

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	phone.SetScreenBrightness(Max(Value, 10) / 100)
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If	KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then 
	Dim panel As Panel

	flash1.Initialize(panel,"flash")
		
			


End If
End Sub

[محمدرضا شاهپیری 5,561]

دوست عزیز هرچند اکسپشن به وجود اومده مربوط به این متد نیست ولی ظاهرا فقط برنامه های سیستمی میتونن از دسترسی 

android.permission.WRITE_SECURE_SETTINGS

استفاده کنن یعنی اینکه شما نمیتونید از طریق برنامه خودتون که غیر سیستمی هست تنظیمات airplan رو دستکاری کنید

[amirmahdi3744 5]

وست عزیز هرچند اکسپشن به وجود اومده مربوط به این متد نیست ولی ظاهرا فقط برنامه های سیستمی میتونن از دسترسی android.permission.WRITE_SECURE_SETTINGS استفاده کنن یعنی اینکه شما نمیتونید از طریق برنامه خودتون که غیر سیستمی هست تنظیمات airplan رو دستکاری کنید

شما میفرمایید پس من چه کنم؟

[amirmahdi3744 5]

مهدی جان کتابخونه توگل برای اندرویدهای جیلی بین به پایین دیگه AIRPLAN کارنمیکنه متد زیر درواقع متد کلی برای همه نسخه های اندروید هست با استفاده از کتابخونه javaobject اول متد زیر رو به اکتیویتی اضافه کن #If java import android.content.Intent; import android.os.Build; import android.provider.Settings; import anywheresoftware.b4a.BA; public void setSettings(int value) { if (Build.VERSION.SDK_INT < Build.VERSION_CODES.JELLY_BEAN_MR1) { Settings.System.putInt( BA.applicationContext.getContentResolver(), "airplane_mode_on", value); } else { Settings.Global.putInt( BA.applicationContext.getContentResolver(), Settings.Global.AIRPLANE_MODE_ON, value); } Intent intent = new Intent("android.intent.action.AIRPLANE_MODE"); intent.putExtra("state", value); BA.applicationContext.sendBroadcast(intent); } #End If این دسترسی ها رو هم اضافه کن AddPermission(android.permission.WRITE_SECURE_SETTINGS) AddPermission(android.permission.WRITE_SETTINGS) نحوه استفاده هم که دیگه مشخصه برای روشن کردن متد زیر Dim jo As JavaObject jo.InitializeContext.RunMethod("setSettings",Array As Object(1)) برای خاموش کردن هم فقط کافیه به جای 1 مقدار صفر بزاری موفق باشید

 

 

 

 

با تشکر از پیام شما ولی در برنامه این ارور رو میدهد

[محمدرضا شاهپیری 5,561]

بعید میدونم این ارور مال این متد باشه

کدهای اکتیویتیتو پیوست کن

[amirmahdi3744 5]

سلام.خیلی بیشتر از 12 ساعت گذشته.لطفا جواب بدهید

[مهدی ایزدی 9,203]

درود

Sub Button1_Click
	Try
		Dim t As Toggle
		t.Initialize
		t.TurnAirplaneModeOff
	Catch
		ToastMessageShow(LastException,True)
	End Try
End Sub

بر روی گوشی واقعی تست کنید ببینید جواب میده یا خیر ؟

اگر جواب نده توی ToastMsg یک پیغام براتون نشون میده

اون رو بهمون بگید !