آموزش دریافت زمان بالا بودن سیستم از kernel32 ( ویژوال بیسیک 6 )

[AtAgAmEr 2689]

سلام

 

برا اینکه بتونیم مدت زمان بالا بودن سیستم رو بدونیم از kernel32 استفاده می کنیم  به شرطیکه GetTickCount رو فراخوانی کرده باشیم /

 

شکل سادش اینجوری :

 

یک مدول ایجاد کرده و مینویسیم . در فرم هم خط دوم رو مینویسیم

 

()"Declare Function GetTickCount& Lib "kernel32

msgbox GetTickCount

این مقداری رو بر میگردونه که عدد هستش بر حسب هزارم ثانیه و برا اینکه بتونیم به ثانیه تبئیل کنیم باید بر 1000 تقسیم کنیم

خوب همه تبدیل یک مقدار رو که ثانیه هستش بر حسب ساعت - دقیقه و ثانیه میدونیم ( ابتدایی خوندیم ) :wub: 

 

برای اینکه مثل ساعت معمولی ما این اعداد رو داشته باشیم با گذرثانیه ها باید همه عملیات ریاضی رو در یک تایمر بنویسیم که این تایمر اطلاعات رو باید هر یک ثانیه از سیستم بخونه یعنی Interval تایمر باید بشه 1000 / روی فرم یک Label ایجاد میکنیم برای نشان دادن زمان بالا بودن سیستم و یکی هم برای اینکه هرموقع کار روش کلیک کرد از برنامه بیاد بیرون /

 

برا اینکه برنامه در مثلاً در سمت راست مانیتور ظاهر بشه این کد رو می نویسیم

 

Private Sub Form_Load()
Me.Top = Screen.Height - 1200

از ارتفاع مانیتور 1200 تا کم کن
Me.Left = Screen.Width - 2200

و از عرض هم 2200 کم من ، و در موقعیت جدید قرار بده

End Sub
 

 

حالا مونده کد نویسی تایمر ؛ گفتم بالا که همه عملیات ریاضی رو در این قسمت مینویسیم

 

 

Dim lngReturn As Long
lngReturn = GetTickCount()
Dim nHours As Long
Dim nMinutes As Long
Dim nSeconds As Long

نوع مقادیری که استفاده میکنیم تعریف میکنیم در خطوط بالا

(zaman = (lngReturn / 1000

بر حسب کل ثانیه ها
nHours = zaman \ 3600

بر حسب ساعت
zaman = zaman Mod 3600
nMinutes = zaman \ 60

برحسب دقیقه
nSeconds = zaman Mod 60

برحسب ثانیه

Label1.Caption = nHours & " : " & nMinutes & " : " & nSeconds 'Round(((lngReturn / 1000) / 60), 2) & "  Min"

 

و مقدار رو در جای خودش نشون میده

 

به همین راحتی / حالا من تغییر رنگ متن و Scroll خوردن رو هم اضافه کردم که میتونین در کد برنامه ببینید

 

موفق باشید

 

 

 

دریافت برنامه اجرایی

 

 

دریافت سورس کد برنانمه