الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية معرفة نسبة بطارية ubs

بدأه f2ij soft في 14 سبتمبر 2013 · 2 رد · 677 مشاهدة · في قواعد بيانات Microsoft SQL Server
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيفية معرفة نسبة بطارية جهاز الـubs

80%   20%     ؟

اريد ان اسجل احداث الـubs فى جدول والبرنامج المتصل بالـDatabase يتعامل معها

يعنى اريد ان البرنامج لما يلاقى البطارية 20% يطلع رسالة تقول ان البطارية اوشكت على النفاذ ؟

 

الكود بالvb6

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

Private Sub Command1_Click()
    Dim MyStatus As SYSTEM_POWER_STATUS
    Dim MyLifeTime As Double
    
    GetSystemPowerStatus MyStatus
    MyLifeTime = MyStatus.BatteryLifeTime
    
    Print MyStatus.BatteryLifePercent
    If MyLifeTime = -1 Then
        MsgBox "Using AC Power"
    Else
        MsgBox "I have " & MyLifeTime / 3600 & " hours remaining on battery."
    End If
     MsgBox MyStatus.BatteryLifePercent
End Sub

لكنى اريد ان احول الكود لـSql علشان اعمل procedure يقوم بالتسجيل بداخل جدول

عالم البرمجة والاكواد النادرة والفعالة
#2

هل الموضوع صعب . . . .

 

طيب طريقة استخدام اى dll هى . . .

Declare @file int,@hr int

EXEC @hr = sp_OACreate 'DllName.ClassName', @file OUT 
EXEC @hr = sp_OAMethod @file, 'ClassName'

طريقة اخرى

Declare @file int,@hr int,@text nvarchar(50)

EXEC @hr = sp_OACreate 'DllName.ClassName', @file OUT 
EXEC @hr = sp_OAMethod @file, 'FunctionName',@text OUT
EXEC @hr = sp_OADestroy @file 
Select @text

وعلشان اللبس DllName.ClassName هى مثال يعنى لو المكتبة كانت ado  تكتب adodb.recordset مثلا

 

ولكن اتمنى ان حد يجد طريقة لاستخدام دوال Api

تم تعديل هذه المشاركة بواسطة f2ij soft في 21 سبتمبر 2013 في 17:06

عالم البرمجة والاكواد النادرة والفعالة
#3

على فكرة اكبر مشكلة فى تحويل الكود تقريبا هى . . . .

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
عالم البرمجة والاكواد النادرة والفعالة

مواضيع مشابهة