Vous pouvez connaitre le Total de Ram en Octets et en Mega ou bien connaitre les pourcentage utliser ect...
Source / Exemple :
'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.