[aldery]

(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

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

تحياتى لك

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

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