10-06-17, 03:03 PM
(آخر تعديل لهذه المشاركة : 10-06-17, 07:34 PM {2} بواسطة عبدالله خضر.)
السلام عليكم ...
في هذا الموضوع أقدم لكل الأعزاء من الأعضاء والزوار هذا الموضوع ، وهو يتعلق بالدوال والإجراءات التي التي صممتها وابتكرتها وأتعامل معها شخصيا ولا أستغني عنها ، وهي كثيرة ومتعددة النواحي والإستخدامات ، رأيت أن أفيد غيري بها ..
فأحد أسباب شغفي بالبرمجة بلغة الـ VB.Net هو تصميم الدوال والإجراءات ، وفكرتها الأساسية أنها عبارة عن مجموعة أكواد قصيرة أو طويلة يتكرر إستخدامها في سطورالبرنامج ، وبدلا من تكرار كتابتها أو نسخها ، تختصر العملية في إستدعاء كل تلك الأكواد والأوامر بكلمة واحدة ، تطلب منك محددات معينة لعمل المطلوب ..
بلا شك ... الدوال والإجراءات وسيلة تختصر الكثير والكثير من الجهد والوقت ، بالإضافة إلى أنها قابلة للتطوير من عقل مبدع يفهم في آليات البرمجة ...
في هذا الموضوع سأذكر الدوال والإجراءات تباعاً وشرح مبسط عنها وعن أهميتها ونتيجتها ، وأنصح المبرمج بتجميعها وحفظها في ملف ( ميديول ) للإستفادة منها أثناءالبرمجة ، والله المستعان :
1 - إجراء حفط نص أو مجموعة نصوص في ملف :
إسمها ( كما سميتها طبعا ) : SaveDocToFile
كود ونص الإجراء :
شرح عمل الإجراء :
قد تحتاج في أحد برامجك الجدية أمراً سريعا ومختصراً ومرناً أيضاً لحفظ معلومة أو نص أو مجموعة نصوص ( مهما كان حجمها ) ؛ حفظها في ملف ما في أمر واحد ، فهذاالإجراء صممته لهذا السبب وأضفت له خاصيتين مهمتين أيضاً ، وسآتي لذكرهما لاحقا .
فعند كتابتك إسم الإجراء ، وهو كما سميته أنا : SaveDocToFile ، سيطلب منك أولا كتابة إسم مسار الملف ( سواءا كان موجودا أو لا ) ، هكذا مثلا :
أو بواسطة متغير معرف نصيا مثلا :
أو إختصاراً :
وبعدها سيطلب منك جملة النص أيا كان ( وهو كالسابق متغير نصي ) ، وبعد إثباته يكون الإجراء مستعداً للتنفيذ ..
ستلاحظ وجود خيار إفتراضي ( منطقي ) في الإجراء وهو : Optional ByVal IsAppend As Boolean = True
ومعناه أنه في حال لم يضع المستخدم للإجراء فاصلة بعد جملة النص فسيكون الخيار IsAppend في حالة منطقية إفتراضية دائما هي True أي بمعنى نعم ( حقيقي ) ..
والمقصود بالكلمة IsAppend هو متغير الغرض منه التوضيح للمستخدم كأنه يساله : هل يضاف النص هذا بعد اي نص قد يحتمل وجوده في الملف ؟ .. أي خاصية الإلحاق والإضافة ... فإذا تجاهلته فسيفهم الإجراء أنك تقصد أن يحفظ النص بشكل تراكمي في كل مرة تعطيه نفس المسار للملف ..
أما في حالة أنك تريد أن يكون النص لوحده فقط في الملف بدون إضافة أي نص فما عليك إلا أن تضع فاصلة بعد النص ( أو متغير النص ) ، ثم تكتب False ، أي بمعنى لا ( مزيف ) ...
ستفهم ما أقصده إذا لاحظت خيارات السطور البرمجية في نص الإجراء ...
في هذا الموضوع أقدم لكل الأعزاء من الأعضاء والزوار هذا الموضوع ، وهو يتعلق بالدوال والإجراءات التي التي صممتها وابتكرتها وأتعامل معها شخصيا ولا أستغني عنها ، وهي كثيرة ومتعددة النواحي والإستخدامات ، رأيت أن أفيد غيري بها ..
فأحد أسباب شغفي بالبرمجة بلغة الـ 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 ، أي بمعنى لا ( مزيف ) ...
ستفهم ما أقصده إذا لاحظت خيارات السطور البرمجية في نص الإجراء ...
--- يُتبع باقي الدوال والإجراءات ---