طريقة لحساب الزمن المتبقى فى حياة بطارية الجهاز
صفحة 1 من اصل 1 • شاطر
طريقة لحساب الزمن المتبقى فى حياة بطارية الجهاز
بسم الله الرحمن الرحيم
منذ يومين كنت قد كتب مشاركة عن كيفية الحصول على مؤشر مستوى بطارية الجهاز على الرابط التالى :
الطريقة اعلاه لحساب الزمن المتبقى للبطارية .....تعالوا نشوف كيفية عرض هذا الزمن على النافذة ...
_ لعرض الزمن بالثوانى نستخدم الشفرة التالية :
منذ يومين كنت قد كتب مشاركة عن كيفية الحصول على مؤشر مستوى بطارية الجهاز على الرابط التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
أما فى تلك المشاركة سنتعلم كيفية حساب الزمن المتبقى من حياة البطارية بالساعات و الدقائق و الثوانى ...على النحو التالى :
- الكود:
Private Declare Function GetSystemPowerStatus Lib "kernel32" _
(lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Type SYSTEM_POWER_STATUS
ACLineStatus As Byte
BatteryFlag As Byte
BatteryLifePercent As Byte
Reserved1 As Byte
BatteryLifeTime As Long
BatteryFullLifeTime As Long
End Type
' MsgBox "Left minutes:" & GetBatteryTime(1)
Private Function GetBatteryTime(Optional ByVal ResultFormat As Integer) As _
Double
Dim SysStatus As SYSTEM_POWER_STATUS
GetSystemPowerStatus SysStatus
' return the number of seconds
If ResultFormat = 0 Then
GetBatteryTime = SysStatus.BatteryLifeTime
' return the number of minutes
ElseIf ResultFormat = 1 Then
GetBatteryTime = SysStatus.BatteryLifeTime / 60
' return the number of hours
Else
GetBatteryTime = SysStatus.BatteryLifeTime / 3600
End If
End Function
الطريقة اعلاه لحساب الزمن المتبقى للبطارية .....تعالوا نشوف كيفية عرض هذا الزمن على النافذة ...
_ لعرض الزمن بالثوانى نستخدم الشفرة التالية :
- الكود:
Label1.Caption = GetBatteryTime(0)
- الكود:
Label1.Caption = GetBatteryTime(1)
- الكود:
Label1.Caption = GetBatteryTime(3)
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:47 pm من طرف moslema_r
» شركة تنظيف فلل بالرياض
أمس في 6:55 pm من طرف moslema_r
» شركة تنظيف كنب بالرياض
الأحد مايو 05, 2024 6:56 pm من طرف moslema_r
» مظلات وسواتر
السبت مايو 04, 2024 8:58 pm من طرف moslema_r
» شركة تنظيف خزانات بالرياض
الخميس مايو 02, 2024 6:10 pm من طرف moslema_r
» افضل شركة رش مبيدات بالرياض
الإثنين أبريل 29, 2024 9:00 pm من طرف moslema_r
» ارخص شركة مكافحة الصراصير بالرياض
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r