منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اداة : بطارية جهاز اللاب توب ! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أدوات الأعضاء (http://vb4arb.com/vb/forumdisplay.php?fid=115)
+--- الموضوع : اداة : بطارية جهاز اللاب توب ! (/showthread.php?tid=4698)



اداة : بطارية جهاز اللاب توب ! - RaggiTech - 01-10-12

كاتب الموضوع : رغيد الطيب
السلام عليكم ورحمة الله و بركاته


احتجت في برنامج معين (سوف احكي عنه لاحقا بإذن الله تعالى) ... الى معرفة معلومات عن حالة بطاية جهاز الاب توب الذي استخدمه ...

معلومات مثل :

- هل البطارية موصوله بالجهاز ام انها خارجه عن موضعها ؟ (BatteryExists)
- مستوى البطارية (درجة شحنها) ؟ (BatteryLevel)
- هل الجهاز موصول بالشاحن الكهربائي ؟ (IsAcOnline)
- هل البطارية في حالة شحن حاليا ؟ (IsCharging)
- هل البطارية ممتلئة 100% ؟ (IsBatteryFull)


اجابة الاسئلة السابقة يمكنك ان تجدها هنا و هناك ... وبطرق و اكواد مختلفة ... فحدثني نفسي بعمل مكتبة صغيرة Battery.DLL يمكنك ان تظيفها الى برنامجك عن طريق (Add Reference) من القائمة Project

ولكي تستخدمها ستحتاج الى سطر برمجي تضيفه الى الفورم :

كود :
Private WithEvents Battery As New Battery.rtaLaptopBattery
وبهذا يكون لديك اداة بإسم Battery و لديها اثنان من الاحداث :

OnBattery
وهذا الحدث عندما يفصل الشاحن من الجهاز

OnPower
وهذا عندما يوصل الشاحن بالجهاز

يمكنك ان تستخدمهما بشكل ممثال للتالي :


كود :
Private Sub Battery_OnBattery(ByVal Sender As Battery.rtaLaptopBattery) Handles Battery.OnBattery
MsgBox("ثم فصل الشاحن من الجهاز")
End Sub

Private Sub Battery_OnPower(ByVal Sender As Battery.rtaLaptopBattery) Handles Battery.OnPower
MsgBox("ثم توصيل الشاحن بالجهاز")
End Sub

على العموم يوجد مثال مرفق عن كيفية استخدامها



اتمنى للجميع الاستفادة منها

السلام عليكم و رحمة الله و بركاته