تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة نوع اصدار الويندوز 32 او 64
#1
السادة الافاضل
كيف يمكن من خلال الفيجوال اعرف رقم اصدار الويندوز
شكرا لكم
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
جرّب هذا الكود .. أخي الكريم ..
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       'الكود الأول
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           TextBox1.Text = (My.Computer.Info.OSFullName + " 64-Bit")
       Else
           TextBox1.Text = (My.Computer.Info.OSFullName + " 32-Bit")
       End If

       'الكود الثاني
       If System.Environment.Is64BitOperatingSystem = True Then
           TextBox2.Text = ("OS System : 64 Bit Operating System")
       Else
           TextBox2.Text = ("OS System : 32 Bit Operating System")
       End If

   End Sub

تحياتي
الرد
تم الشكر بواسطة: ابراهيم ايبو , larbihamri , elgokr , asemshahen5 , asemshahen5
#3
اضافة لما قدمه اخى الغالى عبد العزيز البسكري
وحتى تعم الفائدة

فقط كل ما تحتاج اليه اضافة الـ Function التالى
كود :
   Function GetOsBitness() As String
       Dim Bit As Integer
       Dim ProcessorSet As Object
       Dim CPU As Object
       ProcessorSet = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_Processor")
       For Each CPU In ProcessorSet
           Bit = CStr(CPU.AddressWidth)
       Next
       Return Bit
   End Function

ويتم الاستخدام على هذا الشكل مثل 
كود :
MsgBox(GetOsBitness() & " Bit")

كود :
TextBox1.Text = GetOsBitness() & " Bit"

تحياتى لك
وتمنياتى لك لاتوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: asemshahen5 , mmali127
#4
شكرا علي ردودكم جميعا
الرد
تم الشكر بواسطة: elgokr
#5
الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#6
تواحهني مشكلة وهي
انا عامل ملف اكسس    2003   4    مع فيجوال    
عندما انقل المشروع علي جهاز  به ويندوز 64 لا يعمل  
اعدل  واجعل الاكسس 2010    12    لا بد من ازالة الاوفس 2010 اللي علي الجهاز لانه   32

ما هي الطريقة المثلي  والافضل   لعمل ست اب للبرنامج لكي يعمل علي
جهاز 32   او  64     مع  اي  اوفيس
الرد
تم الشكر بواسطة:
#7
لا عليك اخى الاضل للعمل على الاصدار 2003 مع ربط اصدار 4
فيتطلب عليك ان تجعل المشروع كاملاً يعمل على بيئة 32 Bit
ويتم ذلك من خلال الاعدادات التالية
Build >> configuration management


كما فى الصورة

من ثم
تغير جميع جمل Any CPU الى 86Bit 

فى حالة عدم وجودها بالقائمة ستختار New لاتمام اضافتها
فقط كل ما عليك اختيار 86Bit وعند انهاء الامر ستجد ان المشروع يعمل معك على اجهزة 64Bit

بدون اى مشكلة او اخطاء

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#8
حضرتك نفذت اللي قلت عليه
ظهرت اخطا
عملت clean
و
rebuild
وايضا الخطا موجود
اشطررت الي العودة مرة اخري الي any
اختفت الاخطاء


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#9
ما السبب
وكيف اتغلب علي المشكلة
الرد
تم الشكر بواسطة:
#10
اوصل الى السطر رقم : 58883
وضع الكود الخاص بهذا السطر هنا

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابحث عن كود لجلب رقم اصدار المشروع vb. Net alipro 2 145 06-11-20, 02:21 PM
آخر رد: ميدو الفنان
  [سؤال] كيف أستخدم دالة معرفة مسبقاً ضمن الاستعلام؟ السندبااد 13 532 03-11-20, 01:37 PM
آخر رد: Anas Mahmoud
  كيفية معرفة رقم الهارديسك المتألق9 6 843 25-09-20, 11:42 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] كيف بامكاني معرفة عدد اللى فاتحين البرنامج بتاعي ميدو الفنان 0 200 21-09-20, 01:09 PM
آخر رد: ميدو الفنان
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 1,266 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [VB.NET] معرفة الفرق باليوم محمد بوقزاحة 2 334 19-08-20, 02:20 PM
آخر رد: محمد بوقزاحة
Exclamation [سؤال] اسم اصدار Windows 10 pro يرجع باسم Windows 10 Enterprise gest 4 417 02-08-20, 03:22 AM
آخر رد: gest
  [مثال] مثال و سؤال مهم: معرفة أيام الغياب بعد تسجيل أيام الحضور ؟ DR.YASER 1 414 05-07-20, 04:55 PM
آخر رد: DR.YASER
  كيف يمكنني معرفة UserControl النشطه DOX.1 3 459 25-06-20, 02:56 PM
آخر رد: معاند الحظ
  [سؤال] كود لتفعيل وضع السكون في الويندوز منه 1 324 11-05-20, 10:53 PM
آخر رد: aljzazy

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


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