منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تخزيم المشـروع أستفسـار تكفون يالخبـره
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي مشـروع وحاب أسوي له تخزيم 

أشلون أضيف ملفات النت فريم ورك + التقارير الكرستال ربورت والأيقونات 

والأٍستفسـار الأخر : 
الآن عند تخزيم المشـروع هل أستطيع عمل نسخه وحده تعمل لنظامين 32 -64 أول لكل نسخه وحدها ..؟
(04-10-17, 09:54 PM)طـلال كتب : [ -> ]عندي مشـروع وحاب أسوي له تخزيم 

أشلون أضيف ملفات النت فريم ورك + التقارير الكرستال ربورت والأيقونات 

والأٍستفسـار الأخر : 
الآن عند تخزيم المشـروع هل أستطيع عمل نسخه وحده تعمل لنظامين 32 -64 أول لكل نسخه وحدها ..؟

أستطيع إجابتك على الإستفسار الآخر

يمكنك إستخدام هذا الكود



كود :
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           'إذا كان النظام 64 بت

       Else
           'إذا لم يكن النظام 64 بت

       End If



(04-10-17, 10:42 PM)سعود الشامان كتب : [ -> ]
(04-10-17, 09:54 PM)طـلال كتب : [ -> ]عندي مشـروع وحاب أسوي له تخزيم 

أشلون أضيف ملفات النت فريم ورك + التقارير الكرستال ربورت والأيقونات 

والأٍستفسـار الأخر : 
الآن عند تخزيم المشـروع هل أستطيع عمل نسخه وحده تعمل لنظامين 32 -64 أول لكل نسخه وحدها ..؟

أستطيع إجابتك على الإستفسار الآخر

يمكنك إستخدام هذا الكود



كود :
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           'إذا كان النظام 64 بت

       Else
           'إذا لم يكن النظام 64 بت

       End If



ممكن توضح أكثر عشان أفهم

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

لكن  النت فريم أفضل ما تحطه مع البرنامج

قم بإخبار العميل او المستخدم بأن يقوم بتحميل النت فريم الإصدار الفلاني وهو يقوم بتنزيله


وهل جربت هذه الطريقة ؟

برنامج inno setup لعمل ملف تنصيب (setup) للبرامج

https://www.youtube.com/watch?v=Y1aLb4vHq20

قم بعمل نسخة 32بت ونسخة 64 بت

وبعد الإنتهاء

إفتح الفيجوال وإعمل شروع جديد

وضع في My.Resources النسختين 32بت و 64 بت



وأستخدم الكود

كود :
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           'إذا كان النظام 64
'قم بفتح النسخة 64


       Else
           'إذا لم يكن النظام 64
'قم بفتح النسخة 32
       End If
   End Sub
End Class

وبخصوص  كيفية تشغيل برنامج من Resources

شوف هذا الموضوع


http://vb4arb.com/vb/showthread.php?tid=21374
يعطيك العافيه 
بس قابلت مشكله وهي أرفاق النت فريم ورك 4 وتقارير كرستال ريبورت وجدت شرح للأستاذ خالد السعداني 
ولكن لم أجد ملف مكيرسوفت أس دي كي 

وأنا أستخدم فجوال ستديو 2010 

أحتاج ملفات النت فريم ورك و الكرستال ريبورت 

عندي ملفات كرستال ريبورت بس الأستاذ خالد السعداني يقول في شرحه أن لازم تحقق نفس الأصدر 

وما أعرف أوصل للبيانات اللي نفس الأصدار لأني مثبت فجوال 2010 و 2015
الله يعافيك وللأسف لا أسطيع إفادتك أكثر من ذالكك , هذا حد علمي في خصوص هذا الموضوع

إن شاء الله الشباب ما راح يقصرو معكك