تایمر

[aminaltavista]

سلام کسی میتونه سورس برنامه ای رو برام بفرسته که مدت زمان روشن بودن کامپیوتر رو به دست بیاره؟

[Pr0grammer]

می تونید از این کامپوننت استفاده کنید...
http://barnamenevis.org/forum/showpost.php?p=567713&postcount=2

[butterfly8528]

سلام .

اگه منظورتون به دست آوردن مدت زمان بالا اومدن ویندوز هست،از تابع زیر استفاده کنید .



'ArshamSoft

Option Explicit


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

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

Private Function GetWindowsStartTime(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
GetWindowsStartTime = Days & " ÑæÒ " & Hours & " ÓÇÚÊ " & Minutes & " ÏÞíÞå " & Seconds & " ËÇäíå " & Miliseconds & " ãíáí ËÇäíå "
Case 1
GetWindowsStartTime = Days & " ÑæÒ " & Hours & " ÓÇÚÊ " & Minutes & " ÏÞíÞå " & Seconds & " ËÇäíå "
Case 2
GetWindowsStartTime = Days & ":" & Hours & ":" & Minutes & ":" & Seconds & ":" & Miliseconds
Case 3
GetWindowsStartTime = Days & " ÑæÒ " & Hours & " ÓÇÚÊ " & Minutes & " ÏÞíÞå "
End Select

End Function


Private Sub Form_Load()
Me.RightToLeft = True
Me.Caption = GetWindowsStartTime(GetTickCount, DaysHoursMinutesSecondsMilliseconds)
End Sub



موفق و پیروز باشید .

[www.pc3enter.tk]

بیا این هم یک کد کامل فقط تشکر یادت .....

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Retval = GetTickCount
Print Str$(Fix(Retval / 60000)) + " ÏÞíÞå" + "www.pc3enter.40s.ir"
End Sub

[BlackPawn]

در vb6 : دستور Timer مدت زمان روشن بودن کامپیوتر رو به ثانیه میده
در vb.net : دستور Now.GetTickCount()

[butterfly8528]

در vb6 : دستور Timer مدت زمان روشن بودن کامپیوتر رو به ثانیه میده
البته منظور دوستمون میلی ثانیه بود .