تبلیغات
آموزس برنامه نویسی - نمایش مقدار حافظه فیزیکی و مجازی با ویژوال بیسیک
چهارشنبه 1388/08/27

نمایش مقدار حافظه فیزیکی و مجازی با ویژوال بیسیک

   نوشته شده توسط: ::VB Love ::    

:: این بر نامه با استفاده از API مقدار حافظه فیزیکی و مجازی و ... را برایتان نمایش می ده . این برنامه خیلی ساده است و توضیحی هم ندارم که براش بدم چون اگه یه نگاه به سورسش بندازید می فهمید که چیز خاصی نداره .

Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
TotalPageFile As Long
AvailPageFile As Long
TotalVirtualMemory As Long
AvailableVirtualMemory As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)

Private Sub Timer1_Timer()
   Dim M As Memory
   GlobalMemoryStatus M

   LblAvlMem.Caption = Format(CDbl(M.AvailablePhysMemory / 1048576), "#.## MB")
   LblTotalPhMem.Caption = Format(CDbl(M.TotalPhysMemory / 1048576), "#.## MB")
   LblUsedMemory.Caption = Format(CDbl((M.TotalPhysMemory - M.AvailablePhysMemory) / 1048576), "#.## MB")
   LblPercentPhMem.Caption = Format(CDbl((M.AvailablePhysMemory / M.TotalPhysMemory)), "##.#%")

   LblVirtualMem.Caption = Format(CDbl(M.AvailableVirtualMemory / 1048576), "#.## MB")
   LblTotalVirtualMem.Caption = Format(CDbl(M.TotalVirtualMemory / 1048576), "#.## MB")
   LblUsedVirtualMem.Caption = Format(CDbl((M.TotalVirtualMemory - M.AvailableVirtualMemory) / 1048576), "#.## MB")
   LblPercentVirtualMem.Caption = Format(CDbl((M.AvailableVirtualMemory / M.TotalVirtualMemory)), "##.#%")
End Sub

برای دانلود برنامه اینجا کلیک کنید


http://rossieholifield.weebly.com/blog/treatment-for-hammer-toe-pain
چهارشنبه 1396/04/7 07:59 ق.ظ
Hi, I desire to subscribe for this web site to
obtain most recent updates, so where can i do it please help out.
manicure
یکشنبه 1396/02/17 06:30 ب.ظ
You actually make it seem so easy with your presentation but I find this topic to be really something which I think I would
never understand. It seems too complex and extremely broad for me.
I am looking forward for your next post, I'll try to get
the hang of it!
BHW
شنبه 1396/02/2 03:51 ب.ظ
I'm really enjoying the design and layout of your website.

It's a very easy on the eyes which makes it much more enjoyable for me to come here and visit more often. Did
you hire out a designer to create your theme? Exceptional work!
BHW
پنجشنبه 1396/01/24 02:17 ق.ظ
It's really a nice and helpful piece of information. I am glad that
you simply shared this useful information with us.

Please keep us informed like this. Thanks for sharing.
manicure
جمعه 1396/01/11 05:08 ق.ظ
Your style is so unique in comparison to other people I've read stuff from.
I appreciate you for posting when you have the opportunity, Guess I'll just book mark this site.
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر