30-08-18, 08:07 PM
30-08-18, 08:53 PM
وعليكم السلام ورحمة الله وبركاته
كل ما عليك اضافة عدد 1 Timer و 2 TextBox
قم بضبط التايمر لـ 1000 وجعله True
ثم استخدم الكود التالى داخل كلاس الفورم
كود :
Private PerCounter As New PerformanceCounter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PerCounter.CategoryName = "Processor"
PerCounter.CounterName = "% Processor Time"
PerCounter.InstanceName = "_Total"
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim Log1_ As Double
Dim Log2_ As Long
Dim ii As Integer
Log1_ = Val(My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
Log2_ = Val(Log2_ / My.Computer.Info.TotalPhysicalMemory)
ii = Integer.Parse(Format(PerCounter.NextValue, "##0"))
TextBox1.Text = "Ram: " & Log1_.ToString("N2") & " GB"
TextBox2.Text = "CPU: " & ii & "%"
End Sub
يمكنك الان استخدام الكود والتعديل عليه لتوزيعه كما تشاء
تحياتى لك
وتمنياتى لك التوفيق
30-08-18, 09:07 PM
(30-08-18, 08:53 PM)elgokr كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
كل ما عليك اضافة عدد 1 Timer و 2 TextBoxقم بضبط التايمر لـ 1000 وجعله True
ثم استخدم الكود التالى داخل كلاس الفورم
كود :
Private PerCounter As New PerformanceCounter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PerCounter.CategoryName = "Processor"
PerCounter.CounterName = "% Processor Time"
PerCounter.InstanceName = "_Total"
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim Log1_ As Double
Dim Log2_ As Long
Dim ii As Integer
Log1_ = Val(My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
Log2_ = Val(Log2_ / My.Computer.Info.TotalPhysicalMemory)
ii = Integer.Parse(Format(PerCounter.NextValue, "##0"))
TextBox1.Text = "Ram: " & Log1_.ToString("N2") & " GB"
TextBox2.Text = "CPU: " & ii & "%"
End Sub
يمكنك الان استخدام الكود والتعديل عليه لتوزيعه كما تشاء
تحياتى لكوتمنياتى لك التوفيق
الله يوفقك ويسر امرك اخي مششششكور
30-08-18, 10:10 PM
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق