ساعت موبایل

[alaghemand 82]

سلام

کسی میدونه چه کدی باید بنویسم که وقتی ساعت خود موبایل مثلا به ساعت 5 ظهر رسید این اتفاق بیفته ؟؟؟

خیلی نیاز دارم

[alaghemand 82]

مشکلم حل شد

 

فقط تورو خدا این 24 ساعت رو برای من پیدا کند

 

راستی من از نظر نوشتنی مشکل ندارم یعنی می تونم بنویسم اگر کاربر نوشته 14 آن رو منهای 12 بکن اما خوب دیگه گوشی نمی تونه تشخیص بده که 2 ظهر باید مسیج باکس بده یا 2 نصفه شد

 

خواهش میکنم کمک کنید خیلی نیاز دارم

[shahab.msb 326]

شما دوتا لیبل بساز.

label1  ساعت رو بگیر و اونو داخل این لیبل قرار بده

label2 وحالابا استفاده از timeDialog زمان دلخواه رو بگیر و داخل این لیبل قرار بده

 

 

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

 

if label1.text=label2.text then

کاری که میخوای انجام بدی

end if

 

اینم کتابخونه

http://s3.picofile.com/file/8195689442/dialog.zip.html

 

اگه باز نتونستین انجام بدین سعی میکنم به سورس بسازم

 

 

 

اینم سورس رو ساختم

 

http://answercenter.ir/topic/4144-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%DA%A9%D8%AF-%D8%AF%D8%B1-%D8%B2%D9%85%D8%A7%D9%86-%D8%AF%D9%84%D8%AE%D9%88%D8%A7%D9%87/

[alaghemand 82]

آقا شهاب

کدش رو میدید ؟؟؟؟

[alaghemand 82]

با سلام خیلی خیلی خیلی خیلی خیلی خیلی خیلی از سورس خوبتون ممنونم

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

 

میشه برام این چند خط کد رو توضیح بدیدی که چی هستند و کاراییشون چیه ؟

Dim today, alarmTime, alarm As Long
      today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM
      alarm = td.Hour + td.Minute + today

و این نومبر فورمت رو هم نفهمیدم چی هستند و چرا زدین 0 و 2 توی خود مثال دیدم که ماکسیموم و مینیموم است اما نفهمیدم خوب چرا 2 ماکسیموم و 0 مینیموم هست و ....

یه توضیح کوچکی بدهد لطفا

ToastMessageShow("زمان شروع " & NumberFormat(h, 2, 0) & ":" & NumberFormat(m, 2, 0), True)
	  Label2.Text=NumberFormat(H, 2, 0) & ":" & NumberFormat(M, 2, 0)

با تشکر موفق و پیروز باشید

 

راستی متغیر long برای چیه ؟؟؟؟

[پژمان نیکروان 6,055]

واسه گرفتن ساعت:

DateTime.TimeFormat = "hh:mm"
Msgbox(DateTime.Time(DateTime.Now),"")

ساعت رو اینجوری مسیج باکس میده. مثال: 11:42

[shahab.es 5,429]

سلام

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

البته چه جوریشو ای دونت نوو

[alaghemand 82]

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

ببینید من میخام مثلا هر روز ساعت 5 بعد از ظهر یک اتفاقی بیفته حالا چه کاربر وارد برنامه بشه یا نه

لطفا کمکم کنید

[پژمان نیکروان 6,055]

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

کافیه به جای مسیج باکس زمان رو بریزید داخل یه متغیر:

DateTime.TimeFormat = "hh:mm"
dim t as string
t=DateTime.Time(DateTime.Now)

بعد میتونید بگید مثلا اگه ساعت پنج شد این اتفاق بیفته:

if t="5:00" then
etefagh bioft 
end if

اینکارا هم میتونید تو سرویس انجام بدید . کار با سرویس هم زیاد بحث شده سرچ کنید.

[shahab.msb 326]

میشه خوب هم میشه

 

اینو توی رویداد کلیک باتون قرار بده

Dim h,m As Int
      Dim today As Long
      today = DateTime.DateParse(DateTime.Date(DateTime.Now))
      h = DateTime.GetHour(DateTime.Now)
      m = DateTime.GetMinute(DateTime.Now)+1
      ToastMessageShow("الان ساعت : " & NumberFormat(h, 2, 0) & ":" & NumberFormat(m, 2, 0), True)

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

 

این لینک صفحه

 

http://answercenter.ir/topic/4036-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%B2%D9%85%D8%A7%D9%86-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-24-%D8%B3%D8%A7%D8%B9%D8%AA%DB%8C/

[shahab.msb 326]

آرگومان نامبر فرمت از اسمش معلومه که تعیین میکنی استایل یا شمایل اعدادت چه شکلی باشن.در این کد تعیین کردم که ساعت به صورت دو عددی نشون داده بشه یعنی اگه ساعت 1باشه بیاد به این صورت نشون بده 01

 

متغیر long دقیقاً مانند Integer هست ولی با بازه ی بیشتری از اعداد، شامل اعداد صحیح بدون اعشار

[alaghemand 82]

آقای شهاب الان اگر من بخام بگم ساعت 2 نصفه شب مسیج باکس 1 رو بده و ساعت 3 ظهر مسیج باکس 2 رو بده باید چه کدی بنویسم ؟؟؟؟

 

راستی چرا شما دقیقه را + 1 کردین ؟؟؟؟

[shahab.msb 326]

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

 

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

 

این +1 که اخر گذاشتم چون از تایم دیالوگ استفاده کرده بودم و میخواستم وقتی کاربر تایم دیالوگ رو بازکنه یه دقیقه بره جلوتر.شما اصلا میتونید اینو ننویسید

 

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

[alaghemand 82]

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

 

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

 

این +1 که اخر گذاشتم چون از تایم دیالوگ استفاده کرده بودم و میخواستم وقتی کاربر تایم دیالوگ رو بازکنه یه دقیقه بره جلوتر.شما اصلا میتونید اینو ننویسید

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

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

چون تا حالا با ساعت کار نکردم متغیر ها و دستور های اون رو بلد نیستم

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

و یه مختصر توضیحی بده

 

ببین در واقع من میخام :

 

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

اگر پاسخ های بالا رو ببینی این کار رو کردم اما یه مشکل دارم اونم اینه که اگر کاربر مثلا بگه ساعت 2 این مسیج باکس داده بشه این مسیج باکس اولین باری که به ساعت 2 برسه نمایش داده میشه حالا ممکنه 2 نصفه شب باشه یا 2 ظهر

اما من میخام جوری باشه که کاربر بتونه تعیین کنه که 2 ظهر باشه یا 2 نصفه شب

 

خیلی ممنون میشم اگر کمکم کنید

[alaghemand 82]

اون to day رو میشه توضیح بدید

[alaghemand 82]

من این کد را نوشتم اما کارنکرد :

لطفا کمکم کنید

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private b As Button
	Dim time As String
	
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	
	DateTime.TimeFormat = "hh:mm"
	time = DateTime.Time(DateTime.Now)


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub b_Click
	
	If time = "14:07" Then
		Msgbox("goooood","1")
	End If
	
End Sub

[پژمان نیکروان 6,055]

با این حال وقتی شما روی باتون کلیک کنید اگه ساعت 2:7دقیقه بود مسیج میده درسته؟

من که تست کردم ساعت رو اینجوری داد: 2:7

یعنی به صورت 12ساعته میده.

بجای 14 بذارید 2.

[alaghemand 82]

خیلی ممنون درست شد اما باین روش دیگه تشخیص نمیده که 2 ظهر یا نصفه شب

چی کار کنم که این مشکلم برطرف بشه ؟؟؟؟

 

 

راستی لطفا این رو هم جواب بدید : اگر گوشی حتی در حال قفل هم باشه بازم سرویس کار میکند ؟؟؟؟

[پژمان نیکروان 6,055]

رو اون موضوع کار میکنم ببینم میشه ساعت رو 24 ساعته گرفت یانه.

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

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

	#StartAtBoot: true
	#StartCommandReturnValue: android.app.Service.START_STICKY