كتابخانه برنامه نويسان-آموزشVB

سلام امروز چطورين وژدانن روزگار به كامتونه يا نه.امروز كلي زور زدم به تابه ترو تميز و كوچلو تو توابع ويندوز پيدا كردم

تا بگم بعدش چي كار كنيدHScrollيه فرم ايجاد كنيد وفعلآ الل حساب يه هف هشتا ليبل بزارين روش با يه تايمر و يه

مربوط به اسكرول رو روي100 بزارينMaxخاصيت

تايمر رو روي 50 بزارينIntervalخاصيت

اين كدها رو اولين خط فرم بنويسيد

'----------Type New Data For Memory------------------
Private Type MEMORYSTATUS
dwlength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type '------------------Declear API Of Kernal Windows Librery-------------
Private Declare Sub GlobalMemoryStatus Lib "KERNEL32" (lpBuffer As MEMORYSTATUS)
Dim Mem As MEMORYSTATUS

روي تايمر دابل كليك كنيد و كد زير را بنويسيد

GlobalMemoryStatus Mem
Me.Caption = Mem.dwMemoryLoad & "% used"
Label1.Caption = "Memory used: " & Mem.dwMemoryLoad & "%"
Label2.Caption = "Total Physical Memory: " & Mem.dwTotalPhys
Label3.Caption = "Available Physical Memory: " & Mem.dwAvailPhys
Label4.Caption = "Page File Bytes: " & Mem.dwTotalPageFile
Label5.Caption = "Available bytes of Page File: " & Mem.dwAvailPageFile
Label6.Caption = "Total Virtual bytes: " & Mem.dwTotalVirtual
Label7.Caption = "Available Virtual Bytes: " & Mem.dwAvailVirtual
HScroll1.Value = Mem.dwMemoryLoad

با كداي بالا مي تونين كاركرد سي پي يو ورم رو مشاهده كنيد مثل تكس منيگر خود ويندوز

نظر كه يادت هست آفرين ايوللا بجنب