PDA

View Full Version : آموزش: دانلود برنامه - مدت زمانی که سیستم روشن است! - همراه با سورس



//mohammad
جمعه 14 آبان 1389, 15:53 عصر
سلام به همه ی دوستان
راستش یکی از دوستانم سر این که برادر کوچک ترش چند ساعت پای کامپیوتر نشسته، مشکل داشت و از من سوال کرد آیا برنامه ای است که نشان دهد چه مدت است که کامپیوتر روشن است؟
گفتم اطلاع ندارم فکر نمی کنم...
از من در خواست کرد تا چنین برنامه ای بنویسم، من هم قبول کردم.

الان هم پس از نوشتن برنامه، آن را درون سایت قرار دادم.

فقط تشکر فراموش نشه!

ali190
جمعه 14 آبان 1389, 16:20 عصر
سلام
یک تابع API نیز این کار رو به راحتی انجام میده:
کپی تابع داخل یک ماژول:

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

سپس :

Private Sub Form_Load()
Dim A As Long
A = timeGetTime
MsgBox A
End Sub
یاعلی

//mohammad
جمعه 14 آبان 1389, 16:54 عصر
سلام ali جان
من هم از همین تابع استفاده کردم.
قبل از ارسال پست لطفا یه نگاهی به برنامه کن!!
-----------------------------------------------------------------------
اما توضیح مختصری در رابطه با تابع:
تابع api یاد شده از کتابخانه kernel32 است که با فراخوانی این تابع ، زمان روشن بودن سیستم به میلی سانیه برگردانده میشود که در برنامه بالا با فراخوانی تابع در یک تایمر و اجرای آن زمان را گرفته و سپس آن را تبدیل به ثانیه - دقیقه و ساعت می کند.