emollo12

eyvallah

Şu kodu denedim 85,73 çıktı :trl ;

Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim temperature As Double = CDbl(queryObj("CurrentTemperature"))
temperature = (((temperature / 10) - 273.15) * 1.8) + 32
Label9.Text = temperature

bilemiyorum değerleri yanlıs yazmış da olabiliriz bakarım yarın 5-6 gibi aksam

demekki sıcaklık 29.8 :trl

yönetici olarak açman lazım

kac gösteriyor değer olarak

kafadan yazdım yanlıs olabilir bi bak olmadı yarın yazarım sana

Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get() Dim temperature As Double = CDbl(queryObj("CurrentTemperature")) temperature = (temperature - 2732) / 10.0
labelkoy buraya Next Catch err As ManagementException labelhatamesajıversineğerokumazsa End Try

imkansız değil ancak ona yakın. 2 gün gitti benden. günde 8-9 saat çalışma ile

o temada çok zor. yüzlerce hata ile karşılaştım gaming pro da. ondan zaten program çok işe yaramadı.

sıcaklığı mı

ya o sıcaklık çok karmaşık bir iş burada kısa kısa yazarak olacağını zannetmiyorum. onlarca dll atıyorsun içine birleştiriyorsun programla sonra işletim sistemlerinden izin alıp okutma işlemi de var bir de baya karışık.ben bile gaming pro sürümünde zar zor okuttum ki hatalı çıktı.
gerçi şu anki sürümde sorunsuz okuyup işlem yapıyor ama sırf sıcaklığı okutmak 2 günlük uğraşımı aldı .

hakkında kısmına emeği geçenlere ekle bari beni :trl

freeze -> iceplus

freeze ve jarvis yerine başka seçeydin bari

Tamamdır bende de o tarz olmuştu düzeldi sonra silince

İyi o zaman sanada günaydın

gaming pro teması için:kullandığın yeşil temanın üstüne 2.class ekle sonra çakışan kodları temizle. daha sonra mephtabpage ekle forma.Mephtabpageyi de yeşil temanın içine ekle daha sonrası da sendedir.
kolay gelsin kardeşim

Imports System.Collections.Generic
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms


Protected Const WM_NCLBUTTONDOWN As Integer = &Ha1
Protected Const HT_CAPTION As Integer = &H2


<DllImport("user32.dll")> _
Private Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As IntPtr



Public Declare Auto Function ReleaseCapture Lib "user32.dll" () As Boolean


Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
If e.Button = MouseButtons.Left Then
ReleaseCapture()
SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
End If
End Sub
Tamam kıskandım -_-

Hadi be hadi