راه علمي و صحيح را دوستان بگند بهتره.
راه من درآوردي من اينه كه يك تايمر بگذاريم و در آن تابع تايم را صدا كنيم يا تابع
now
اين جوري هر ثانيه ، زمان كامپيوتر نمايش داده ميشه.
و يا تاريخش.
....
سلام. يك نگاهي به پست 178 آموزش ويژوال بيسيك بنداز ، شايد كمك كنه.
ولي يك راه هم ميشه ولي نمي دونم درسته يا نه.
يك تايمر بذار روي فرم اينتروال آن را 1000 ميلي ثانيه كن. و بعد يك عدد را باهاش بشمار. ولي نمي دونم اين كار علمي است يا نه.
.
.
.
دوستان كمك كنند
.
با توجه به توضيحي كه داده بودي راه زير به ذهنم رسيد
شما بايد از يك تايمر استفاده كني كه مقدار interval = 0 باشد و هروقت كه خواستي محاسبه زمان رو شروع كني مقدار interval = 1000 ميشه
طريقه استفاده رو هم با يه برنامه كوچولو توضيح دادم
اين كد تو وي بي 6 تست شده
اول تو فرم دو تا command و دو تا label و يك تايمر بذار بعدش كد زير رو تو پنجره كد paste كن
کد:
Public T As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
T = 0
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
Label1.Caption = "Minutes: " & (Int(T / 60))
Label2.Caption = "Seconds: " & (T Mod 60)
End Sub
Private Sub Timer1_Timer()
T = T + 1
End Sub
توضيحات:
command1 : شروع محاسبه زمان
command2 : پايان محاسبه زمان
label1 : نمايش دقيقه هاي سپري شده
label2 : نمايش ثانيه هاي سپري شده
T : كل زمان سپري شده به ثانيه
ضمنا در اين برنامه فقط به خاطر قابل درك بودن از دو label استفاده شده و شما در برنامه خود ميتوانيد خروجي را به شكلهاي زيباتري نمايش دهيد
نمایندگیهای رسمی موبایل سامسونگ در تهران + مزایای استفاده از خدمات آنها