![]() |
انا عايزها بجملة for next فقططططططططططططططط ممكن يااستاذ
|
اقتباس:
فقبل جملة for nextيجب أن يكون هناك شرط بجملة If يحقق مطلبك وهو كما يلى : كود الفردى بدأ بجملة شرطية لإختبار هل باقى قسمة العدد الأول على 2 يساوى 0 فهذا معناه أن العدد زوجى لذا يتم إضافة 1 للعدد الأول حتى يصبح العدد فردى ثم يتم إجراء الكود بطريقة طبيعية و كود الزوجى بدأ بجملة شرطية لإختبار هل باقى قسمة العدد الأول على 2 لا يساوى 0 فهذا معناه أن العدد فردى لذا يتم إضافة 1 للعدد الأول حتى يصبح العدد زوجى ثم يتم إجراء الكود بطريقة طبيعية |
سؤال هام
بعد تنفيذ الامر التالى for x =2 to 10 step 3
ما هى آخر قيمة للمتغير X هل هى 8 ام 11؟؟ فالقيمه 8 هى اخر قيمه لاخر حلقه تكراريه... والقيمه 11 هى القيمه التى بسبها تم الخروج من الحلقه التكراريه فايهما يتم تخزينه فى المتغير × ؟؟؟؟ و هل الامر سيتختلف اذا كان الناتج سيظهر داخل الحلقه التكراريه اى قبل next ? او كان الناتج سيظهر خارج الحلقه التكراريه بعد next ?كما هو الحال فى الامرين التاليين الاول : for x =2 to 10 step 3 Msgbox (x ) next الامر الثانى : for x =2 to 10 step 3 next Msgbox (x ) |
اقتباس:
Dim a , b , c as integer If a mod b = 0 then For c = a to b step2 Msgbox ( c ) Next End if بس ده لو زوجى |
اقتباس:
فى الكود الأول سيظهر ثلاث صناديق رسالة متتابعة بالقيم 2 ثم 5 ثم 8 فى الكود الثانى سيظهر صندوق رسالة وحيد بالقيمة 11 |
اقتباس:
تمام الكلام بس المشكلة فى الكود الاول يأتى بالنوايا قيمة x بعد انتهاء التكرار تخضع لنية واضع الامتحان هل القيمة الاخيرة التى تم عرضها داخل مربع الرسالة ام القيمة الفعلية التى انتهى عندها التكرار x = 11 ومن هنا يأتى الخلاف الدائم اما الكود الثانى فلا خلاف اطلاقا فالناتج بالتأكيد x = 11 |
اقتباس:
لأن واضع الإمتحان غالباً يأخذ سؤال من هنا أو هناك ويعجبه وبدون تفكير يضعه فى الإمتحان فيحدث القيل والقال كالعادة بعد كل امتحان لأى محافظة |
Try ...Catch تستخدم للتعامل مع الاخطاء - الاملائيه- المنطقيه - عند التشغيل ايهما اصح |
اقتباس:
|
ملحوظة هامة :
1 - لإكتشاف الأخطاء التى تحدث أثناء تنفيذ البرنامج والتعامل معها نستخدم الأمر Try Catch فقط 2 - لتفادى الأخطاء التى تحدث أثناء تنفيذ البرنامج والتعامل معها نستخدم الأمر Try Catch و IsNumeric |
كلمة me
كلمة me هل هى من الكلمات المحجوزة أأم أنها هى تعبر عن اسم النافذة ويمكن أين يعبر عن النافذة أى كلمة أخرى ولو هى تعبر عن النافذة بإذا كان البرنامج يحتوى على أكثر من نافذة فما هو الكلمات الآخرى التى تعبر عن النوافذ الآخرى
|
Me هى كلمة محجوزة تشير لنافذة النموذج Form الحالى الذى تكتب فيه الكود
بمعنى أنك لو بتكتب الكود داخل الـ Class التالى Public Class Form5 فإن Me تشير لنافذة النموذج Form5 بمعنى أنك لو بتكتب الكود داخل الـ Class التالى Public Class Form3 فإن Me تشير لنافذة النموذج Form3 |
اقتباس:
نعم أخي الفاضل كلمة Me هي كلمة من الكلمات المحجوزة وتشير الي النموذج الحالي |
الاخوة الأعزاء ..... أرجو الإجابة ..
في كتاب الوزارة وفي اسئلة الفصل الثاني الخاص بالتفرع وفي أسئلة صح أم خطا الجملة رقم 5 غير مفهومة وهي ...تستخدم جملة select case في حالة اختبار اكثر من تعبير شرطي بجملة شرطية واحدة ...للعلم اجاب عنها بانها جملة صحيحة وهي بالنسبة لي غير مفهومة وارى انه كان من الأولى ان يقول ..تستخدم المعاملات المنطقية في حالة اختبار اكثر من تعبير شرطي بجملة شرطية واحدة . ثم في السؤال الثالث اعلن عن المتغير من النوع single وبالتالي فانه سيقبل الاعداد العشرية وفي الشروط ترك فجوة بين كل تعبير وآخر مثلا في السؤال 64.4 هي قيمة غير موجودة لأنه حدد نهاية ما بعده ب 64 وما قبلها كان يبدأ ب 65 والمدهش انه اجاب عنها بانه " مقبول " بمعنى انه لغى الكسر ...أفيدونا يرحمكم الله ..وأشكركم .
|
ارجو شرح الفصل الثالث
|
بنسبة للسؤال الثالث في الفصل الثاني تم تعديل النهايات لتصبح 65 بدل من 64 و 75 بدل من 74 وهكذا فتصبح اجابة مقبول صحيحة في حالة 64.4 في الفصل الثاني بداخل الكتاب نجد أن If ...then .....Elseif تستخدم في حالة وجود أكثر من تعبير شرطي وفي الكتاب أيضا أن جملة Select Case تعمل مثل جملة If ...then .....elseif أم المعاملات المنطقية فتستخدم للربط بين التعبيرات الشرطية لتكوين الشروط المركبة |
اقتباس:
جزاكم الله خيراً كلام سليم تماماً |
هام وضروري
لو سمحتم حد يشرح السؤال السادس
عند كتابة الكود يحتاج المبرمج لوضع تعليق معين لا يتم تنفيذه لا بد ان يسبقه : 1- علامة ! او 2- Rem ما معني هذا ولا يوجد له شرح بالكتاب |
ارجو توضيح كيفيه الحصول على المتفير k
1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :
Dim N, K, C As Integer C = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End IF ارجو توضيح كيفيه الحصول على المتفير K |
اقتباس:
|
طلب زميل حل التدريب رقم 1 فى التدريبات العملية على الفصل الثانى ص 50 الخاص بعناصر الكيمياء فى مادة العلوم .
وقد طلب كتابة الكود بالستخدام جملة Select Case وتم تلبية طلبه ولكن كان الكود طويلاٍ بعض الشئ وقد وجدت كود بسيط لحل هذه المشكلة وذلك باستخدام أكثر من متغير مع جملة Select Case كما يلى : كود:
Public Class Form1 |
شكرا جزيلا للأستاذ / السيد شعبان .....
شكرا جزيلا للأستاذ / أحمد قرني ..... شكرا جزيلا للأستاذ / حسن الحاوي ..... جزيتم عنا كل خير ولكن في تمرين التقديرات الأستاذ سيد شعبان قال نغير النهايات لتصبح 85 بدلا من 84 وهكذا 75 بدلا من 74 و65 بدلا من 64 ما رايك لو غيرنا النهايات لتصبح 84.9 و75.9 و64.9 حتى لا يتم تكرار قيمة معينة مثل 65 مثلا التي اصبحت بداية التقدير جيد ونفس القيمة نهاية للتقدير مقبول ...صحيح انه سيختاره جيد وذلك لأنها ستقابله اولا في الشروط ...أشكركم جميعا وشكر خاص للاستاذ / حسن الحاوي على حل مثال عناصر العلوم باستخدام Select case ... |
محتاج ملخص للمنهج
محتاج ملخص للمنهج
|
محتاج ملخص للمنهج
|
الكتاب المدرسى هو أفضل ملخص
هوا فيه ملخص زى الكتاب |
ارجوكم محتاجة مساعدة
كيف احل السؤال الثالث فى الاختبار الاول بالكتاب المالسؤال الثالث : أجب عما يلى :
1 – حدد قيمة كل متغير بعد تنفيذ الكود Code التالى درسىDim N, K, C As IntegerC = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End |
1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :
Dim N, K, C As Integer C = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End IF ارجو توضيح كيفيه الحصول على المتفير K لايجاد قيمة K لابد من معرفة عدد مرات التكرار اولا من N 11 , 6 , 1 N 7 , 1 K عدد مرات التكرار 2 اذن 11 = N 7 = K 1 +C =C 11 =C |
1– حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :
Dim N, K, C As Integer C = 10 For N = 1 To 10 Step 5 K = K + N Next IF N >= C Then C = C + 1 End IF ارجو توضيح كيفيه الحصول على المتفير K لايجاد قيمة K لابد من معرفة عدد مرات التكرار اولا من N 11 , 6 , 1 N 7 , 1 K عدد مرات التكرار 2 اذن 11 = N 7 = K 1 +C =C 11 =C |
اقتباس:
.....C.....k.....N .....0.....0.....10 ------------------- .....1.....1.....10 .....6.....7.....10 ....11....7.....10 ....11....7.....11 |
اقتباس:
.....C.....k.....N _____________ .....0.....0.....0 .....0.....0.....10 ------------------- .....1.....1.....10 .....6.....7.....10 ....11....7.....10 _____________ ....11....7.....11 |
هام وضروري
س : إقرأ التعليمات الآتية : وبعد تنفيذها اجب Dim First As Integer = 20 , Second As Integer = 40 Dim Third As Integer = First + Second Dim Total As Integer If Third <= 50 Then Total = First + Second + Third Else First = 30 Second = 50 Total = First + Second + Third وبعد تنفيذها اوجد قيمة المتغير First و قيمة المتغير Second ناتج الشرط Third <= 50 قيمة المتغير Total الاجابة الاتية صحيح لا لا 1 ) قيمة المتغير First = 30 2 ) قيمة المتغير Second = 50 3 ) ناتج الشرط Third <= 50 = False 4 ) قيمة المتغير Total = 140 |
اقتباس:
_____________ .......20.........40............---.........--- .......20.........40............60.........--- .......20.........40............60..........0 ------------------ ناتج الشرط Third <= 50 = False و بالتالى ينفذ ما بعد Else .......30.........40............60..........0 .......30.........50............60..........0 .......30.........50............60..........140 |
جزاكم الله خيراً كلام سليم
ولكن مش المفروض المتغير الثالث = الاول + الثانى بعد else وهى 30 + 50 = 80 اذن المجموع 160 وشكرا |
اقتباس:
30+50+60 = 140 |
جزاكم الله خيراً كلام سليم
الله يبارك في حضرتك |
للأهمية القصوى انا محتاج شرح هذا التمرين
السلام عليكم اخى الفاضل الاستاذ عاطف حسان انا محتار فى اجابة هذا السالسؤال الرجاء من حضرتك الاجابة علية مع الشرح for i = 0 to 7 if (i mod 2 =0) thne 1- msgbox i+1 else if(i mod 3 =0) thne 2- msgbox i*1 else if(i mod 5 =0) thne 3- msgbox 2*1 else 4- msgbox i end if end sub |
الشرط الاول اذا كان i يقبل القسمة على 2 والباقى 0 اذا الشوط تتحقق فى 2 , 4 , 6 ويكون ناتج الشرط 2 , 4 , 6
الشرط الثانى اذا كان i يقبل على3 والباقى 0 يتحقق فى 3,6 ويكون ناتج الشرط 1,4 الشرط الثالث يقبل على 5 يتحقق فى 5 ويكون ناتج الشرط -1 الشرط الرابع 1 , 7 ويكون ناتج الشرط -3, 3 |
بس حضرتك فى كتاب الفائز غير كدة
|
اقتباس:
الشرط الثانى اذا كان i يقبل القسمة على3 والباقى 0 اذا الشرط يتحقق فى 3 فقط الشرط الثالث اذا كان i يقبل القسمة على 5 والباقى اذا الشرط 0 يتحقق فى 5 والخيار الإفتراضى الرابع ما بعد Else يتحقق فى 1 , 7 |
http://www.thanwya.com/vb/data:image...BJRU5ErkJggg==
السؤال هو ما يتم عرضه في lbl_display هو 15 كيف ؟؟؟؟؟ |
dim i as integer , sum as integer for i = 1 to 5 sum = sum + i next lbl_display . text = sum السؤال هو ما يتم عرضه في lbl_display هو 15 كيف ؟؟؟؟؟ |
اتمني الرد
|
اقتباس:
قيمة المتغير i = 1 , 2 , 3 , 4 , 5 , 6 ولكن عند القيمة i = 6 لن يكرر بل يخرج من التكرار المرة الاولى قيمة المتغير sum = sum + i وقيمة sum الابتدائية هى sum = 0 نقوم بجمعها على قيمة المتغير i = 1 ومنها تكون sum = 1 المرة الثانية قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 1 نقوم بجمعها على قيمة المتغير i = 2 ومنها تكون sum = 3 المرة الثالثة قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 3 نقوم بجمعها على قيمة المتغير i = 3 ومنها تكون sum = 6 المرة الرابعة قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 6 نقوم بجمعها على قيمة المتغير i = 4 ومنها تكون sum = 10 المرة الخامسة قيمة المتغير sum = sum + i وقيمة sum حاليا هى sum = 10 نقوم بجمعها على قيمة المتغير i = 5 ومنها تكون sum = 15 وعند القيمة i = 6 لن يقوم بالتكرار ومنها تكون قيمة المتغير sum = 15 اتمنى ان اكون قد وفقت فى شرح المثال |
جزاك الله خير والحمد لله الشرح تمام تسلم الايادي |
ممكن حل المسألة الحسابية ديه
2*2^(1+1)2/3+2-1*4+2
|
MsgBox(2 + 4 * 1 - 2 + 3 / 2 * (1 + 1) ^ 2 * 2)
الناتج 16 |
صح او خطأ
لا يجوز ان يحتوي الاسم علي الشرطي السفلي(_) أكمل علامة ...................... توضع في نهاية سطر الكود لكتابة الكود علي اكثر من سطر تخير يبدأ اسم المتغير بــ ( الشرطة السفلي - كلمة محجوزة - حرف - كل من الاختيار الاول والثالث صحيح ) الاسطر التي تبدأ بــ ......... او ...... تسمي ملاحظات او تعليقات ويهملها المترجم عند ترجمة كود البرنامج أ - Dim أو As ب - Const أو Dim ج - (‘) أو Rem د - Rem أو Dim |
0.7 الاجابة
|
اقتباس:
أو الأصح -0.6666666666666 |
أسئلة جميلة وخصوصاً السؤال الأخير أستاذ أحمد
بس لو تسمح لى تعليق على السؤال الثالث ألا توحى الإختيارات على أن الإجابة الصحيحة هى ( كل من الاختيار الاول والثالث صحيح ) |
جميع الأوقات بتوقيت GMT +2. الساعة الآن 01:49 AM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.