كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
اقصد من سؤالي اني اريد واجهة رسومية تحتوي على خيار تشغيلوعند ضغط عليه ييقوم بتشغيل ملف المرفق ولنتفترض مضاد فيروسات مصمم ب ملفات الدفعية بصيغة bat او محول من bat الى exe
وزر اخر تنظيف من ملفات مؤقتة وايضا عند ضغط عليه يقوم بتشغيل برنامج مرفق مصمم ب ملفات الدفعية
وشكررررررررا
وزر اخر تنظيف من ملفات مؤقتة وايضا عند ضغط عليه يقوم بتشغيل برنامج مرفق مصمم ب ملفات الدفعية
وشكررررررررا
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
_ بسيطة كل ما عليك فعلة هو انشاء ملف مصادر من خلال الفجوال بيسك لارفاق ملف bat به ويتم ذلك على النحو التالى :
أولا : أستدعاء محرر المصادر VB Resource Editor
1 – قمت أولا بفتح مشروع فجوال بيسك جديد .
2 – افتح معي قائمة Add-Ins في شريط القوائم
3 – اختر من القائمة Add-In Manager
4 – انظر للصورة التالية وقم بتحديد ما فيها كما هو ظاهر أمامك :
5 – هنا قد قمنا بأمر الفيجوال بيسك باعتماد ملفات المصادر كمصدر أساسي من مكونات اللغة عند بدء التشغيل ، وستظهر لنا الأيقونة الخاصة بملفات مصادر المشروع كما في الصورة أدناه :
ثانيا إضافة ملف bat..قم بالضغط على ايقونة Add CUSTOM Res فى محرر المصادر كما فى الشكل التالى :
[/
ثالثا لتشغيل الملف نقوم بكتابة الكود التالى :
واليك مثال فى المرفقات
أولا : أستدعاء محرر المصادر VB Resource Editor
1 – قمت أولا بفتح مشروع فجوال بيسك جديد .
2 – افتح معي قائمة Add-Ins في شريط القوائم
3 – اختر من القائمة Add-In Manager
4 – انظر للصورة التالية وقم بتحديد ما فيها كما هو ظاهر أمامك :
]
5 – هنا قد قمنا بأمر الفيجوال بيسك باعتماد ملفات المصادر كمصدر أساسي من مكونات اللغة عند بدء التشغيل ، وستظهر لنا الأيقونة الخاصة بملفات مصادر المشروع كما في الصورة أدناه :
ثانيا إضافة ملف bat..قم بالضغط على ايقونة Add CUSTOM Res فى محرر المصادر كما فى الشكل التالى :
[/
بعدما يتم إضافة ملف bat و تخزينة فى الملف المصدرى يقوم بأستدعائه ....وذلك من خلال كتابة الاجراء التالى اولا :
- الكود:
Public Sub LoadDataIntoFile(id As Integer, FileName As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(FileName) = "" Then
myArray = LoadResData(id, "CUSTOM")
myFile = FreeFile
Open FileName For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
ثانيا : فى حدث التحميل للنافذة نقوم باستدعاء الملف على النحو التالى :
- الكود:
LoadDataIntoFile 101, App.Path & "\file.bat"
ثالثا لتشغيل الملف نقوم بكتابة الكود التالى :
- الكود:
Shell App.Path & "\file.bat", vbMaximizedFocus
واليك مثال فى المرفقات
- المرفقات
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكو جدا على الرد
لدي طلب اخر هل ممكن تطلع ع Form موجود بالمرفقات وتساعدني كيف يمكنني ارفاق اكثر من ملف وبشكل رسومي
لك Command يقوم بتشغيل ملف مختلف عن الاخر
وملفات اخرى ملفات المراد تشغيلها
لدي طلب اخر هل ممكن تطلع ع Form موجود بالمرفقات وتساعدني كيف يمكنني ارفاق اكثر من ملف وبشكل رسومي
لك Command يقوم بتشغيل ملف مختلف عن الاخر
وملفات اخرى ملفات المراد تشغيلها
- المرفقات
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
بسيطة يا اخى ....قم باضافة الملفات من خلال تكرار العملية السابقة و كما فى الصورة التالية :
ستجد أنه قم تم إضافة الملفات وقد تم ترقيمها الى 101 _102_103...وهكذا
ويتم استدعاء تلك الملفات على النحو التالى وليكن فى حدث تحميل النافذة :
حيث أن 101 _102_103 هو رقم الملف المراد استدعائه
ولتشغيل تلك الملفات يكون على النحو التالى :
_ فى حدث النقر لزر ( الكشف عن فيروسات ) و الذى سيتخدم الملف الاول فى التشفيل يكون كما يلى :
_فى حدث النقر للزر الثانى لتشغيل الملف الثانى :
_و الزر الثالث لتشغيل الملف الثالث :
وهكذا
ستجد أنه قم تم إضافة الملفات وقد تم ترقيمها الى 101 _102_103...وهكذا
ويتم استدعاء تلك الملفات على النحو التالى وليكن فى حدث تحميل النافذة :
- الكود:
LoadDataIntoFile 101, App.Path & "\file.bat"
LoadDataIntoFile 102, App.Path & "\file2.bat"
LoadDataIntoFile 103, App.Path & "\file3.bat"
حيث أن 101 _102_103 هو رقم الملف المراد استدعائه
ولتشغيل تلك الملفات يكون على النحو التالى :
_ فى حدث النقر لزر ( الكشف عن فيروسات ) و الذى سيتخدم الملف الاول فى التشفيل يكون كما يلى :
- الكود:
Shell App.Path & "\file.bat", vbMaximizedFocus
_فى حدث النقر للزر الثانى لتشغيل الملف الثانى :
- الكود:
Shell App.Path & "\file2.bat", vbMaximizedFocus
_و الزر الثالث لتشغيل الملف الثالث :
- الكود:
Shell App.Path & "\file3.bat", vbMaximizedFocus
وهكذا
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكور جدا على الشرح ولكن لماذا بعض احيان عندما اقوم باستدعاء ملفات اقوم بتحديد ملف وعند ضغط على زر موافق تظهر رسالة التالية
run time error
bad file name or number
تم كتابة البرنامج بنجاح ومشكور جداااا
run time error
bad file name or number
تم كتابة البرنامج بنجاح ومشكور جداااا
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
أرفع مثالك بالكامل أخى ايمن ...حتى يمكننا التعديل عليه ....يمكنك استخدام مركز رفع منتدى مصر التقنى للرفع عليه اذا كان مشروعك كبير و لا تستطيع رفعة فى المرفقات .....
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
برنامج
برنامج بالمرفقات
ولم استطيع رفع المشروع لانه لم يظر لدي صفحة سيرفر المنتدى ما هو سبب
ولم استطيع رفع المشروع لانه لم يظر لدي صفحة سيرفر المنتدى ما هو سبب
- المرفقات
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
قمت بتحميل الملف ولكنه ليس مفتوح المصدر و مع ذلك شغال تمام ....بالنسبة للسرفر هو موجود فى اخر القائمة الجانبية على يدك الشمال ...ستجد زر "سرفر المنتدى لرفع الملفات"
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشروع البرنامج يمكن تحميله وتطويره
المشروع من هنا
المشروع من هنا
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
المشروع ناقص منه ملفات ...فقط ما قمت بارساله هو ملف المشروع بالاضافة الى الملف التفيذى و ملفات البات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
استاذ اذا اردت اضافة الى البرنامج سابق ظهور ساعة التوقيت كيف يمكنني ذلك وشكرا
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
وسؤال اخر قد قمت بذكره سابقا ولم اعرف تطبيقه
كيف يمكنني اضافة ايقونة البرنامج مكافح ع قوائم الملفات والاقراص وعند الضغط عليها يقوم بفتح البرنامج
كيف يمكنني اضافة ايقونة البرنامج مكافح ع قوائم الملفات والاقراص وعند الضغط عليها يقوم بفتح البرنامج
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
واذا بالامكان شرح الاكواد باكثر تفصيل
وشكرا لمساعدتكم
مثل الكود
وشكرا لمساعدتكم
مثل الكود
- الكود:
Public Sub LoadDataIntoFile(id As Integer, FileName As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(FileName) = "" Then
myArray = LoadResData(id, "CUSTOM")
myFile = FreeFile
Open FileName For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
أيمن الإبراهيم كتب:استاذ اذا اردت اضافة الى البرنامج سابق ظهور ساعة التوقيت كيف يمكنني ذلك وشكرا
لم أفهم قصدك بالضبط ولكنى حاولت التخمين فربما تريد وضع ايقونة برنامجك فى شرط المهام بجوار الساعة أو ما يسمى seystim tray فإن كان قصدك كذلك فاليك المثال هذا
بالنسبة لهذا الكود
- الكود:
Public Sub LoadDataIntoFile(id As Integer, FileName As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(FileName) = "" Then
myArray = LoadResData(id, "CUSTOM")
myFile = FreeFile
Open FileName For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
هو مجرد اجراء لقراءة الملفات التى يتم تخزينها فى ملف المصادر مستخدما طريقة الوصول الثنائى Binary Access ...ففى السطر الاول _قمنا بلاعلان عن مصفوفة لتحميل الملفات المخزنة فى ملف المصادر فيها ..و السطر الثانى قمنا بالاعلان عن المتغير myFile لتحديد نوع ملف الاخراج ...فى السطر الثالث استخدمنا جملة شرطية للتأكد من ان المجلد البرنامج فارغ و عندها وفى السطر الرابع يتم تحميل الملفات الموجودة فى ملف المصادر الى المصفوفة myArray باستخدام الامر LoadResData مع تحديد رقم id واسم ملف المصادر CUSTOM ...وفى الاسطر الاخيرة يتم عملية قراءة الملفات باستخدام طريقة الوصول الثنائى Binary Access
و للمزيد حول تلك الطريقة يمكنك مراجعة الدرس التالى :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكور جدا استاد احمد بالنسبة لسؤال الاول مشكور على مثال رائع بس كنت اقصد اضافة ساعة رقمية تظهر بالبرنامج
وتم حل السؤال
اما كنت اقصد بان تظهر ايقونة البرنامج على قوائم جانبية للاقراص التي تحتوي مثلا مشغلات ومكافح فيروسات او خصائص ملف او فتح وبالتالي اضافة برنامجي بينها
ومشكور على شرح الكود
وتم حل السؤال
اما كنت اقصد بان تظهر ايقونة البرنامج على قوائم جانبية للاقراص التي تحتوي مثلا مشغلات ومكافح فيروسات او خصائص ملف او فتح وبالتالي اضافة برنامجي بينها
ومشكور على شرح الكود
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
استاذ احمد ممكن شرح المثال الذي ارفقته من اجل ايقونة البرنامج بجانب ايقونة الساعة
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
شرح مثال اي ما هي الاكواد التي يجب علي اضافتها الى برنامجي لكي يظهر بجوار الساعة
ومشكورين
ومشكورين
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
أيمن الإبراهيم كتب:شرح مثال اي ما هي الاكواد التي يجب علي اضافتها الى برنامجي لكي يظهر بجوار الساعة
ومشكورين
سأقوم بإنشاء ملف ocx أو dll لاستخدامها مباشرة دون الحاجة لكل هذه الاكواد
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكور جدا على المساعدة وانا بنتظار الملفأحمد مناع كتب:
سأقوم بإنشاء ملف ocx أو dll لاستخدامها مباشرة دون الحاجة لكل هذه الاكواد
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
أيمن الإبراهيم كتب:مشكور جدا على المساعدة وانا بنتظار الملفأحمد مناع كتب:
سأقوم بإنشاء ملف ocx أو dll لاستخدامها مباشرة دون الحاجة لكل هذه الاكواد
ارجوا المعذرة اخى ايمن على التأخير..
المشروع فى المرفقات مع الاداة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكور جدا استاد احمد قمت بتحميل المشروع ولكن لا يعمل ي عند تشغيل الملف التنفيذي لا يعمل يعطي رسالة بوجود خطا وعند تشغيل المشروع يعطي رسالة
cOMPLIE ERROR
procedure declaration does not match description of event or procedure having the same name
اذا بالامكان شرح عن تشغيل المشروع وكيف ربط الاداة ومشكورررر جدا ودزاك الله خير
cOMPLIE ERROR
procedure declaration does not match description of event or procedure having the same name
اذا بالامكان شرح عن تشغيل المشروع وكيف ربط الاداة ومشكورررر جدا ودزاك الله خير
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كيف يمكنني ارفاق برنامج مصمم ب ملفات الدفعية مع برنامج ب فيجول بيسك
مشكوووووووووووووووووووووووور
elsayed tamer- .
- تاريخ التسجيل : 07/07/2014
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد
» افضل شركة تنظيف اثاث بالرياض تنظيف كنب واجهات حجر بخصم 40%
الأحد مارس 17, 2024 11:52 am من طرف رانيا حماد
» افضل شركة تنظيف فلل بالرياض | الانوار
الأحد مارس 17, 2024 11:22 am من طرف رانيا حماد
» افضل شركة تنظيف واجهات زجاج بالرياض 30% خصم
الأحد مارس 17, 2024 10:38 am من طرف رانيا حماد
» افضل شركة نقل عفش بالكويت بخصم 20%
الخميس مارس 14, 2024 1:36 pm من طرف رانيا حماد