آموزش کتابخانه شمارش معکوس TimeCountDown

[mkabir 186]

درود دوستان عزیز

با این کتابخونه میتونید روز ساعت دقیقه و ثانیه به طور شمارش معکوس نشون بدین

دوستان کتابخونه آپدیت شد و روش ورود بعضی اطلاعات تغییر کرد

خب کتابخونه باید اینیشیالایز بشه و  EventName برای رویداد ها ، یک ویو برای نمایش شمارش معکوس و ماژول هدف رو میخواد. دیگه زمان رو تو این قسمت وارد نمیکنیم و برای ورود زمان از InputTime استفاده میکنیم. مثال :

Dim tcd As TimeCountDown
tcd.Initialize("tcd",Label1,Me)
tcd.inputTime(1,2,42,22)
tcd.start

 

کتابخونه متد های  setShowSetting و TimeTicker رو هم داره که TimeTicker  زمانی که یک ثانیه صرف میشه هست که به طور پیشفرض 1000 میلی ثانیه یا یک ثانیه هستش اگر مقدارش رو کمتر وارد کنید هر ثانیه زودتر صرف میشه .  setShowSetting هم باهاش میتونیم انتخاب کنیم که روز ، ساعت و دقیقه رو در شمارش معکوس نشون بده یا نه البته پیشفرض همه مقادیر رو نشون میده .

همچنین قابلیت تعیین نوع شمارش هم اضافه شد که به صورت شمارش معکوس باشه یا شمارش به بالا مثل ساعت  مثال : 

tcd.TimeTicker = 200
tcd.setShowSetting(False,False,True)

tcd.CountingMode = tcd.MODE_CountDown شمارش معکوس
tcd.CountingMode = tcd.MODE_Count 'شمارش رو به بالا

دو تا رویداد CountingEnd و TimeCount اضافه شده رویداد CountingEnd وقتی اجرا میشه که شمارش به پایان رسیده باشه و رویداد TimeCount  به صورت لحظه ای زمان رو به شما میده و می تونید از اونجا هم زمان رو بگیرید مثال : 

Sub tcd_CountingEnd
	Log("پایان شمارش")
End Sub

Sub tcd_TimeCount(time As String)
	Log(" شمارش : "&time)
End Sub

 

 

[mahdi1380 1]

ببخشید میشه  کاری کرد اگه تموم شد بشه کاری کرد مثلا به صفحه ای دیگه بره

[mkabir 186]

در 2 ساعت قبل، mahdi1380 گفته است :

ببخشید میشه  کاری کرد اگه تموم شد بشه کاری کرد مثلا به صفحه ای دیگه بره

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

[rbageherih 0]

سلام بله میشه

توی رویداد

Sub tcd_CountingEnd
	Log("پایان شمارش")
End Sub