منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عرض مقايس cpu و ram و تنظيف الرام
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم : احتاج كود يضهر مقايس ال  cpu و ram مثل مو موضح في الصورة  و  كود أخر يعمل تنظيف للرام 



وشكرأ للجميع  Heart
وعليكم السلام ورحمة الله وبركاته

كل ما عليك اضافة عدد 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, 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

يمكنك الان استخدام الكود والتعديل عليه لتوزيعه كما تشاء

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

الله يوفقك ويسر امرك اخي مششششكور
الشكر لله

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