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

[beyic_baris]

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:

Imports System.Management

Event'e (ör: timer):

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

Dersimiz burda bitti.Yapamayan olursa ulaşsın.

Alıntıdır.

 

[floware]

Konu için teşekkürler,işime yarayacak.

 

[ChokLeT]

teşekkürler.