Soyez le premier à donner votre avis sur cette source.
Vue 4 268 fois - Téléchargée 466 fois
'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.