ایجاد کرنومتر یا زمان سنج در vb.net

[Clever_MRG]

سلام به برو بچ vb.net یه مشکل فنی برام پیش اومده که از شما می خوام اگه بلدید یه نمه کمک
کنید
میخوام توی یه برنامه از تعداد زیادی کرنومتر یا زمان سنج استفاده کنم . با کنترل تایمر تونستم
این کار رو بکنم اما چون تعدادشون زیاده از خوانایی برنامه کم می شه
اگه تابع یا ماژول یا کلاسی دارید یا اینکه راه حلی داریدبه ماهم بدید ممنون می شم .

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

:متفکر: منتظره جواباتونم

:تشویق: مخصوصا شما آقا حامد

[vbapr2005]

سه ساعت داشتم برات توضیح می نوشتم. بجاش اینو گذاشتم:

امیدوارم مشکلت حل شه:چشمک:

دوستان یه سوالی دارم: من اینو تو آدرس خودم هم آپلود کردم اما وقتی میخواستم تستش کنم ببینم دانلود میشه یا نه، DAP پیغام داد که این یه html هستش!!! نظرتون چیه؟

[vbapr2005]

اینم آدرسش: http://vbapr.persiangig.com/barnamenevis.org/Test.zip

حالا تو برنامه نویس که آپلود کردم خدا رو شکر درتس دانلود میشه اما آخه اونجا چه مشکلی پیش اومده بود؟

راستی راجع به این برنامه باید بگم باید با VB 2005 ببینیش. اینم عکسش:

http://i1.tinypic.com/oh8n07.jpg

وقتی هر کدوم از این چک باکس ها رو کلیک کنی، لیبلی که جلوشون هست شروع می کنه به شماره انداختن. (خودت میدونی که با این روش میشه اختلاف بین دو زمان رو هم حساب کرد)
وقتی هم هر کدوم از اون چک باکس ها رو تیکش رو برداری لیبل صفر میشه

موفق باشی

[Clever_MRG]

داداش مشکل من جدی از این حرفاست چون زمان سنجی که من می خوام مثل یه ساعت دیجیتاله که ساعت و دقیقه وثانیه ش صفره و باید با کد نویسی اونو راش بندازم
اینم کدش :
--------------------------------------------------------------------------------------------------------

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
If s < 59 Then
s += 1
Else
s = 1
m += 1
If m > 59 Then
m = 0
h += 1
End If
End If
l_time1.Text = h.ToString & ":" & m.ToString & ":" & s.ToString
End Sub
---------------------------------------------------------
برای یک زمان سنج مشکلی نداره اما دنبال راهی می گردم که مجبور نباشم برای 15 تا زمان سنج 15 تا تایمر بزارم و 15 بار هم این کد رو بنویسم . از Thread هم استفاده کردم ولی جواب نمی داد .

عکسشو برات مزارم تا بدونی چی می خوام .

[vbapr2005]

برای یک زمان سنج مشکلی نداره اما دنبال راهی می گردم که مجبور نباشم برای 15 تا زمان سنج 15 تا تایمر بزارم و 15 بار هم این کد رو بنویسم .
دوست من، چیزی که تو پست اولت فهمیدم این بود که تمرکزت رو این قسمته و اینجاست که با مشکل برخوردی. بخاطر همین هم من اون برنامه رو نوشتم.
توی اون برنامه از یه تایمر استفاده شده و برای 100 تا دستگاه هم باشه جواب میده. فکر نمی کنم با تبدیل ثانیه به ساعت و دقیقه مشکل داشته باشی (فکر کنم برای تبدیل ثانیه به دقیقه و ساعت همون کده که خودت نوشتی درتس کار کنه (البته با دقت نگاهش نکردم))

حالا با این اوضاع بگو چه مشکلی هست؟

یه چیز دیگه: هر وقت میخوای کد بذاری، بعد از این که کدت رو Paste کردی، با استفاده از ویرایشگر کلاسیک(همون editor ای که اول تو همونجا سوالت رو نوشتی) تمام کد هایی رو که نوشتی، select کن بعد دکمه ی # رو (که اون بالا می بینی) بزن. اینجوری چیزهایی که نوشتی درست نشون داده میشن.

[vbapr2005]

این یکی دیگه counter نداره بلکه واقعا خود اختلاف زمان رو حساب می کنه
راستی اینو هم بگم: این کدی که نوشتی اشتباهه. از این کد (که تو برنامه هم هست) استفاده کن:

If S = 59 Then
S = 0
If M = 59 Then
H += 1
M = 0
Else : M += 1
End If
Else : S += 1
End If

http://i1.tinypic.com/oidcsn.jpghttp://i1.tinypic.com/oidcvk.jpg

[Clever_MRG]

ای ول حال دادی درست درست شد