تبليغاتX
ویژوال بیسیک حرفه ای و ... - بدست آوردن مدت زمان روشن بودن کامپیوتر
ویژوال بیسیک حرفه ای و ...
کلیات وی بی
بدست آوردن مدت زمان روشن بودن کامپیوتر

برای بدست آوردن مدت زمان روشن بودن کامپیوتر خود مراحل زیر را دنبال کنید .

1) در فرم خود يك  Timer  و يك  Textbox  ایجاد کنید .

2) کد زیر را به برنامه خود اضافه کنید .

 

Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub


Private Sub Timer1_Timer()
Dim m As Integer
Dim s As Integer
s = Left(GetTickCount, 4)
m = Int(s / 60)
Text1 = Format(m, "000") & " : " & Format(s - (m * 60), "00")
End Sub

 
+ نوشته شده در  پنجشنبه بیست و چهارم آذر 1384ساعت 12:18  توسط هاتف |