شرح استخدام البروجرز بار _ Progress indicator

[omar elhosseini]

 

 

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

نبدء بشرح برنامج Omar_Progress

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

كود الموديول يتم التعديل فيه كالاتى

اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي

 

هذا اللوب () سيكون اللوب الرئيسي لبرنامجك
مع تغير قيم ( Start_Counter و End_Counter )
لتكون هي قيم اللوب الخاص لبرنامجك
او
او استبدال متغيرات  ( For … Next)  
وهي ( Start_Counter و End_Counter )
بمتغيرات البرنامج الخاص بك   ( For … Next)

فقط لا غير
 

 

 

Sub Omar_Progress()
'
Dim Per As Single, x As Double
End_Counter = 50
'==========================================================================================
For Start_Counter = 1 To End_Counter
    O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter
    Per = Start_Counter / End_Counter
    O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%")
    MyProgress Per
    DoEvents
'==========================================================================================
    ' My Code
'==========================================================================================
Next
'
End Sub
 

Omar_1.rar

[محمد حسن المحمد]

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

بارك الله بعلمكم أستاذنا ونفع به وجعله بميزان حسناتكم ...آمين

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

روادنا نحو صرح الحضارة ..لنكون كما كنا سادة الأمم بعلمنا وأدبنا وخلقنا..

والسلام عليكم.

[omar elhosseini]

 

البروجرز بار الثاني

ويستخدم بنفس الاسلوب السابق

 

Omar_2.rar

[omar elhosseini]

 البروجرز بار الثالث و الرابع والخامس

وتستخدم بنفس الاسلوب الاول

 

 

 

 

Omar_3_5.rar

ملحوظه :

مؤشرات التقدم الخمس صناعة عربية مصرية 100%

لكم مني كل تحية

 

الاخ أبو يوسف

شكرا لك اخي

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

 

تم تعديل مايو 28, 2016 بواسطه عمر الحسيني

[ناصر سعيد]

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

اتق الله ...   تتخيل داخلي بيقول ايه الان ...فعلا ....

[ياسر خليل أبو البراء]

أخي الحبيب ومعلمي الكبير أبو تامر

بارك الله فيك وجزاك الله كل خير ، ولا حرمنا الله منك أبداً ولا من إبداعاتك

دمت ذخراً لنا

 

أخي العزيز ناصر سعيد

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

أرجو أن يكون هناك تفهم للأمر .. هذا من جانب ، ومن جانب آخر ما الفرق بين أول رد على الموضوع وآخر رد على الموضوع ...

المهم أن يكون هناك رد ، ويكون الرد فيه نوع من التفاعل والمشاركة أكثر من مجرد رد

تقبلوا وافر تقديري واحترامي

 

[ناصر سعيد]

اهم سؤال هو كيف ادمج البروجرس مع اي كود

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

[جلال الجمال_ابو أدهم]

تحياتى لاستاذنا الفاضل / عمر الحسيني
جعل الله اعمالك فى ميزان حسناتك
و حشتنا هدياك الجميله
و عوده حميده

[omar elhosseini]

الاخ ياسر خليل أبو البراء

شكرا لك اخي

الاخ جلال الجمال_ابو أدهم

شكرا لك

 

[omar elhosseini]

الاخ ناصر سعيد

الشرح مع الملفات مبسط

و سوف اجهز فيديو لتوضيح ذلك

ولكن اخبرني اي بروجرز تريد

[omar elhosseini]

الاخ ناصر سعيد

 

اضغط علي الرابط  لتحميل فيديو شرح البروجرز بار

 

 

[ناصر سعيد]

العملاق الكبير عمر الحسيني

جزاك الله الخير وبارك فيك

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

 

 

[ناصر سعيد]

حفظك الله ورعاك العملاق عمر الحسيني

[علي فاهم]

الله .. الله على الحل السحري ربنا يكرمك استاذ عمر الحسيني

[نايف - م]

الأخ عمر الحسيني

بارك الله فيك و بارك لك بيمينك و زادك علما و رفعة

أشكرك على المشاركة لأنني كنت بحاجة لها

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

النتيجة : لم ينجح معي التطبيق تماما لكنني استفدت التالي :

*  البيانات عندي كثيرة لذلك كنت أستغرق وقت يقارب 1.5 دقيقة ليتم تحميل البيانات المطلوبة ا الليست بوكس و يتوقف العمل خلالها على البرنامج بسبب أنشغاله - الآن - يتم التحميل بالتدريح مع قدرتي على أيقاف عملية التحميل أو العمل على البرنامج خلال التحميل و هذا شيء رائع 

شكرا لك