منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
System type - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : System type (/showthread.php?tid=7651)

System type - مبتدئ - 15-02-13

كيف يمكن جلب Windows System type
اذا كان 64 او 86

System type - shado1796 - 15-02-13

لم أفهمك جيدا هل تقصد نوع التشغيل كيف تتحكم به .. فهذا هو موضوع جديد ..
اضـــــغـــط هنــــا

System type - مبتدئ - 16-02-13

shado1796 كتب :لم أفهمك جيدا هل تقصد نوع التشغيل كيف تتحكم به .. فهذا هو موضوع جديد ..
اضـــــغـــط هنــــا
لا اقصد يظهر نوع النوه اذا كانت 64 او 86 فى Label

System type - kslawy - 16-02-13

السلام عليكم ورحمة الله وبركاته

طريقة الريجستري :
كود :
Public Shared Function GenerateArchitecture()
        If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then : Return "32"
        Else
Return "64"
End If
End Function

وهذه طريقة أخرى موجودة في إصدارة vb.net 2010 (في اصدارة vb.net 2008 غير موجودة) :

كود :
[align=right][b][FONT=Consolas]Environment.Is64BitOperatingSystem[/FONT][/b]
[/align]

إذا رجع الكود أعلاه بـ True فنظام التشغيل من نوع 64 وإلا 32 .
****
***
**
*

System type - مبتدئ - 16-02-13

kslawy كتب :السلام عليكم ورحمة الله وبركاته

طريقة الريجستري :
كود :
Public Shared Function GenerateArchitecture()
        If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then : Return "32"
        Else
Return "64"
End If
End Function

وهذه طريقة أخرى موجودة في إصدارة vb.net 2010 (في اصدارة vb.net 2008 غير موجودة) :

كود :
[align=right][b][FONT=Consolas]Environment.Is64BitOperatingSystem[/FONT][/b]
[/align]

إذا رجع الكود أعلاه بـ True فنظام التشغيل من نوع 64 وإلا 32 .
****
***
**
*

جزاك الله خير لاكن لا توجد تريقه لى كتابه نوع النوف فى لابل ؟

System type - kslawy - 17-02-13

بطريقة الرجستري :

كود :
[align=right][color=#3E3E3E]Label1.Text =[/color][/align][color=#3E3E3E][align=right][COLOR=#3E3E3E][COLOR=#3E3E3E]GenerateArchitecture()[/color][/COLOR][/align][/COLOR][align=right]
[/align]



والطريقة الثانية :
كود :
[b][color=#3E3E3E]Label1.Text =iif([/color][b][b][FONT=Consolas]Environment.Is64BitOperatingSystem=True,"64","32")[/FONT][/b][/b]
[/b]




****
***
**
*

System type - مبتدئ - 17-02-13

kslawy كتب :بطريقة الرجستري :

كود :
[align=right][color=#3E3E3E]Label1.Text =[/color][/align][color=#3E3E3E][align=right][COLOR=#3E3E3E][COLOR=#3E3E3E]GenerateArchitecture()[/color][/COLOR][/align][/COLOR][align=right]
[/align]



والطريقة الثانية :
كود :
[b][color=#3E3E3E]Label1.Text =iif([/color][b][b][FONT=Consolas]Environment.Is64BitOperatingSystem=True,"64","32")[/FONT][/b][/b]
[/b]




****
***
**
*
جزاك الله خير