[عبدالله خضر]

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


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

فأحد أسباب شغفي بالبرمجة بلغة الـ VB.Net هو تصميم الدوال والإجراءات ، وفكرتها الأساسية أنها عبارة عن مجموعة أكواد قصيرة أو طويلة يتكرر إستخدامها في سطورالبرنامج ، وبدلا من تكرار كتابتها أو نسخها ، تختصر العملية في إستدعاء كل تلك الأكواد والأوامر بكلمة واحدة ، تطلب منك محددات معينة لعمل المطلوب ..

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

في هذا الموضوع سأذكر الدوال والإجراءات تباعاً وشرح مبسط عنها وعن أهميتها ونتيجتها ، وأنصح المبرمج بتجميعها وحفظها في ملف ( ميديول ) للإستفادة منها أثناءالبرمجة ، والله المستعان :

---

1 - إجراء حفط نص أو مجموعة نصوص في ملف :

إسمها ( كما سميتها طبعا ) : SaveDocToFile

كود ونص الإجراء :

كود :

   Sub SaveDocToFile(ByVal FileNamePath As String, ByVal DocString As String, Optional ByVal IsAppend As Boolean = True)

       Dim A, B As String, C As Boolean

       FileClose()

       A = Trim(FileNamePath) : B = Trim(DocString)
       C = IsAppend

       If A <> "" And B <> "" Then

           Select Case C

               Case True
                   FileOpen(1, A, OpenMode.Append)

               Case False
                   FileOpen(1, A, OpenMode.Output)

           End Select

           PrintLine(1, B)
           FileClose()

       End If

   End Sub

شرح عمل الإجراء :

قد تحتاج في أحد برامجك الجدية أمراً سريعا ومختصراً ومرناً أيضاً لحفظ معلومة أو نص أو مجموعة نصوص ( مهما كان حجمها ) ؛ حفظها في ملف ما في أمر واحد ، فهذاالإجراء صممته لهذا السبب وأضفت له خاصيتين مهمتين أيضاً ، وسآتي لذكرهما لاحقا .

فعند كتابتك إسم الإجراء ، وهو كما سميته أنا : SaveDocToFile ، سيطلب منك أولا كتابة إسم مسار الملف ( سواءا كان موجودا أو لا ) ، هكذا مثلا :

كود :

C:\Test.txt

أو بواسطة متغير معرف نصيا مثلا :

كود :

S as String
S="C:\Test.txt

أو إختصاراً :

كود :

S as String="C:\Test.txt

وبعدها سيطلب منك جملة النص أيا كان ( وهو كالسابق متغير نصي ) ، وبعد إثباته يكون الإجراء مستعداً للتنفيذ ..

ستلاحظ وجود خيار إفتراضي ( منطقي ) في الإجراء وهو : Optional ByVal IsAppend As Boolean = True

ومعناه أنه في حال لم يضع المستخدم للإجراء فاصلة بعد جملة النص فسيكون الخيار IsAppend في حالة منطقية إفتراضية دائما هي True أي بمعنى نعم ( حقيقي ) ..


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

أما في حالة أنك تريد أن يكون النص لوحده فقط في الملف بدون إضافة أي نص فما عليك إلا أن تضع فاصلة بعد النص ( أو متغير النص ) ، ثم تكتب False ، أي بمعنى لا ( مزيف ) ...

ستفهم ما أقصده إذا لاحظت خيارات السطور البرمجية في نص الإجراء ...

---

--- يُتبع باقي الدوال والإجراءات ---