انجام عملی هر 24 ساعت یکبار

[mahfelsoft 130]

دوستان من چند تا عکس توی پوشه برنامم دارم میخوام هر 24 ساعت یکبار( سر ساعت مشخصی مثلا) عکس بعدی نمایش داده بشه .

مثلا اسم عکس هام از 1 تا 23 هست . الان روی عکس 1 هست میخوام 12 هر شب بره عکس بعدی بجاش نشون داده بشه .

چطور میشه ؟

[Radiomedia 36]

در 36 دقیقه قبل، mahfelsoft گفته است :

دوستان من چند تا عکس توی پوشه برنامم دارم میخوام هر 24 ساعت یکبار( سر ساعت مشخصی مثلا) عکس بعدی نمایش داده بشه .

مثلا اسم عکس هام از 1 تا 23 هست . الان روی عکس 1 هست میخوام 12 هر شب بره عکس بعدی بجاش نشون داده بشه .

چطور میشه ؟

سلام.

اول بگید کجا میخواید نمایش داده بشه؟

1- داخل اپ؟ که اگر کاربر راس ساعت در برنامه باشه میشه.

2- داخل ویجت یا اعلان یا ... که باید با سرویس انجام بشه.

در هردو صورت ما یک شرط میزاریم و میگیم هروقت ساعت 12 شد عکس رو نمایش بده، و برای اینکه عکس تکراری نشون نده مقدار عکس های قبلی رو درون یک فایل ذخیره میکنیم.

If DateTime.GetHour(DateTime.Now) = 12 then
	Dim intR As Int
	intR = Rnd(1 , 24)
	iv.bitmap = LoadBitmap(File.DirAssets , $"${intR}.png"$)
End If

کد بالا برای نمایش تصادفی هست.

اما برای اینکه به ترتیب نشون بده بجای خط 2 و 3:

	If File.Exists(File.DirInternal , "pic.txt") Then
		Dim picno As String
		picno = File.ReadString(File.DirInternal , "pic.txt")
		iv.bitmap = LoadBitmap(File.DirAssets , $"${picno}.png"$)
		If picno < 23 Then
			Dim sum As String = picno + 1
			File.WriteString(File.DirInternal , "pic.txt" , sum )
		Else if picno = 23 Then
			File.WriteString(File.DirInternal , "pic.txt" , "1" )
		End If
	Else
		File.WriteString(File.DirInternal , "pic.txt" , "1" )
	End If

اگر نوع int رو ساپورت نکرد برای عملیات ریاضی از ReadList یا.. استفاده کن.

امیدوارم بدردتون بخوره

سوالی بود در خدمتم

[mahfelsoft 130]

در 20 ساعت قبل، Radiomedia گفته است :

سلام.

اول بگید کجا میخواید نمایش داده بشه؟

1- داخل اپ؟ که اگر کاربر راس ساعت در برنامه باشه میشه.

2- داخل ویجت یا اعلان یا ... که باید با سرویس انجام بشه.

در هردو صورت ما یک شرط میزاریم و میگیم هروقت ساعت 12 شد عکس رو نمایش بده، و برای اینکه عکس تکراری نشون نده مقدار عکس های قبلی رو درون یک فایل ذخیره میکنیم.

If DateTime.GetHour(DateTime.Now) = 12 then
	Dim intR As Int
	intR = Rnd(1 , 24)
	iv.bitmap = LoadBitmap(File.DirAssets , $"${intR}.png"$)
End If

کد بالا برای نمایش تصادفی هست.

اما برای اینکه به ترتیب نشون بده بجای خط 2 و 3:

	If File.Exists(File.DirInternal , "pic.txt") Then
		Dim picno As String
		picno = File.ReadString(File.DirInternal , "pic.txt")
		iv.bitmap = LoadBitmap(File.DirAssets , $"${picno}.png"$)
		If picno < 23 Then
			Dim sum As String = picno + 1
			File.WriteString(File.DirInternal , "pic.txt" , sum )
		Else if picno = 23 Then
			File.WriteString(File.DirInternal , "pic.txt" , "1" )
		End If
	Else
		File.WriteString(File.DirInternal , "pic.txt" , "1" )
	End If

اگر نوع int رو ساپورت نکرد برای عملیات ریاضی از ReadList یا.. استفاده کن.

امیدوارم بدردتون بخوره

سوالی بود در خدمتم

ممنونم از  لطف شما ..

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

ببینید من 30 تا عکس دارم که به ترتیب در طول 30 روز ماه باید نشون داده بشن. روز اول در تمام طول روز هر وقت کاربر برنامه رو باز کنه و ببنده عکس شماره 1

روز دوم هرزمان که بیاد توی برنامه عکس شماره 2 رو در تمام طول روز نشون بده و .........

[mahfelsoft 130]

البته تا اینجاشو نوشتم که با کلیک روی دکمه تصاویر به ترتیب عوض میشن . 

[Radiomedia 36]

در 16 دقیقه قبل، mahfelsoft گفته است :

ممنونم از  لطف شما ..

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

ببینید من 30 تا عکس دارم که به ترتیب در طول 30 روز ماه باید نشون داده بشن. روز اول در تمام طول روز هر وقت کاربر برنامه رو باز کنه و ببنده عکس شماره 1

روز دوم هرزمان که بیاد توی برنامه عکس شماره 2 رو در تمام طول روز نشون بده و .........

در خدمتم..

اگر ممکنه پروژه رو بفرستید تا اصلاحش کنم، کد من نسبی بود تقریبا باید به نیاز شما تغییر پیدا کنه.

اما یادمه گفته بودید در ساعت خاصی مثل دوازده.

اگر بخواید هر زمانی که کاربر گوشی رو باز کرد اون عکس رو ببینه، خیلی آسونه و اگر بخواید طبق هر روز ماه هر عکس نمایش داده بشه (مثل شکل ماه) باز هم آسونتر.

بر طبق روزهای ماه:

Dim strDay As String = DateTime.GetDayOfMonth(DateTime.Now) & ".jpg" 'or ".png"
iv.Background = LoadBitmap(File.DirAssets , strDay)

 

در 4 دقیقه قبل، mahfelsoft گفته است :

البته تا اینجاشو نوشتم که با کلیک روی دکمه تصاویر به ترتیب عوض میشن . 

مگر با روز عکس ها تغییر نمیکنن؟ چرا با کلیک؟ 

در 3 دقیقه قبل، Radiomedia گفته است :

 

Dim strDay As String = DateTime.GetDayOfMonth(DateTime.Now) & ".jpg" 'or ".png"
iv.Background = LoadBitmap(File.DirAssets , strDay)

 

این کد بدردتون میخوره، اگر روزانه بخواید عوض بشه: روز ماه رو میگیره و عکس روز رو لود میکنه

[mahdi tahan 723]

در 1 ساعت قبل، mahfelsoft گفته است :

ممنونم از  لطف شما ..

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

ببینید من 30 تا عکس دارم که به ترتیب در طول 30 روز ماه باید نشون داده بشن. روز اول در تمام طول روز هر وقت کاربر برنامه رو باز کنه و ببنده عکس شماره 1

روز دوم هرزمان که بیاد توی برنامه عکس شماره 2 رو در تمام طول روز نشون بده و .........

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

میتونی موقع نصب تاریخ روز بعد رو بگیری و ی جا ذخیره کنی

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

کدش اینطوری میشه

Dim i As Int
		If File.Exists(File.DirInternal,"data.txt")Then
			
			If DateTime.Now >File.ReadString(File.DirInternal,"data.txt") Then
				
				i=File.ReadString(File.DirInternal,"nam.txt")+1
				
				File.WriteString(File.DirInternal,"nam.txt",i)
				
				 ImageView.Bitmap = LoadBitmap(File.DirAssets,i&.png)
				File.WriteString(File.DirInternal,"data.txt",DateTime.Add(DateTime.Now,0,0,1))
				
			End If
			
			Else
				File.WriteString(File.DirInternal,"data.txt",DateTime.Add(DateTime.Now,0,0,1))
				File.WriteString(File.DirInternal,"nam.txt",1)
				i=File.ReadString(File.DirInternal,"nam.txt")
				ImageView.Bitmap = LoadBitmap(File.DirAssets,i&png)
		End If

 

 

تاریخ رو ی روز ببر جلو و چک کن