Open Hardware Monitorを使用して現在の CPU コア温度を表示する機能を既存のプログラムに追加しようとしています。ツールストリップのステータスラベルに温度を表示し、タイマーで更新するパーソナルコンピューターで適切に動作しています。ただし、すべてを新しい PC にコピーしてプログラムをテスト実行すると、返される温度は常に、モニターが示す温度よりも約 25 度高くなります。あるコンピューターでは正しく読み取れるのに別のコンピューターでは正しく読み取れない理由について誰かが考えている場合は、困惑しているので感謝します...
ここに、モニター温度と、私のプログラムが私の PC に表示しているものの両方が一致しています。
これらは、出荷される新しい PC に表示される温度です。
これは、一時を取得するために現在使用しているコードです。
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim cp As New Computer()
cp.Open()
cp.HDDEnabled = True
cp.FanControllerEnabled = True
cp.RAMEnabled = True
cp.GPUEnabled = True
cp.MainboardEnabled = True
cp.CPUEnabled = True
Dim Info As String = ""
Timer3.Interval = 5000
For i As Integer = 0 To cp.Hardware.Length - 1
Dim hw = cp.Hardware(i)
Select Case hw.HardwareType
Case HardwareType.CPU
ToolStripStatusLabel5.Text = "CPU" & vbCrLf
For j = 0 To hw.Sensors.Length - 1
Dim sensor = hw.Sensors(j)
If cp.Hardware(i).Sensors(j).SensorType = SensorType.Temperature Then
ToolStripStatusLabel5.Text = sensor.Name & " - " & sensor.Value & vbCrLf
End If
Next
End Select
Next
End Sub