Onaylı Üye
Bilgisayarın ekran kartının sıcaklığını dakika da bir otomatik yenileyerek gösteren bir program nasıl yapabilirim arkadaşlar kod olarak yazarsanız sevinirim herkese iyi forumlar
Ekran Kartının sıcaklığını anlık olarak gösteren program nasıl yapabilirim?
- Konuyu başlatan mrsherlock
- Başlangıç tarihi
- Durum
Uzman Üye
Anlık tüm bilgisayarında sıcaklık yapan herşeyi ölçebileceğin bir program var : speecy ; ccleaneri yapan piriform firmasına ait bir program öneririm.
- Yasaklandı
- #4
Hile kullanmak kolsuzluk değil akıllılıktır
Banlı Üye
Onaylı Üye
ekran kartın amd ise panelden açabilirsin işlemciden ekran kartına kadar çoğu şeyin frekans hızını gösteriyor ek bir işleme gerek kalmıyor
Uzman Üye
Kod:
''' <summary>
''' WMI kullanarak CPU'nun mevcut ortalama sıcaklığını belirler.
''' </summary>
Private Function GetCPUTemperatureWithWMI() As Double
Try
Dim TempSearcher As New Management.ManagementObjectSearcher( _
"root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
Dim Temperature As Double = 0
For Each TempSensor As Management.ManagementObject In TempSearcher.Get()
Temperature = CDbl(TempSensor("CurrentTemperature")) : Exit For
Next
Return (Temperature - 2732) / 10.0 'Santigrat olarak dönüşüm
Catch err As Management.ManagementException
Return -1 '-1 işlev desteklenmiyorsa döndürülür!
End Try
End Function
Tutti mi chiedono perché ho imparato questa lingua
Süper Üye
direk copy paste yap uğraşma al
Imports System
Imports System.Management
Imports OpenHardwareMonitor
Imports OpenHardwareMonitor.Hardware
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim computer As New Computer()
computer.Open()
computer.CPUEnabled = True
Dim cpu = computer.Hardware.Where(Function(h) h.HardwareType = HardwareType.CPU).FirstOrDefault()
If cpu IsNot Nothing Then
cpu.Update()
Dim tempSensors = cpu.Sensors.Where(Function(s) s.SensorType = SensorType.Temperature)
Label1.Text = tempSensors.ToList.Item(0).Value
Label2.Text = tempSensors.ToList.Item(1).Value
End If
End Sub
End Class
Imports System
Imports System.Management
Imports OpenHardwareMonitor
Imports OpenHardwareMonitor.Hardware
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim computer As New Computer()
computer.Open()
computer.CPUEnabled = True
Dim cpu = computer.Hardware.Where(Function(h) h.HardwareType = HardwareType.CPU).FirstOrDefault()
If cpu IsNot Nothing Then
cpu.Update()
Dim tempSensors = cpu.Sensors.Where(Function(s) s.SensorType = SensorType.Temperature)
Label1.Text = tempSensors.ToList.Item(0).Value
Label2.Text = tempSensors.ToList.Item(1).Value
End If
End Sub
End Class
Seçkin Üye
Ekran kartı marka modelini yazarsan daha çok yararlı bilgiye ulaşabilirsin. Çünki ekran kartının markasını googlede aratırsan kendi orjinal yazılımında bu bilgileri otomatik veriyor size (sıcaklık, memory, hız).
Seçkin Üye
cpu z işe yaramaz msı afterburner indir
Are you sure
Süper Üye
VB.net Computer Adlı Kütüphane Var Ordan Bilgisayar İle Alakalı Tüm Bilgileri Çekebiliyorsunuz Ona Bakmanı Tavsiye Ederim Ya da OpenHardwareMonitorLib Yazarsan Oda Baya İşine Yarayacaktır
- Durum
Benzer Konular
