رفتن به مطلب
  • 0

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


mahfelsoft

سوال

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

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

چطور میشه ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

در 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 یا.. استفاده کن.

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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 رو در تمام طول روز نشون بده و .........

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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)

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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

 

 

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

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...