Return to Tech/dotnet

VB CpuUtil

.NET(VB)ぷろぐらみんぐ
CPU使用率を表示してみる
Visual Studioもしくは
.NET Framework SDKのvbcで作成します

1. PerformanceCounterコンポーネントを追加し
下記の設定を行います

CategoriName に Processor
CounterName に % Processor Time
InstanceName に _Total
2. フォームのコード編集を行います。
file:Form1.vb
Public Class Form1
 ' スレッドを利用
 Private tstThread As Threading.Thread

 ' スレッドからコントロール(メインフォームのTitle)に
 ' アクセスするための準備
 Delegate Sub SetFormTitleDelegate()
 Private FormTitleDelegate As New SetFormTitleDelegate(AddressOf SetTitle)

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

  tstThread = new Threading.Thread(
   AddressOf start)

  tstThread.Start()

 End Sub

 Private Sub SetFormTitle()
  Dim doCPUData As Double = 0
  Double.TryParse(
   PerformanceCounter1.NextValue(),
    doCPUData)

  Me.Text = Now.ToLongTimeString() + " CPU使用率:" +
   CType(doCPUData, Integer).ToString()

 End Sub

 Private Sub start()
  Try
   Do
    Threading.Thread.Sleep(500)
     Me.Invoke(FormTitleDelegate, New Object() {})
   Loop
  Catch ex As System.Threading.ThreadAbortException
  End Try
 End Sub

 Private Sub Form1_Dispose(sender As Object, e As System.EventArgs)
  Handles Me.Disposed
  tstThread.Abort()
 End Sub

End Class
3. コンパイルとプログラム実行
実行結果例
Return to Tech/dotnet