مدت فعالیت سیستم

[baghozi]

سلام دوستان

کسی میدونه چطور میشه مدت فعالیت سیستم رو به ساعت دقیقه و ثانیه بدست آورد؟

[mpmsoft]

MsgBox Timer

[#aliyari_C]

البته این کد در #C برای بدست آوردن زمان سپری شده ویندوز یعنی زمان طی شده از اول شروع به کار ویندوز
است. اگر در VB می خواهی باید این کد را در MSDN دنبالش بگردی
Envirvment.TickCount

[mpmsoft]

اگر در VB می خواهی باید این کد را در MSDN دنبالش بگردی

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

[warden]

با استفاده از تابعهای API :
TimeGetTime
یا
GetTickCount

[xxxxx_xxxxx]

يك نكته:
Timer از زماني مقدار ميگيرد كه سيستم روشن مي شود(شروع فعاليت بايوس)
پس با Restart كردن مقدارش صفر نمي شود.

موفق باشيد/

[Pr0grammer]

سلام دوستان

کسی میدونه چطور میشه مدت فعالیت سیستم رو به ساعت دقیقه و ثانیه بدست آورد؟

اگه به صورت Label می خواین، یک ocx طراحی کرده بودم؛ در اینجا می تونید دانلود و استفاده کنید :

لینک پست : http://barnamenevis.org/forum/showpost.php?p=567713&postcount=2
لینک تاپیک : http://barnamenevis.org/forum/showthread.php?t=116848

پبروز باشید

[parselearn]

اينارو در ماژول بزار




Public Enum TimeFormatType

DaysHoursMinutesSecondsMilliseconds = 0
DaysHoursMinutesSeconds = 1
DHMSMColonSeparated = 2
DaysHoursMinutes = 3
End Enum

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Public Function FormatCount(Count As Long, Optional FormatType As TimeFormatType = 0) As String
On Error Resume Next

Dim Days As Long, Hours As Long, Minutes As Long, Seconds As Long, Miliseconds As Long

Miliseconds = Count Mod 1000
Count = Count \ 1000
Days = Count \ (24& * 3600&)
If Days > 0 Then Count = Count - (24& * 3600& * Days)
Hours = Count \ 3600&
If Hours > 0 Then Count = Count - (3600& * Hours)
Minutes = Count \ 60
Seconds = Count Mod 60


Select Case FormatType
Case 0


FormatCount = Days & " ÑæÒ¡ " & Hours & " ÓÇÚÊ¡ " & _
Minutes & " ÏÞíÞå¡ " & Seconds & " ËÇäíå¡ " & Miliseconds & _
" ãíáí ËÇíäå"

Case 1

FormatCount = Days & " ÑæÒ¡ " & Hours & " ÓÇÚÊ¡ " & _
Minutes & " ÏÞíÞå¡ " & Seconds & " ËÇäíå"
Case 2


FormatCount = Days & ":" & Hours & ":" & _
Minutes & ":" & Seconds & ":" & Miliseconds

Case 3

FormatCount = Days & " ÑæÒ¡ " & Hours & " ÓÇÚÊ¡ " & _
Minutes & " ÏÞíÞå "
End Select
End Function


فراخواني:


SUpTime.Caption = FormatCount(GetTickCount, DaysHoursMinutesSeconds)