با سلام و درود به کاربران عزیز وب سایت یاهو ۹۸

 

در خدمتتون هستیم با یک کتابخانه بی نظیر در معکوس کردن شمارش

 

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

 

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

 

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

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

 

کتابخونه متد های  setShowSetting و TimeTicker رو هم داره که TimeTicker  زمانی که یک ثانیه صرف میشه هست که به طور پیشفرض ۱۰۰۰ میلی ثانیه یا یک ثانیه هستش اگر مقدارش رو کمتر وارد کنید هر ثانیه زودتر صرف میشه .  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

 

 

دانلود کتابخانه