تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض مقايس cpu و ram و تنظيف الرام
#1
السلام عليكم : احتاج كود يضهر مقايس ال  cpu و ram مثل مو موضح في الصورة  و  كود أخر يعمل تنظيف للرام 



وشكرأ للجميع  Heart
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#3
(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

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

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

الله يوفقك ويسر امرك اخي مششششكور
الرد
تم الشكر بواسطة:
#4
الشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بخصوص استهلاك الرام الذاكرة محمد محمد 4 1,389 18-03-14, 03:47 PM
آخر رد: a_almisery
  [سؤال] تنظيف الاثار المترتبة على محي فورم kafi2030 1 739 29-10-13, 02:53 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم