معرفة الوقت المنقضي منذ بدء تشغيل الكومبيوتر

[عنـ الشوق ـاد]

معرفة الوقت المنقضي منذ بدء تشغيل الكومبيوتر

معرفة الوقت المنقضى امام الجهاز - منقول من المنتدى القديم .

1- ننشأ مشروع جديد ونضيف Module
2- نضيف زر أمر وأداة عنوان

نكتب هذا الكود فى module

[QUOTEDeclare Function GetTickCount Lib "kernel32" () As Long][/QUOTE]

نكتب هذا الكود فى حدث الضغط لزر الامر


[QUOTEInsert this code to COMMANDBUTTON][/QUOTE]

Private Sub Command1_Click()
Label1.Caption = GetTickCount()
End Sub

عند تنفيذ البرنامج يظهر لنا الوقت فى أداة العنوان
وهو يظهر بالملى ثانية
1000 ملى ثانية = (SECOND) ثانية

1000 milliseconds=1 second

للتحويل إلى ثوانى نقسم على 1000

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك