TOUS SAVOIR SUR SA RAM OCX

'Pour ce code il vous faut 1 Image "Image1" , 1 Timer "Timer1" à interval=1, 1 Timer "Timer2"  à 'interval=1, et mettez le UserControl à InvisibleatRuntime=1 ( ou True)
'Pour avoir le Total de Ram en Mega     Ram1.TotalRamMega
'Pour avoir le Total de Ram en Octets   Ram1.TotalRamOctet
'Pour avoir le Nombre de Ram Disponible en Mega     Ram1.RamDispoMega
'Pour avoir le Nombre de Ram Disponible en Octets   Ram1.RamDispoOctet
'Pour avoir le Nombre de Poucentage de Ram Utiliser    Ram1. PCTageRamUtilise
'Pour avoir le Nombre de Pourcentage de Ram Disponible   Ram1.PCTageRamDispo
'Pour avoir le nombre de Ram Utiliser en Mega     Ram1.RamUtiliseMega
'Pour avoir le nombre de Ram Utiliser en Octets    Ram1.RamUtiliseOctet

'Mettre dans le UserControl:
'=======================
Public TotalRamMega As Integer
Public TotalRamOctet As Variant
Public RamDispoMega As Integer
Public RamDispoOctet As Variant
Public PCTageRamUtilise As Integer
Public PCTageRamDispo As Integer
Public RamUtiliseMega As Integer
Public RamUtiliseOctet As Variant

Private Sub Timer1_Timer()
If UserControl.Width = 460 Then GoTo fin
Image1.Width = 460
Image1.Height = 460
UserControl.Width = 460
UserControl.Height = 460
fin:
End Sub

Private Sub Timer2_Timer()
Dim TamponMem  As MEMORYSTATUS
GlobalMemoryStatus TamponMem
TotalRamMega = (TamponMem.dwTotalPhys / 1024 / 1024) + 1
RamDispoMega = TamponMem.dwAvailPhys / 1024 / 1024
RamDispoOctet = TamponMem.dwAvailPhys
TotalRamOctet = TamponMem.dwTotalPhys
PCTageRamUtilise = (TotalRamMega - RamDispoMega) / TotalRamMega * 100
PCTageRamDispo = RamDispoMega / TotalRamMega * 100
RamUtiliseMega = TotalRamMega - RamDispoMega
RamUtiliseOctet = TamponMem.dwTotalPhys - TamponMem.dwAvailPhys
End Sub


'Mettre dans un module:
'===================
Option Explicit

' déclaration api
Declare Sub GlobalMemoryStatus Lib "kernel32" _
   (lpBuffer As MEMORYSTATUS)
   
' déclaration du type MEMORYSTATUS
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



'Bon prog et envoyez moi vos idées et critiques sur Megatrix@free.fr
'@++      MEGATRIX 

Télécharger le zip