0

Open Hardware Monitorを使用して現在の CPU コア温度を表示する機能を既存のプログラムに追加しようとしています。ツールストリップのステータスラベルに温度を表示し、タイマーで更新するパーソナルコンピューターで適切に動作しています。ただし、すべてを新しい PC にコピーしてプログラムをテスト実行すると、返される温度は常に、モニターが示す温度よりも約 25 度高くなります。あるコンピューターでは正しく読み取れるのに別のコンピューターでは正しく読み取れない理由について誰かが考えている場合は、困惑しているので感謝します...

ここに、モニター温度と、私のプログラムが私の PC に表示しているものの両方が一致しています。

ハードウェア モニターの温度を開く

プログラムに表示される温度

これらは、出荷される新しい PC に表示される温度です。

新しい PC オープン ハードウェア モニター

New 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
4

1 に答える 1