تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] انقطاع الكهرباء
#1
السلام عليكم 
اريد برنامج يسجل بقاعدة بيانات اوقات انقطاع الكهرباء باللابتوب اي اذا انقطعت الكهرباء عن اللابتوب يسجل الساعة والتاريخ واذا اتت الكهرباء يسجل الساعة والتاريخ ايضا 
لا يهم نوع قاعدة البيانات ******* وشكرا
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد
تم الشكر بواسطة:
#2
هل البرنامج مدفوع لا يهم أنا أمازحك أنا سأضع لك الكود و أنت صمم البرنامج :

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

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(sysPowerStatusThen
            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% من المشروع و الباقي سهل باذن الله .
الرد
تم الشكر بواسطة: عبد العزيز البسكري , ابو روضة
#3
(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(sysPowerStatusThen
            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% من المشروع و الباقي سهل باذن الله .
اولا جزاك الله عنا كل خير 
ثانيا ساجرب الكود وفق ما قلت لي وجزاك الله عنا كل خير
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد
تم الشكر بواسطة: asemshahen5
#4
الله يسلمك على كل حال وضعت مشروع في قسم المشاريع .

مشروع عن حالة بطارية الكمبيوتر المحمول
الرد
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حدثت مشكلة في الفورم عند انقطاع الكهرباء wael adel 6 1,230 10-12-15, 02:18 AM
آخر رد: hamada558
  ضياع كلاس بالكامل بسبب انقطاع التيار المفاجئ ali.alfoly 1 758 07-05-14, 10:39 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم