+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سطوع الشاشة (/showthread.php?tid=26673)
سطوع الشاشة - معاذ_ابراهيم - 27-09-18
السلام عليكم ورحمه الله وبركاته
انا حاليا اخواني اقوم بعمل برنامج يخص البطاريه واريد من برنامجي القدره على تغيير قيمه سطوع الشاشة
فما هو الكود الخاص بتغغير قيمه السطوع جزاكم الله خيرا
RE: سطوع الشاشة - asemshahen5 - 27-09-18
تفضل هذا فيديو يوضح ما تريد عمله .
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 SubRE: سطوع الشاشة - elgokr - 27-09-18
لا اضيف شئ عن ما قدمه الاخ asemshahen5
ولكن للعلم فقط
حتى تتمكن من اختبار الكود
يتوجب عليك اختباره على لاب توب
وان لا يكون متصل بالتيار الكهرباء من خلال التوصيلة
تحياتى لك
وتمنياتى لك التوفيق
RE: سطوع الشاشة - معاذ_ابراهيم - 27-09-18
نسأل الله ان يوفقكم الى كل خير جزاكما الله كل الخير اساتذتي
وارجو من ان يكتب اجركم وان يرحمكم برحمته الواسعه
اعنتو الكثير من امثالي
فشكرا لكم
RE: سطوع الشاشة - elgokr - 28-09-18
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
RE: سطوع الشاشة - معاذ_ابراهيم - 01-10-18
السلام عليكم الكود السابق شغال ١٠٠% بس اشتي اضيف الى برنامجي خاصيه وهيى في حدث التحميل load اريد ان تكون قيمه التراك بر مساويه لقيمه السطوع الحالي لشاشه
وشاكر كل من حاول في ازاله هذه العثره
RE: سطوع الشاشة - asemshahen5 - 01-10-18
تفضل أخي الكريم هذا الكود :
كود :
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 ClassRE: سطوع الشاشة - ahmed.m - 02-10-18
الكود لا يعمل على الاصطار 2008!
RE: سطوع الشاشة - معاذ_ابراهيم - 02-10-18
(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
اعتذر على الرد المتاخر وشكرا لك سيدي افتني وساعتني في معدلتي فارجو من الله ان يعطيك العافيه