[طـلال]

عندي مشـروع وحاب أسوي له تخزيم 

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

والأٍستفسـار الأخر : 
الآن عند تخزيم المشـروع هل أستطيع عمل نسخه وحده تعمل لنظامين 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

[سعود الشامان]

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

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