ورود

نسخه کامل مشاهده نسخه کامل : کار با تایمر


59bahman
11-02-2016, 12:25
با سلام
من درکار با تایمر vb6 این مشکل رو دارم که زمانی که میده سازگار با زمان اصلی نیست...برای مثال:
وقتی کورنمتر با اینتروال 10 میسازم یعنی شمارش یک صدم ثانیه میبینم زمان مربوطه با زمان یک کورنمتر استاندارد هماهنگ نیست و عقب میوفته.
لطفا اگه میتونید راهنماییم کنید
59bahman
19-02-2016, 18:40
اییییییییییول
160(شد 200) تا مهندس این پست رو دیدن کسی جواب نداده!!!!!!!!!!!!!!!!!!!
JustVB6
13-01-2017, 05:28
یک دکمه بزار و کد زیرو کپی کن


درضمن یکی از دلایل اینکه این اختلاف برای شما پیش میاد شاید کامپیوتر شما قدیمی باشه یا سی پی یو شما ضعیف و ویندوز شما کند شده باشه


Private Sub Command1_Click()
Print StringTime("18 : 23 : 10", "18 : 23 : 20")
Print StringTime("15 : 20 : 01", "13 : 20 : 00")
Print StringTime("01 : 26 : 00", Time)
End Sub

Private Function StringTime(ByVal FristTime As String, ByVal SecondTime As String)
aa = DateDiff("s", FristTime, SecondTime)
StringTime = Format$(CDate(aa / 60 / 60 / 24), "hh:mm:ss")
End Function