سلام دوستان
مدت زمان روشن بودن كامپيوتر به صورت ساعت ، دقيقه و ثانيه رو مي خواستم .
به صورت دقيقه اي تو سايت هست اما من به صورت ساعت ، دقيقه و ثانيه مي خوام
سلام.
بیا این با دقت در حد میلی ثانیه.
کد:
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
از دستور بالا استفاده كن عددي رو كه بهت ميده اين بلا رو سرش بيار:
اگه عددت از 3600000 بزرگتر بود به اين عدد تقسيم كن .خارج قسمت صحيح عدد ساعت روشن بودن سيستمه.
اگه بهقيمانده همين تقسيم بالا بزرگتر از 60000 بود بر اين عدد تقسيم كن كه مقدار صحيح خارج قسمت دقيقه رو بهت ميده.
اگه بقيمانده تقسيم بالا رو ديدي از 1000 بيشتره به 1000 تقسيم كن كه مقدار صحيح خارج قسمت به ثانيه است و باقيماندشم به ميلي ثانيه.
نتونستم....
مي شه خودتون اينو بنويسيد.
اين هم برنامه:
کد:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Dim hour As Integer
Dim min As Integer
Dim second As Integer
Dim time1 As Long
time1 = GetTickCount
If time1 > 3600000 Then
hour = Int(time1 / 3600000)
time1 = time1 Mod 3600000
End If
If time1 > 60000 Then
min = Int(time1 / 60000)
time1 = time1 Mod 60000
End If
If time1 > 1000 Then
second = Int(time1 / 1000)
time1 = time1 Mod 1000
End If
Text1.Text = hour & ":" & min & ":" & second
End Sub
منم قبلا همچین کدی رو نوشته بودم
یه تکست باکس رو فرمت بذار اینم کپی کن توش
کد:
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
ConvertToSaat (GetTickCount)
End Sub
Private Function ConvertToSaat(ByVal CurrentTime As Long)
Dim Hour As Long
Dim Min As Long
Dim Sec As Long
Sec = Int(CurrentTime / 1000) Mod 60
Min = Int(CurrentTime / 60000) Mod 60
Hour = Int(CurrentTime / 3600000) Mod 60
Text1.Text = Hour & ":" & Min & ":" & Sec
End Function