vb.net CPU & RAM 显示程序
发布时间:2020-12-17 08:11:51 所属栏目:百科 来源:网络整理
导读:简单的实现代码: 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.Perfo
简单的实现代码: 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
推荐文章
站长推荐
- 高性能IO设计的Reactor和Proactor模式
- ruby-on-rails – 使用迁移更改表列的默认值
- FlexBuilder4.5+Eclipse集成开发环境
- 关于Flex的ScrollBar
- ruby-on-rails – Simple_form错误 – ActiveRec
- ruby-on-rails-3 – 是否有等效的ActiveRecord :
- c# – 如何引发使用“事件属性”定义的事件
- Cocos2d-x 3.8.1+Cocos Studio 2.3.2捉虫记之控制
- 【cocos2d-x 3.x 学习与应用总结】3: CallFunc系
- 如何使用Oracle SQL向rank()添加移动窗口
热点阅读