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

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

سوال

mahfelsoft    127

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

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

چطور میشه ؟

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


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

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

پست های پیشنهاد شده

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

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

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

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
mahfelsoft    127
در 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 رو در تمام طول روز نشون بده و .........

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
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)

 

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

  • پسندیدن 1
  • تشکر 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
mahdi tahan    694
در 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

 

 

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

 

 

  • پسندیدن 2

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

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

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...