MEMBUAT APLIKASI PROGRESS BAR MEMORI PC

DENGAN MENGAKSES MEMORI PC

berikut script dari untuk mengakses memori pc agar kita bisa membuat progress bar nya,,cara kerja aplikasi ini hampir sama dengan  task manager pada bagian memori di mana progres bar terus berjalan sesuai  memori yang di gunakan dan yang tidak di gunakan.aplikasi ini besifat menginformasikan berapa memori yang di gunakan dan berapa sisa memori yangh tidak di gunakan dan berapa totalnya.

Imports System.Management

Public Class MemoryBergerak

    Dim Library As Management.ManagementObjectCollection

    Dim MemoriDigunakan, MemoriKosong, MemoriTotal As Double

    Dim MemoriVirtualDigunakan, MemoriVirtualKosong, MemoriVirtualTotal As Double

    Function Memori()

        On Error Resume Next

        Library = New ManagementObjectSearcher("Select * From Win32_PhysicalMemory").Get

        For Each Jenis In Library

            MemoriTotal = Jenis("Capacity") / 1024

            Select Case Jenis("Capacity")

                Case Is > 1024 ^ 3

                    lblmemorytotal.Text = String.Format("Total : {0} Gb", CStr(Math.Round(Jenis("Capacity") / 1024 ^ 3, 3)))

                Case Is > 1024 ^ 2

                    lblmemorytotal.Text = String.Format("Total : {0} Mb", CStr(Math.Round(Jenis("Capacity") / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemorytotal.Text = String.Format("Total : {0} Kb", CStr(Math.Round(Jenis("Capacity") / 1024, 3)))

                Case Else

                    lblmemorytotal.Text = "Total : Tidak Diketahui"

            End Select

        Next

        Library = Nothing

    End Function

    Function MemoriFree()

        On Error Resume Next

        Library = New ManagementObjectSearcher("Select * From Win32_OperatingSystem").Get

        For Each Jenis In Library

            MemoriKosong = Jenis("FreePhysicalMemory")

            Select Case MemoriKosong

                Case Is > 1024 ^ 2

                    lblmemoryfree.Text = String.Format("Free : {0} Gb", CStr(Math.Round(MemoriKosong / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemoryfree.Text = String.Format("Free : {0} Mb", CStr(Math.Round(MemoriKosong / 1024, 3)))

                Case Else

                    lblmemoryfree.Text = "Free : Tidak Diketahui"

            End Select

            MemoriDigunakan = MemoriTotal - MemoriKosong

            Select Case MemoriDigunakan

                Case Is > 1024 ^ 2

                    lblmemoryuse.Text = String.Format("Digunakan : {0} Gb", CStr(Math.Round(MemoriDigunakan / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemoryuse.Text = String.Format("Digunakan : {0} Mb", CStr(Math.Round(MemoriDigunakan / 1024, 3)))

                Case Else

                    lblmemoryuse.Text = "Digunakan : Tidak Diketahui"

            End Select

        Next

        Library = Nothing

    End Function

    Function MemoriVirtual()

        On Error Resume Next

        Library = New ManagementObjectSearcher("Select * From Win32_OperatingSystem").Get

        For Each Jenis In Library

            MemoriVirtualTotal = Jenis("TotalVirtualMemorySize")

            Select Case MemoriVirtualTotal

                Case Is > 1024 ^ 2

                    lblmemorytotal.Text = String.Format("Total : {0} Gb", CStr(Math.Round(MemoriVirtualTotal / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemorytotal.Text = String.Format("Total : {0} Mb", CStr(Math.Round(MemoriVirtualTotal / 1024, 3)))

                Case Else

                    lblmemorytotal.Text = "Total : Tidak Diketahui"

            End Select

        Next

        Library = Nothing

    End Function

    Function VirtualMemoriKosong()

        On Error Resume Next

        Library = New ManagementObjectSearcher("Select * From Win32_OperatingSystem").Get

        For Each Jenis In Library

            MemoriVirtualKosong = Jenis("FreeVirtualMemory")

            Select Case MemoriVirtualKosong

                Case Is > 1024 ^ 2

                    lblmemoryfree.Text = String.Format("Free : {0} Gb", CStr(Math.Round(MemoriVirtualKosong / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemoryfree.Text = String.Format("Free : {0} Mb", CStr(Math.Round(MemoriVirtualKosong / 1024, 3)))

                Case Else

                    lblmemoryfree.Text = "Free : Tidak Diketahui"

            End Select

            MemoriVirtualDigunakan = MemoriVirtualTotal - MemoriVirtualKosong

            Select Case MemoriVirtualDigunakan

                Case Is > 1024 ^ 2

                    lblmemoryuse.Text = String.Format("Digunakan : {0} Gb", CStr(Math.Round(MemoriVirtualDigunakan / 1024 ^ 2, 3)))

                Case Is > 1024

                    lblmemoryuse.Text = String.Format("Digunakan : {0} Mb", CStr(Math.Round(MemoriVirtualDigunakan / 1024, 3)))

                Case Else

                    lblmemoryuse.Text = "Digunakan : Tidak Diketahui"

            End Select

        Next

        Library = Nothing

    End Function

    Private Sub Timerwaktu_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerwaktu.Tick

        On Error Resume Next

        If Trackgeser.Value = 0 Then

            lblmemorytotal.Text = "Total : N/A"

            lblmemoryuse.Text = "Digunakan : N/A"

            lblmemoryfree.Text = "Free : N/A"

            pbar.Value = 0

        Else

            If Trackgeser.Value = 1 Then

                Call Memori()

                Call MemoriFree()

            Else

                Call MemoriVirtual()

                Call VirtualMemoriKosong()

            End If

            pbar.Maximum = MemoriTotal

            pbar.Value = MemoriDigunakan

            

        End If

    End Sub

    Private Sub MemoryBergerak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class