منتديات المشاغب

منتديات المشاغب (http://www.absba.org/index.php)
-   قسم الشروحات (http://www.absba.org/forumdisplay.php?f=41)
-   -   [VB6] صمم بنفسك برنامج تجميل المواضيع بصور و تعابير و ابتسامات (http://www.absba.org/showthread.php?t=451510)

MicroPro 18-03-2007 11:20 PM

[VB6] صمم بنفسك برنامج تجميل المواضيع بصور و تعابير و ابتسامات
 
السلام عليكم و رحمة الله

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩


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

لم يعد تصميم البرامج مقتصرا على اصحاب النظارات الكبيرة


انت كذلك اصبح بامكانك تصميم برامجك (راجع مواضيعي :D )


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

انه برنامج لتجميل المواضيع بالمنتديات و تحويلها الى تحفة فنية على رأي الأستاذ إلياس

الفكرة مقتبسة من موضوع الأخ الأستاذ إلياس بلقب ilyacom من منتدى المشاغب

اجعل مشاركاتك بالمنتدى تحفة فنية

و قد أعطاني الضوء الأخضر لنشر كود موضوعه (بالغ الشكر للاستاذ إلياس)

http://www.wenamoyo.com/deco/1.jpg

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

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

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


المرحلة الاولى

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩


1- قم بتحميل الصور التي تريد على جهازك (و احفظ كل مجموعة داخل مجلد )
2- اختر أرقاما تصاعدية لأسماء صورك
3- قم بتصغير كل مجموعة بنفس المقاسات لكي يسهل تنظيمها في نافذة برنامجك
4- ارفع صورك اما على موقعك الشخصي برفع المجلدات عبر ال FTP او على احد مواقع الرفع
(و انتبه الى تنظيم الروابط لكي لا تختلط عليك)
اقترح مثلا استعمال Excel لتنظيم الروابط بحيث تضع اسم الصورة ثم الرابط الملائم لها أمامها... لكي يسهل استعمالها عند الحاجة


المرحلة الثانية

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩


اذا كنت محترفا يكفي استعمال فقط الكود في برنامجك ....:)

اذا كنت مبتدئا ما عليك الا تتبع مراحل الشرح خطوة خطوة

تتبع معي مراحل تصميم الواجهة في الصورة المتحركة التالية

http://img401.imageshack.us/img401/655/forumdecomf7.gif


طبعا ستظيف عدد الصور التي تريدها في واجهة برنامجك (حاول اضافة صور بنفس المقاسات للحفاظ على جمالية الواجهة)
أما الصور التي سترفعها على مواقع استضافة الصور فلن تغير مقاساتها ... ستتركها كما هي

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

الان كرر نفس العملية بانشاء صفحة عمل جديدة Form لاضافة المجموعة الثانية من الصور

تتبع معي الشرح في الصورة المتحركة الاتية

http://img248.imageshack.us/img248/8...reationux0.gif

كرر نفس العملية لانشاء جميع صفحات برنامجك

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩


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

عند الضغط مرتين متتالتين على الصورة الاولى ستضهر لك صفحة بيضاء مكتوب بها السطرين التاليين

كود:

Private Sub Picture1_Click()

End Sub

اضف الى السطر الاول من الكود العبارة التالية

كود:

Index As Integer
سيصبح الكود كالاتي

كود:

Private Sub Picture1_Click(Index As Integer)

End Sub

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

سيصبح الكود كالاتي

http://img148.imageshack.us/img148/9731/code01kt0.jpg

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

ساحاول تفسير أوامر الكود سطرا سطرا

1- عند الضغط على الصورة قم بما يلي
2- اذا كان خيار التوسيط مفعلا قم بما يلي
3- اكتب الجملة الاتية داخل الاطار Text (الاطار الابيض في واجهة البرنامج) :
[IM G]http://www.wenamoyo.com/basmalah/1.gif[/IMG]
هذه الجملة هي طبعا رابط الصورة الاولى
لاحظ ان الرابط مؤطر بعبارتي [CENTE R][IMG] [/IMG][/CENTE R]
[CENTE R] [/CENTE R] أمر توسيط صورة بالمنتدى
[IMG] [/IMG] أمر اضهار الصورة داخل المشاركة انطلاقا من رابطها

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

4- اذا لم يتحقق الشرط (خيار التوسيط غير مفعل)
5- اكتب الجملة الاتية داخل الاطار Text (الاطار الابيض في واجهة البرنامج) :
[IM G]http://www.wenamoyo.com/basmalah/1.gif[/IMG]

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

6- انتهاء الجملة الشرطية
7- استعمل Clipboard (ذاكرة الكمبيوتر التي تحتفظ بما قمنا بنسخه)
8- امسح البيانات المتواجدة ب Clipboard
9- السطرين ما قبل الاخيرين هما امر للاحتفاظ بالنص الذي يحتويه الاطار Text في ذاكرة الكبيوتر أو (Clipboard)
و بهذا لا تحتاج الى تضليل الرابط و نسخه
فبمجرد الضغط على الصورة سيتم نسخها في ذاكرة الكمبيوتر

السطر الأخير انتهاء استعمال ال Clipboard

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

الان ننتقل الى الازرار

نفترض انك صممت اربع صفحات (Form1 Form2 Form3 Form4)
الصفحة الاولى وضعت بها صور البسملة
الثانية صور التحيات
الثالثة صور الفواصل
الرابعة صور الابتسامات

و ضعت أربعة أزرار في كل صفحة

نفترض انك في الصفحة الاولى
الزر بسملة ستعطيه امرا باضهار الصفحة الاولى و اخفاء جميع الصفحات
الزر تحية ستعطيه أمرا باضهاء صفحة التحيات و اخفاء جميع الصفحات
الزر فواصل ستعطيه أمرا باضهاء صفحة الفواصل و اخفاء جميع الصفحات
الزر ابتسامات ستعطيه أمرا باضهاء صفحة الابتسامات و اخفاء جميع الصفحات

ستكرر نفس العملية في جميع الصفحات

لاضافة الأوامر الى كل زر

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

كود:

Private Sub Command1_Click()

End Sub

ستضع أوامر أضهار الصفحة المناسب للزر و اخفاء الصفحات الاخرى

مثلا الكود

كود:

Form1.Show
يعني اضهر الصفحة باسم Form1

و الكود التالي

كود:

Form2.Hide
اخف الصفحة باسم Form2

هذا هو الكود الذي ستعطيه للزر الاول

كود:

Private Sub Command1_Click()

Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide

End Sub

كرر نفس العملية بالنسبة لجميع الازرار

بالنسبة لزر الخروج

كود:

Private Sub Command6_Click()
End
End Sub


http://www.mezimages.com/image/ilyacom/3rbe.com_062.gif

لكي لا تضهر الصور في الاكواد التي وضعت في الموضوع وضعت فراغا في في الكود [IM G] فالكود يكتب هكذا [IMG] بدون فراغ بين حرف M و حرف G

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

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


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

و الى الامام جميعا


الحمم السوداء 19-03-2007 12:30 AM

شكرا اخي الكريم موضوع ممتاز

بلال عبدالعزيز 19-03-2007 12:47 AM

جزاك الله خيراً أخي العزيز موضوع رائع ومفيد ...

بالتوفيق إن شاء الله

MicroPro 19-03-2007 12:53 AM

شكرا على مرورك

و اتمنى لك الاستفادة منه

تحياتي

MicroPro 19-03-2007 12:55 AM

شرفت الموضوع بمرورك الأخ بلال عبدالعزيز

bedoonline 19-03-2007 12:57 AM

موضوعك رائع أخى الغالى مشكور ألف شكر

سفير الشـوق ™ 19-03-2007 12:59 AM

فكرة جميلة ومجهود رائع تستحق عليه الشكر والثناء

بارك الله فيك

Medo125 19-03-2007 01:00 AM

مشكووووووووووووووووووووووووووووووووووووور اخوى

وانتظر جديدك

اخوك
MEdo

محمد نجيب 19-03-2007 01:10 AM

شكرا اخي الكريم موضوع ممتاز

ADIL AL ISSA 19-03-2007 01:26 AM

شكرااااا اخي على الشرح الرائع ,,

وبارك الله فيك ,,


الساعة الآن 03:58 PM