تبليغاتX
سورس کدهای ویژوال بیسیک - مدت روشن بودن سیستم

سورس کد های رایگان ویژوال بیسیک ؛ آموزش حرفه ای؛ API و ...





مدت روشن بودن سیستم 

تابع زیر مدت زمانی که سیستم روشن است را برمی گرداند:

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

این تابع را در قسمت General فرم تعریف کنید حال در رویداد Load فرم می نویسیم:

&Retval = GetTickCount

"MsgBox Str$(Fix(Retval / 60000)) + " Minutes you turned On PC

در بالا مقدار برگشتی تابع تقسیم بر 60000 می شود؛چون تابع بر حسب میلی ثانیه خروجی می دهد.

منتظر نظرات و پیشنهادات شما دوستان عزیز هستم...

 

نوشته شده توسط علیرضا | لینک ثابت | موضوع: |