(29-03-19, 07:29 PM)asemshahen5 كتب : هل البرنامج مدفوع لا يهم أنا أمازحك أنا سأضع لك الكود و أنت صمم البرنامج :

أولا كود الكلاس :

PHP كود :

Imports System.Runtime.InteropServices
Public Class ManagedPower
    ' GetSystemPowerStatus() is the only unmanaged API called.'
    Declare Auto Function GetSystemPowerStatus Lib "kernel32.dll" _
    Alias "GetSystemPowerStatus" (ByRef sps As SystemPowerStatus) As Boolean
    Public Overrides Function ToString() As String
        Dim text As String = ""
        Dim sysPowerStatus As SystemPowerStatus
        If ManagedPower.GetSystemPowerStatus(sysPowerStatus) Then
            Dim currentPowerStatus = sysPowerStatus.ACLineStatus
            text += "مصدر الطاقة : " + sysPowerStatus.ACLineStatus.ToString() + " - " '' Environment.NewLine
            text += "حالة الطاقة : "
            If sysPowerStatus.BatteryFlag = ManagedPower._BatteryFlag.Unknown Then
                text += "غير معروف"
            Else
                Dim fCharging = (ManagedPower._BatteryFlag.Charging = _
      (sysPowerStatus.BatteryFlag & ManagedPower._BatteryFlag.Charging))
                If fCharging Then
                    Dim currentChargingStatus = ManagedPower._BatteryFlag.Charging
                End If
                Dim currentPowerLevel As String
                If sysPowerStatus.BatteryFlag = 0 Then
                    currentPowerLevel = "متوسط"
                Else
                    currentPowerLevel = sysPowerStatus.BatteryFlag.ToString()
                End If
                text += currentPowerLevel
                If fCharging Then
                    Dim currentChargingStatus = ManagedPower._BatteryFlag.Charging.ToString()
                    text += " (" + ManagedPower._BatteryFlag.Charging.ToString() + ") "
                End If
            End If
            Dim currentBatteryPercentage = sysPowerStatus.BatteryLifePercent
            text += " - " + "نسبة الطاقة المتوفرة : " + _
            sysPowerStatus.BatteryLifePercent.ToString() + "%"
        End If
        Return text
    End Function
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SystemPowerStatus
        Public ACLineStatus As _ACLineStatus
        Public BatteryFlag As _BatteryFlag
        Public BatteryLifePercent As Byte
        Public Reserved1 As Byte
        Public BatteryLifeTime As System.UInt32
        Public BatteryFullLifeTime As System.UInt32
    End Structure
    Public Enum _ACLineStatus As Byte
        Battery = 0
        AC = 1
        Unknown = 255
    End Enum
    <Flags()> _
    Public Enum _BatteryFlag As Byte
        High = 1
        Low = 2
        Critical = 4
        Charging = 8
        NoSystemBattery = 128
        Unknown = 255
    End Enum
End Class 


ثانيا الكود الموضوع بالفورم :

PHP كود :

   Dim myManagedPower As New ManagedPower()
    Sub New()
        InitializeComponent()
        If ManagedPower._ACLineStatus.AC Then
            MsgBox("AC")
            'ضع كود إضافة وقت مجيئ الطاقة الكهربائية هنا'
            MsgBox(myManagedPower.ToString(), MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
        ElseIf ManagedPower._ACLineStatus.Battery Then
            MsgBox("Battery")
            'ضع كود إضافة وقت قطع التيار الكهربائي هنا'
            MsgBox(myManagedPower.ToString(), MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
        ElseIf ManagedPower._ACLineStatus.Unknown Then
            MsgBox("Unknown")
            'ضع هنا كود إضافة وقت تلف الشاحن أو البطارية'
            MsgBox(myManagedPower.ToString(), MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
        End If
        'مع تحيات العاصم للبرمجيات سوريا دمشق'
        Label1.RightToLeft = Windows.Forms.RightToLeft.Yes
        Label1.Text = myManagedPower.ToString()
    End Sub 


طبعا ضع ليبل على الفورم لتعرض حالة البطارية أما كود قاعدة البيانات و إضافة وقت قطع الكهرباء ووقت مجيئها فتركته عليك حللت لك أكثر من 75% من المشروع و الباقي سهل باذن الله .