رتبه موضوع:
  • 20 رای - 2.45 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کد بدست اوردن درجه دمای سی پی یو
#1
Get the CPU temperature
Not just Celsius and Fahrenheit, but Kelvin too.

سورس کد :

کد پی‌اچ‌پی:
''' <summary>
    ''' 
Specifies the format the temp should be returned in
    
''' </summary>
    Public Enum TempFormat
        Fahrenheit
        Celsius
        Kelvin
        ''' 
<summary>
        
''' The CPU temp will be returned in it's rawuncalculated format
        
''' </summary>
        Raw
    End Enum
    ''' 
<summary>
    
''' Gets the current temp of the CPU
    ''' 
</summary>
    
''' <param name="Format">The temp scale the value should be returned in</param>
    Public Function GetCPUTemp(ByVal Format As TempFormat) As Single
        Dim enumerator As System.Management.ManagementObjectCollection.ManagementObjectEnumerator
        Dim searcher As New System.Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
        enumerator = searcher.Get.GetEnumerator()
        While enumerator.MoveNext
            Dim obj As System.Management.ManagementObject = CType(enumerator.Current, System.Management.ManagementObject)
            Select Case format
                Case TempFormat.Fahrenheit
                    Return CSng((obj.Item("CurrentTemperature") / 10 - 273.15) * 9 / 5 + 32)
                Case TempFormat.Celsius
                    Return CSng(obj.Item("CurrentTemperature") / 10 - 273.15)
                Case TempFormat.Kelvin
                    Return CSng(obj.Item("CurrentTemperature") / 10)
                Case TempFormat.Raw
                    Return CSng(obj.Item("CurrentTemperature"))
            End Select
        End While
    End Function 
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد اضافه اپدیت حذف سرچ در اکسس (وی بی دات نت) Amin_Mansouri 2 4,593 04-07-2013، 10:50 AM
آخرین ارسال: Amin_Mansouri
  سورس کد تبدیل ویدئو به فرمت های 3gp mp4 و..(وی بی دات نت) Amin_Mansouri 0 2,198 01-31-2013، 07:22 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پروژه مدیریت هتل (vb.net) Amin_Mansouri 0 2,328 01-31-2013، 07:13 PM
آخرین ارسال: Amin_Mansouri
  سورس کد چک کردن وضعیت سیستم عامل (ویژوال بیسیک دات نت) Amin_Mansouri 0 1,812 09-29-2012، 12:48 AM
آخرین ارسال: Amin_Mansouri
  سورس ماشین حساب پیشرفته kazemfallahi1371 0 1,475 07-01-2012، 01:49 AM
آخرین ارسال: kazemfallahi1371
  سورس کد خواندن فایل Pdf (وی بی دات نت) Amin_Mansouri 0 4,657 06-08-2012، 10:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد پرینت گزارش توسط کریستال ریپورت (وی بی دات نت) Amin_Mansouri 1 5,231 05-30-2012، 05:15 PM
آخرین ارسال: parvin
  سورس کد تغییر نام سطل زباله سیستم عامل (وی بی دات نت) Amin_Mansouri 0 1,840 05-02-2012، 04:08 PM
آخرین ارسال: Amin_Mansouri
  سورس کد تبدیل تصویر رنگی به سیاه سفید Amin_Mansouri 0 3,731 01-20-2012، 01:16 PM
آخرین ارسال: Amin_Mansouri
  سورس کد تغییر سایز عکس Amin_Mansouri 0 4,167 01-20-2012، 01:03 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
<------> <____> <<<<----------------->>>> <<<<--->>>>>
This forum uses Lukasz Tkacz MyBB addons.