تعلم معنا صناعة الدوال بنفسك

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

الباشا أحمد الله يفتح عليك ويزيدك إن شاء الله

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

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

لعلك فهمت الأن................... :D

ثانيا أنا أقوم بشرح سطور الأكواد للجميع وليس بالخصوص لصاحب المشكلة

عموما دعنى أشكرك على الموضوع الرائع..... ;)

تسلم يا باشا على ذوقك العالى :D

و مستنى منك شرح الطباعه برضو :D :D

درس ممتاز ،،

يعطيك ألف عافية أخي أحمد ..

يعطيك العافيه ،،

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

تحياتي لك

يعطيك العافية

شرح رائع ولكن عندي سؤال محيرني

هو انتو اخوات :lol:

أقصد انت والأخ عبد الله فتحي

الف شكر لك اخوى

السلام عليكم

شكرا لذوقكم العالى يا شباب :D

اقتباس

هو انتو اخوات

أقصد انت والأخ عبد الله فتحي

يا سيدى هو أنا أطول :D

ما شاء الله عليك يا أخ أحمد

شرحك لذيذ - ربنا ينفع بيك الأمة

ما أجمل أن كل من يعرف معلومة وعنده القدرة أنه يوصلها

قال صلى الله عليه وسلم:

بلغوا عنى ولو آية فرُبّ مُبـلَّـغٍ أوعى من سامع

صدق الحبيب المصطفى

ردا على الأخ nasser50001

لا - دى بلد - و دى بلد

تشكر اخ احمد فتحى على المعلومات القيمة

تشكر اخ احمد فتحى على المعلومات القيمة

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

مجانا ! عدادات زوار جاهزة للمواقع تجنن

http://www.hitcounters.tk

للبحث العجيب http://newgoogle.cjb.net

أحبائى

اليوم الدرس الثانى :)

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

فى هذا المثال نصنع دالة باسم Swap

المشكلة التى دعتنا إلى صناعتها:

نفرض أن لدينا text1 و text2

text1.multiline = True أى يمكن كتابة أكثر من سطر

text2.multiline = False أى لا يمكن كتابه أكثر من سطر

نفرض أن لدينا Command1 ،، نكتب له الكود التالى

text2.text = text1.text

الآن قم بتشغيل البرنامج لتكتشف المشكلة بنفسك :D

اكتب فى text1 ما يلى:

أحمد

فتحى

ثم اضغط على command1 فماذا كانت النتيجة فى text2 ؟؟؟؟؟؟

ستكون كالتالى

أحمدسح فتحى

:D :D سح أليس كذلك ؟

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

وظيفة الدالة:

استبدال المسافة بين السطرين بمسافة فارغه " "

خطوات كتابه الدالة:

Function Swap(ByVal Text As String) As String
Swap = Replace(Text, vbCrLf, " ")
End Function

1- كما تعلمنا من الدرس الاول ،، اسم الداله Swap ،، المدخلات عبارة عن متغير اسمه Text نوعه String أى متغير نصى

المخرجات نوعها String اى المخرجات تكون نص أيضاً..

2- قلنا للبرنامج أن الدالة Swap ستأخذ قيمة العملية التالية

Replace(Text, vbCrLf, " ")

ما هى تلك العملية؟؟

باستخدام الداله المحفوظة Reserved Function التى اسمها Recplace سيتم استبدال كل مسافة بين سطرين vbCrLf بمسافه فارغه " "

و ستتم كل عمليات الاستبدال فى النص المدخل إلى الدالة Swap و تذكر معى أن المتغير فى المدخلات هو Text

إذا ميكانيكية العمل:

نرسل المدخلات إلى الدالة Swap ،، توضع المدخلات فى المتغير Text ،، تأخد الدالة Swap قيمة الداله Replace ،، دور الدالة Replace هو استبدال كل مسافه بين سطرينvbCrLf فى المتغير النصى Text بمسافه فارغه ،، توضع نتيجة الاستبدال فى مخرجات الدالة Swap

----

لاحظ أننا استخدمنا داله لصناعه دالة آخرى ;) حلوه صح :D

استدعاء الدالة:

نرجع إلى مشروعنا الأول اللى ظهرت فيه المشكلة

اعمل زر جديد command2

اكتب له هذا الكود

Private Sub Command2_Click()
Text2.Text = Swap(Text1.Text)
End Sub

و بذلك نرسل للداله Swap النص المكتوب فى text1.text لتتم عليه عمليات الاستبدال ،، ثم توضع مخرجات الدالة فى text2.text

جربها ;)

المثال مرفق ;)

functions2.zip

بارك الله فيك أخي أحمد ..

تشكر اخ احمد فتحى على المعلومات القيمة

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

اعجبني ذا الدرس كثير اخواني

ولقد عملت دله اسمها booo7 تقوم بعمل shell

وهذه الشفره

طبعا وضعت زر كومند وتيكست بوكس بحيث اذا وضعت مسار اي برنامج في التيكست بوكس يشتغل البرنامج عن الضغط على زر كومند

Function booo7(ByVal txt As String) As String
booo7 Shell(txt)
End Function

Private Sub Command1_Click()
booo7 Text1.Text
End Sub

وهل من المنطق ان اقول عملت داله اسمها booo7 تقوم بعمل shell

وهل استطيع ان اصنع اي داله تقوم بعمل ما مثل البحث او ارسال او الحذف

وبنظري انا لم اعمل داله فقط انا اعتبرها تغيير مسمى فامثلا بدال shell اصبحت booo7

ارجو التعقيب علي لضروره ولزيادة العلم

اخوكم طلال العنزي

الله يعطيك العافيه

السلام عليكم الأخ boooo7

أسف جدا جدا على التأخير بس و الله لم الاحظ ردك ..

بص يا سيدى الفاضل إلى السطر الأول فى كودك

Function booo7(ByVal txt As String) As String

لقد حددت مخرجات الدالة على انها نص بالرغم من أن الدالة التى صنعتها لا ترجع نتائج نصية

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

Sub bo7(Path As String)
Shell (Path)
End Sub

أى انه يمكن كتابه الكود على شكل Sub دون تطرق لموضوع الداله ،، و يمكنك استدعاءه بشكل طبيعى.

اقتباس

وهل استطيع ان اصنع اي داله تقوم بعمل ما مثل البحث او ارسال او الحذف

إن ذلك هو الهدف المنشود من صناعه الدوال :انها تأخذ مدخلات و تقوم بإجراء عده عمليات ثم تقوم بإرجاع نتيجة هذه العمليات.

و اى مشكلة انا معاك اخ طلال

تحت امرك يا almazuon شكراً ليك

اشكرك من صميم قلبي واتمنى ان تعطينا امثله كثيره

تريد ان اتعمق اكثر في الفينكوشن وsub اكثر ياليت تكمل معروفك وتضرب امثله اكثر اخوي العزيز

مازلت انتظرك اخوي العزيز

اخوك طلال العنزي

اقتباس

Sub booo7(path As String)

path = x

Shell "C:\Program Files\MSN Messenger\msnmsgr.exe"

End Sub

Private Sub Command1_Click()

booo7 (x)

End Sub

كذا ضبط معي

ياليت نتكلم اكثر عن sub

ياليت تشرحها اكثر

لان احب مثل هذه الاشياء لان احس فيها مرونه اكثر

مشكورين

كلكم

وكل واحد على حدا

مجهود رائع أخي الكريم

بارك الله فيك

جزاك الله خير

merseeeeeeeeeeeeeeeeeeeeeee

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

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