کار با ایندکس و تایمر

[iran2008]

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

دیروز دوستان برام کدش رو گذاشتند ولی خوب پاک شد اون تاپیک. :متفکر:

[kuh_nur]

سلام کد نمونه

Option Explicit

Private Sub Form_Load()
Dim i
For i = 0 To 3
Timer1(i).Interval = 500
Next i
End Sub

Private Sub Timer1_Timer(Index As Integer)
Select Case Index
Case 0
Rem Timer1> Index 0> Do Work
Case 1
Rem Timer1> Index 1> Do Work
Case 2
Rem Timer1> Index 2> Do Work
Case 3
Rem Timer1> Index 3> Do Work
End Select
End Sub

[iran2008]

مرسی دوستان از جوابتون.

من جواب دوستم رو دقیقا متوجه نشدم چجوریه.

من میخوام اینطوری کار کنم :
مثلا ما توی یه فرم یه تایمر داریم و 5 تا تکست باکس و 5 تا دکمه(Butun) .
حال میخوایم که توی هر تکست باکس با زدن دکمه زیرش ، یه زمان مناسب با زمان کنونی نشون داده بشه.

[Pr0grammer]

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

Text1 = Timeدر واقع احتیاجی به Timer نیست!

[iran2008]

خوب یه چیز دیگه:

اگه بخوام زمان بین دو تایم یعنی مثلا 12:20:48 و 16:42:21 رو محاسبه کنم ، در واقع بخوام زمان رو بر هم تفریق کنم از چه دستوری باید استفاده کنم.؟

حال اگه بخوام اون حاصل زمانی رو که از تفریق کردن بدست میاد که این زمان باشه : 4:22:27
رو ضربدر یه عددی که مبلغ باشه ، به فرض 800 تومان کنم رو چجوری باید کدنویسی کنم ؟
( میخوام محاسبه قیمت زمانی رو که کاربر بین ساعت شروع تا ساعت پایان از یه کامپیوتر استفاده میکنه رو حساب کنم )

مرسی از دوستان این پست برام جواب دادنش خیلی مهمه.

[hamed aj]

با سلام؛

دوست عزیز شما باید از نوع داده ای (Data Type) مناسب برای متغیر هاتون استفاده کنید تا بتونید اعمال مورد نظرتون رو انجام بدین. مثلاً نوع Date برای اینکار مناسب می باشد. در ضمن شما باید یک مبنا برای محاسبه ی قیمت درنظر بگیرید، مثلاً اگر ثانیه در نظر میگیرید ابتدا باید کل زمان رو برحسب ثانیه محاسبه کنید :







ِDim t As Date
Dim TotalSecond As Long

t = Time

TotalSecond = Second(t) + Minute(t)*60 + Hour(t)*60*60






حالا می تونید مبلغ مورد نظرتون رو در متغیر TotalSecond ضرب کنید


به نظر من ثانیه ای 800 تومان برای کار با یک کامپیوتر یه کم گرونه (شوخی)

[iran2008]

مرسی
اگه میشه خودت همین کد ها رو در قالب یه سورس برام بذار تا نحوه استفادش رو یاد بگیرم.

آخه من توسط شما عزیزان وی بی رو یاد گرفتم.
من معلم نداشتم.
معلمم شمائید و اینترنت.
مرسی.

[iran2008]

یکی همین کد رو در قالب یه سورس برام نمیذاره ببینم چجوزه نحوه استفادش ؟
مرسی.

[hamed aj]

دوست عزیز یه نمونه ساده براتون گذاشتم امیدوارم مفید باشه

موفق باشید

24091

[Pr0grammer]

بفرمائید ...