يبليز لازم افهمها ضرووووووووووورى

[زياد ناجى]

انا مش فاهم اوامر التكرار خالص
بليز اى مستر يفهمهالى بس زى ما بيقولى بالبلدى

[حسام صبرى]

المشاركة الأصلية كتبت بواسطة زياد ناجى

انا مش فاهم اوامر التكرار خالص
بليز اى مستر يفهمهالى بس زى ما بيقولى بالبلدى

بص ياعزيزى الموضوع سهل جدا
تعال تنفق ان انت كل يوم مفروض تروح المدرسة صح وتيجى كمان من المدرسة كل يوم المفروض تعمل كده لحد لما يتحقق شرط معين وهو الحصول على الاجازة هو ده المقصود بالاوامر التكرار مجموعة الاوامر التى تؤدى الى تكرار تنفيذ امر معين ( مرواحك الى المددرسة ) حتى يتحقق شرط معين ( وهو حصولك على الاجازة ) عندها يتوقف التكرار .
وكل اوامر التكرار ملغية بالاستناء الامر for .................. next وهو امر يستخدم لتكرار تنفيذ امر معين عدد من المرات حتى يتحقق الشرط وعندها يتوقف عن التكرار .
الصغة العامة للامر for ................. next
for counter= start to end (step increment)
statement 1
statement2
next
طبعا انت مش فاهم حاجة هفهمك متخفش الموضوع موضوع فهم وليس حفظ
for كلمة تستخدم لبداية التكرار
next كلمة تستخدم برافو للنهاية التكرار
counter متغير حسابى او رقمى يستخدم لمعرفة عدد مرات التكرار
step increment امر اختيارى يعبر عن مقدار الزيادة بالنسبة للتكرار ولو مش موجود يتم التكرار بمقدار واحد
ندى مثال علشان تفهم صلى على النبى :- for I=2TO6 step2
for هنا تستخدم لى (قول برافو عليك) للبداية التكرار
I هى العداد (counter) المتغير الحسابى
2 ( برافوا ) هى القيمة الابتدائية 6 هى القيمة النهائية step هى مقدار الزيادة فى المسالة وتزيد هنا بمقدار 2 لان فيه رقم 2 بجوار كلمة
step
الموضوع سهل خلاص :- تعالى بقى ياعزيزى نحسب عدد مرات التكرار فى المثال السابق ده :-for I=2TO6 step2
لابد نعرف حاجة كمان مهمة وهى متى يتوقف التكرار :- يتوقف التكرار عندما تكون القيمة الابتدائية اكبر من القيمة النهائية وعندها يتوقف التكرار ويتم تنفيذ اول امر بعد كلمة Next .
ومتى يستمر التكرار :- يستمر التكرار عندما تكون القيمة الابتداية اضغر من اوتساوى القيمة النهائية وعندها يستمر التكرار ويتم تكرار الجمل التى بين كلمة FORوكلمة NEXT مش هقدر اشرح اكثر من كده علشان تفهم اوعدك ان انا اكمل بس بشرط تفهم دول وبعدين نكمل باقى الشرح بالتوفيق ليكى ولكل اصحابك

[Ahmed_Barakat96]

ألف شكر يا مستر وياريت if مع الادوات بتاعتها الي متلغتش

[shasah]

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

[حسام صبرى]

المشاركة الأصلية كتبت بواسطة Ahmed_Barakat96

ألف شكر يا مستر وياريت if مع الادوات بتاعتها الي متلغتش

حاضر بصى ياعزيزى
IF تستخدم مع الادولت radio butten ومع الاداة check box
كلام سهل خالص شوف انت الاول اهلوى ولازملاكاوى لو انت متابع كورة وبتدخل على مواقع
سعات تلاقى موقع عامل احصائية بيقول مثلا مين الى هيفوز بالدورى وكاتب كده الاهلى وتحته الزمالك وتحته الاسماعيلى انت لو اهلوى هتختار الاهلى ولو زملاكاوى هتختار الزمالك ولو اسمعلاوى اختار الاسماعيلى صح
طيب سوال هنا حد ينفع يختار اختيارين يعنى يختار الاهلى ويختار الزمالك لا طبعا مش هينفع هو اختيار واحد فقط هو ده معنى الاداة radio butten شوف الموضوع سهل ازاى اذا تعريف الاداة radio butten هي أداة تتيح للمستخدم مجموعة من البدائل واختيار بديل واحد فقط
اما check box أداة تتيح للمستخدم مجموعة من البدائل واختيار اى عدد منهم
مثال عليه لو انت مثلا طلب منك ان تقول رايك فى المدرسة بتعتك وكانت الاختيارات (جميلة نظيفة ممتميزة افضل المدارس فيها احسن طلاب ) انت لو طلب منك ان تختار من الاختيارات السابقة ممكن تختار جميلة وممكن نختار جميلة وممتميزة وكمان نظيفة هو ده معنى check box

[mr metoo]

الادوات ملغيه

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



أمثلة
قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
تصميم الواجهة كما سبق في المثال السابق
ولكن كتابة الكود بالشكل
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next

for………..next تلاحظ الفرق في كتابة الكود بواسطة الأمر

مثال : قم بطباعة الأعداد الفردية من 1 إلى 5

Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next

قم بطباعة الأعداد الفردية من 5 إلى 1

Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)

Next

لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج

قم بجمع الأعداد من 1 إلى 10

Dim x , sum as integer
Sum=0
For x = 1 to 10
sum=sum +x

Next

Label1.text=sum

حيث label1 هي الأداة التي سيظهر فيه الناتج على الفورم

ملاحظة لماذا لا نضع الجملة Label1.text=sum قبل next
الإجابة لأننا نريد إظهار المجموع الكلى مرة واحدة ولا نريد إظهار جمع كل تكرار
ملحوظة : فى الخطوة sum=0 ممكن متكتبش لاننا فى السطر الاول قيمة المتغيرين x , sum الابتدائية تساوى صفر كما اوضحنا سابقاً

[حسام صبرى]

المشاركة الأصلية كتبت بواسطة mr metoo

الادوات ملغيه

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



أمثلة
قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
تصميم الواجهة كما سبق في المثال السابق
ولكن كتابة الكود بالشكل
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next

for………..next تلاحظ الفرق في كتابة الكود بواسطة الأمر
مثال : قم بطباعة الأعداد الفردية من 1 إلى 5

Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next

قم بطباعة الأعداد الفردية من 5 إلى 1

Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)

Next

لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج

قم بجمع الأعداد من 1 إلى 10

Dim x , sum as integer
Sum=0
For x = 1 to 10
sum=sum +x

Next

Label1.text=sum

حيث label1 هي الأداة التي سيظهر فيه الناتج على الفورم

ملاحظة لماذا لا نضع الجملة Label1.text=sum قبل next
الإجابة لأننا نريد إظهار المجموع الكلى مرة واحدة ولا نريد إظهار جمع كل تكرار
ملحوظة : فى الخطوة sum=0 ممكن متكتبش لاننا فى السطر الاول قيمة المتغيرين x , sum الابتدائية تساوى صفر كما اوضحنا سابقاً

group box فقط هى الى اثرائى

[زياد ناجى]

جزاك الله خيرا بجد ربنا يجعله فى ميزان حسنات حضرتك

[حسام صبرى]

المشاركة الأصلية كتبت بواسطة زياد ناجى

جزاك الله خيرا بجد ربنا يجعله فى ميزان حسنات حضرتك

اللهم امين
وبالتوفيق ليك ولكل الطلاب