ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1596|ตอบกลับ: 0

[VB.NET] โค้ดการอ่านค่าอุณหภูมิของ CPU Package ด้วยของฟรีจาก LibreHardwareMonitor

[คัดลอกลิงก์]

319

กระทู้

511

โพสต์

6484

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6484




การ Add References ... และต้องใช้ .NET Framework 4.7.2 ขึ้นไป ...

โค้ด VB.NET (2017) ในการอ่านค่าอุณหภูมิของ CPU Package ด้วยของฟรีจาก LibreHardwareMonitor โดยโค้ดตัวอย่างนี้จะใช้เวอร์ชั่น 0.9.3 ซึ่งจะต้องใช้ .Net Framework 4.7.2 ขึ้นไปนะครับ เจ้าตัว LibreHardwareMonitor จะสามารถมอนิเตอร์อุณหภูมิจากเซนเซอร์บนตัวเมนบอร์ด ความเร็วพัดลม ระดับแรงดัน หรือความเร็วบัสได้เหมือนกันกับ OpenHardwareMonitor ...

มาดูโค้ดฉบับเต็มกันเถอะ ...
  1. '// LibreHardwareMonitor:
  2. '// Monitor the temperature sensors, fan speeds, voltages, load and clock speeds of your computer.

  3. Imports LibreHardwareMonitor.Hardware
  4. Public Class frmLibreHardware
  5.     Private WithEvents computer As New Computer

  6.     '// S T A R T ... H E R E
  7.     Private Sub frmLibreHardware_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  8.         lblCpuName.Text = ""
  9.         For i As Byte = 1 To 60
  10.             cmbRefresh.Items.Add(i)
  11.         Next
  12.         With cmbRefresh
  13.             .SelectedIndex = 2  '// Refresh every 3 sec.
  14.             .ItemHeight = 10
  15.             .IntegralHeight = False
  16.         End With
  17.         '// Enable Timer.
  18.         Timer1.Interval = CByte(cmbRefresh.Text) * 1000
  19.         Timer1.Enabled = True
  20.     End Sub

  21.     '// Initialized ListView Control.
  22.     Sub InitListView()
  23.         With lvwData
  24.             .Clear()
  25.             .View = View.Details
  26.             .GridLines = True
  27.             .FullRowSelect = True
  28.             .HideSelection = False
  29.             .MultiSelect = False
  30.             '// 1st Column Index = 0
  31.             .Columns.Add("Sensor Name", lvwData.Width \ 2)
  32.             .Columns.Add("Value", lvwData.Width \ 2 - 100)
  33.         End With
  34.     End Sub

  35.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  36.         Call InitListView()
  37.         computer.IsCpuEnabled = True '// เปิดการตรวจสอบ CPU
  38.         computer.Open()
  39.         For Each hardwareItem As IHardware In computer.Hardware
  40.             '// ตรวจสอบเฉพาะ CPU
  41.             If hardwareItem.HardwareType = HardwareType.Cpu Then
  42.                 hardwareItem.Update()
  43.                 For Each sensor As ISensor In hardwareItem.Sensors
  44.                     If sensor.SensorType = SensorType.Temperature AndAlso sensor.Name.Contains("CPU Package") Then
  45.                         pgbTemp.Value = sensor.Value
  46.                         lblCpuName.Text = sensor.Name & ": " & sensor.Value & " °C."
  47.                     End If
  48.                     Dim LV As ListViewItem
  49.                     LV = lvwData.Items.Add(sensor.Name)  '// Primary Node
  50.                     LV.SubItems.Add(sensor.Value)
  51.                 Next
  52.             End If
  53.         Next
  54.         computer.Close()
  55.         computer.IsCpuEnabled = False
  56.     End Sub

  57.     Private Sub cmbRefresh_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRefresh.SelectedIndexChanged
  58.         '// 1000 Millisecond = 1 Second.
  59.         Timer1.Interval = CByte(cmbRefresh.Text) * 1000
  60.     End Sub

  61.     Private Sub frmLibreHardware_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
  62.         Me.Dispose()
  63.         GC.SuppressFinalize(Me)
  64.         Application.Exit()
  65.     End Sub
  66. End Class
คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2017) ได้ที่นี่ ...

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-10-13 01:52 , Processed in 0.107939 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้