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

[atakanzb]

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:

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

 

[KubilayDark]

Merhaba mübarek ,

Sanki baştan sağarmış gibi anlatmışsın.
Kodu az açıkla be mübarek ,

Kolay gele,