[معاذ_ابراهيم]

السلام عليكم ورحمه الله وبركاته
انا حاليا اخواني اقوم بعمل برنامج يخص البطاريه واريد من برنامجي القدره على تغيير قيمه سطوع الشاشة
فما هو الكود الخاص بتغغير قيمه السطوع جزاكم الله خيرا

[asemshahen5]

تفضل هذا فيديو يوضح ما تريد عمله .

https://www.youtube.com/watch?v=zkDamGUALF4

و هذا الكود المستخدم :

كود :

Imports System.Management

Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
Dim mclass As New ManagementClass("WmiMonitorBrightnessMethods")
mclass.Scope = New ManagementScope("\\.\root\wmi")
Dim instances As ManagementObjectCollection = mclass.GetInstances()
For Each instance As ManagementObject In instances
Dim timeout As ULong = 1
Dim brightness As UShort = CUShort(TrackBar1.Value * 10)
Dim args As Object() = New Object() {timeout, brightness}
instance.InvokeMethod("WmiSetBrightness", args)
Label4.Text = brightness
Next
End Sub

[elgokr]

لا اضيف شئ عن ما قدمه الاخ asemshahen5

ولكن للعلم فقط

حتى تتمكن من اختبار الكود

يتوجب عليك اختباره على لاب توب

وان لا يكون متصل بالتيار الكهرباء من خلال التوصيلة

تحياتى لك

وتمنياتى لك التوفيق

[معاذ_ابراهيم]

نسأل الله ان يوفقكم الى كل خير جزاكما الله كل الخير اساتذتي
وارجو من ان يكتب اجركم وان يرحمكم برحمته الواسعه 
اعنتو الكثير من امثالي 
فشكرا لكم

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق

[معاذ_ابراهيم]

السلام عليكم الكود السابق شغال ١٠٠% بس اشتي اضيف الى برنامجي خاصيه وهيى في حدث التحميل load  اريد ان تكون قيمه التراك بر مساويه لقيمه السطوع الحالي لشاشه   
وشاكر كل من حاول في ازاله هذه العثره

[asemshahen5]

تفضل أخي الكريم هذا الكود :

كود :

Imports System.Management
Imports System.Runtime.InteropServices

Public Class Form1
   Dim iCount As Integer = 0
   Dim bLevels As Byte()
   Dim arguments As String()
   Public Function GetBrightness() As Integer
       Dim s As New System.Management.ManagementScope("\\.\root\wmi")
       Dim q As New System.Management.SelectQuery("WmiMonitorBrightness")
       Dim mos As New System.Management.ManagementObjectSearcher(s, q)
       Dim moc As System.Management.ManagementObjectCollection = mos.Get()
       Dim curBrightness As Byte = 0
       For Each o As System.Management.ManagementObject In moc
           curBrightness = o.GetPropertyValue("CurrentBrightness")
       Next
       moc.Dispose()
       mos.Dispose()
       Return curBrightness
   End Function
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim iBrightness As Integer = GetBrightness()
       TrackBar1.Value = Val(iBrightness / 10)
       Label1.Text = iBrightness
   End Sub
End Class

[ahmed.m]

الكود لا يعمل على الاصطار 2008!

[معاذ_ابراهيم]

(01-10-18, 06:42 PM)asemshahen5 كتب : تفضل أخي الكريم هذا الكود :

كود :

Imports System.Management
Imports System.Runtime.InteropServices

Public Class Form1
   Dim iCount As Integer = 0
   Dim bLevels As Byte()
   Dim arguments As String()
   Public Function GetBrightness() As Integer
       Dim s As New System.Management.ManagementScope("\\.\root\wmi")
       Dim q As New System.Management.SelectQuery("WmiMonitorBrightness")
       Dim mos As New System.Management.ManagementObjectSearcher(s, q)
       Dim moc As System.Management.ManagementObjectCollection = mos.Get()
       Dim curBrightness As Byte = 0
       For Each o As System.Management.ManagementObject In moc
           curBrightness = o.GetPropertyValue("CurrentBrightness")
       Next
       moc.Dispose()
       mos.Dispose()
       Return curBrightness
   End Function
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim iBrightness As Integer = GetBrightness()
       TrackBar1.Value = Val(iBrightness / 10)
       Label1.Text = iBrightness
   End Sub
End Class

اعتذر على الرد المتاخر وشكرا لك سيدي افتني وساعتني في معدلتي فارجو من الله ان يعطيك العافيه