چک کردن پکیج نیم ها

[cloner01001 38]

سلام دوستان من میخوام هر 30 دیقه پکیج نیم برنامه های گوشی تویه ادیت تکست لود بشه (متن ادیت تکست همه ی پکیج نیم ها باشه)

توجه کنین میخوام هر 30 دیقه آپدیت بشه یعنی اگه دفعه اول دو تا برنامه تلگرام و اینستاگرام نصب بود پکیج نیم هاش تویه ادیت تکست لود بشه و اگه تو دقیقه 33 برنامه تلگرام حذف شد تو دقیقه 60 که لیست آپدیت میشه دیگه پکیج نیم تلگرام تو متن ادیت تکست نباشه

در ضمن نمیخوام برنامه حتمن باز باشه و این اتفاقا بیوفته ، میخوام اولین بار که برنامه باز شد دیگه همیشه در حال اجرا باشه و لیست برنامه ها هر نیم ساعت آپدیت بشه

[rasul23 40]

سلام

بفرمایید

Sub Process_Globals

   Dim Timer1 As Timer

End Sub


Sub Globals

   Private Label1 As Label

   Dim PM As PackageManager

   Dim Packages As List

End Sub


Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("Layout1")

        Packages = PM.GetInstalledPackages

        For i = 0 To Packages.Size - 1

        Label1.Text=Label1.Text+Packages.Get(i)+CRLF

        Next

        Timer1.Initialize("Timer1",1800000)

        Timer1.Enabled=True

End Sub


Sub Timer1_Tick

 	Timer1.Enabled=False

        Packages = PM.GetInstalledPackages

        For i = 0 To Packages.Size - 1

        Label1.Text=Label1.Text+Packages.Get(i)+CRLF

        Next

	Timer1.Enabled=True

End Sub

[cloner01001 38]

 

سلام

بفرمایید

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text+Packages.Get(i)+CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text+Packages.Get(i)+CRLF
        Next
	Timer1.Enabled=True
End Sub

 

 

خیلی خیلی ممنون دوست عزیز ولی یه سوال داشتم حالا اگه بخوام تو همون تایم نیم ساعت متن داخل لیبل به یه ایمیل ارسال شه باید چیکار کنم؟یعنی هر نیم ساعت که متن داخل لیبل با پکیج نیم ها سِت میشه توهمون لحظه متن داخل لیبل رو ایمیل کنه

ممنون میشم جواب بدین

[cloner01001 38]

 

سلام

بفرمایید

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text+Packages.Get(i)+CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text+Packages.Get(i)+CRLF
        Next
	Timer1.Enabled=True
End Sub

 

 

متاسفانه کد اشکال داره 

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

لطفن کمک کنین

[rasul23 40]

خیلی خیلی ممنون دوست عزیز ولی یه سوال داشتم حالا اگه بخوام تو همون تایم نیم ساعت متن داخل لیبل به یه ایمیل ارسال شه باید چیکار کنم؟یعنی هر نیم ساعت که متن داخل لیبل با پکیج نیم ها سِت میشه توهمون لحظه متن داخل لیبل رو ایمیل کنه

ممنون میشم جواب بدین

 

لطفا این تاپیک رو مطالعه کنید

[cloner01001 38]

لطفا این تاپیک رو مطالعه کنید

 

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

[rasul23 40]

با عرض معذرت

لطفا  + رو به & تغییر بدین

[rasul23 40]

شما میتونید طبق اموزش این تاپیک مقدار BEmailSub رو داخل timer1_tick  قرار بدین تا زمانی که سی دقیقه گذشت ارسال ایمیل انجام بشه

[Kazem Forghani 2,927]

سلام ،

آموزش سرویس پایدار در انجمن وجود داره (آقای نیکروان قرار دادن) ، آموزش گرفتن لیست برنامه های گوشی هم وجود داره ، آموزش تایمر هم برای هر 30 دقیقه گرفتن وجود داره.

موفق باشید

[cloner01001 38]

با عرض معذرت

لطفا  + رو به & تغییر بدین

 

ارور داد :

B4A version: 5.80
Parsing code.    (0.03s)
Compiling code.    Error
Error compiling program.
Error description: Syntax error.
Occurred on line: 29
        Label1.Text=Label1.Text+Packages.Get(i)&CRLF
Word: &

[cloner01001 38]

با عرض معذرت

لطفا  + رو به & تغییر بدین

 

کدرو به اینصورت تغییر دادم درست شد ، ولی فقط یکی از پکیج نیم ها لود شد

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Packages.Get(i)&CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Packages.Get(i)&CRLF
        Next
	Timer1.Enabled=True
End Sub

رو گوشی هم تست کردم به همین صورت بود و فقط یه پکیج نیم تو متن لیبل نشون داده شد

اندازه لیبل هم به اندازه کافی بزرگ هست ولی همه ی پکیج نیم ها نشون داده نمیشه و فقط یکی لود میشه ، حتی لیبل رو به ادیت تکست تغییر دادم از سینگل لاین هم در آوردم ولی بازم فقط یکی لود میشه

[cloner01001 38]

سلام ،

آموزش سرویس پایدار در انجمن وجود داره (آقای نیکروان قرار دادن) ، آموزش گرفتن لیست برنامه های گوشی هم وجود داره ، آموزش تایمر هم برای هر 30 دقیقه گرفتن وجود داره.

موفق باشید

 

تایمر رو مشکل دارم میخوام هر 30 دیقه لیست آپدیت بشه باید از چه کدی استفاده کنم؟ ممنون میشم راهنمایی کنید

[ha88an 203]

تایمر رو مشکل دارم میخوام هر 30 دیقه لیست آپدیت بشه باید از چه کدی استفاده کنم؟ ممنون میشم راهنمایی کنید

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