السلام عليكم ورحمه الله وبركاته
انا حاليا اخواني اقوم بعمل برنامج يخص البطاريه واريد من برنامجي القدره على تغيير قيمه سطوع الشاشة
فما هو الكود الخاص بتغغير قيمه السطوع جزاكم الله خيرا
تفضل هذا فيديو يوضح ما تريد عمله .
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
لا اضيف شئ عن ما قدمه الاخ asemshahen5
ولكن للعلم فقط
حتى تتمكن من اختبار الكود
يتوجب عليك اختباره على لاب توب
وان لا يكون متصل بالتيار الكهرباء من خلال التوصيلة
تحياتى لك
وتمنياتى لك التوفيق
نسأل الله ان يوفقكم الى كل خير جزاكما الله كل الخير اساتذتي
وارجو من ان يكتب اجركم وان يرحمكم برحمته الواسعه
اعنتو الكثير من امثالي
فشكرا لكم
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
السلام عليكم الكود السابق شغال ١٠٠% بس اشتي اضيف الى برنامجي خاصيه وهيى في حدث التحميل load اريد ان تكون قيمه التراك بر مساويه لقيمه السطوع الحالي لشاشه
وشاكر كل من حاول في ازاله هذه العثره
تفضل أخي الكريم هذا الكود :
كود :
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
الكود لا يعمل على الاصطار 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
اعتذر على الرد المتاخر وشكرا لك سيدي افتني وساعتني في معدلتي فارجو من الله ان يعطيك العافيه