الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هدية : إضافة ل VB6 بريمج IndenterVB

بدأه المبرمج أحمد في 3 مايو 2005 · 40 رد · 8,574 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

هديتي اليوم إليكم عبارة عن بريمج قد يعرفه البعض منا ، إنه Indenter VB .

إلى من لا يعرفه هذا البرنامج هو إضافة بسيطة على بيئة التطوير الخاصة بفيجوال بيسك 6 ، تقوم بإضافة بند جديد ( باسم Smart Indenter ) للقائمة المختصرة التي تظهر عند النقر بزر الفأرة الأيمن على نافذة الأكواد .

IndenterVB.jpg

تحتوي هذه القائمة على أربعة خيارات :

1- Indent Procedure : ويقوم بتنظيم وترتيب أكواد الإجراء الحالي المحدد عليه .

2- Indent Module : ويقوم بترتيب أكواد الوحدة الحالية التي تعمل عليها سواء أكانت نموذجًا أو وحدةً نمطيةً أو غيرها .

3- Indent Project : وكما هو واضح من اسمها فهي تقوم بترتيب أكواد المشروع بأكمله .

4- Indenting Options : يعرض لك مربع حوار تستطيع منه تغيير بعض خصائص البريمج .

* مثال بسيط :

Private Sub Form_Load()
For x = 0 To 255
For y = 0 To 255
For z = 0 To 255
If x = y * z Then
MsgBox "تحقق الشرط"
End If
DoEvents
Next z
Next y
Next x
End Sub

* المثال نفسه بعد عملية الترتيب والتنظيم :

Private Sub Form_Load()
    For x = 0 To 255
        For y = 0 To 255
            For z = 0 To 255
                If x = y * z Then
                    MsgBox "تحقق الشرط"
                End If
                DoEvents
            Next z
        Next y
    Next x
End Sub

أرأيت الآن كيف أن ترتيب الأكواد مسألة مهمة .

وفي الختام أسأل الله العلي العظيم أن يوفقني ويوفقكم لما يحبه ويرضاه

وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين

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

Indenter VB v2.1.zip

سبحان الله وبحمده ... سبحان الله العظيم

#2

شكراً جزيلاً على هذه الأداة الرائعة ...

وجاري التحميل..............

#3

مشكور اخي على هذه الاداة المهمة

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

--------------------------------------------------

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#4

شايفين الخبير

و بدأ السيل ينهمر

:D

gaza3-3.jpg
#5

أدة جميلة يا اخى أحمد

:)

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

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

من مواضيعى :

--------------

دروس تعلم كيف تصحح أخطائك بنفسك

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#8

جزاك الله خيرا أخي أحمد

أداة أروع من رائعه

essam.gif

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

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

http://www.planetss.com/vb

#9

شكرا لك اخي العزيز

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

تحياتي لك

#10

بسم الله

يحق لك ياخبير (h)

وفقك الله يابوحميد

المبرمج الطيب :)

إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي

اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة

قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر

وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر

حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها

الاعجاز العلمي في القرآن والسنة

#11

للرفع

#12

ممتاز .. وشكراً لك

#13

راااائع

#14

أداة ممتازة أتمني لو لها مثيل في الوت نت

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#15

شكرا لك اخي احمد دائما رائع

127gq4.png
#16

يعطيع العافيه اخي احمد وشكرا لك على البرنامج

*************************************************

**************************************************

مصطفى زيداني

#17

شكور وجاري التحميل

#18

أداة رائعة وشكرا للمبرمج أحمد

#19

بارك الله لك فيما اعطاك

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#20

شكراً جزيلاً للأخ أحمد

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#21

جزاك الله كل خير أخى أحمد

أداه رائعه شكراً

#22

هياسلام عليك يامبرمج احمد دائما تقدم الرائع الف شكر لك

*************************************************

**************************************************

مصطفى زيداني

#23

تسلم حبيبي

#24

thank you very importent think

#25

ما شاء الله

مواضيع مشابهة