جلوگیری از به خواب رفتن گوشی در b4a

gameover.blog.ir

Sub Globals
    Dim  WakeState As  PhoneWakeState
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
    WakeState.KeepAlive(True)'no sleep device
//    WakeState.KeepAlive(False)'sleep device
end sub

نکته مهم : یادتون باشه حتما باید کتابخانه ی Phone را فعال کنید.(در قسمت Libraries Manager)

---

خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1