Medidor de temperatura!

[AnonymousKesha 11]

Vou deixar uma código que da a saida com a temperatura!

 

Vale lembra que poderá dar erro se sua placa mãe não tiver sensor de temperatura ou incompatibilidade!

 

Primeiro vá na aba Projeto>Adicionar referencia...>System.Management

 

Imports que deve ser feito :

Imports System.Management

 

Primeiro código :

Try

Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSStorageDriver_ATAPISmartData")

For Each queryObj As ManagementObject In searcher.Get()

Dim arrVendorSpecific As Byte() = queryObj("VendorSpecific")

MsgBox("Temperatura = " & arrVendorSpecific(115) & "°C")

Next

Catch err As ManagementException

MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)

End Try

 

Segundo código :

Try

Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")

For Each queryObj As ManagementObject In searcher.Get()

Dim temp As Double = CDbl(queryObj("CurrentTemperature"))

temp = (temp - 2732) / 10.0

MessageBox.Show(temp.ToString)

Next

Catch err As ManagementException

MsgBox("Erro na leitura de dados[Temperatura]", MsgBoxStyle.Critical, Title:="Erro")

End Try

End Sub

 

 

Pode ser que os 2 funcione ou só um funcione ou nem um funcione, pelo que entendi depende muito da placa mãe, esse código foi tirado de um site gringo então...

Créditos ??????