تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مطلوب كود لاظهار حرارة المعالج
#1
السلام عليكم...

مطلوب كود لاظهار حرارة المعالج بـ الفيجوال بيسك 2012 عرضه في lible او اي مكان حتى لو في تيكست بوكس اهم شي الكود

و اكون شاكر الكم ...  Confused Confused Huh
الرد }}}}
تم الشكر بواسطة:
#2
هذا الكود ولكن تحتاج صلاحية لتشغيله بالاضافة لإضاغة المرجع System.Management
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Try
        Dim searcher As New Management.ManagementObjectSearcher _
            ("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
        For Each queryObj As Management.ManagementObject In searcher.Get()
            Dim kelvin As Double = CDbl(queryObj("CurrentTemperature"))
            Dim celsius As Double = kelvin / 10 - 273.15
            Dim fahrenheit As Double = (kelvin / 10 - 273.15) * 9 / 5 + 32

            MessageBox.Show(kelvin & " K")
            MessageBox.Show(celsius & " °C")
            MessageBox.Show(fahrenheit & " °F")

        Next
    Catch ex As Management.ManagementException
        MessageBox.Show(ex.Message)
    End Try
End Sub
الرد }}}}
تم الشكر بواسطة: أبو عمر , ابراهيم النعيمي
#3
اعجبني هذا التعليق على مثل هذا الطلب
The Microsoft function for finding CPU temperature does not work. Don't use it. If you search the Microsoft forums, you will find the Microsoft people blaming the motherboard manufacturers for not implementing their standards.
I don't think this excuses them for a bad API that gives us garbage data with no warning that the data is garbage.

https://social.msdn.microsoft.com/Forums...vblanguage
وانا اتفق معه
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ratchinko , ممدوح
#4
(02-10-16, 06:32 PM)أبو عمر كتب : اعجبني هذا التعليق على مثل هذا الطلب
The Microsoft function for finding CPU temperature does not work.  Don't use it.  If you search the Microsoft forums, you will find the Microsoft people blaming the motherboard manufacturers for not implementing their standards.
I don't think this excuses them for a bad API that gives us garbage data with no warning that the data is garbage.

https://social.msdn.microsoft.com/Forums...vblanguage
وانا اتفق معه

هلا اخوي اولا شكرا للرد

ثانيا اخوي انا اريد اسوي برنامج بلفيجوال بيسك بيه مجموعه من اوامر لتحسين النظام كا تنضيف ملفات ال Temp مثلا و كا ميزه حبيت اضيف للبرنامج انو يعرض للمستخدم حرارت المعالج انا مو ناوي اسوي برنامج يضر هوهب رنامج فقط لعرض الدرجه لا اكثر ولا اقل و شكرا.  Heart Heart

(02-10-16, 01:56 PM)ممدوح كتب : هذا الكود ولكن تحتاج صلاحية لتشغيله بالاضافة لإضاغة المرجع System.Management
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Try
       Dim searcher As New Management.ManagementObjectSearcher _
           ("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
       For Each queryObj As Management.ManagementObject In searcher.Get()
           Dim kelvin As Double = CDbl(queryObj("CurrentTemperature"))
           Dim celsius As Double = kelvin / 10 - 273.15
           Dim fahrenheit As Double = (kelvin / 10 - 273.15) * 9 / 5 + 32

           MessageBox.Show(kelvin & " K")
           MessageBox.Show(celsius & " °C")
           MessageBox.Show(fahrenheit & " °F")

       Next
   Catch ex As Management.ManagementException
       MessageBox.Show(ex.Message)
   End Try
End Sub

شكرا الردك يا غالي لاكن لو سمحت حسب مقريت الكود انو حيعرضه ب مسج بوكس انا اريده يعرض ب ال الليبل او تيكس بوكس مثلا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 29 أمس, 02:14 PM
آخر رد: tryold
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 182 29-11-16, 07:26 AM
آخر رد: amgad525
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 76 28-11-16, 05:36 PM
آخر رد: معتز الجازوي
  استدعاء داتا من الداتا بيز عن طريق المعالج araxis 14 297 15-11-16, 07:17 AM
آخر رد: araxis
  [SQL] مطلوب جدول به اصناف محل كمبيوتر ... عاجل MH mekawy 2 107 03-11-16, 04:22 PM
آخر رد: MH mekawy
  عندى 2 داتا جريد فيو مروبوطين باكسس عن طريق المعالج araxis 1 69 25-10-16, 06:18 PM
آخر رد: WAEL ABED
  [سؤال] SQL مطلوب استعلام naden 1 88 22-10-16, 10:07 PM
آخر رد: العواد الصغير
  البحث بين تاريخين عن طريق المعالج أسامة السالمي 9 274 14-10-16, 08:18 AM
آخر رد: ممدوح
  [سؤال] مطلوب كود يقوم بعمل عداد count naden 5 193 13-10-16, 03:43 AM
آخر رد: الماجيك مسعد
  مطلوب رابط لأداة عرض التاريخ الهجري Alshaf3y 0 70 29-09-16, 11:29 PM
آخر رد: Alshaf3y

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم