برنامجي لا يعمل في أجهزة الغير

للرفع

أرجو الرد بسرعة

لازم يكون جاهز يوم الإثنين

هوة ملف msvbm60.dll مش لازم تحطه في سيستم 32 يكفي أن تضعه في مسار الexe

المشكلة دي بقت كتيره اوي المهم ترفق كل ملفات dll وملفت ocx المستخدمة في برنامجك

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

package.rar

شكرا لكم جميعا

كيف أستخدم الرنامج يا ليت شرح بسيط له

اولا اعمل البرنامج بتاعك ملف exe عن طرق

file > make project exe

وذلك من داخل الفيجول بيسك

ثم

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

الملف التنفيذي لبرنامجك exe ثم اضغط موفق في مربع الحوار بعد اختيار الملف التنفيذي

ستظهر لك كل اسماء الملفات التي يجب ان يتضمنها برنامجك في القائمة الموجودة في البرنامج

ثم ارفق الملفات هذه لبرنامجك عند تحزيم البرنامج

شكرااااااااااااااااااااااااااااااااااااااااااا

-=-=-==-=--=--==-=-

طيب هل هذه الملفات أضعها في نفس مجلد البرنامج أم أضعها في السستم ؟

و عندما أضع البرنامج في سيدي *_ أنسخه _*

هل أنسخه فقط على السيدي وبيشتغل عادي أم هناك طريقة لذلك ؟

كيف أجعل الملفات تنقل أتوماتيك تنقل للسستم حق الجهاز عندما يوضع السيدي ( بمعنى آخر يشتغل البرنامج بمجرد وضع السيدي في الجهاز < طبعا تنقل الملفات التي وجدتها بالبرنامج على السستم على طول > ؟

أخي ABnet

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

أأمل ان تكون الصورة قد اتضحت لك الان

آسف أخوي لم أفهمك جيدا

أنا أعرف التحزيم مثل البور بوينت 2003 فيه التحزيم كي إذا نقل العرض لا يتغير الخطوط و غيرها

أما في الفيجوال فلا أعلم عنه شيئا غير file > make project exe

فياريت الإيضاح أكثر

شكرا لمرورك أخ hazzoom

ارجو ان يفيدك الرابط السابق والذي اضافة الاخ hazzoom

وان ارد اي استفسار اخر فنحن في خدمتك ان شاء الله

السلام عليكم شكرا لكم جميعا

مع أن فترة تليم البرنامج انتهت إلا أني قمت بعمله بالبور بوينت و الحمد لله حاز على إعجاب الوزارة

لكن المشكلة التي جعلتني أغي طبيعة البرنامج هي أنه عندما نسخته على السيدي لم يعمل بشكل جيد أنا بفهمكم فكرة البرنامج

" عبارة عن فورم رئيسي موجود به زر ابدأ ، ثم ينتقل للفورم الثاني الذي به قوائم < ملف ( مع تدرجاتها ) - محاور النادي (مع تدرجاتها {تفتح على هييئة بور بوينت }) - معلومات ( مع تدرجاتها ) > ، أما بما يحتويه الفورم نفسه < 8 أزرار ( بعضها يفتح لفورم جديد وبه أزرار أخرى تفتح عرض للبور بوينت ، و بعضها تفتح العرض للبور بوينت فقط )

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

أما عن كود فتح البوربوينت فقد استخدمت خاصية application { abb.path

أرجو إيجاد المشكلة كي لا أقع فيها بالمستقبل

هل البرنامج اشتغل بس لم يعرض البوربوينت ام ان البرنامج لم يعمل من الاساس ؟

البرنامج يعمل تمام لكن عرض البور بوينت لا يعمل

الغريب في الموضوع نه عندما كان على الفلاش ديسك كان شغال تمام في كل الأجهزة لكن عندما نسخته على السيدي لم يعمل حتى على كومبيوتري

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

Dim s

On Error GoTo l

s = Shell("C:\Program Files\Microsoft Office\Office10\POWERPNT.exe /s " & App.Path & "\powerpoint\segel.pps", vbNormalFocus)

l:

If Err.Number = 53 Then

s = Shell("C:\Program Files\Microsoft Office\Office11\POWERPNT.exe /s " & App.Path & "\powerpoint\segel.pps", vbNormalFocus)

End If

حيث أن segel.pps هو ملف العرض للبور بوينت

أعتقد أن الكود هذا لايستخدمه إلا ناس خمع < مبتدئين > صراحة ما جبته إلا بعد ما فكرني الأستاذ بأن نفس البور بوينت له برنامج يفتح العرض مباشرة مربوط بالبوربوينت ... ما أبغى أحكي وش الي حصل معاي المهم أني ألفت الكود من عندي وطلع البرنمج شغال في كل الأجهزة بالفلاش ديسك لكن على لاسيدي لم يعمل ، لماااااااااااااااااااااااااااذا؟

أخي ABnet تحية طيبة

كان يجب عليك استخدام الادة ole لربط البوربوينت مع الفيجول طالما ان الاجهزة التي سيعمل عليه البرنامج سيكون مثبت عليها البوربوينت

لكن عندما استخدم هذه الأداة سيكون امتداد الملف المطلوب موجود ولا أعرف كيف أحذفه

بسم الله الرحمن الرحيم

هذه مشاركه للأخ net_code قد تفيدك .

هكذا يبقى عليك تحديد مسار ملف البور بوينت على القرص.

net_code كتب:

يمكنك إستخدام الدالة ShellExecute وهى من دوال ال api

و الصيغة العامه

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

شرح الباراميترز

hwnd

و هى مقبض النافذه التى سوف تستقبل الرسائل و القيم العائدة من تنفيذ الداله ( رسائل الخطأ)

lpoperation

وهى نوع العمليه المطلوبه

حيث open

  فتح

print

إرسال إلى الطابعة ( لاحظ إن الملف لابد أن يكون document و لكنه إذا كان قابل للتشغيل  executable سيتم تشغيله و تعمل print عمل open

explore

إستكشاف و تستخدم مع الفولدرات

lpfile

إسم الملف أو الفولدر المراد فتحه

lpparameters

إذا كان الملف المراد فتحه ملف تنفيذى فيمكن إعطاؤه باراميتر معين و لكن إذا كان الملف document فيجب أن تكون القيمه null

lpdirectory

و يمثل المثار الإفتراضى

nshowcmd

و يمثل حالة الفتح

مثلا

SW_MAXIMIZE

يعمل maximize

و

SW_SHOWNOACTIVATE

يتم تشغيل الملف لكن النافذه المنشطه تظل هكذا

و القيم كثيره يمكننى شرح القيم كلها إذا أردتم

و نأتى للمثال العملى

وفى حالتك نريد فتح ملف html و يعتبر document لأنه ليس ملف تنفيذى

و ....

Const SW_SHOWNORMAL = 1

ShellExecute Me.hwnd, "open", "c:\1.htm", vbNullString, vbNullString, SW_SHOWNORMAL

حيث "c:\1.htm" هو الملف

و للأستذاده يمكنك الأطلاع على الداله من msdn

http://msdn.microsoft.com/library/default....llexecuteex.asp

و أى سؤال أنا حاضر

←

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

واذا كنت مصرا على ال ole فبامكانك استخدام الكود التالي :

Private Sub Command1_Click()
OLE1.CreateLink app.path & "\powerpoint\segel.pps"
OLE1.Action = 7
End Sub