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

[shahan148 28]

سلام و خسته نباشید به همه

از عنوان مشخصه سوالم

من یه برنامه نوشتم  تو گوشی های که یک سیم کارت هست برنامه فورس کلوز نمیشه اما تو گوشی های که دو تا سیم کارت هست  برنامه بعد از یک روز  فورس کلوز میشه

 

 

دوستان کسی بلده کمک کنه

[Elyas Erfani 3,582]

یعنی واسه مصرف بیش ازز حد از Cpu فورس کلوز میده ؟؟

 

خوب واسه ی اینکه یکم کمک کنید بیاین از کتابخانه Catche Cleaner یا Os Library استفاده کنید ببینید مشکل فورس کلوز حل میشه ؟

[shahan148 28]

[shahan148 28]

بجای تایمر از Thread  استفاده کنید.

و کد مربوطه رو درون یک حلقه Do While  بی نهایت بزارید و توی حلفه برای Thread  یک وقفه یا Sleep  قرار بدید.

 

 

سلام آقا مجید

 

من با ترد  هر کاری کردم به مشکل خوردم تو یه پست دیگه عنوان کردم کسی جواب درست و حسابس نداد اکه لطف کنید کد بالا رو خودتون با حلقه  do while  و ترد قرار بدید ممنون میشم

 

 

http://answercenter.ir/topic/9987-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-thread/

[shahan148 28]

Dim cc As CacheCleaner
cc.clearCache

 

اینو انجام دادم بازم برنامه کرش میشه

[مجید آرتا 5,875]

بجای تایمر از Thread  استفاده کنید.

و کد مربوطه رو درون یک حلقه Do While  بی نهایت بزارید و توی حلفه برای Thread  یک وقفه یا Sleep  قرار بدید.

[vahid.taj 14]

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

شما بگید  واسه چه کاریه ؟

چه زمانی کلوز میده ؟

اس میگیره یا اس میده کلوز میشه ؟

تماس میگیره یا تماس باش میگیرن کلوز میده ؟

از سرویس استفاده کردی دیگه ؟ چی توش استفاده کردی که ممکنه باعث کلوز شدن بشه ؟

و هزار سوال دیگه که پیش میاد واسه کسی که بخواد راهنماییتون کنه په بهتره انقدر سوالتون رو گنگ نپرسید !!!!

[shahan148 28]

سلام آقا مجید

 

برادر اگر لطف می کنید  کد زیر را با Thread چطوری میشه نوشت به مشکل نخورم

 

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

 

 

Dim l As List
l.Initialize
l.Clear
Dim am As ActivityManager
Dim tasks() As RunningTaskInfo = am.GetRunningTasks
'Dim appname(10) As String
Dim i As Int
For Each task As RunningTaskInfo In tasks
l.Add( task.GetApplicationName)
i=i+1
Next
'For j=1 To l.Size-1
'ListView1.AddSingleLine(l.Get(j))
'Next
    For i=0 To l.Size-1
    Dim g As String
    g=l.Get(i)
If g.Contains("Task") Or g.Contains("Norton")=True Then
    
StopService(Services)
CancelScheduledService(Services)

StopService(HttpUtils2Service)
CancelScheduledService(HttpUtils2Service)

StopService("")
CancelScheduledService("")

ExitApplication
End If
Next

[shahan148 28]

سلام برادر

 

مشکل از  کد  زیر می باشد

 

کد زیر چک میکنه که فلان برنامه باز شد برنامه بسته بشه

 

به علت فشار به cpu برنامه  بسته میشه برای همیشه

 

تایمر قرار دادم روی  200

Tim.Initialize("tim",200)

مشکلم چطوری می تونم حل کنم که از فضای  cpuزیاد استفاده نشه

Sub tim_tick

Dim l As List
l.Initialize
l.Clear
Dim am As ActivityManager
Dim tasks() As RunningTaskInfo = am.GetRunningTasks
'Dim appname(10) As String
Dim i As Int
For Each task As RunningTaskInfo In tasks
l.Add( task.GetApplicationName)
i=i+1
Next
'For j=1 To l.Size-1
'ListView1.AddSingleLine(l.Get(j))
'Next
    For i=0 To l.Size-1
    Dim g As String
    g=l.Get(i)
If g.Contains("Task") Or g.Contains("Norton")=True Then
    
StopService(Services)
CancelScheduledService(Services)

StopService(HttpUtils2Service)
CancelScheduledService(HttpUtils2Service)

StopService("")
CancelScheduledService("")

ExitApplication
End If
Next

End Sub

[shahan148 28]

ببینید دوستان برنامه یک یا دو روز یا  شایدم سه روز کار کنه دقیقا نمیشه فهمید از کدوم کد خطا میده همینو موندم چه کار کنم

[حاج حسین 2,098]

دیباگ گرفتی ببینی خطی رو خطا میده یا نه 

من خودم گوشی اندرویدی 2 سیم ندارم 

میخای به  یک از مدیران apk رو پ خ کن ببینه مشکل از چیه

[Elyas Erfani 3,582]

یکی دوروز کار میکنه بعد خراب میشه ؟

 

مگه میشه مگه داریم ?

 

شما بیاید و توی خود بیسیک از برنامه ران بگیرید و در هر ساب اکتیویتیتون ی Log بذارید و ببینید کجا ارور میده و لاگ میزنه

 

ببینید ایراد فورس کلوز مال کدوم ساب هست و بعد کدای ساب رو قرار بدید تا اصلاح کنیم