01-10-12, 05:03 PM
كاتب الموضوع : رغيد الطيب
السلام عليكم ورحمة الله و بركاتهاحتجت في برنامج معين (سوف احكي عنه لاحقا بإذن الله تعالى) ... الى معرفة معلومات عن حالة بطاية جهاز الاب توب الذي استخدمه ...
معلومات مثل :
- هل البطارية موصوله بالجهاز ام انها خارجه عن موضعها ؟ (BatteryExists)
- مستوى البطارية (درجة شحنها) ؟ (BatteryLevel)
- هل الجهاز موصول بالشاحن الكهربائي ؟ (IsAcOnline)
- هل البطارية في حالة شحن حاليا ؟ (IsCharging)
- هل البطارية ممتلئة 100% ؟ (IsBatteryFull)
اجابة الاسئلة السابقة يمكنك ان تجدها هنا و هناك ... وبطرق و اكواد مختلفة ... فحدثني نفسي بعمل مكتبة صغيرة Battery.DLL يمكنك ان تظيفها الى برنامجك عن طريق (Add Reference) من القائمة Project
ولكي تستخدمها ستحتاج الى سطر برمجي تضيفه الى الفورم :
كود :
Private WithEvents Battery As New Battery.rtaLaptopBatteryOnBattery
وهذا الحدث عندما يفصل الشاحن من الجهاز
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على العموم يوجد مثال مرفق عن كيفية استخدامها
اتمنى للجميع الاستفادة منها
السلام عليكم و رحمة الله و بركاته