VB.NET ile CPU Sıcaklığını Öğrenme

[SaNcArHaN71]

VB.NET ile CPU Sıcaklığını Öğrenme

Merhaba arkadaşlar,

Bu dersimizde system.management ile CPU sıcaklığını ölçmeyi öğreneceğiz.

İlk önce Projeye solution dan sağ tıklayıp;

Add Reference -> .NET | System.Management çift tıklayarak ekliyoruz.
en başa:

Code:

Imports System.Management

Event'e (ör: timer):

Code:

Try
Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim sicak As Double = CDbl(queryObj("CurrentTemperature"))
sicak = (sicak - 2732) / 10.0
Text = sicak.ToString & " °C" ' Başlıkta gösteriyoruz
Next
Catch
MsgBox "CPU sıcaklığı okunamıyor !"
End Try

Kolay gelsin.