شرح - تشغيل برنامجك بدون تفعيل الماكرو لمن يعاني من مشاكل تفعيل الماكرو

السلام عليكم

اليوم اضع لكم شرح  حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6

بداية الشرح اولا سنقوم بعمل مشروع جديد 

ليظهر معنا فورم واحد وهو المطلوب

لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل 

وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا

صور من درس سابق لربط الفيجوال بالاكسيل

بعد ان قمنا باضافة المرجع الخاص بالاكسيل

نأتي لمشروعنا 

دا شكل الفورم وكوده

هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك

ودا بدون اي اكواد عادي

نأتي للكود نضع في الحدث load

الكود التالي

Private Sub Form_Load()
Dim Start, Finsh
Form1.Show
Start = Timer
Finsh = Start + 5
Do Until Finsh <= Timer
DoEvents
Loop
Unload Me
    Excel.Workbooks.Open App.Path + "\yasser.xlsm"
    Excel.Application.Visible = True
End Sub

الكود عبارة عن اعلان عن متغيرين بداية ونهاية

البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية

وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت

وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي

وبكدا يكون انتهينا من الدرس 

الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش 

ليه

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

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

وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء

بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل

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

مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه 

لتحميل السورس كود اضغط هنا

تقبلو تحياتي

ياسر العربي

يتبع

http://up.top4top.net/downloadf-144afoa1-rar.html

تشغيل برنامجك بدون تفعيل الماكرو لمن يعاني من مشاكل تفعيل الماكرو

السلام عليكم

اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6

كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى 

فيضيع علينا 

اظهار الانطباع الاول لبرنامجنا 

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

مش محترف  

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

قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا

وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو 

كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج

ونغير اسم برنامجنا الى ما هو موضح بالصورة

Yasser.xlsm

وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم

وطبعا الامتداد xlsm

ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من 

البرنامج التنفيذي

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

 باعادة التسمية ليصبح Yasser.xlsm

ويقولي ايه رأيه

باذن الله سنقوم بشرح طريقة عمل هذه الشاشة الافتتاحية بعد ثبوت فاعليتها

الملف مرفق

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

لتحميل الملف اضغط هنا

تقبلو تحياتي

ياسر العربي

يتبع

تحزيم البرامج فيجوال بيسك 6

بسم الله الرحمن الرحيم
الحمد لله الذي بنعمته تتم الصالحات ، الحمد لله الذي خلق الأرض والسموات ، الحمد لله الذي علم العثرات ، فسترها على اهلهاوانزل الرحمات ، ثم غفرها لهم ومحا السيئات ، فله الحمد ملئ خزائن البركات ، وله الحمد ما تتابعت بالقلب النبضات ، وله الحمد ماتعاقبت الخطوات ، وله الحمد عدد حبات الرمال في الفلوات ، وعدد ذرات الهواء في الأرض والسماوات ، وعدد الحركات والسكنات ،
سبحانه سبحانه سبحانه
الطير سبحه والوحش مجده والموج كبره والحوت ناجاه والنمل تحت الصخور الصم قدسه والنحل يهتف حمدآ في خلاياه

الناس يعصونه جهرآ فيسترهم والعبد ينسى وربي ليس ينساه
وأشهد أن لا إله إلا الله لا مفرج للكربات إلا هو ، ولا مقيل للعثرات إلا هو ، ولا مدبرللملكوت إلا هو ، ولاسامع للأصوات إلا هو ، ما نزل غيث إلا بمداد حكمته ، وما انتصر دين إلا بمداد عزته ، وما اقشعرت القلوب إلا من عظمته ، وما سقط حجر من جبل إلا من خشيته ،
وأشهد أن محمدآ عبده ورسوله قام في خدمته ، وقضى نحبه في الدعوة لعبادته ، واقام اعوجاج الخلق بشريعته ، وعاش للتوحيد ففاز بخلته ، وصبر على دعوته فارتوى من نهر محبته ، صلى عليك الله يا علم الهدى  

اما بعد احبتي في الله

اليوم سنشرح موضوع مهم لنا جميعا في مجال الفيجوال والبرمجة

وهو تحزيم البرامج

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

من تنصيب البرنامج داخل النظام وادراج اختصار لسطح المكتب وتنزيل ادواته بالنظام

ليعمل بكفاءة

سنقوم بشرح برنامج تحزيم يأتي مع مجموعة الفجوال

وطريقة عمله

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

الخطوات كما بالصور

هنا نقوم بتحديد ملف المشروع ويجب تحويله لتنفيذي قبل عمل هذه الخطوة  ونقوم باختيار ملف تشغيل المشرؤوع نفسه كما بالصورة

هنا يتم تحديد الاداوت التي يعتمد عليها البرنامج

يظهر فولدر داخل مشروع البرنامج به ملف التنصيب

ودا مثال لبرنامج عرض وسائط الصوت والفيديو

وقريبا باذن الله اضع لكم شرح برنامج تحزيم افضل 

اسف علي سرعة الشرح لضيق الوقت

مع تحياتي

ياسر العربي

يتبع

تابع كيفية التعامل مع ادوات DriveListBox DirListBox FileList Box

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

 الحمد لله أحمده وأستعينه وأستهديه وأستغفره وأتوب إليه، وأومن به وأتوكل عليه، وأشهد أن لا إله إلا الله وحده لا شريك له، إله الأولين والآخرين، وأشهد أن محمدا عبده ورسوله بعثه الله رحمة للعالمين، اللهم صلِّ وسلم وبارك على عبدك ورسولك نبينا محمد وعلى آله وصحبه، ومن دعا بدعوته، واهتدى بهديه إلى يوم الدين

اما بعد

اليوم استكمالا للموضوع السابق

 

وسنقوم بعرض ملفات بصيغ اخرى وطرق اخرى 

 منها ملفات PDF   وملفات الصور JPG & BMP

 

طربقة عمل مستعرض لملفات الPDF

نفس مشروعنا السابق 

التعديل هو

نقوم باضافة هذه الاداة الموضحة بالصورة بدلا من الميديا بلير

 

 

بعد وضع الاداة نستبدل ما بالحدث دبل كليك علي  FileList Box

ونخليها كليك فقط عادي وليس دبل كليل

كما هو موضح بالكود التالي

Private Sub File1_Click()
AcroPDF1.LoadFile (Dir1.Path & "\" & File1.FileName)
End Sub

الكود يعمل علي تحميل  الملف المحدد داخل الفايل ليست وعرضة داخل الاداة ادوب اكروبات

كما هو موضح

وطبعا مننساش موضوع تحديد امتداد الملفات المراد تشغيلها داخل برنامجنا وهي الان PDF

الكواد كالتالي في تحميل الفورم

Private Sub Form_Load()
File1.Pattern = "*.pdf"
End Sub

وتسطيع عمل ازرار للكنترول ببرنامجك مثل ما بالصورة الاتية

وبكدا نكون انتهينا من نقطة ربط الدريفات بالمجلدات بالملفات وصولا لمستعرض PDF

ونخش كمان في مثال تاني 

وهو عمل مستعرض للصور

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

وهنا يتم وضع image

بدلا من اداة الادوب او الميديا كما موضح

وطبعا الاكواد المستبدلة كالعادة هي كالتالي

Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.gif"
End Sub

ليصبح في النهاية هكذا

وبكدا نكون صنعنا 

مشغل وسائط الصوت والفيديو

مستعرض ملفات PDF

مستعرض الصور

ونستطيع ان نصنع ما نريد بهذه الطريقة من برامج متعددة نستعملها بصفة مستمرة

ومنتظر منكم الابداع  لن اكتفى بمثال مثل ما قمت بعمله لا

اريد التألق والابداع 

مثلا ربط الثلاثة امثلة في مثال واحد وتطبيق ما نريده  مثلا عن طريق تفعيل CheckBox مثلا عند وضع علامة صح امام تشغيل الوسائط يعمل الصوت والفيديو 

وان وضعت علامة صح امام تشغيل مستعرض  pdf يعمل

وهكذا

او تطبيق الامثلة على اشياء اخرى لم تذكر يعني فكرة جديدة

منتظركم

واعذروني لتأخري في وضع المواضيع قليلا لانشغالي 

مع تحياتي

ياسر العربي

يتبع

كيفية التعامل مع ادوات DriveListBox DirListBox FileList Box

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

 

هنشرح اليوم كيفية التعامل مع ادوات

DriveListBox

DirListBox

FileList Box

أسماء المشغلات DriveListBox :

وهذه الأداة تتعامل مع محركات الأقراص الصلبة.

عرض المجلدات DirListBox:

تظهر كل المجلدات الموجودة داخل أحد المجلدات أو أحد المجلدات الموجودة داخل أحد المشغلات و تعطينا إمكانية الاختيار منها.

عرض الملفات FileList Box :

تعرض لنا قائمة من الملفات الموجودة داخل مجلد معين و تعطينا إمكانية اختيار أحدها. و التعامل معها.

ما الفائدة من هذه الادوات:

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

طيب وايه لزمتها ما انا ممكن اتصفح وخلاص من خارج البرنامج واجيب اللي انا محتاجه

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

طريقة العمل سيتم تحديد الدريف من اول اداة DriveListBox

وبناء عليها يتم سرد المجلدات في الاداة الثانية DirListBox

ويتم الاختيار من الاداة الثانية المجلد الهدف

وبناء على المجلد الهدف يتم سرد الملفات الموجودة به في الاداة الثالثة FileList Box

 

وبناء علي اختيار الملف من الاداة الثالثة يتم تشغيل الملف تلقائي داخل برنامجنا

خلاص توكلنا علي الله ونعمل برنامج مشغل صوتيات  وفيديو كمان

ودا مجرد مثال لشرح طريقة عمل الادوات وصولا لتشغيل الملف الهدف في النهاية

يلا كله يفتح البرنامج

الادوات  مشروع جديد

الاداوت الثلاثة المذكورة كما بالصورة

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

وعند الضغط علي الملف يتم تشغيله

اكواد ربط الادوات

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

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

طيب كدا الملفات كلها هتظهر واحنا عاوزين نخصص برنامجنا لبعض الامتدادات فقط كيف نخصص امتدادات تظهر فقط

عن طريق الكود التالى

Private Sub Form_Load()
File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv"
End Sub

نضع هذا الكود مثلا في حدث تحميل الفورم

وهنا قمت بتحديد الامتدادات المراد عرضها وهي امتداد  الصوت وبعض امتدادات الفيديو  وبامكانكم وضع اي امتدادات اخرى

طيب احنا كدا وصلنا  لاخر شئ بالنسبة للادوات وناقص شئ واحد وهو عند الضغط علي الملف يتم تشغيله

لعمل هذا نضيف هذه الاداة للفورم بتاعنا

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

نيجي لاكواد التشغيل الملفات التي يتم اختيارها داخل الميديا بلير

Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub

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

وطبعا ممكن نعمل ازرار تحكم لايقاف وتشغيل ما نريد

وطبعا  الكل هيبدع في الموضوع دا وبلمسات المواضيع اللي فاتت هيبقي اجمل

وادي الكود كامل عشان تعرفو باقل كود ممكن نعمل حاجه كبيرة ومميزة

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Form_Load()
File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv"
End Sub

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

خالص تحياتي

ياسر العربي

يتبع