PDA

View Full Version : سوال: سوای در مورد Timer در ویبی6


meisambandari
سه شنبه 21 آبان 1387, 21:02 عصر
سلام دوستان
چطور کاری کنیم که یک تایمر 1 دقیقه الی 10 دقیقه رو ساپورت کنه ؟
VB.SOS
سه شنبه 21 آبان 1387, 21:44 عصر
يه كنترل تو تاپيك ابزارهاي كاربردي و زيبا وجود داره كه توسط جناب MBt نوشته شده
براي اين كار ميشه مثلا يه متغير عمومي تعريف كرد و بعد هر بار كه كنترل اونتش رخ مي ده يه واحد بهش اضافه كرد و بعد اگه به عدد 60 رسيد مي فهميم كه يه دقيقه شده. خب بايد تايمر روي 1s باشه.
Pr0grammer
سه شنبه 21 آبان 1387, 22:34 عصر
به این پست (http://barnamenevis.org/forum/showpost.php?p=631222&postcount=16) در این تاپپیک (http://barnamenevis.org/forum/showthread.php?t=116848) یه نگاه بندازید!
.:KeihanCPU:.
سه شنبه 21 آبان 1387, 23:00 عصر
فکر کنم بشه با SetTimer اینطور کاری کرد
syntiberium
سه شنبه 21 آبان 1387, 23:38 عصر
با سلام . دوست عزیز شما می توانیید از سورس زیر استفاده کنید .



Dim a As Integer


Private Sub Timer1_Timer()
a = a + 1
If a = 10 Then
a = 0
Print "it is ten minutes"
End If
End Sub


دقیقا نمی دونم 9 دقیقه است یا 10 دقیقه و اگر 9 دقیقه بود به جای 10 بنویس 11:لبخندساده:. با تشکر .