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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 كتب الله لك في كل حرف اجرا وضاعفها عشرا وعشرا رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 26, 2015 الكاتب مشاركة قام بنشر مايو 26, 2015 كتب الله لك في كل حرف اجرا وضاعفها عشرا وعشرا اللهم امين ولك مثل ما دعوت لى الفا الفا :smile: رابط هذا التعليق شارك More sharing options...
yms12 قام بنشر مايو 27, 2015 مشاركة قام بنشر مايو 27, 2015 جزاك الله خيرا وبارك في علمك وغفر لوالديك وبارك في ذريتك واهلك اجمعين رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 27, 2015 الكاتب مشاركة قام بنشر مايو 27, 2015 جزاك الله خيرا وبارك في علمك وغفر لوالديك وبارك في ذريتك واهلك اجمعين اللهم امين لى ولك يا اخى الكريم شكرا لمرورك رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 28, 2015 مشاركة قام بنشر مايو 28, 2015 الله يسعد ايامك وينور دربك.. معرفة الاخرين لمعلومة لايعني ان تتردد عن نشرها للاخرين امثالي ولولم يكن لك الا شرف نشرها لكان يكفيك.. ومالفرق بين الدالة المذكورة ودالة for-next رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 28, 2015 الكاتب مشاركة قام بنشر مايو 28, 2015 الله يسعد ايامك وينور دربك.. معرفة الاخرين لمعلومة لايعني ان تتردد عن نشرها للاخرين امثالي ولولم يكن لك الا شرف نشرها لكان يكفيك.. ومالفرق بين الدالة المذكورة ودالة for-next عمرك اطول من عمرى بجهز شرح ليه ان شاء الله بسيط زى دا رابط هذا التعليق شارك More sharing options...
أحمد عبد العاطي رشيدي قام بنشر مايو 28, 2015 مشاركة قام بنشر مايو 28, 2015 جزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
البدون جداً قام بنشر يونيو 24, 2015 مشاركة قام بنشر يونيو 24, 2015 السلام عليكم ورحمة الله وبركاته.. الله يوفقك وجزاك الله خير . ( انا ماعرفها واستفدت منها وعسى ربي يرزقك اجر تعليمي انت وكل من استفدت منهم وأخص بالذكر العم الاستاذ ابوخليل الذي استفدت منه الكثير ولازلت ) وكذلك المكتبة البشرية الاستاذه زهره .... اللهم آمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.