بعد البحث الطويل والممل في بعض المواقع
لم أجد موضوع عن كيفية تشغييل برنامج معمول بالفجوال على أجهزة أخرى ليس بها الفيجوال .
أعرف أن هناك ملفات تضاف إلى السيستم وجربت بعض الملفات ولكن بأت محاولاتي بالفشل .
فأرجو مساعدتي بارك الله فيكم .
ومتأسف مقدم على عدم الرد في حالة عدم ردي ، نظرا لظروفي .
وشكرأ جزيلا لكل من قدم خدماته ومعلوماته لكل الأخوة فجزاه عند الله
والسلام عليكم ورحمه الله وبركاته
السلام عليكم
اخي راجع هذه الوصلة / http://www.arabteam2000.com/vb/showthread....&threadid=31607
بالتوفيق
أحسنت Visitor_OM
وبارك الله فيك
وأشكرك على الرد السريع
أخي :
أليست هناك طريقة أخرى مثل نسخ ملف إلى السيستم system فالموضوع الذي أشرت إليه يتطلب برنامج حجمه كبير .
مع العلم بأن لدي برنامج setup facktory وعملت سيت أب له ، ولكن في جهازي يشتغل 100% وفي الأجهزة الأخرى لايعمل .
والسلام خير ختام
بعد التحية ،،،
أخي في حقيقة ما اتوقع إنه راح تنجح العملية لإنه في بعض الإحيان بنحتاج إلى تسجيل الملفات في الرجستر . ولكن قد ينفعك VB RunTime V6.0
اخي العزيز يمكنك فيجول بيسيك من عمل حزمة للبرنامج (setup) من خلال اختيار الادة package&dev الموجودة ضمن حزمة اللغة والتي تمكنك من خلال الويزرد الخاص بها من اعداد نسخة للعمل على الاجهزة التي لا تحتوي على اللغة حيث تضم جميع الملفات التي يحتاجها البرنامج اثناء التحزيم مع الشكر
هادا البرنامج يغنيك عن نقل الملفات ألازمه لبرنامجك مثل ملفات ( dll , cox ) لأنه يضغطه مع الملف اتنفيدي للبرنامج ( exe ).
اسم البرنامج: fusion
رابطة اتنزيل :
أخواني : أشكركم جزيل الشكر جميعاً
أخي donua99 :
أول برنامج أعمله ولكن لم يفلح .
أخي pvb6 :
بدأت بتحميل البرنامج وسوف أجربه ، البرنامج صغير الحجم كبير الفائدة شكر وأرجو أن يحل المشكلة .
لقد سمعت عن طريقة أضافة ملف dll إلى ال system
والله أعلم
وشكرأ لكم جميعا ، ويجعلها في ميزان حسناتكم .
أخوكم هاني .
اخي العزيز هناك بعض الملفات لا تتعلق باللغة او نظام التشغيل يجب تحزيمها مع الsetup مثل ملفات قواعد البيانات وكذلك يتوقف الموضوع على وجود بعض المسارات للملفات داخل برنامج يجب استخدام الامر path ولا تحدد مسارات ثابتة داخل البرناج يمكنك ارسال نسخة من البرنامج الى وسوف اساعدك باذن الله
أخوتي :
أسف على التأخير نظراً لظروفي الخاصة ، ومشاكل البريد والأنترنت .
أخي : pvb6 جرب أي برنامج على جهاز وسوف ترى ، وأذا كنت تريد برنامجي فسوف أرسله وهو قاعدة بيانات بسيطة .
ولقد جربيت برنامجك وبالفعل فهو أولا صغير الحجم كبير الفائدة ،،،،، ولكن
1- لايعمل البرنامج على كل الأجهزة ، مع القديم بالذات لايشتغل .
2- بعد المحاولات الكثيرة وأزاله الفيجوال وإضافته أنهي وظيفته وعمل اللازم
ولكن حين أخذته إلى الأجهزة المراد تحميله عليها عمل مع بعضها فقط مع العلم أن بعض الأجهزة متشابهة المواصفات ونفس الويندوز ولكن لم يعمل مع البعض الأخر (أمر محير ) .
ولدي مواضيع بخصوص هذة المشاكل سوف أدعمكم بها فهي جميلة وأرجو من الانتظار ليس طويلا أن شاء الله .
أخير أشكركم جميعا على التعاون واطال الله عمركم .
ونأسف على التأخير ، وأعذروني أذا تأخرت مرة أخرى ولكن سأرجع بعون الله .
والسلام عليكم ورحمه الله وبركاته
u can try that to ur project in vb
file >> make ur project bame .exe
then u can copy it and best in any other computer,hey
that if ur project dosn't linked with database in your pc
other wise
i wish u come good
ibrahim eltayeb
khartoum sudan
بسم الله الرحمن الرحيم
وبه نستعين
أشكر كل الأخوة الذين يقمومون بتعليم أخوانهم ميقدمون كل ما في أستطاعتهم ، وأخص بالشكر مشرفي ,اعضاء منتديات الفريق العربي ،
وكذلك منتديات بوابة العرب الغالية ، منتديات فيجوال بيسك ، وجميع الأخوة .
أعذروني اخوتي فأني دخولي على الشبكة في اوقات محدودة فليس تقصير مني أذا تأخرت في الرد على أحد من الأخوة وإنما ظروف ليست في يدي .
؟؟؟؟؟؟ أستغرب من الأخوة المشرفين والمحترفين في عدم الرد ، أبسبب تقصير مني في توصيل المعلومة أم بسبب لا أدريه .
أم لعل الحل كما أشار الأخ Visitor_OMوذك بتحميل برنامج Visual Studio Installer .
مع العلم بأنني حملت البرنامج الذي أشار إليه الأخ pvb6 بالفعل فهو برنامج صغير الحجم كبير الفائدة الا أنه لم يفي بالغرض فقد عمل 50 % .
الأخibrahimsafa لغتي الإنكليزية بسيطة فأعذرني ولكن وعلى ما أعتقد فانك تشير بعمل ملف تنفيذي ثم نسخه مع الداتا باس ، للعلم البرنامج يعمل 100% وأتصاله بقاعدة البيانات 100% . وشكر لك وللأخوة الذين ردوا والذين لم يردوا .
أخوتي :
لقد وجدت مقالة جميلة من موقع أرتاب منه حين دخولي عليه ، المهم بالفعل هناك 100 طريقة وطريقة لأى عمل بالفيجوال بيسك وهذا هو الموضوع ( منقول 100% )
ـــــــــــــــــــــــــــــــــــــــــت
سوف نقوم بتصميم برنامج يعرفك على الملفات الضرورية التي سوف ترفقها مع برنامجك لكي يعمل
اولا قم بأدراج زر أمر وليست بوكس وكومن ديلوك
وأكتب هذا الاجراء والذي هو من نوع ببليك أي عام
Public Function ReplaceIt(Original As String, Item As String, Replace As String, ReplaceAll As Boolean) As String
If InStr(Original, Item) = False Then
ReplaceIt = Original
Exit Function
End If
If ReplaceAll = False Then
lSide$ = Left$(Original, InStr(Original, Item) - 1)
rSide$ = Right$(Original, (Len(Original) - Len(lSide$) - Len(Item)))
ReplaceIt = lSide$ & Replace & rSide$
Exit Function
End If
nStage$ = Original
Do Until InStr(nStage$, Item) = 0
lSide$ = Left$(nStage$, InStr(nStage$, Item) - 1)
rSide$ = Right$(nStage$, (Len(nStage$) - Len(lSide$) - Len(Item)))
nStage$ = lSide$ & Replace & rSide$
Loop
ReplaceIt = nStage$
End Function
ومن ثم ضع هذا الكود في زر الامر
CommonDialog1.Filter = "Applications (*.exe)|*.exe"
CommonDialog1.FilterIndex = 0
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.InitDir = App.Path
CommonDialog1.Action = 1
fName$ = CommonDialog1.FileName
If fName$ = "" Then Exit Sub
txtFile = fName$
'ÇáÝÍÕ
If txtFile = "" Then Exit Sub
Dim tempFile As String
Dim Pos As Long
Dim StartPos As Long, EndPos As Long
List1.Clear
'string ÝÊÍ ÇáãáÝ æÊÎÒíäå Úáì Ôßá
Open txtFile For Binary As #1
tempFile = Space(LOF(1))
Get #1, , tempFile
Close #1
'dll ÇáÈÍË Úä ãáÝÇÊ
Pos = 1
Do Until InStr(Pos, tempFile, ".dll") = 0 And InStr(Pos, tempFile, ".DLL") = 0
tPos1 = InStr(Pos, tempFile, ".dll")
tPos2 = InStr(Pos, tempFile, ".DLL")
If tPos1 < tPos2 Then EndPos = tPos1 Else EndPos = tPos2
If tPos1 = 0 Then EndPos = tPos2
StartPos = EndPos - 8
Pos = EndPos + 4
For i = 1 To 8
If Asc(Mid$(tempFile, EndPos - i, 1)) = 32 Or Asc(Mid$(tempFile, EndPos - i, 1)) = 0 Then
StartPos = StartPos + (9 - i)
Exit For
End If
Next
rFile$ = LCase(Mid$(tempFile, StartPos, (EndPos - StartPos) + 4))
For i = 0 To List1.ListCount - 1
If List1.List(i) = rFile$ Then GoTo Skip_Dll
Next
List1.AddItem rFile$
Skip_Dll:
Loop
'Ocx ÇáÈÍË Úä ãáÝÇÊ
Pos = 1
Do Until InStr(Pos, tempFile, ".ocx") = 0 And InStr(Pos, tempFile, ".OCX") = 0
tPos1 = InStr(Pos, tempFile, ".ocx")
tPos2 = InStr(Pos, tempFile, ".OCX")
If tPos1 < tPos2 Then EndPos = tPos1 Else EndPos = tPos2
If tPos1 = 0 Then EndPos = tPos2
StartPos = EndPos - 8
Pos = EndPos + 4
For i = 1 To 8
If Asc(Mid$(tempFile, EndPos - i, 1)) = 32 Or Asc(Mid$(tempFile, EndPos - i, 1)) = 0 Then
StartPos = StartPos + (9 - i)
Exit For
End If
Next
rFile$ = LCase(Mid$(tempFile, StartPos, (EndPos - StartPos) + 4))
For i = 0 To List1.ListCount - 1
If List1.List(i) = rFile$ Then GoTo Skip_Ocx
Next
List1.AddItem rFile$
Skip_Ocx:
Loop
ـــــــــــــــــــــــــــــــــــــــــــ
ولقد عملت بالطريقة وبالفعل نجحت وأعطاني الملفات المطلوبة ولكني لم أجد بعضها ، ولعلها تكون في cd الخاص بالفيجوال بيسك لم أبحث .
نأمل الا أكون قد أطلت عليكم
والسلام خير ختام
(f)(f)(f)(f)
Slam alikom kolkom
hi hani2 thank u my friend
i'm no like englinsh language but some time i find my self with copmuter that dos not suport arabic
so i feel very happy when i try (try) to help whom i think i can help
and i wish to do that every one enter this ..... very good site
(f)(f)(f)(f)
Ibrahim Eltayeb
Sudan khartoum
أخي hani2
اذا كان برنامجك مرتبط بقواعد بيانات فلن يتم ضغطه مع البرنامج ويجب نقله مع الملف اتنفيدي .
ارسلي برنامجك اذا امكن على هذا البريد :
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…