تتبع تنفيذ الاكواد
Dim x, total, limit As Integer(limit = Integer.Parse(Me.txtLimit.Textx = 1Do While x <= limittotal = total + xx = x + 2Loop( "##",Me.Label2.Text = Format(total
http://www.egyedu.com/vb/attachment....1&d=1238670392
عرض للطباعة
تتبع تنفيذ الاكواد
Dim x, total, limit As Integer(limit = Integer.Parse(Me.txtLimit.Textx = 1Do While x <= limittotal = total + xx = x + 2Loop( "##",Me.Label2.Text = Format(total
http://www.egyedu.com/vb/attachment....1&d=1238670392
عمليات التتبع
هي ايجاد القيم في كل خطوة من خطوات البرنامج
الخطوة 1 سيكون عندنا 3 متغيراتx و total و Limt
الخطوة 2 قيمة limt حسب الشكل 8
الخطوة 3 قيمة x هي 1
الخطوة 4 نري 1 اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها 1 الي total اخر قيمة صفر وتضعها في total ليتكون 1
الخطوة 6 نزيد x ب 2 فتكون 3
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 3 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها3 الي total اخر قيمة 1 وتضعها في total ليتكون 4
الخطوة 6 نزيد x ب 2 فتكون 5
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 5 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها5 الي total اخر قيمة 4 وتضعها في total ليتكون 9
الخطوة 6 نزيد x ب 2 فتكون 7
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 7 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها7 الي total اخر قيمة 9 وتضعها في total ليتكون 16
الخطوة 6 نزيد x ب 2 فتكون 9
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 59 اخر قيمة لـ x ليست اقل من او تساوي 8 اذن الشرط خطأننفذ ما بعد Loop
الخطوة 8 نظهر قيمة total مكان label2 اي تظهر 16 كما بالشكل
الحل سيكون بجدول
http://www.egyedu.com/vb/attachment....1&d=1238672187
مجهود رائع ونرجو المزيد
شكراااااااااااااااااا
السلام عليكم
اعجبنى جدا هذا المنتدى
بارك اللهم فيكم على هذا المجهود
الف شكر على هذا المثال هذا ما كنت احتاجه
tricor price fenofibrate 160mg without prescription fenofibrate for sale online
purchase ketotifen ziprasidone 80mg pills buy imipramine generic
mintop generic buy flomax generic cheap erectile dysfunction pills online
purchase aspirin without prescription order aspirin 75 mg without prescription buy imiquad generic
how to get dipyridamole without a prescription gemfibrozil tablet order pravastatin 20mg
purchase florinef generic dulcolax online buy imodium uk
buy generic prasugrel online buy tolterodine 1mg pills tolterodine canada
buy prilosec tablets prilosec online order order generic metoprolol
buy cenforce 50mg online cheap cost naprosyn buy chloroquine 250mg sale
omnicef pills purchase cefdinir purchase prevacid for sale
accutane 40mg tablet buy amoxil 500mg pill zithromax for sale online
online casinos for real money slots games free buy generic furosemide
free online blackjack no download levothyroxine tablet levothyroxine oral