İşte kodlar hicbirşey yapmaya gerek yok:
Option Explicit
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpbuffer As memorystatus)
Private Type memorystatus
dwlength As Long
dwmemoryload As Long 'belle?in kullanym yuzdesi
dwtotalphys As Long 'toplam fiziksel bellek kullanymy
dwavailphys As Long 'fiziksel bellekteki bo? miktar
dwtotalpagefile As Long
dwavailpagefile As Long
dwtotalvirtual As Long
dwavailvirtual As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Cls
Dim m As memorystatus
GlobalMemoryStatus m
FontSize = 15
ForeColor = &HFF&
Print "Bellek kullanymy %:", m.dwmemoryload
ForeColor = &HFF8080
Print "Toplam RAM :", m.dwtotalphys / 1024 / 1024&; "mb"
ForeColor = &H8080&
Print "Bo? RAM :", , m.dwavailphys / 1024 / 1024&; "mb"
End Sub
__________________
RAM Kullanımı gosteren program yapma
Programlama0 Mesaj
●25 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- RAM Kullanımı gosteren program yapma