vb.net CPU & RAM 显示程序

最新推荐文章于 2022-09-12 09:27:30 发布

a771948524

最新推荐文章于 2022-09-12 09:27:30 发布

阅读量1.9k

点赞数

分类专栏： vb.net

本文链接：https://blog.youkuaiyun.com/zxlstudio/article/details/9115487

版权

vb.net 专栏收录该内容

43 篇文章

订阅专栏

本文介绍了一个简单实用的应用程序，用于实时监控计算机的CPU使用率和内存使用情况。通过Visual Basic.NET实现，该程序能够显示当前系统的CPU占用百分比及可用内存，并通过进度条直观展示内存使用比例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

简单的实现代码：

Public Class Form1
    Private PerCounter As System.Diagnostics.PerformanceCounter

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PerCounter = New System.Diagnostics.PerformanceCounter
        PerCounter.CategoryName = "Processor"
        PerCounter.CounterName = "% Processor Time"
        PerCounter.InstanceName = "_Total"

        Dim nutzram As Double
        nutzram = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
        Label2.Text = "RAM: " & nutzram.ToString("N") & " GB"

        Dim Prozent1 As Long
        Prozent1 = My.Computer.Info.AvailablePhysicalMemory * 100
        Dim Prozentsatz As Long
        Prozentsatz = Val(Prozent1 / My.Computer.Info.TotalPhysicalMemory)
        ProgressBar2.Value = Prozentsatz

        Dim i As Integer = Integer.Parse(Format(PerCounter.NextValue, "##0"))
        ProgressBar1.Value = i

        Label1.Text = "CPU: " & i & " %"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim nutzram As Double
        nutzram = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
        Label2.Text = "RAM: " & nutzram.ToString("N") & " GB"

        Dim Prozent1 As Long
        Prozent1 = My.Computer.Info.AvailablePhysicalMemory * 100
        Dim Prozentsatz As Long
        Prozentsatz = Val(Prozent1 / My.Computer.Info.TotalPhysicalMemory)
        ProgressBar2.Value = Prozentsatz

        Dim i As Integer = Integer.Parse(Format(PerCounter.NextValue, "##0"))
        ProgressBar1.Value = i

        Label1.Text = "CPU: " & i & " %"

    End Sub
End Class