بسم الله الرحمن الرحيم

فى هذه المقالة سوف نوضح لكم كيفية انشاء تطبيق بسيط لقراءة حالة ذاكرة الجهاز ...سواء كانت الذاكرة الظاهرية أو المادية  virtual & physical memory و ذلك من خلال شريط حالة



1_ قم بفتح مشروع جديد فى الفجوال بيسك 2008

2_ قم بوضع الادوات التالية على النافذة عدد 2 أداة عنوان , عدد 2 شريط حالة , عدد 1 مؤقت

2 labels, 1 timer, and 2 progress bars 

3_ قم بالنقر المزدوج على الاداة timer  لتفتح لك صفحة الكود ...ثم أكتب الشفرة التالية :

الكود:

Dim total1 As String = My.Computer.Info.TotalPhysicalMemory
Dim avail1 As String = My.Computer.Info.AvailablePhysicalMemory
Dim total2 As String = My.Computer.Info.TotalVirtualMemory
Dim avail2 As String = My.Computer.Info.AvailableVirtualMemory
Dim final1 As String = avail1 / total1
Dim final2 As String = avail2 / total2
ProgressBar1.Increment(0)
ProgressBar1.Value = avail1 / total1
ProgressBar2.Increment(0)
ProgressBar2.Value = avail2 / total2

4_ فى حدث التحميل للنافذة ...أكتب الشفرة التالية :

الكود:

Timer1.start