Elsayed Bn Gemy قام بنشر مايو 26, 2015 قام بنشر مايو 26, 2015 السلام عليكم ورحمة الله تعالى وبركاته انا النهاردة حابب اتكلم عن دالة مهمة جدا من وجهة نظرى المتواضعة دالة من دوال التكرار دالة Do While....loop طبعا بما انى مليش فى الشرح اوى فاسمحولى اتكلم كدا بالبلدى ههههههه اول سؤال احنا بنستخدم الدالة دى امتى ؟؟؟ الاجابة اننا بنستخدم الدالة دى لما نكون عاوزين نكرر كود محدد بس اكتر من مرة ومش عارفين عدد محدد لتكرار والحدث او الكود اللى هنكرره دا هيتكرر بناء على شرط معين يعنى لو الشرط اتحقق كرر الكود وهكذا ... قشطة لحد كدا ؟؟؟ شكل الدالة دى بيبقى عامل ازاى Do While الشرط الكود Loop Do While condition code Loop يعنى ايه بقى الكلام دا المقصود ب Do While هو تنفيذ code طالما التعبير الشرطى True قشطة لحد كدا تمام ؟؟ علشان المعلومة تثبت لازم نعمل تدريب عملى هنعمل تدريب عملى بسيط جدا تعالو نشوف انا عاوز اعمل نموذج فى قلبه ليست بوكس اقوم عن طريق الدالة Do While اقوم عن طريقها بادخال الاسماء داخل الليست بوكس نفتح الاكسس ونعمل نمذج فارغ ونسميه Form1 ونعمل زر لااضافة الاسماء ونسميه Button1 ونضيف الليست بوكس ونسميها Listbox1 ايه المطلوب بقى منى ؟؟ المطلوب عن الضغط على زر Button1 يظهر صندوق InputBox لا ادخال الاسماء يبقى احنا هنستخدم دالة InputBox فى ادخال الاسماء تمام كدا يعنى لما اضغط على الزر المفروض يظهر InputBox علشان ادخل الاسم الاول ويظهر مرة تانيه علشان ادخل الاسم الثانى وهكذا لحد ما قيمة الشرط فى دالة Do While تبقى false كدا ينهى الحدث هنخلى الشرط بتاعنا هو عند ادخال كلمة انهاء يقوم بانهاء ادخال الاسماء وهنلاحظ كدا وجود حلقة تكرارية مش عارفين عدد مرات التكرار قد ايه وينتهى التكرار بمجرد ادخال كلمة " انهاء" يلا بينا على الكود طبعا دا هيتحط فى حدث عند النقر للزر 'هنفرض متغير x من نوع نص Dim x As string 'الشرط هنا بيقول انه طالما المتغير x لا يساوى انهاء كرر الكود Do while x<>"انهاء" x=InputBox("ادخال اسماء الطلاب") Me.Listbox1.AddItem (x) Loop شكرا ليكم تحياتى اخوكم مارد عارف انكم كلكم عارفين الدالة دى :mad: بس رخامة وخلا ص Do While .... Loop.rar 8
Elsayed Bn Gemy قام بنشر مايو 26, 2015 الكاتب قام بنشر مايو 26, 2015 كتب الله لك في كل حرف اجرا وضاعفها عشرا وعشرا اللهم امين ولك مثل ما دعوت لى الفا الفا :smile:
yms12 قام بنشر مايو 27, 2015 قام بنشر مايو 27, 2015 جزاك الله خيرا وبارك في علمك وغفر لوالديك وبارك في ذريتك واهلك اجمعين
Elsayed Bn Gemy قام بنشر مايو 27, 2015 الكاتب قام بنشر مايو 27, 2015 جزاك الله خيرا وبارك في علمك وغفر لوالديك وبارك في ذريتك واهلك اجمعين اللهم امين لى ولك يا اخى الكريم شكرا لمرورك
راعي الغنم قام بنشر مايو 28, 2015 قام بنشر مايو 28, 2015 الله يسعد ايامك وينور دربك.. معرفة الاخرين لمعلومة لايعني ان تتردد عن نشرها للاخرين امثالي ولولم يكن لك الا شرف نشرها لكان يكفيك.. ومالفرق بين الدالة المذكورة ودالة for-next
Elsayed Bn Gemy قام بنشر مايو 28, 2015 الكاتب قام بنشر مايو 28, 2015 الله يسعد ايامك وينور دربك.. معرفة الاخرين لمعلومة لايعني ان تتردد عن نشرها للاخرين امثالي ولولم يكن لك الا شرف نشرها لكان يكفيك.. ومالفرق بين الدالة المذكورة ودالة for-next عمرك اطول من عمرى بجهز شرح ليه ان شاء الله بسيط زى دا
البدون جداً قام بنشر يونيو 24, 2015 قام بنشر يونيو 24, 2015 السلام عليكم ورحمة الله وبركاته.. الله يوفقك وجزاك الله خير . ( انا ماعرفها واستفدت منها وعسى ربي يرزقك اجر تعليمي انت وكل من استفدت منهم وأخص بالذكر العم الاستاذ ابوخليل الذي استفدت منه الكثير ولازلت ) وكذلك المكتبة البشرية الاستاذه زهره .... اللهم آمين
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.