Okay Ive found some code on how to display Virtual and Physical Memory but its not working
:'( any help :@

Here i show the timer will start :

Private Sub TabControlMemFreePlus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControlMemFreePlus.SelectedIndexChanged
        If Me.TabControlMemFreePlus.SelectedIndex = 1 Then
            LoadStorageToolStripMenuItem.PerformClick()
            Call UpdateProcessList()
            TimerInfoNumbers.Start()
        Else
            TimerInfoNumbers.Stop()
        End If
        If Me.TabControlMemFreePlus.SelectedIndex = 2 Then
            Call GETUSERINFO()
            TimerGetuserinfo.Start()
            TimerMemProgress.Start()
        Else
            TimerGetuserinfo.Stop()
            TimerMemProgress.Stop()
        End If
    End Sub

Here's the code for supposed Memory :

Dim total1 As String = My.Computer.Info.TotalPhysicalMemory
        Dim avail1 As String = My.Computer.Info.AvailablePhysicalMemory
        Dim total2 As String = My.Computer.Info.TotalVirtualMemory
        Dim avail2 As String = My.Computer.Info.AvailableVirtualMemory
        Dim final1 As String = avail1 / total1
        Dim final2 As String = avail2 / total2
        ProgressBarPhys.Increment(0)
        ProgressBarPhys.Value = final1
        ProgressBarVirtl.Increment(0)
        ProgressBarVirtl.Value = final2

Recommended Answers

All 8 Replies

Is there an error?
Have you debugged the code to see if the code for TimerMemProgress is being trigged and executed?

No error pal :(

What exactly is the problem?
.No values in ProgressBars?

yes it does but only keep showing one percent of progress bar (meaning in green value)
Doesn't make sense

The Maximum value of the ProgressBar should be set to TotalPhysicalMemory.
Although, the answer could be in that you divide AvailablePhysicalMemory with TotalPhysicalMemory. Why is that?

Let's say that you have 4Gb in total memory, and 2.5Gb available.
2.5 / 4 = 0.625 = 625Mb, ie a fraction of the memory is displayed in the progressbar.

See if this helps.

Dim final1 As String = avail1 / total1 * 100
        Dim final2 As String = avail2 / total2 * 100

I will try it soon but I've gotten a New Pc so im still Bringing it up To My normal Standards :)

Dam.n your normal.standards man!:D
Enjoy them; for mine make my life easier to deal with and everyone else's life much better to be dealt with.:)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.