http://www2.0zz0.com/2013/11/03/06/591140051.gif


الرجاء من السادة والأخوة الأعضاء أقسام الحاسب والمنتدي الكرام
تم انشاء هذا الموضوع لكي يكون مخصص لأي طلب من حضراتكم ((أياً كان نوع هذا الطلب)) حتي يتم الرد عليه بسهوله وعدم تكرار المشاركات للموضوعات الواحدة
فأي طلب لحضراتكم
مثل ((طلب مذكرة - الاجابة علي أي سؤال -شرح جزء من المنهج ..........الخ))
وذلك حتي تكون أقسام الحاسب بالمنتدي في أفضل صورة بإذن الله

توكل على بركة الله
وهذا رابط
لتجميع جميع طلبات الأعضاء وإجابتها النموذجية للعام الدراسى 2012 / 2013 (http://www.mediafire.com/view/qj3hfz335yxdq8d/%D8%AA%D8%AC%D9%85%D9%8A%D8%B9_%D9%84%D8%B7%D9%84% D8%A8%D8%A7%D8%AA_%D8%A7%D9%84%D8%A3%D8%B9%D8%B6%D 8%A7%D8%A1_%D9%84%D9%84%D8%B9%D8%A7%D9%85_%D8%A7%D 9%84%D8%AF%D8%B1%D8%A7%D8%B3%D9%8A_2013.doc)

توكل على بركة الله
وهذا رابط
لتجميع جميع طلبات الأعضاء وإجابتها النموذجية للعام الدراسى 2012 / 2013 (http://www.mediafire.com/view/qj3hfz335yxdq8d/%d8%aa%d8%ac%d9%85%d9%8a%d8%b9_%d9%84%d8%b7%d9%84% d8%a8%d8%a7%d8%aa_%d8%a7%d9%84%d8%a3%d8%b9%d8%b6%d 8%a7%d8%a1_%d9%84%d9%84%d8%b9%d8%a7%d9%85_%d8%a7%d 9%84%d8%af%d8%b1%d8%a7%d8%b3%d9%8a_2013.doc)

بارك الله في أخي الفاضل حسن الحاوي علي هذا المجهود الرائع حقاً
جعل الله هذا العمل في ميزان حسانتك يوم القيامة بإذن الله تعالي

مشكور جدا على المجهود الرائع

السلام عليكم
من فضلكم عايز أعرف أذا كان فيه أى تعديلات على منهج الحاسب الألى للصف الثالث الأعدادى لسنة 2013-2014 عن منهج السنة اللى فاتت

إطمئن المنهج كما هو لم يتغير

اريد ان اعرف هل يمكن ان يخرج من شكل المعين ثلاث خطوط اتجاه مع اعطاء مثال

اريد ان اعرف هل يمكن ان يخرج من شكل المعين ثلاث خطوط اتجاه مع اعطاء مثال
https://fbcdn-sphotos-f-a.akamaihd.net/hphotos-ak-ash4/1478977_566441036770289_36034560_n.jpg

:022yb4: شكرا للرد وجزاكم الله خيرا

دفتر تحضر الحاسب الالي الترم الثاني للصف الثالث الاعدادي

يا ريت نواتج التعلم للتيرم الثانى ......الصف الثالث الاعدادى طبعاً
وجزاكم الله خيراً

سلام عليكم ورحمة الله وبركاته
ياريت يا جماعة حد ينزلنا
مزكرة الشروق
كان معانا في الترم الاول بجد مزكرة محترمة

سؤال وأرجو الرد بسرعة
هل منهج الحاسب الآلى للصف الثالث الترم الثانى به تعديل عن العام الماضى ؟ أرجو الرد بسرعة

المنهج كما هو تماما لا يوجد به اى تعديل

لو سمحت انا بحاجه لمذكره او فيديو يشرح اول درسين بالصور بس باللغه الانجليزيه
وشكرا علي وقتكم

لو سمحتم عاوزين بنك الاسئلة للترم الثاني عربي ولغات

ياريت التحضير الالكتروني للصف الثالث الاعدادي الترم التاني

ياريت التحضير الالكتروني للصف الثالث الاعدادي الترم التاني
حضرتك يوجد اكثر من تحضير الكتروني للصف الثالث لك ان تختار
الاول خاص بالاستاذ اسامه عيسى
http://www.thanwya.com/vb/showthread.php?p=5717337#post5717337
الثاني خاص بالاستاذه مروه سامي
http://www.thanwya.com/vb/showthread.php?t=579085

السلام عليكم ورحمة الله وبركاته
ياريت تحضير التيرم الثاني
ولكم منا جزيل الشكر

السلام عليكم ورحمة الله وبركاته
ياريت تحضير التيرم الثاني
ولكم منا جزيل الشكر

حضرتك يوجد اكثر من تحضير الكتروني للصف الثالث لك ان تختار
الاول خاص بالاستاذ اسامه عيسى
http://www.thanwya.com/vb/showthread.php?p=5717337#post5717337
الثاني خاص بالاستاذه مروه سامي
http://www.thanwya.com/vb/showthread.php?t=579085



بارك الله لكم جميعاً

لو سمحت عايز مذكرة الترم الثاني تجريبي لغات
وجزاك الله كل خير

المنهج كما هو تماما لا يوجد به اى تعديل

تحياتى لحضرتك استاذ أحمد
لو عند حضرتك اسئلة الوزارة للترم الثانى وليست نماذج الكتاب نرجو من حضرتك ترفعها الى المنتدى

تحياتى لحضرتك استاذ أحمد
لو عند حضرتك اسئلة الوزارة للترم الثانى وليست نماذج الكتاب نرجو من حضرتك ترفعها الى المنتدى




اهلا بك اخى محمد
ولكن للاسف الوزارة لم تنزل اى تدريبات للترم الثانى

اهلا بك اخى محمد
ولكن للاسف الوزارة لم تنزل اى تدريبات للترم الثانى

جزاكم الله خيرا ً أنا متشكر لإهتمام حضرتك

بارك الله لكم جميعاً
شكراَ أخي العزيز حسن علي التوضيح

عايز مذكرة شرح 3ع بسى تكون ملف وورد ةمش pdf

عايز مذكرة شرح 3ع بسى تكون ملف وورد ةمش pdf

على هذا الرابط
http://www.thanwya.com/vb/showthread.php?t=495387

عايز مذكرة شرح 3ع بسى تكون ملف وورد ةمش pdf
أخي العزيز هذا بالاضافة الي العمل الموجود بالمشاركة السابقة من الاخ الفاضل احمد قرني
وهذا العمل للأستاذ الجليل حسن الحاوي وهو بصيغة الورد وده رابط المطلوب
http://www.thanwya.com/vb/showthread.php?t=506470

السلام عليكم
ممكن امتحان محافظة القاهرة 2012-2013 الترم الثانى
و شكراً

السلام عليكم
ممكن امتحان محافظة القاهرة 2012-2013 الترم الثانى
و شكراً

على هذا الرابط
http://www.thanwya.com/vb/showthread.php?t=522281

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

السلام عليكم ورحمه الله وبركاته
لو امكن عايز مذكرة حاسب الي تجريبي لغات 3 ع ترم ثاني
جزاكم الله خير

اخوانى الاعزاء اعضاء المنتدى سلام من الله عليكم جميعا ورحمته وبركاته وبعد
اريد استفسارا بما أن الدراسة متأجلة فهل هناك اتجاه نحو حذف بعض اجزاء من المنهج ؟ ام سيتم تدريس المنهج كاملا ؟ لو اى احد من حضراتكم عنده معلومة ياريت يقول لنا وجزاكم الله خيرا.

الوزير قال إن حيتحذف من المناهج ولن يتم ضغط المناهج

اخوانى الاعزاء اعضاء المنتدى سلام من الله عليكم جميعا ورحمته وبركاته وبعد
اريد استفسارا بما أن الدراسة متأجلة فهل هناك اتجاه نحو حذف بعض اجزاء من المنهج ؟ ام سيتم تدريس المنهج كاملا ؟ لو اى احد من حضراتكم عنده معلومة ياريت يقول لنا وجزاكم الله خيرا.


الوزير قال إن حيتحذف من المناهج ولن يتم ضغط المناهج


سمعت تصريح من رئيس قطاع التعليم العام ان الحذف سيكون داخلى من المديريات التعليمية وذلك حسب ما تم تدرسيه داخل كل محافظة

مش عارف يعنى ايه الكلام ده طالما التاجيل للجميع يبقى المفروض ينزل توزيع للمنهج من الوزارة

انا بحاجة الى امتحانات المحافظات عام 2013 سريعا وشكرا لانى اقوم بعمل كتاب

سمعت تصريح من رئيس قطاع التعليم العام ان الحذف سيكون داخلى من المديريات التعليمية وذلك حسب ما تم تدرسيه داخل كل محافظة

مش عارف يعنى ايه الكلام ده طالما التاجيل للجميع يبقى المفروض ينزل توزيع للمنهج من الوزارة


فعلاً اخي الهزيز احمد هذا ايضاً ما سمعته بداخل الادارة التابع لها ولكن حتي الان لا يعلم احد اي شئ

السلام عليكم ورحمة الله وبركاته
الرجاء من الاخوة الزملاء
اريد المحزوووف من منهج الكمبيوتر للصفوف الاول والثالث

الف شكر ويارب دايما في المقدمه

من وجه ناس الخبراء الموجودين

تفتكروا هيلغوا اية ويسيبوا اية ؟

اكيد حيلغوا اي شئ اساسي في الاجزاء التى لن تلغى ولا يستطيع الطالب فهمها بدون الملغى

السلام عليكم ياجماعه لو سمحتم عايزة اعرف اية الملغى الترم التانى للصف الثالث الاعدادى ف الكمبيوتر واكيد الفصل الخامس التعدى الاليكترونى ملغى زى كل سنه من يوم ما نزل وهو بيتلغى

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

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

تحضير الحاسب الالى ترم اول وترم تانى الصف الاول والثانى والثالث الاعدادى ضرورى جدا جدا

اعتقد انهم لما يحبوا يلغوا يشيلوا الخامس اللي هو اصلا اثرائي في معظم المحافظات مش بتجيبوا والفصل الرابع لانه فصل منفصل تمام عن باقي المنهج من حيث محتواه
انما الفصل الاول مستحيل يتلغي منه لانه اساس منهج الترم التاني بالكامل
والفصل التاني والثالث تطبيق عملي علي ما تم دراسته بالترم الاول من خرائط تدفق ( تفرع - حلقات تكراريه ) وبكدا علي الاقل يكون الطالب مصدق انه كان بيدرس الخرائط عشان يحولها في الترم التاني لبرنامج حقيقي
وبكدا يبقي استفاد شيئا ما بمنهج الترمين معا .....لكن لو هما بقي شالو اجزاء اجزاء من كل فصل يبقي حرام لان اول 3 فصول بصراحه بيكملوا بعض وامتداد للترم الاول
يعني يا ريت اللي يلغي يشيل الرابع والخامس ويريح دماغه

تحضير الحاسب الالى ترم اول وترم تانى الصف الاول والثانى والثالث الاعدادى ضرورى جدا جدا
تحضير الصف الثالث ترم ثان
http://www.thanwya.com/vb/showthread.php?t=579396

تحضير الصف الاول والثاني ترم ثان
http://www.thanwya.com/vb/showthread.php?t=398204

اعتقد انهم لما يحبوا يلغوا يشيلوا الخامس اللي هو اصلا اثرائي في معظم المحافظات مش بتجيبوا والفصل الرابع لانه فصل منفصل تمام عن باقي المنهج من حيث محتواه
انما الفصل الاول مستحيل يتلغي منه لانه اساس منهج الترم التاني بالكامل
والفصل التاني والثالث تطبيق عملي علي ما تم دراسته بالترم الاول من خرائط تدفق ( تفرع - حلقات تكراريه ) وبكدا علي الاقل يكون الطالب مصدق انه كان بيدرس الخرائط عشان يحولها في الترم التاني لبرنامج حقيقي
وبكدا يبقي استفاد شيئا ما بمنهج الترمين معا .....لكن لو هما بقي شالو اجزاء اجزاء من كل فصل يبقي حرام لان اول 3 فصول بصراحه بيكملوا بعض وامتداد للترم الاول
يعني يا ريت اللي يلغي يشيل الرابع والخامس ويريح دماغه
نحن في انتظار المغلي حتي الان لجميع المراحل وسوف يتم نشرها فور اقرارها بإذن الله بالقسم

ياريت حد يعرفنا ايه المجذوف

لسه مفيش اى حاجه عن حذف اى شئ من المنهج الى الان

مشكوووووووووووووور

ياريت حد يعرفنا ايه المجذوف
نحن في انتظار المغلي حتي الان لجميع المراحل وسوف يتم نشرها فور اقرارها بإذن الله بالقسم

ضع علامه صح او خطأ مع ذكر السبب
الرمز " " يرمز إلى قيمة حرفية فارغة

الاجابة صحيحة
لانه يتم كتابة القيمة النصية بين هاتان العلامتين
وفى هذه لم يكتب بداخلها
اذن فهى فارغة فاضية يعنى

خطأ فبينهما مسافة واحدة
والصحيح تكتب هكذا
"" وليس هكذا " "

ممكن نعرف الاجزاء الملغية من المنهج فى التيرم التانى ؟

لم يتم تحديد الملغى من المنهج حتى الآن
وإن كان من المرجح حذف الفصل الرابع والخامس

ممكن اسأل سؤال هو فى اخبار اكيدة عن جعل مادة الحاسب الالى مادة نشاط من العام الدراسى القادم ؟؟؟؟؟؟

الاجابة صحيحة
لانه يتم كتابة القيمة النصية بين هاتان العلامتين
وفى هذه لم يكتب بداخلها
اذن فهى فارغة فاضية يعنى

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

خطأ فبينهما مسافة واحدة
والصحيح تكتب هكذا
"" وليس هكذا " "
جزاكم الله خيرا

1- 3*(3* (1-1 ))) يكون .....................................
2- 4*5 -2-3 =...............................................

1- 3*(3* (1-1 ))) يكون .....................................
2- 4*5 -2-3 =...............................................


العملية الاولى ناتجها -1

والعملية الثانية تاتجها -23

ممكن توضيح طريقة الحل من فضلك استاذ/ احمد من فضلك

ممكن توضيح طريقة الحل من فضلك استاذ/ احمد من فضلك

( ( 1-1) * 3 ) * 3 – 1

1- تنفيذ الاقواس الداخلية
( 0 * 3 ) * 3 – 1
2- فك الاقواس
0 * 3 – 1
3- عملية الضرب
0 – 1
4- عملية الطرح والناتج -1


2 – 3 – 5 * 4 – 2

1- عملية الضرب
2 – 3 – 20 – 2
2- الطرح والناتج
-1 – 20 – 2 = - 23

الحل فى المرفقات عشان الارقام هناك متلغبطة

بارك الله فيك اخى احمد

اريد كتاب حاسب 3 اعدادى لغات ياريت اللنك

اريد كتاب حاسب 3 اعدادى لغات ياريت اللنك


رابط لكتاب المدرسة نسخة عربى + نسخة انجليزى

http://www.mediafire.com/download/cm8byqahw58yiay/%D9%83%D8%AA%D8%A7%D8%A8+%D8%A7%D9%84%D8%AA%D8%B1% D9%85+%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89++%28+%D 8%B9%D8%B1%D8%A8%D9%89+%2B+%D8%A7%D9%86%D8%AC%D9%8 4%D9%8A%D8%B2%D9%89+%29.rar

مش عارف اقولك اية يا استاذ احمد قرنى دايما ليك مجهود كبير كل سنة فى هذا المنتدى ربنا يبارك فيك

لو فية حل الوزارة حاسب 3 لغات

لو فية حل الوزارة حاسب 3 لغات

للاسف مفيش نسخة للحل بالنسبة للغات

للاسف مفيش نسخة للحل بالنسبة للغات

اخى احمد سلام من الله عليكم ورحمته وبركاته ارجو التوضيح هل الدالة Isnumeric مقررة ام تم حذفها لأن بعض الاخوة بتقول تم حذفها والبعض يقول لا

لو سمحتم امتحانات المحافظات السنة الماضية ( عربي وانجليزي )
ولة في أسئلة جديدة
ياريت من فضلكم أسئلة عربي وانجليزي للغات

لو سمحتم امتحانات المحافظات السنة الماضية ( عربي وانجليزي )
ولة في أسئلة جديدة
ياريت من فضلكم أسئلة عربي وانجليزي للغات
إمتحانات محافظات 3 ع تيرم ثانى 2012 2013 (http://www.thanwya.com/vb/showthread.php?t=587848)

اخى احمد سلام من الله عليكم ورحمته وبركاته ارجو التوضيح هل الدالة Isnumeric مقررة ام تم حذفها لأن بعض الاخوة بتقول تم حذفها والبعض يقول لا


وعليكم السلام اخى محمد
الدالة مشروحة بالتفصيل فى الفصل الثانى
وما حذف من الفصل الثانى المعاملات المنطقية و Select Case فقط

وعليكم السلام اخى محمد
الدالة مشروحة بالتفصيل فى الفصل الثانى
وما حذف من الفصل الثانى المعاملات المنطقية و select case فقط


جزيتم عنا كل خير

ياريت يا جماعة بعد اذنكم انا عاوز توزيعة منهج الصف الثالث للترم الثانى بعد الحذف

اضغط هذا الرابط (http://portal.moe.gov.eg/documents/computer.pdf)
http://www6.0zz0.com/2014/03/07/15/124270999.jpg

السلام عليكم ورحمة الله وبركاته
أرجوكم توضيح الملغي للصف الأول والثاني الإعدادي بشئ من التفصيل
أدامكم الله وحفظكم

الموضوع في غاية الاهمية يا أخواني فلا تبخلوا بالرد ارجوكم

الموضوع في غاية الاهمية يا أخواني فلا تبخلوا بالرد ارجوكم

توزيع مناهج الكمبيوتر لجميع المراحل
فى المرفقات

مشكور أستاذ أحمد

Dim m, x As Integer

x = 1
For m = 0 To 7 Step 3
x = x * 2
next
قيمة M هى
قيمة X هى

Dim m, x As Integer

x = 1
For m = 0 To 7 Step 3
x = x * 2
next
قيمة M هى
قيمة X هى


قيمة m = 9 وقيمة x = 8

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

ممكن حد من الاساتذة الافاضل او المشرفين الكرماء يدينا رابط نظيف للبرنامج نفسه اللى المفروض الولاد يتدربوا عليه فى المدارس visual basic dot net

مالفرق بين integer و byte ؟

وليه العدد 4 وضع في النوع integer بدلا من byte ؟

احسب قيمة المتغيرات التالية
dim x as integer = 2.5
dim w as single = 5
x=x+2
x= x^2
w= x mod 2

احسب قيمة المتغيرات التالية
dim x as integer = 2
dim w as single = 5
x=x+2
x= x^2
w= x mod 2

مالفرق بين القيم السابقة ؟

الحذف موجود علي موقع الوزارة من مدة ياجماعة

الفصل الرايع والخامس ملغي بالكامل

مالفرق بين integer و byte ؟

وليه العدد 4 وضع في النوع integer بدلا من byte ؟

احسب قيمة المتغيرات التالية
dim x as integer = 2.5
dim w as single = 5
x=x+2
x= x^2
w= x mod 2
http://www.thanwya.com/vb/style12/buttons/quote.gif (http://www.thanwya.com/vb/newreply.php?do=newreply&p=5786531)

اين الردود ياحضرات ؟

عاوز تمارين جامدة علي اولوية تنفيذ العمليات الحسابية

المنهج ولع بالكامل
عليه العوض ومنه العوض

عشانا عليك يارب

المقرر فصلين فقط الاول والثاني وجملة for...................... next من الفصل الثالث
منك للي اكلت دراع جوزها ياللي في بالي
ربنا يجعل كلامي خفيف عليه

انا عايز التحضير الالكترونى التيرم الثانى يا ريت

انا عايز التحضير الالكترونى التيرم الثانى يا ريت
ده حضرتك رابط التحضير المطلوب
http://www.thanwya.com/vb/showthread.php?t=579396

احسب قيمة المتغيرات التالية
dim x as integer = 2.5
dim w as single = 5
x=x+2
x= x^2
w= x mod 2
dim x as integer = 2.5......x=2
dim w as single = 5.....w=5
x=x+2......x=4
x= x^2....x=16
w= x mod 2.....w=0
فى الأمر الأول تم تحول القيمة العشرية 2.5 إلى قيمة عددية صحيحة بالتحويل الضمنى ( إلى أقرب عدد صحيح ) لتصبح قيمتها 2

احسب قيمة المتغيرات التالية
dim x as integer = 2
dim w as single = 5
x=x+2
x= x^2
w= x mod 2
dim x as integer = 2.5......x=2
dim w as single = 5.....w=5
x=x+2......x=4
x= x^2....x=16
w= x mod 2.....w=0

احسب قيمة المتغيرات التالية
dim x as integer = 2.500001
dim w as single = 5
x=x+2
x= x^2
w= x mod 2
الإجابة
dim x as integer = 2.500001......x=3
dim w as single = 5.....w=5
x=x+2......x=5
x= x^2....x=25
w= x mod 2.....w=1
فى الأمر الأول تم تحول القيمة العشرية 2.500001 إلى قيمة عددية صحيحة بالتحويل الضمنى ( إلى أقرب عدد صحيح ) لتصبح قيمتها 3

على فكرة المثال الأول والثالث غير مقررين على الطلبة
هذا للعلم

مالفرق بين integer و byte ؟

وليه العدد 4 وضع في النوع integer بدلا من byte ؟
هما نوعين من أنواع البيانات العددية الصحيحة
Byte هذا النوع يقبل البيانات العددية الصحيحة المحصورة بين 0 و 255 . ويشغل فى الذاكرة Ram بايت وحد
Integer هذا النوع يقبل البيانات العددية الصحيحة المحصورة بين موجب وسالب 2147483647 . ويشغل فى الذاكرة Ram أربعة بايت

ارجو معرفه الملغي في الحاسب بالتحديد في الدقهليه
وهل ما يقال ان كل محافظه هي المسؤوله عن تحديد الملغي
ارجو الرد سريعا لو سمحتوووا؟

السلام عليكم ورحمة الله
بالطبع بعد حذف عدة موضوعات من منهج الحاسب الآلي
سؤالي حول موضوع دالة IsNumeric
لم يرد ذكرها لا في المقرر ولا المحذوفات
برجاء الافادة حولها ولكم جزيل الشكر
النجار

السلام عليكم ورحمة الله
بالطبع بعد حذف عدة موضوعات من منهج الحاسب الآلي
سؤالي حول موضوع دالة IsNumeric
لم يرد ذكرها لا في المقرر ولا المحذوفات
برجاء الافادة حولها ولكم جزيل الشكر
النجار



مقررة لانها موجودة بالتفصيل فى الفصل الثانى الذى لم يحذف منه سواء استعمال المعاملات المنطقية مع جملة If وجملة Select .. Case

مقررة لانها موجودة بالتفصيل فى الفصل الثانى الذى لم يحذف منه سواء استعمال المعاملات المنطقية مع جملة If وجملة Select .. Case


اخى احمد بعد التحية الاستاذ / احمد فتحى موجه اول الادارة قال لنا ان الدالة isnumeric ملغية فهذا الشأن ممكن يكون شأن داخلى خاص بالمحافظة

لم يرد شئ بشأنها في الملغي
وعليه فهي داخل المقرر

يعني ندرسها ولا نعديها يا جماعة؟

السلام عليكم ورحمة الله
بالطبع بعد حذف عدة موضوعات من منهج الحاسب الآلي
سؤالي حول موضوع دالة isnumeric
لم يرد ذكرها لا في المقرر ولا المحذوفات
برجاء الافادة حولها ولكم جزيل الشكر
النجار

اخي الحبيب هي مقررة ضمن المنهج بعد الحذف

شكرا جزيلا لك استاذي الفاضل حسن الحاوي
انا قصدي لماذا وضع القيمة 4 في integer ولم يضعها في byte وهذغ في المثال الاول بالكتاب ترم تاني 2014

هااااااااااااااااااااااااااااااام جدا ...................... ارجو الافادة

فجوال بيزك بيقرب فقط العدد الفردي وليس الزوجي يعني لو الرقم 2.5 لايقربها الي 3 ولكن يلغي منها 5.
ولو الرقم 3.5 يقربها الي 4 عن تجربة للبرنامج

لماذا ؟ ممكن نفهم يااستاذي الفاضل حسن الحاوي

شكرا جزيلا لك استاذي الفاضل حسن الحاوي
انا قصدي لماذا وضع القيمة 4 في integer ولم يضعها في byte وهذغ في المثال الاول بالكتاب ترم تاني 2014
ده خطأ فى الكتاب . وكثير من الزملاء فى مذكراتهم وكذلك مذكرتى تحدثنا عن هذه النقطة
حيث يفضل أن يكون نوع بيان المتغير UserNoFamily من نوع Byte وليس Integer وفقاً للإستخدام الأمثل للذاكرة.
وهذا الخطأ نبهنا إليه واضع الكتاب لكى يقوم بتعديله العام الماضى

هااااااااااااااااااااااااااااااام جدا ...................... ارجو الافادة

فجوال بيزك بيقرب فقط العدد الفردي وليس الزوجي يعني لو الرقم 2.5 لايقربها الي 3 ولكن يلغي منها 5.
ولو الرقم 3.5 يقربها الي 4 عن تجربة للبرنامج

لماذا ؟ ممكن نفهم يااستاذي الفاضل حسن الحاوي

من قال لا أعلم فقد أفتى
وأرجو من أحد الزملاء أن يرد علينا

ليس المهم طول الانتظار ولكن الاهم نتيجة الانتظار .......................

شكرا سيدي علي ذلك

بسم الله الرحمن الرحيم
-------------------------------
انا محمد 15 سنة صانع 10 برامج علي فيجوال بيسك
هل من الامكان الاتنزيل علي المنتدي؟ :blush:

انا متعلم الفيجوال بيسك من وانا عندى 13 دلوقتى انا عندى 16 وبعمل العاب وبرامج كبيرة

لا حول ولا قوة إلا بالله

ياريت علشان الكل يستفيد

بسم الله الرحمن الرحيم
-------------------------------
انا محمد 15 سنة صانع 10 برامج علي فيجوال بيسك
هل من الامكان الاتنزيل علي المنتدي؟ :blush:
أكيد اخي الحبيب تستطيع ذلك ونحن معك بإذن الله تعالي

الاستاذ أحمد هاشم الزيدى
أرجو من حضرتك أن تدلنى ماذا تفعل لو كنت مكانى ووجدت المذكرة التى قمت برفعها قد تم تعديلها من قبل استاذ آخر وقام بحذف الاسم من عليها بدون استئذان ؟؟؟؟ ورفعها مرة اخرى
أرجو التعقيب من حضرتك

الاستاذ أحمد هاشم الزيدى
أرجو من حضرتك أن تدلنى ماذا تفعل لو كنت مكانى ووجدت المذكرة التى قمت برفعها قد تم تعديلها من قبل استاذ آخر وقام بحذف الاسم من عليها بدون استئذان ؟؟؟؟ ورفعها مرة اخرى
أرجو التعقيب من حضرتك

تم التعامل مع الموضوع اخى الفاضل

تم التعامل مع الموضوع اخى الفاضل



متشكر استاذ احمد قرنى على تفاعلك مع الموضوع
ومتشكر مرة اخرى على ثناءك على المذكرة المتواضعة وحضرتك بع ربنا لك فضل فيها لانها بها جزء مجمع من امتحانات المحافظات التى قمت حضرتك بنشرها من قبل

وهذا هو دورنا اننا نكمل بعض حتى تعم الفائدة

برجاء الرد على هذا السؤال باقصى سرعه........... للاهميه

فى جملة If Then ElseIf فى حالة عدم تحقق أحد الشروط False يتم الإنتقال إلى جملة .............. التى تليها .

الاستاذ أحمد هاشم الزيدى
أرجو من حضرتك أن تدلنى ماذا تفعل لو كنت مكانى ووجدت المذكرة التى قمت برفعها قد تم تعديلها من قبل استاذ آخر وقام بحذف الاسم من عليها بدون استئذان ؟؟؟؟ ورفعها مرة اخرى
أرجو التعقيب من حضرتك
اخي الحبيب ابو مريم انت من اعلام اقسام الحاسب الالي بالمنتدي والكل يشهد لحضرتك بذلك ولا نسمح بتجاوز اي عضو قوانين الاقسام والمنتدي

تم التعامل مع الموضوع اخى الفاضل


شكراً لتعامل حضرتك السريع اخي وحبيبي احمد قرني

متشكر استاذ احمد قرنى على تفاعلك مع الموضوع
ومتشكر مرة اخرى على ثناءك على المذكرة المتواضعة وحضرتك بع ربنا لك فضل فيها لانها بها جزء مجمع من امتحانات المحافظات التى قمت حضرتك بنشرها من قبل

وهذا هو دورنا اننا نكمل بعض حتى تعم الفائدة



نحن هنا نكمل بعضنا البعض وجزاء العمل من الله سبحانه وتعالي فقط

اللهم اجعل اعمالنا خالصة لوجهك الكريم

برجاء الرد على هذا السؤال باقصى سرعه........... للاهميه

فى جملة If Then ElseIf فى حالة عدم تحقق أحد الشروط False يتم الإنتقال إلى جملة .............. التى تليها .
شرح قاعدة الأمر IF …. Then …. ElseIF

1. يتم أختبار الشرط Condtion1 فإذا كان قيمته True ينفذ Code1.
2. وإذا كان قيمته False يتم إختبار الشرط Condtion2 فإذا كان قيمته True ينفذ Code2.
3. وإذا كان قيمته False يتم إختبار الشرط Condtion3 فإذا كان قيمته True ينفذ Code3.
4. وإذا كان قيمته False يتم تنفيذ Code4 لأنه لايوجد شرط مع جملة Else الأخيرة.

الفصل العاشر والحادى عشر للصف الثانى الاعدادى محزوفين
طيب ليه فى مواصفات الورقه الامتحانيه لمادة الحاسب الالى ماذكرشى ان الفصلين دول محزوفين رغم انه ذكر المحزوف فى الصف الاول والثالث الاعدادى
https://drive.google.com/folderview?...zNERjkyVTJiNlk (https://drive.google.com/folderview?id=0B5LLsVCX_ssqUDc2YVNPU1lVWUk&usp=sharing&tid=0B5LLsVCX_ssqSzNERjkyVTJiNlk)

شكرا استاذنا الفاضل احمد الزيدى على الاهتمام
وشكرا على ذوق حضرتك

شرح قاعدة الأمر if …. Then …. Elseif

1. يتم أختبار الشرط condtion1 فإذا كان قيمته true ينفذ code1.
2. وإذا كان قيمته false يتم إختبار الشرط condtion2 فإذا كان قيمته true ينفذ code2.
3. وإذا كان قيمته false يتم إختبار الشرط condtion3 فإذا كان قيمته true ينفذ code3.
4. وإذا كان قيمته false يتم تنفيذ code4 لأنه لايوجد شرط مع جملة else الأخيرة.


مشكور استاذ احمد ولكنى ارجو الرد على مكان النقط حيث ان احد الاساتذه رفع هذا السؤال فى امتحان والاجابه لها اكثر من رد فارجو لو هناك اجابه نهائيه مكان النقط ارجو الرد..........

مشكور استاذ احمد ولكنى ارجو الرد على مكان النقط حيث ان احد الاساتذه رفع هذا السؤال فى امتحان والاجابه لها اكثر من رد فارجو لو هناك اجابه نهائيه مكان النقط ارجو الرد..........

يتم الانتقال الى جملة الشرط التى تليها

يتم الانتقال الى جملة الشرط التى تليها



شكرا يا استاذ احمد قرنى وشكرا يا استاذ احمد هاشم ............ على الرد داعيا الله ان يجعله فى ميزان حسناتكم ......شكرا

فى جملة If Then ElseIf فى حالة عدم تحقق أحد الشروط False يتم الإنتقال إلى جملة الشرط التى تليها .
فى جملة If Then ElseIf فى حالة عدم تحقق أى من الشروط False يتم الإنتقال إلى جملة Else إن وجدت ، وإذا لم توجد يتم الإنتقال إلى ما بعد جملة End If .

ما الفرق بين المعادلة الرياضية وجملة التخصيص ؟
ارجو الرد

هل استخدام else فى جملةif.....then ..............else
( اختيارى - اجبارى - افتراضية اختيارية - افتراضية اجبارية )

هل استخدام else فى جملةif.....then ..............else
( اختيارى - اجبارى - افتراضية اختيارية - افتراضية اجبارية )

افتراضية اجبارية

شكرًا أستاذ / احمد جعله الله في ميزان حسناتك

هل يجوز اجراء عمليات حسابية علي متغير من النوع string وكيف ؟

ما ناتج العملية الحسابية
(9*2)-2=
ارجو الرد سريعا

هل يجوز اجراء عمليات حسابية علي متغير من النوع string وكيف ؟

طبقا لما هو مقرر وموجود فى الكتاب المدرسى
لا يمكن ادخال متغير من النوع String فى العمليات الحسابية

ولكن عمليا وحقيقة يمكن ذلك

ما ناتج العملية الحسابية
(9*2)-2=
ارجو الرد سريعا

الناتج هو -16

ارجو الرد سريعا
حل التدريب التالى
ب- قم بقراءة الاكواد التالية ثم اجب

Dim A , B , C A s Integer
B = 10
C = B / 2
For A = 6 To 3 Step-3
B = B – 1
C = C + 1
Next
Msg box ( A )
Msg box ( B )
Msg box ( C )
قيمة المتغير A هى .......... ، وقيمة المتغير B هى .......... ، وقيمة المتغير C هى ............. .

بالنسبة اموضوع التكرار for next
for i = 1 to 10 step 4
عدد مرات التكرار هنا كام ... انا شايف ان مراجعات ا / احمد قرتى بتقول 3 وهم 1-5-9
اما كتاب الفائز بيقول 4 وهم 1-5-9-13...

ارجو الرد سريعا
حل التدريب التالى
ب- قم بقراءة الاكواد التالية ثم اجب

dim a , b , c a s integer
b = 10
c = b / 2
for a = 6 to 3 step-3
b = b – 1
c = c + 1
next
msg box ( a )
msg box ( b )
msg box ( c )
قيمة المتغير a هى .......... ، وقيمة المتغير b هى .......... ، وقيمة المتغير c هى ............. .
قيمة المتغير a = 0 وقيمة المتغير b = 8 وقيمة المتغير c = 7

بالنسبة اموضوع التكرار for next
for i = 1 to 10 step 4
عدد مرات التكرار هنا كام ... انا شايف ان مراجعات ا / احمد قرتى بتقول 3 وهم 1-5-9
اما كتاب الفائز بيقول 4 وهم 1-5-9-13...

اخى الفاضل كتاب الفائز يوجد به العديد من الاخطاء فى اجابات الاسئلة والتى يقوم باخراجها الطلاب نفسهم قد يكون سهو من واضع الكتاب

اما بخصوص سؤالك بالفعل عدد مرات التكرار ثلاث مرات لان عند القيمة 13 يخرج العداد من التكرار فكيف نقوم بحساب قيمة الخروج ولم يحدث عندها التكرار
شرط التكرار حضرتك ان تكون قيمة البداية اقل من او تساوى قيمة النهاية
وشرط الخروج من التكرار ان تكون قيمة البداية اكبر من قيمة النهاية

وتحت امرك فى اى وقت واى استفسار

اخى الفاضل كتاب الفائز يوجد به العديد من الاخطاء فى اجابات الاسئلة والتى يقوم باخراجها الطلاب نفسهم قد يكون سهو من واضع الكتاب

اما بخصوص سؤالك بالفعل عدد مرات التكرار ثلاث مرات لان عند القيمة 13 يخرج العداد من التكرار فكيف نقوم بحساب قيمة الخروج ولم يحدث عندها التكرار
شرط التكرار حضرتك ان تكون قيمة البداية اقل من او تساوى قيمة النهاية
وشرط الخروج من التكرار ان تكون قيمة البداية اكبر من قيمة النهاية

وتحت امرك فى اى وقت واى استفسار


بسم الله ما شاء الله

ارجو شرح اجابه السؤال الثالث فى نماذج الامتحانات ص 102
وهو
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

ارجو شرح اجابه السؤال الثالث فى نماذج الامتحانات ص 102
وهو
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
قيمة المتغير n هتكون n = 1 , 6 وعند القيمة n = 11 هيخرج من التكرار وبالتالى يكون عدد مرات التكرار مرتين فقط

يعنى المعادلة k = k + n هتتنفذ مرتين فقط
المرة الاولى قيمة المتغير k=0 وهى قيمة افتراضية لانه اعلن عن المتغير k دون اعطاء قيمة له
بينما قيمة المتغير n = 1 فى المرة الاولى للتكرار ومنها يكون k = k + n يعنى تصبح قيمة k = 1

المرة الثانية قيمة المتغير k اصبحت حاليا k = 1 وقيمة المتغير n فى المرة الثانية للتكرار n = 6 ومنها يكون ناتج المعادلة k = k + n يكون قيمة المتغير k = 7

عند قيمة المتغير n = 11 يخرج من التكرار وينفذ ما بعد next
يعنى هينفذ جملة if واللى هى if n >= c وعندنا قيمة n = 11 وقيمة المتغير c = 10 نلاحظ ان هنا قيمة الشرط n > = c تكون true يعنى هينفذ ما بعد كلمة then وهى المعادلة c = c + 1 وبالتعويض عن قيمة c = 10 اذا تصبح قيمة c = 11

يعنى كدة قيمة n = 11 k = 7 c = 11

اتمنى اكون وفقت فى شرح المثال

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

حدد قيمة كل متغير بعد تنفيذ الكود
If x<y Then
z=k+J
x=x+1
y=y-1
Else
z=k-y
x=x+2
y=y-2
End if

اخى الفاضل كتاب الفائز يوجد به العديد من الاخطاء فى اجابات الاسئلة والتى يقوم باخراجها الطلاب نفسهم قد يكون سهو من واضع الكتاب

اما بخصوص سؤالك بالفعل عدد مرات التكرار ثلاث مرات لان عند القيمة 13 يخرج العداد من التكرار فكيف نقوم بحساب قيمة الخروج ولم يحدث عندها التكرار
شرط التكرار حضرتك ان تكون قيمة البداية اقل من او تساوى قيمة النهاية
وشرط الخروج من التكرار ان تكون قيمة البداية اكبر من قيمة النهاية

وتحت امرك فى اى وقت واى استفسار


شكرا جزيلا لرد حضرتك وللتوضيح

سؤال
For x = 3 to 0 step -1
ما هي قيمة المتغير X النهائية ........
ما هي قيمة نهاية الحلقة ...........

كمان سؤال
ما هو ناتج الامر( Isnumeric (10

ما هو ناتج الامر( "Isnumeric ("10

سؤال
For x = 3 to 0 step -1
ما هي قيمة المتغير X النهائية ........
ما هي قيمة نهاية الحلقة ...........

قيمة المتغير x النهائية هى x = -1
وقيمة نهاية الحلقة x = -1

كمان سؤال
ما هو ناتج الامر( Isnumeric (10

ما هو ناتج الامر( "Isnumeric ("10

ما هو ناتج الامر( Isnumeric (10
الناتج True


ما هو ناتج الامر( "Isnumeric ("10
الناتج True

ما هو ناتج الامر( isnumeric (10
الناتج true


ما هو ناتج الامر( "isnumeric ("10
الناتج true


تحياتى لحضرتك استاذ احمد قرنى
فعلا لو نفذت الكودين على الكمبيوتر سيعطوا نفس النتيجة
ولكن هل معنى ذلك أن الفيجوال بيزيك بيقوم بتحويل القيمة "10" تحويلا ضمنيا
أم أنه يبحث عن الحروف فقط
ولا يلتفت لعلامتى التنصيص

فى جملة next .......for لايم التكرار اذا كانت step تساوى صفر
الاجابة خطأ يتم التكرار الى مالانهاية بعض الزملاء يرى انه لايتم التكرار
لكنى ارى انه يتم التكرار الى مالانهاية

فى جملة next .......for لايم التكرار اذا كانت step تساوى صفر
الاجابة خطأ يتم التكرار الى مالانهاية بعض الزملاء يرى انه لايتم التكرار
لكنى ارى انه يتم التكرار الى مالانهاية
For I = 1 To 10 Step X
MsgBox( I )
Next
أ – ماذا يحدث إذا كان قيمة المتغير X موجبة ؟
ب – ماذا يحدث إذا كان قيمة المتغير X سالبة ؟
ج – ماذا يحدث إذا كان قيمة المتغير X مساوية للصفر ؟
جـ : أ – تظهر مربعات رسائل بقيمة العداد I فى كل مرة يتم تنفيذ التكرار
ب – لا يتم تنفيذ التكرار ولا يظهر شئ
ج – يظهر مربع رسالة MsgBox به قيمة العداد الإبتدائية 1 ثم بعد النقر على زر OK يظهر نفس مربع الرسالة MsgBox إلى مالا نهاية
=================================================


For I = 10 To 1 Step X
MsgBox( I )
Next
أ – ماذا يحدث إذا كان قيمة المتغير X سالبة ؟
ب – ماذا يحدث إذا كان قيمة المتغير X موجبة ؟
ج – ماذا يحدث إذا كان قيمة المتغير X مساوية للصفر ؟
جـ : أ – تظهر مربعات رسائل بقيمة العداد I فى كل مرة يتم تنفيذ التكرار
ب – لا يتم تنفيذ التكرار ولا يظهر شئ
ج – لا يتم تنفيذ التكرار ولا يظهر شئ

السادة الافاضل : سؤال حير الجميع
هل else اختيارية في جملة IF ?
وماالمقصود باختيارية ؟

السادة الافاضل : سؤال حير الجميع
هل else اختيارية في جملة IF ?
وماالمقصود باختيارية ؟

السادة الافاضل : سؤال حير الجميع
هل else اختيارية في جملة IF ?
وماالمقصود باختيارية ؟

نعم اختيارية لانها غير موجودة فى الحالة الاولى If..Then اما كلمة Then اجبارية لانها موجودة فى كل الحالات

شكرا جزيلا لحضرتك ياسيدى الفاضل

ولكن ماراي سعادتك في هذه المشاركة من احد الزملاء ؟
هل استخدام else فى جملةif.....then ..............else
( اختيارى - اجبارى - افتراضية اختيارية - افتراضية اجبارية ) والرد كان افتراضية اجبارية

ولكن ماراي سعادتك في هذه المشاركة من احد الزملاء ؟
هل استخدام else فى جملةif.....then ..............else
( اختيارى - اجبارى - افتراضية اختيارية - افتراضية اجبارية ) والرد كان افتراضية اجبارية

فى هذه الحالة اجبارية فعلا لانه حدد الحالة الثانية من if وهى الحالة if .. then .. else يعنى لازم تبقى موجودة

لكن لما يقول اختيارية فى جملة if تبقى فعلا اختيارية لانها مش شرط تكون موجودة فى الحالة الاولى

شكرا جزيلا

قيمة المتغير x النهائية هى x = -1
وقيمة نهاية الحلقة x = -1




وجهة نظر
قيمة نهاية الحلقة هي End وهي 0
زي قيمة بداية الحلقة هي Start وهي 3

واتفق معك في قيمة المتغير X النهائية وهي 1-

السلام عليكم
عاوز نماذج الكتاب ورد او pdf

السلام عليكم ورحمة الله وبركاته
بارك الله فيكم
ساعدونى فى فهم هذا السؤال

إقرأ الأكواد التالية ثم أجب :
dim a,b,c as integer
b=10
c=b/2
for a =6 to 3 step -3
b=b-1
c=c+1
next
msgbox a
msgbox b
msgbox c

أوجد قيمة a /b/c

أنا فاهم إن قيمة a بعد التكرار هتبقى صفر
بس مش قادر أستوعب إن قيمة b =8
وإن قيمة c=7

ياريت بس لو حد يساعدنى ويشرحلى ويفهمنى جت إزاى السؤال من إمتحان محافظة الدقهلية وطبعا أنا نقلت الإجابة من كتاب الفائز

وفيه مذكرة فيها إمتحان الدقهلية برضه سؤال نفس الكلام كده
dim a.b as integer : b=2
for a=2to6 step 2
b=b*2
next
msgbox a : msgbox b
والحل طلع
a = 8
b = 16
عايز أفهم b=16 إزاى
فهمونى جزاكم الله عنى خير الجزاء

روح ياشيخ ريحت قلبي الله يريح قلبك

الأولي
2
B=b*2= 2*2=4
الثانية
2+2=4
B=b*2= 4*2=8
الثالثة
4+2=6
B=b*2= 8*2=16
عدد اللفات = 3 لفات

عذرا : المقصود بالاولي اي اللفة الاولي وهكذا
2,4,6 هي قيم a

السلام عليكم
عاوز نماذج الكتاب ورد او pdf
حلول أسئلة واختبارات الكتاب الجديد بصيغة (الوورد) 2013 (http://www.thanwya.com/vb/showthread.php?t=507000)

لأن عدد اللفات 2

عدد مرات التكرار = (( النهاية الفعلية - البداية ) / مقدار الزيادة ) + 1

الأولي
2

B=b*2= 2*2=4

الثانية
2+2=4

B=b*2= 4*2=8

الثالثة
4+2=6

B=b*2= 8*2=16

عدد اللفات = 3 لفات




هنا انا تقريبا فهمت ولو أنى كنت اتمنى شرح بإسهاب أكثر

ولكنى لم أجد مثل هذه الأسئلة مشروحة فى كتاب الفائز او فى كتاب المدرسة
هلى هى مقررة وتابعة لدرس for ..next
وأين أجد شرحها ؟؟
خير الجزاء
وجزاكم الله عنى

الرجاء مذكره او تلخيص للمنهج لغات

ممكن بس طريقه كتابه الكود
ومع جزيل الشكر

ممكن بس نماذج بحلها و تمارين وحل تمارين الكتاب المدرسي علشان احنا لسه الكتاب مش معانا
مع جزيل الشكر

فى جملة
For 1=1 to 10 step 3
كم عدد مرات التكرار؟؟؟ لو سمحتو مع ذكر طريقة الحل .....وشكراز

فى جملة
for 1=1 to 10 step 3
كم عدد مرات التكرار؟؟؟ لو سمحتو مع ذكر طريقة الحل .....وشكراز


4 مرات اخى الفاضل عند القيم 1 و 4 و 7 و 10

مشككككككككككككككككككككور

مش قادره استوبعها و مش عارفه حلها بيعتمد علي ايه بالضبط
ياريت حد يقولي

5 =Dim X as Integer
Dim Y as Short =6.2
Dim Z as Decimal
Xx*2
Z=x\2
Y+Xx=

بعد تنفيذ الجمل السابقه تكون قيمة:
(Y=(6.2- 6- 5
(X=(16.2 - 16 - 11.2

نماذج إمتحانات - عاطف حسان تيرم ثانى(1) و (2) و (3) و (4)- جديد 21 ابريل (http://www.thanwya.com/vb/showthread.php?t=513943)
حلول أسئلة واختبارات الكتاب الجديد بصيغة (الوورد) 2013 (http://www.thanwya.com/vb/showthread.php?t=507000)

مشكووووووووووووور

فى جملة
for 1=1 to 10 step 3
كم عدد مرات التكرار؟؟؟ لو سمحتو مع ذكر طريقة الحل .....وشكراز
عدد مرات التكرار = (( القيمة النهائية - القيمة الإبتدائية ) ÷ قيمة الزيادة ) + 1 مع إهمال العدد العشرى إن وجد
عدد مرات التكرار = (( 10 - 1 ) ÷ 3 ) + 1 = ( 9 ÷ 3 ) + 1 = 3 + 1 = 4 مرات

عدد مرات التكرار = (( القيمة النهائية - القيمة الإبتدائية ) ÷ قيمة الزيادة ) + 1 مع إهمال العدد العشرى إن وجد
عدد مرات التكرار = (( 10 - 1 ) ÷ 3 ) + 1 = ( 9 ÷ 3 ) + 1 = 3 + 1 = 4 مرات

الف شكر استاذنا الفاضل ...

رقم الجلوس بيان من نوع integer ولا string لأنه رقم بس لايدخل فى العمليات الحسابية

رقم الجلوس بيان من نوع Integer لأنه يمكن إجراء عمليات حسابية عليه
حيث عتد طرح أول رقم جلوس من آخر رقم جلوس ثم إضافة 1 نحصل على عدد الطلاب

اشكرك على تميزك وخدماتك

اساتذتي الافاضل ممكن حل لهذه الاسئلة ؟
اختر الاجابة الصحيحة :
1- فى جملة for ...next ما وظيفة الامر Next :
أ- زيادة قيمة متغير الحلقة بقيمة الزيادة
ب- مقارنة قيمة الزيادة مع قيمة النهاية
ج- كل ما سبق
-------------------------------------------
صح أم خطأ :
1- الامر msgbox "3"&"x "&"3" يعرض صندوق رسالة به 9 ( )
2- فى الجملة الشرطية if يمكن الاستغناء عن end if ( )
3- فى الجملة التكرارية for-next ينتهى التكرار عندما تصبح قيمة العداد مساوية لقيمة النهاية ( )
4- المتغير counter يتحكم فى عدد مرات تنفيذ الاوامر ( )
5- فى جملة for-next يمكن ان تكون قيمة البداية والنهاية والزيادة متغيرات ( )
6- الدالة () isnumeric لها ناتج من النوع integer ( )

اساتذتي الافاضل ممكن حل لهذه الاسئلة ؟
اختر الاجابة الصحيحة :
1- فى جملة for ...next ما وظيفة الامر Next :
أ- زيادة قيمة متغير الحلقة بقيمة الزيادة
ب- مقارنة قيمة الزيادة مع قيمة النهاية
ج- كل ما سبق
-------------------------------------------
صح أم خطأ :
1- الامر msgbox "3"&"x "&"3" يعرض صندوق رسالة به 9 (خطأ )
2- فى الجملة الشرطية if يمكن الاستغناء عن end if (صح )
3- فى الجملة التكرارية for-next ينتهى التكرار عندما تصبح قيمة العداد مساوية لقيمة النهاية (صح ) كما يصح عندما يتخطى قيمة العداد لقيمة نهاية الحلقة
4- المتغير counter يتحكم فى عدد مرات تنفيذ الاوامر (خطأ )
5- فى جملة for-next يمكن ان تكون قيمة البداية والنهاية والزيادة متغيرات (صح )
6- الدالة () isnumeric لها ناتج من النوع integer (خطأ )



الإجابة بالأعلى

ماناتج هذه العملية /
3mod4)2^3)

شكرا جزيلا استاذي الفاضل حسن الحاوي
زادك الله علما وعزا

اسمح لي استاذي
من المتحكم في عدد مرات التكرار ؟

اخى الفاضل استاذ حسن
مكن افهم وجهة نظرك فى هذه الجزئية والخاصة باجابة حضرتك على الجزء الاول من السؤال


3- فى الجملة التكرارية for-next ينتهى التكرار عندما تصبح قيمة العداد مساوية لقيمة النهاية (صح ) كما يصح عندما يتخطى قيمة العداد لقيمة نهاية الحلقة

وهل يتم التكرار فى هذا الامر

Dim a as short
For a = 3 To 3 Step1
Msgbox ( a )
next

ماناتج هذه العملية /
3mod4)2^3)
3mod4)*2^3)
3^2*(3)
3^6
216

اسمح لي استاذي
من المتحكم في عدد مرات التكرار ؟

قيمة الزيادة والبداية والنهاية

اخى الفاضل استاذ حسن
مكن افهم وجهة نظرك فى هذه الجزئية والخاصة باجابة حضرتك على الجزء الاول من السؤال


3- فى الجملة التكرارية for-next ينتهى التكرار عندما تصبح قيمة العداد مساوية لقيمة النهاية (صح ) كما يصح عندما يتخطى قيمة العداد لقيمة نهاية الحلقة

وهل يتم التكرار فى هذا الامر

Dim a as short
For a = 3 To 3 Step1
Msgbox ( a )
next



بالنسبة لهذا السؤال
إجابته الموجودة فى الكتاب هى عندما يصل العداد لقيمة النهاية
وهذا خطأ وطالبت الأستاذ تامر بتعديل كلمة يصل إلى يتخطى
أنا جاوبت للزميل على ما هو موجود فى الكتاب ، كما كتبتله التعديل الصحيح بالأخضر على أنها إجابة أخرى
كما جوبت للزميل المسؤل عن زيادة عداد الحلقة ومقارنته بقيمة النهاية ، كما هو موجود بالكتاب وهو الأمر Next
عى الرغم أن المسؤل عن ذلك هو الفيجوال بيزك وليس Next حيث أن هذه العملية تتم بعد الوصول للأمر For

3mod4)*2^3)
3^2*(3)
3^6
216


اظن ان الاجابة مختلفة يا استاذ حسن
فالمفترض انه يكون رفع الاس اولا قبل عملية الضرب
بمعنى 3^2*(3)
اولا يرفع الاس فتكون 8*(3)
ثانيا الضرب فيكون الناتج 24
وبالتجربة على فيجوال بيزيك يعطيك هذا الناتج

Dim x As Single
x = (3 Mod 4) * 2 ^ 3
( MsgBox(x)
http://www.thanwya.com/vb/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALIAAABvCAIAAAD HSA3OAAARwklEQVR4nO2df1AT177AvyFPsN5p321pHapWaxWxV HsF648C8RcKlhAFIQrKj6CClFKplHv7an9Nyzi9Vu3UV31t772 d0XtvO7UVvdxnn7620xl9U+vzFxSrUl+UkOxms0kISSAgFDzvj 7NsNrubgBIJ4Nn5TObsN2fPnnP2wzm7myUBRBaySBYIdQXIMhw XeS1AfUGRXq9Ir4fUq5B6FdIaOTIMkNUM6ykoYPCrosgKBSysZ yCPhQIW8vrIsYUCx5CSaxlqxI31bX4mhoZMG6gZyKQhkwY1A5k 2UNtAzYDaBCkUpFCgNoGaATUDahukWGFxQz9aYBvCt7RHVPZGb kcT3kET3kHTdqCYPShuN4rbhxL2ooS9SLUfqfajxR/5BWcYYgLU524wHNqo2s8dDv7VH3G7xUzbgabtQJHbUXh5Dyxug LjT8loo0uvD8tnwLe1h5a6IqluR2xFvxtSdaOpOFLMHPfWBl7h 9HMIg4e4Rs4dDuIqPLv7TxYeJZ9oOn1V8KHnw8Y3cjiIqeiMqe iGnDRIbxFrA0rOQYYSsa4pim6LYBltaMGHlLuVWj7KiO6LqFrz cq6xEykqE0xFVt/ggTuBg+LZbEZVczlGMovzWEIN3ijsc9zZGUdYdVtylLG1XFrsU Og8UumG9BwrdsMGt0Hm4iM7BkWcHnQMK3aC1crNPnh3y7JBtgu RLoNJLtFBfgPVNXgoY2MhiRcLKXRjlVo8/wspdytJ2L8Uuwl1nk125ya4ssimKrGH5bFg+C+sZyDFDjhm0NE e2iSOrGbKaIcMAGQaFRg9pekhr9J4+Jl+CBecg6iuvFhB/EtL0oL4AWdc4BGbwcnA87/bCB7e0KIptPkqGAHb0s54Rk2MGLT1mrankQ5a2/3o7FxwIIVTynmHMkgugOg8LzkH8SYg/CY8cEGgRfxKWnlWk1/vTgkekgqLYBhtZ7pKkQFB17CwhiPB/98JhIMMIGYaSvUx3s96262X2NR2zTWsu09AlK6miZdSm5VThIq pwkSkv0ZSXaFw717h2rjFrjkEzU79iSn3WM62NDSXvNkHcaYg/CbHHYcZhgRbTP5fTgpLVgldBYAMDBb7+CgexIYPvtaEBj8khga 9AhhHPCAgh+54/tP7tA+fn+xx/2mHb83vru1utb5eyb5Wwr2+0vFpoebXA8vtcpnKteWsGXfocpV ts0MbXp0z7L/Uc2trFafHEf8P0z+GBN/q0iPoK4k+C6nzYCrEWiiIrd/h5OYqs3mCB78gm9XoUExIhMgyQYewTwsifKCCE2LeKnYc+ch3+ k+PTnfa92227Kq07XmTfLrW8Wcy+vpF9rcjySr6lKtdcsYYuS6 c2JTfnLmhIm/nl3EcQQhB3Gmad8asFpF71GSoKWCwBBp/a4LMb76whO3EM/VBxL4wWnApCDKA2gNqAELJU5Tg+3dl6cE/L/rds722zVpexb2y2/FsB83IuU5FtfjGTLlXTpWnUpuWUbrEpL8Gw9pmG9NjD86MQQrD gHMw6A4+fkWgRdxoWN3C3MrNN3huXAjOURTbhSW9YPis/WoTEiXuBTNrHCY0JNCZeC6ZijX3vq/YPX7e9t63z/CmEEFOZy7yYRZdqqM0pVOFS04YEU+5ChFDbtzVGbVxT1pxLq2b VJDyGEIL5DZwWMw4LtJjwHSw4B4kNkKaHrGbQ0rCe4d7q0wIhh LVQFtnwW9gMLtuAteDyB7vLBl+msGIDqmRmP3CF9JftTjbHQvh qYS7T2N7danvvJWt1GX+hQZdqqM2pVOES04YE49pn+LhxzeymN U9f0ki08BktJnwH8xtgiR7S9JBtAi0NuRb81rioal4FYRqv8lq Mi6ruu2/fjxne/EF1YvC2CSt2Z5UU1WEwLeVb5LN5QC3o4hT27VJrdRn7ZrHllQK +BKoomcpXmXLme51YFWPMiDVkzrqkia15dhKnxZP1cqMFr0Umj bWAPDv3rs7Blzhmk4Ov7rioamW+XZlvx2nIYwdixl3VYjDFikr gGjWIEu6sEGFz5Fsk1ELto4Vlu87y+kbLdp2lagOzNZsvxJSX4 HVCM92ofsKoiTZkPPlz+pNHnp2IEIJ5jQG1yDBCjhlyLZDH8lq Mi6oW1pJPKPPtfFyZb8f5+WEGIQRaKw/yXcZFVYuC/KpwE9Hmwk1EheOK4WJl9zjAuLCx0vyyhchGBliIbIuQbz8LWwp aq3fMUDO8HAghU36SpSrX8kq+5Q/5TGWuuSKLfmGVqLFUZgy1epop/XGT5onm1dGX06KPLngUYS3wgBF7XKDF42dgYSOkUJBJc7fK8+z 8IMH3uKi6Sp1LqXN5V/ssgRwbnw3fdefzCDeXBvmcfEKYlm4rKlzaueLyBxaXKiLNDFpr 4JIHUgifli1cWB9fLWy+0KAxIYRMuQuYFzMtlessL+cy29aZt6 4xl2noLal8T9LrZtFZM+iMJ2jNZFozxbhq6pXnph6dNx4hBAm/cAPGjMMQuUtOiz4noNAtbJiMFsU+WsAGb37IcfSbDhzkGyNrEu Q4uN73U+BAKnC7lZTuVFhJUQn9tjRAWlp/L1qXF4EcCCFjdjz9vJp5KZvZttbykpapWGMu14jqyWhnMGumml dNMmsmmdInXUmZ9I+5DyGEINEA8xph2hWIPS7QYkoDqPSQQoG2 T4tCt0LnURZ1IDktcO+Eb2nHGXBEofN4WyJUxE86cFD0KsqJEI INboxsgQOpwO1WUrpH30PeJkwLV/3lCbCtbMQHrxxOyHQihJpXP0VtWm5+YRVTsYapyDJvzeT7iilW 4cQtj8uSPdWSMZHRRFFpUVeXjf9n3L8ihGBJMyQa4Gk9xB6HR/5doEWiAVIo0FqxE1DoVmzuCivu4osW/QWHl3WFl3UpS7v5iD9F/KUDZ5DuEb+r0Hn4OF5Fvsu4qGpY74H1HuHqHadFZQ68ZH+FDHB b2YgPvnIghAzqaFOBit6y0ly+yvxiBt8hTOkypjjJstF7JcJmP GpJH0+lRjYu/m3t7HEIIVhqgUSjRItpVyDRAClWyLRxTug8Qi244aG8h18NL+/B8BFhZtD1nw6cAUm04N+SLcRn5tZ1DaQCd1bJAZYw8JbKbisbg TwBvBzadtC2I4SaVkw25synNi6jtzzH95u5dAWzZSmzOdGycZ6 1YDYfZ9MeNC+//2rib2qfCkcIQYqVMyP+pEQLNQM5Nn76CCv2GQxEEuBHeiIqevm IosybWbG5S5jmV/lFmIePCDPzq9K3hPll9yItXFRggP0ihAKUE6AQ0PWAjusfYRq/JS1ENgNfjmykz48eH0tyb0JOJ0LoxpKo5synTXkJ1MZlnpNfI4 TMxcnm4qXmzSpm40KLLp7Ni7XmTkcIdZ44yK58gF5y39X5Y/4RE4YQgtRWWGqBhVaYdUY0iRhBbYMcB9YCO6F84VflC79yQ8U2 7rErvBpR2Ysj4dtucZ1VfktRzqXDym6Flfmk+VUeaZDPieOyae EmAfYSVnZLeAyEefzFRZv3W0lRc6C4FyNclaYHmNlfxAvvSl4X 5HUhhK4nPWxQRzdnx5k2PEsVqKhCFVWQSBc8SxcsMOfHMxtmWd ZFs9lT2IxH2bQHLct/Q6nGXJkbdnSGgtMixQoLrRB3WqDFhDpeC+FQoXzh1/CK7oiKXt4J/KAeD457H2Xb6kXY1yGBP/wDjI8UZOVACDUueOD/kiddT595Y83vmrRzDeueMWjjDGvjmtc+bdTGUlnRVMYUOv1Rem UknXw/tSjCsDDsp9/Bl9MAIQTpbZDaCgutvpOIrxbYDGVpt7K0O7y8h5svKnulWgQ2Y 4i5R7SQNYNu6b3w3MzzCyPPL5pYt3xqXWp0XeqMupTp9anTfkq Z2rBi8uUVEy8vG39lSeRl1QNXnr3v8rx/+WmO4lQsfJU0RayF9wJVoAV+LhQPGHjMCC/rEsshmEFknQh5x2Gkc0Tg+IhAdjYp+ajNcaX+6+UzP3/q/sNzHvwq7qFD8Q8fmvPQ4fjImvjII3G/rZ1z/z+fHnds9tja2PDamcpjMYoj0+Fw0hTrz3UlH7oCaGHgtcCv+Ca msqhDWdrOyYHpuwbBZx4icNXxSDPEyM/Bow+f00/uxHPMho6S//De1BngQtt7Sj5wjVnt9p5byGuhMUG2qe9pGu/tTu+jxsJnu0u7FWVioLgXn9V76z109AwtQ97AvC7uHDP3Jnd1u q4DcjohpxPWdYC2HTLbuVec4Ml0QnorZDq5d9PbuOFBhLwWiQZ QG0B1HpLrFMvrw1bUh62o5//TUKHRYyDDABqT92EQ6VNDwo99RzEphqFGbQC1n/0m62GJHpboQdXHomvc6pI+cGTRNUj4BRJ+gYWN3EchCxthXiMk GgJqkVwHyXWK5DrF8npeDllwBsXyegWfX7Dh0INrPmQoQsFdbB G++S28Eol45tr4MsdY7XU720i4Z4HEazD1EETuJloQvIi1uI9o QWAbQaWHxw4QLQg+EC0IMoi1GBv3C9GCQLQgyCDWIiKukWhBAJ UeJhMtCL4QLQgyEC0IMhAtCDKItRhLtCCwjbBID48dJFoQfAia FtC3SOMhbyThdhFrcWfnFsJjL0oTLUYioLoOkwethU+JfR7gBN FiJCLWYpDnFiIn7ESLkYn0M5E710I6ffg74SAMc4L2UZm/Y0+cGIlI71vciRYBjj3RYiQSNC38TRlEi5GI5OZ3PHnegoCvRI gWBF/EWpCb3wQ7+aiMIAvRgiADOeUkyEC0IMhAJhGCDLBIH8yPygijA 6kWZBIhEC0IchAtCDIQLQgyEC0IMhAtCDIQLQgyEC0IMhAtCDI QLQgyjAwtWOYy1XSx+fpZg/5/hwD9lVN3D34vzdfPGm+co5ousszlkPfwiNSCarpobq7fvv+L6H XVkFQ1OhiveXPLHw9YqAYL1RDyHh6RWhhvnNu+/4sYzY6LDBpNxGh2vLb/EBkt7lyL6HXV3/3cMfqIXlfdYr0W8h6WaHFd9EUGw1GL5utnIanqm0ueby519PT0 9PT8Ogr4psHzzaUOSKpqbWkKeQ+PSC2MN85BUtXx+vYTP7V3d3 eNCm6e+Mlzot4DSVVOhyHkPSzWQjVCJhFIqjp2oe3ri203b3aM Ajo7Pccutn19sW1kaBExjLWoPeeuPefu6GgbBXg87tpz7trzbq LFYLWoOeOs+dHV0eEOOvx/zwojsulg4fG4an50Hv7RSbQYrBaHfmj94rTT43EFFwCQpqWJ4N Le7jz0Q+uhH1qJFoPV4rOTLX8/1dLe7gwiACAbEb7eDdraWj/7H8dnpxzDVYvroq+CH75aHPjefuB7e1tbaxABANkInlOCuy8hb rfj4PctB7+3Ey0Gq8VfvrV++p2trc0RRABANtKnRTD3JcTtbvn 0W9tfvrUNXy0mjxAtPj5h/fgE63a3BBEAkI0IX+8GLpf9kxPWj0+wRIvBarHvmGXff1pcrpb gAgDStDQRXJxO+/5jlv3HLESLwWqxt5bZW2t2uexBh79AFUZk08HC6bTh5gxTLRaJ fyFg+Grx/lHz+0dop9M2CmhtZd8/at5zlCZaDFaLXTXUrhrK6bSOAlodll011C5Oi+aQ97BEC/GXOw9fLXbWUDtrKJuNtttou808crHZaNbSjJsDSVUuhzHkPdyP FsPzozLTjfPjNW/ifhxljNe82eYyh7yHZbQY/j94STfXlbx7IEazQ/PGyeffcYwaYjQ7ynb91dNuC3kPj0gtWPPPdrbxjU++HGXPcpbv/nt7u7WzwxHyHu5Hi+H5W2Ut1mutLU1tLqbD09LZ0Xqzw3mz8y7 S3d1x9xDsyN11032z09XaciPkPSzWQvJR2XDUgjDEjIynswhDT HC+Cp4wyiBaEGQg38tJkEHyy4ZEC4Lc76ASLQjk3IIgB9GCIAP RgiBD0H7wkjCaEGsBj9aNjfvloTU0liNitZUHVroI9wQqPcz+3 leL8Udg8gGYfAAmH+xL+OOgAD95HvOPv2w+xR70/5Zw84M++K2ksFj/+CvZX1GBOuoOsgXuc9lOvv3m99OWv8HkgzDxzwItHv4EIncTCB yILGSRLEQLssgs/w/z4cSxsKKCmwAAAABJRU5ErkJggg==

Dim x As Single
x = (3 Mod 4) * 2 ^ 3
( MsgBox(x)
http://www.thanwya.com/vb/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALIAAABvCAIAAAD HSA3OAAARwklEQVR4nO2df1AT177AvyFPsN5p321pHapWaxWxV HsF648C8RcKlhAFIQrKj6CClFKplHv7an9Nyzi9Vu3UV31t772 d0XtvO7UVvdxnn7620xl9U+vzFxSrUl+UkOxms0kISSAgFDzvj 7NsNrubgBIJ4Nn5TObsN2fPnnP2wzm7myUBRBaySBYIdQXIMhw XeS1AfUGRXq9Ir4fUq5B6FdIaOTIMkNUM6ykoYPCrosgKBSysZ yCPhQIW8vrIsYUCx5CSaxlqxI31bX4mhoZMG6gZyKQhkwY1A5k 2UNtAzYDaBCkUpFCgNoGaATUDahukWGFxQz9aYBvCt7RHVPZGb kcT3kET3kHTdqCYPShuN4rbhxL2ooS9SLUfqfajxR/5BWcYYgLU524wHNqo2s8dDv7VH3G7xUzbgabtQJHbUXh5Dyxug LjT8loo0uvD8tnwLe1h5a6IqluR2xFvxtSdaOpOFLMHPfWBl7h 9HMIg4e4Rs4dDuIqPLv7TxYeJZ9oOn1V8KHnw8Y3cjiIqeiMqe iGnDRIbxFrA0rOQYYSsa4pim6LYBltaMGHlLuVWj7KiO6LqFrz cq6xEykqE0xFVt/ggTuBg+LZbEZVczlGMovzWEIN3ijsc9zZGUdYdVtylLG1XFrsU Og8UumG9BwrdsMGt0Hm4iM7BkWcHnQMK3aC1crNPnh3y7JBtgu RLoNJLtFBfgPVNXgoY2MhiRcLKXRjlVo8/wspdytJ2L8Uuwl1nk125ya4ssimKrGH5bFg+C+sZyDFDjhm0NE e2iSOrGbKaIcMAGQaFRg9pekhr9J4+Jl+CBecg6iuvFhB/EtL0oL4AWdc4BGbwcnA87/bCB7e0KIptPkqGAHb0s54Rk2MGLT1mrankQ5a2/3o7FxwIIVTynmHMkgugOg8LzkH8SYg/CY8cEGgRfxKWnlWk1/vTgkekgqLYBhtZ7pKkQFB17CwhiPB/98JhIMMIGYaSvUx3s96262X2NR2zTWsu09AlK6miZdSm5VThIq pwkSkv0ZSXaFw717h2rjFrjkEzU79iSn3WM62NDSXvNkHcaYg/CbHHYcZhgRbTP5fTgpLVgldBYAMDBb7+CgexIYPvtaEBj8khga 9AhhHPCAgh+54/tP7tA+fn+xx/2mHb83vru1utb5eyb5Wwr2+0vFpoebXA8vtcpnKteWsGXfocpV ts0MbXp0z7L/Uc2trFafHEf8P0z+GBN/q0iPoK4k+C6nzYCrEWiiIrd/h5OYqs3mCB78gm9XoUExIhMgyQYewTwsifKCCE2LeKnYc+ch3+ k+PTnfa92227Kq07XmTfLrW8Wcy+vpF9rcjySr6lKtdcsYYuS6 c2JTfnLmhIm/nl3EcQQhB3Gmad8asFpF71GSoKWCwBBp/a4LMb76whO3EM/VBxL4wWnApCDKA2gNqAELJU5Tg+3dl6cE/L/rds722zVpexb2y2/FsB83IuU5FtfjGTLlXTpWnUpuWUbrEpL8Gw9pmG9NjD86MQQrD gHMw6A4+fkWgRdxoWN3C3MrNN3huXAjOURTbhSW9YPis/WoTEiXuBTNrHCY0JNCZeC6ZijX3vq/YPX7e9t63z/CmEEFOZy7yYRZdqqM0pVOFS04YEU+5ChFDbtzVGbVxT1pxLq2b VJDyGEIL5DZwWMw4LtJjwHSw4B4kNkKaHrGbQ0rCe4d7q0wIhh LVQFtnwW9gMLtuAteDyB7vLBl+msGIDqmRmP3CF9JftTjbHQvh qYS7T2N7danvvJWt1GX+hQZdqqM2pVOES04YE49pn+LhxzeymN U9f0ki08BktJnwH8xtgiR7S9JBtAi0NuRb81rioal4FYRqv8lq Mi6ruu2/fjxne/EF1YvC2CSt2Z5UU1WEwLeVb5LN5QC3o4hT27VJrdRn7ZrHllQK +BKoomcpXmXLme51YFWPMiDVkzrqkia15dhKnxZP1cqMFr0Umj bWAPDv3rs7Blzhmk4Ov7rioamW+XZlvx2nIYwdixl3VYjDFikr gGjWIEu6sEGFz5Fsk1ELto4Vlu87y+kbLdp2lagOzNZsvxJSX4 HVCM92ofsKoiTZkPPlz+pNHnp2IEIJ5jQG1yDBCjhlyLZDH8lq Mi6oW1pJPKPPtfFyZb8f5+WEGIQRaKw/yXcZFVYuC/KpwE9Hmwk1EheOK4WJl9zjAuLCx0vyyhchGBliIbIuQbz8LWwp aq3fMUDO8HAghU36SpSrX8kq+5Q/5TGWuuSKLfmGVqLFUZgy1epop/XGT5onm1dGX06KPLngUYS3wgBF7XKDF42dgYSOkUJBJc7fK8+z 8IMH3uKi6Sp1LqXN5V/ssgRwbnw3fdefzCDeXBvmcfEKYlm4rKlzaueLyBxaXKiLNDFpr 4JIHUgifli1cWB9fLWy+0KAxIYRMuQuYFzMtlessL+cy29aZt6 4xl2noLal8T9LrZtFZM+iMJ2jNZFozxbhq6pXnph6dNx4hBAm/cAPGjMMQuUtOiz4noNAtbJiMFsU+WsAGb37IcfSbDhzkGyNrEu Q4uN73U+BAKnC7lZTuVFhJUQn9tjRAWlp/L1qXF4EcCCFjdjz9vJp5KZvZttbykpapWGMu14jqyWhnMGumml dNMmsmmdInXUmZ9I+5DyGEINEA8xph2hWIPS7QYkoDqPSQQoG2 T4tCt0LnURZ1IDktcO+Eb2nHGXBEofN4WyJUxE86cFD0KsqJEI INboxsgQOpwO1WUrpH30PeJkwLV/3lCbCtbMQHrxxOyHQihJpXP0VtWm5+YRVTsYapyDJvzeT7iilW 4cQtj8uSPdWSMZHRRFFpUVeXjf9n3L8ihGBJMyQa4Gk9xB6HR/5doEWiAVIo0FqxE1DoVmzuCivu4osW/QWHl3WFl3UpS7v5iD9F/KUDZ5DuEb+r0Hn4OF5Fvsu4qGpY74H1HuHqHadFZQ68ZH+FDHB b2YgPvnIghAzqaFOBit6y0ly+yvxiBt8hTOkypjjJstF7JcJmP GpJH0+lRjYu/m3t7HEIIVhqgUSjRItpVyDRAClWyLRxTug8Qi244aG8h18NL+/B8BFhZtD1nw6cAUm04N+SLcRn5tZ1DaQCd1bJAZYw8JbKbisbg TwBvBzadtC2I4SaVkw25synNi6jtzzH95u5dAWzZSmzOdGycZ6 1YDYfZ9MeNC+//2rib2qfCkcIQYqVMyP+pEQLNQM5Nn76CCv2GQxEEuBHeiIqevm IosybWbG5S5jmV/lFmIePCDPzq9K3hPll9yItXFRggP0ihAKUE6AQ0PWAjusfYRq/JS1ENgNfjmykz48eH0tyb0JOJ0LoxpKo5synTXkJ1MZlnpNfI4 TMxcnm4qXmzSpm40KLLp7Ni7XmTkcIdZ44yK58gF5y39X5Y/4RE4YQgtRWWGqBhVaYdUY0iRhBbYMcB9YCO6F84VflC79yQ8U2 7rErvBpR2Ysj4dtucZ1VfktRzqXDym6Flfmk+VUeaZDPieOyae EmAfYSVnZLeAyEefzFRZv3W0lRc6C4FyNclaYHmNlfxAvvSl4X 5HUhhK4nPWxQRzdnx5k2PEsVqKhCFVWQSBc8SxcsMOfHMxtmWd ZFs9lT2IxH2bQHLct/Q6nGXJkbdnSGgtMixQoLrRB3WqDFhDpeC+FQoXzh1/CK7oiKXt4J/KAeD457H2Xb6kXY1yGBP/wDjI8UZOVACDUueOD/kiddT595Y83vmrRzDeueMWjjDGvjmtc+bdTGUlnRVMYUOv1Rem UknXw/tSjCsDDsp9/Bl9MAIQTpbZDaCgutvpOIrxbYDGVpt7K0O7y8h5svKnulWgQ2Y 4i5R7SQNYNu6b3w3MzzCyPPL5pYt3xqXWp0XeqMupTp9anTfkq Z2rBi8uUVEy8vG39lSeRl1QNXnr3v8rx/+WmO4lQsfJU0RayF9wJVoAV+LhQPGHjMCC/rEsshmEFknQh5x2Gkc0Tg+IhAdjYp+ajNcaX+6+UzP3/q/sNzHvwq7qFD8Q8fmvPQ4fjImvjII3G/rZ1z/z+fHnds9tja2PDamcpjMYoj0+Fw0hTrz3UlH7oCaGHgtcCv+Ca msqhDWdrOyYHpuwbBZx4icNXxSDPEyM/Bow+f00/uxHPMho6S//De1BngQtt7Sj5wjVnt9p5byGuhMUG2qe9pGu/tTu+jxsJnu0u7FWVioLgXn9V76z109AwtQ97AvC7uHDP3Jnd1u q4DcjohpxPWdYC2HTLbuVec4Ml0QnorZDq5d9PbuOFBhLwWiQZ QG0B1HpLrFMvrw1bUh62o5//TUKHRYyDDABqT92EQ6VNDwo99RzEphqFGbQC1n/0m62GJHpboQdXHomvc6pI+cGTRNUj4BRJ+gYWN3EchCxthXiMk GgJqkVwHyXWK5DrF8npeDllwBsXyegWfX7Dh0INrPmQoQsFdbB G++S28Eol45tr4MsdY7XU720i4Z4HEazD1EETuJloQvIi1uI9o QWAbQaWHxw4QLQg+EC0IMoi1GBv3C9GCQLQgyCDWIiKukWhBAJ UeJhMtCL4QLQgyEC0IMhAtCDKItRhLtCCwjbBID48dJFoQfAia FtC3SOMhbyThdhFrcWfnFsJjL0oTLUYioLoOkwethU+JfR7gBN FiJCLWYpDnFiIn7ESLkYn0M5E710I6ffg74SAMc4L2UZm/Y0+cGIlI71vciRYBjj3RYiQSNC38TRlEi5GI5OZ3PHnegoCvRI gWBF/EWpCb3wQ7+aiMIAvRgiADOeUkyEC0IMhAJhGCDLBIH8yPygijA 6kWZBIhEC0IchAtCDIQLQgyEC0IMhAtCDIQLQgyEC0IMhAtCDI QLQgyjAwtWOYy1XSx+fpZg/5/hwD9lVN3D34vzdfPGm+co5ousszlkPfwiNSCarpobq7fvv+L6H XVkFQ1OhiveXPLHw9YqAYL1RDyHh6RWhhvnNu+/4sYzY6LDBpNxGh2vLb/EBkt7lyL6HXV3/3cMfqIXlfdYr0W8h6WaHFd9EUGw1GL5utnIanqm0ueby519PT0 9PT8Ogr4psHzzaUOSKpqbWkKeQ+PSC2MN85BUtXx+vYTP7V3d3 eNCm6e+Mlzot4DSVVOhyHkPSzWQjVCJhFIqjp2oe3ri203b3aM Ajo7Pccutn19sW1kaBExjLWoPeeuPefu6GgbBXg87tpz7trzbq LFYLWoOeOs+dHV0eEOOvx/zwojsulg4fG4an50Hv7RSbQYrBaHfmj94rTT43EFFwCQpqWJ4N Le7jz0Q+uhH1qJFoPV4rOTLX8/1dLe7gwiACAbEb7eDdraWj/7H8dnpxzDVYvroq+CH75aHPjefuB7e1tbaxABANkInlOCuy8hb rfj4PctB7+3Ey0Gq8VfvrV++p2trc0RRABANtKnRTD3JcTtbvn 0W9tfvrUNXy0mjxAtPj5h/fgE63a3BBEAkI0IX+8GLpf9kxPWj0+wRIvBarHvmGXff1pcrpb gAgDStDQRXJxO+/5jlv3HLESLwWqxt5bZW2t2uexBh79AFUZk08HC6bTh5gxTLRaJ fyFg+Grx/lHz+0dop9M2CmhtZd8/at5zlCZaDFaLXTXUrhrK6bSOAlodll011C5Oi+aQ97BEC/GXOw9fLXbWUDtrKJuNtttou808crHZaNbSjJsDSVUuhzHkPdyP FsPzozLTjfPjNW/ifhxljNe82eYyh7yHZbQY/j94STfXlbx7IEazQ/PGyeffcYwaYjQ7ynb91dNuC3kPj0gtWPPPdrbxjU++HGXPcpbv/nt7u7WzwxHyHu5Hi+H5W2Ut1mutLU1tLqbD09LZ0Xqzw3mz8y7 S3d1x9xDsyN11032z09XaciPkPSzWQvJR2XDUgjDEjIynswhDT HC+Cp4wyiBaEGQg38tJkEHyy4ZEC4Lc76ASLQjk3IIgB9GCIAP RgiBD0H7wkjCaEGsBj9aNjfvloTU0liNitZUHVroI9wQqPcz+3 leL8Udg8gGYfAAmH+xL+OOgAD95HvOPv2w+xR70/5Zw84M++K2ksFj/+CvZX1GBOuoOsgXuc9lOvv3m99OWv8HkgzDxzwItHv4EIncTCB yILGSRLEQLssgs/w/z4cSxsKKCmwAAAABJRU5ErkJggg==
http://www.thanwya.com/vb/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALIAAABvCAIAAAD HSA3OAAARwklEQVR4nO2df1AT177AvyFPsN5p321pHapWaxWxV HsF648C8RcKlhAFIQrKj6CClFKplHv7an9Nyzi9Vu3UV31t772 d0XtvO7UVvdxnn7620xl9U+vzFxSrUl+UkOxms0kISSAgFDzvj 7NsNrubgBIJ4Nn5TObsN2fPnnP2wzm7myUBRBaySBYIdQXIMhw XeS1AfUGRXq9Ir4fUq5B6FdIaOTIMkNUM6ykoYPCrosgKBSysZ yCPhQIW8vrIsYUCx5CSaxlqxI31bX4mhoZMG6gZyKQhkwY1A5k 2UNtAzYDaBCkUpFCgNoGaATUDahukWGFxQz9aYBvCt7RHVPZGb kcT3kET3kHTdqCYPShuN4rbhxL2ooS9SLUfqfajxR/5BWcYYgLU524wHNqo2s8dDv7VH3G7xUzbgabtQJHbUXh5Dyxug LjT8loo0uvD8tnwLe1h5a6IqluR2xFvxtSdaOpOFLMHPfWBl7h 9HMIg4e4Rs4dDuIqPLv7TxYeJZ9oOn1V8KHnw8Y3cjiIqeiMqe iGnDRIbxFrA0rOQYYSsa4pim6LYBltaMGHlLuVWj7KiO6LqFrz cq6xEykqE0xFVt/ggTuBg+LZbEZVczlGMovzWEIN3ijsc9zZGUdYdVtylLG1XFrsU Og8UumG9BwrdsMGt0Hm4iM7BkWcHnQMK3aC1crNPnh3y7JBtgu RLoNJLtFBfgPVNXgoY2MhiRcLKXRjlVo8/wspdytJ2L8Uuwl1nk125ya4ssimKrGH5bFg+C+sZyDFDjhm0NE e2iSOrGbKaIcMAGQaFRg9pekhr9J4+Jl+CBecg6iuvFhB/EtL0oL4AWdc4BGbwcnA87/bCB7e0KIptPkqGAHb0s54Rk2MGLT1mrankQ5a2/3o7FxwIIVTynmHMkgugOg8LzkH8SYg/CY8cEGgRfxKWnlWk1/vTgkekgqLYBhtZ7pKkQFB17CwhiPB/98JhIMMIGYaSvUx3s96262X2NR2zTWsu09AlK6miZdSm5VThIq pwkSkv0ZSXaFw717h2rjFrjkEzU79iSn3WM62NDSXvNkHcaYg/CbHHYcZhgRbTP5fTgpLVgldBYAMDBb7+CgexIYPvtaEBj8khga 9AhhHPCAgh+54/tP7tA+fn+xx/2mHb83vru1utb5eyb5Wwr2+0vFpoebXA8vtcpnKteWsGXfocpV ts0MbXp0z7L/Uc2trFafHEf8P0z+GBN/q0iPoK4k+C6nzYCrEWiiIrd/h5OYqs3mCB78gm9XoUExIhMgyQYewTwsifKCCE2LeKnYc+ch3+ k+PTnfa92227Kq07XmTfLrW8Wcy+vpF9rcjySr6lKtdcsYYuS6 c2JTfnLmhIm/nl3EcQQhB3Gmad8asFpF71GSoKWCwBBp/a4LMb76whO3EM/VBxL4wWnApCDKA2gNqAELJU5Tg+3dl6cE/L/rds722zVpexb2y2/FsB83IuU5FtfjGTLlXTpWnUpuWUbrEpL8Gw9pmG9NjD86MQQrD gHMw6A4+fkWgRdxoWN3C3MrNN3huXAjOURTbhSW9YPis/WoTEiXuBTNrHCY0JNCZeC6ZijX3vq/YPX7e9t63z/CmEEFOZy7yYRZdqqM0pVOFS04YEU+5ChFDbtzVGbVxT1pxLq2b VJDyGEIL5DZwWMw4LtJjwHSw4B4kNkKaHrGbQ0rCe4d7q0wIhh LVQFtnwW9gMLtuAteDyB7vLBl+msGIDqmRmP3CF9JftTjbHQvh qYS7T2N7danvvJWt1GX+hQZdqqM2pVOES04YE49pn+LhxzeymN U9f0ki08BktJnwH8xtgiR7S9JBtAi0NuRb81rioal4FYRqv8lq Mi6ruu2/fjxne/EF1YvC2CSt2Z5UU1WEwLeVb5LN5QC3o4hT27VJrdRn7ZrHllQK +BKoomcpXmXLme51YFWPMiDVkzrqkia15dhKnxZP1cqMFr0Umj bWAPDv3rs7Blzhmk4Ov7rioamW+XZlvx2nIYwdixl3VYjDFikr gGjWIEu6sEGFz5Fsk1ELto4Vlu87y+kbLdp2lagOzNZsvxJSX4 HVCM92ofsKoiTZkPPlz+pNHnp2IEIJ5jQG1yDBCjhlyLZDH8lq Mi6oW1pJPKPPtfFyZb8f5+WEGIQRaKw/yXcZFVYuC/KpwE9Hmwk1EheOK4WJl9zjAuLCx0vyyhchGBliIbIuQbz8LWwp aq3fMUDO8HAghU36SpSrX8kq+5Q/5TGWuuSKLfmGVqLFUZgy1epop/XGT5onm1dGX06KPLngUYS3wgBF7XKDF42dgYSOkUJBJc7fK8+z 8IMH3uKi6Sp1LqXN5V/ssgRwbnw3fdefzCDeXBvmcfEKYlm4rKlzaueLyBxaXKiLNDFpr 4JIHUgifli1cWB9fLWy+0KAxIYRMuQuYFzMtlessL+cy29aZt6 4xl2noLal8T9LrZtFZM+iMJ2jNZFozxbhq6pXnph6dNx4hBAm/cAPGjMMQuUtOiz4noNAtbJiMFsU+WsAGb37IcfSbDhzkGyNrEu Q4uN73U+BAKnC7lZTuVFhJUQn9tjRAWlp/L1qXF4EcCCFjdjz9vJp5KZvZttbykpapWGMu14jqyWhnMGumml dNMmsmmdInXUmZ9I+5DyGEINEA8xph2hWIPS7QYkoDqPSQQoG2 T4tCt0LnURZ1IDktcO+Eb2nHGXBEofN4WyJUxE86cFD0KsqJEI INboxsgQOpwO1WUrpH30PeJkwLV/3lCbCtbMQHrxxOyHQihJpXP0VtWm5+YRVTsYapyDJvzeT7iilW 4cQtj8uSPdWSMZHRRFFpUVeXjf9n3L8ihGBJMyQa4Gk9xB6HR/5doEWiAVIo0FqxE1DoVmzuCivu4osW/QWHl3WFl3UpS7v5iD9F/KUDZ5DuEb+r0Hn4OF5Fvsu4qGpY74H1HuHqHadFZQ68ZH+FDHB b2YgPvnIghAzqaFOBit6y0ly+yvxiBt8hTOkypjjJstF7JcJmP GpJH0+lRjYu/m3t7HEIIVhqgUSjRItpVyDRAClWyLRxTug8Qi244aG8h18NL+/B8BFhZtD1nw6cAUm04N+SLcRn5tZ1DaQCd1bJAZYw8JbKbisbg TwBvBzadtC2I4SaVkw25synNi6jtzzH95u5dAWzZSmzOdGycZ6 1YDYfZ9MeNC+//2rib2qfCkcIQYqVMyP+pEQLNQM5Nn76CCv2GQxEEuBHeiIqevm IosybWbG5S5jmV/lFmIePCDPzq9K3hPll9yItXFRggP0ihAKUE6AQ0PWAjusfYRq/JS1ENgNfjmykz48eH0tyb0JOJ0LoxpKo5synTXkJ1MZlnpNfI4 TMxcnm4qXmzSpm40KLLp7Ni7XmTkcIdZ44yK58gF5y39X5Y/4RE4YQgtRWWGqBhVaYdUY0iRhBbYMcB9YCO6F84VflC79yQ8U2 7rErvBpR2Ysj4dtucZ1VfktRzqXDym6Flfmk+VUeaZDPieOyae EmAfYSVnZLeAyEefzFRZv3W0lRc6C4FyNclaYHmNlfxAvvSl4X 5HUhhK4nPWxQRzdnx5k2PEsVqKhCFVWQSBc8SxcsMOfHMxtmWd ZFs9lT2IxH2bQHLct/Q6nGXJkbdnSGgtMixQoLrRB3WqDFhDpeC+FQoXzh1/CK7oiKXt4J/KAeD457H2Xb6kXY1yGBP/wDjI8UZOVACDUueOD/kiddT595Y83vmrRzDeueMWjjDGvjmtc+bdTGUlnRVMYUOv1Rem UknXw/tSjCsDDsp9/Bl9MAIQTpbZDaCgutvpOIrxbYDGVpt7K0O7y8h5svKnulWgQ2Y 4i5R7SQNYNu6b3w3MzzCyPPL5pYt3xqXWp0XeqMupTp9anTfkq Z2rBi8uUVEy8vG39lSeRl1QNXnr3v8rx/+WmO4lQsfJU0RayF9wJVoAV+LhQPGHjMCC/rEsshmEFknQh5x2Gkc0Tg+IhAdjYp+ajNcaX+6+UzP3/q/sNzHvwq7qFD8Q8fmvPQ4fjImvjII3G/rZ1z/z+fHnds9tja2PDamcpjMYoj0+Fw0hTrz3UlH7oCaGHgtcCv+Ca msqhDWdrOyYHpuwbBZx4icNXxSDPEyM/Bow+f00/uxHPMho6S//De1BngQtt7Sj5wjVnt9p5byGuhMUG2qe9pGu/tTu+jxsJnu0u7FWVioLgXn9V76z109AwtQ97AvC7uHDP3Jnd1u q4DcjohpxPWdYC2HTLbuVec4Ml0QnorZDq5d9PbuOFBhLwWiQZ QG0B1HpLrFMvrw1bUh62o5//TUKHRYyDDABqT92EQ6VNDwo99RzEphqFGbQC1n/0m62GJHpboQdXHomvc6pI+cGTRNUj4BRJ+gYWN3EchCxthXiMk GgJqkVwHyXWK5DrF8npeDllwBsXyegWfX7Dh0INrPmQoQsFdbB G++S28Eol45tr4MsdY7XU720i4Z4HEazD1EETuJloQvIi1uI9o QWAbQaWHxw4QLQg+EC0IMoi1GBv3C9GCQLQgyCDWIiKukWhBAJ UeJhMtCL4QLQgyEC0IMhAtCDKItRhLtCCwjbBID48dJFoQfAia FtC3SOMhbyThdhFrcWfnFsJjL0oTLUYioLoOkwethU+JfR7gBN FiJCLWYpDnFiIn7ESLkYn0M5E710I6ffg74SAMc4L2UZm/Y0+cGIlI71vciRYBjj3RYiQSNC38TRlEi5GI5OZ3PHnegoCvRI gWBF/EWpCb3wQ7+aiMIAvRgiADOeUkyEC0IMhAJhGCDLBIH8yPygijA 6kWZBIhEC0IchAtCDIQLQgyEC0IMhAtCDIQLQgyEC0IMhAtCDI QLQgyjAwtWOYy1XSx+fpZg/5/hwD9lVN3D34vzdfPGm+co5ousszlkPfwiNSCarpobq7fvv+L6H XVkFQ1OhiveXPLHw9YqAYL1RDyHh6RWhhvnNu+/4sYzY6LDBpNxGh2vLb/EBkt7lyL6HXV3/3cMfqIXlfdYr0W8h6WaHFd9EUGw1GL5utnIanqm0ueby519PT0 9PT8Ogr4psHzzaUOSKpqbWkKeQ+PSC2MN85BUtXx+vYTP7V3d3 eNCm6e+Mlzot4DSVVOhyHkPSzWQjVCJhFIqjp2oe3ri203b3aM Ajo7Pccutn19sW1kaBExjLWoPeeuPefu6GgbBXg87tpz7trzbq LFYLWoOeOs+dHV0eEOOvx/zwojsulg4fG4an50Hv7RSbQYrBaHfmj94rTT43EFFwCQpqWJ4N Le7jz0Q+uhH1qJFoPV4rOTLX8/1dLe7gwiACAbEb7eDdraWj/7H8dnpxzDVYvroq+CH75aHPjefuB7e1tbaxABANkInlOCuy8hb rfj4PctB7+3Ey0Gq8VfvrV++p2trc0RRABANtKnRTD3JcTtbvn 0W9tfvrUNXy0mjxAtPj5h/fgE63a3BBEAkI0IX+8GLpf9kxPWj0+wRIvBarHvmGXff1pcrpb gAgDStDQRXJxO+/5jlv3HLESLwWqxt5bZW2t2uexBh79AFUZk08HC6bTh5gxTLRaJ fyFg+Grx/lHz+0dop9M2CmhtZd8/at5zlCZaDFaLXTXUrhrK6bSOAlodll011C5Oi+aQ97BEC/GXOw9fLXbWUDtrKJuNtttou808crHZaNbSjJsDSVUuhzHkPdyP FsPzozLTjfPjNW/ifhxljNe82eYyh7yHZbQY/j94STfXlbx7IEazQ/PGyeffcYwaYjQ7ynb91dNuC3kPj0gtWPPPdrbxjU++HGXPcpbv/nt7u7WzwxHyHu5Hi+H5W2Ut1mutLU1tLqbD09LZ0Xqzw3mz8y7 S3d1x9xDsyN11032z09XaciPkPSzWQvJR2XDUgjDEjIynswhDT HC+Cp4wyiBaEGQg38tJkEHyy4ZEC4Lc76ASLQjk3IIgB9GCIAP RgiBD0H7wkjCaEGsBj9aNjfvloTU0liNitZUHVroI9wQqPcz+3 leL8Udg8gGYfAAmH+xL+OOgAD95HvOPv2w+xR70/5Zw84M++K2ksFj/+CvZX1GBOuoOsgXuc9lOvv3m99OWv8HkgzDxzwItHv4EIncTCB yILGSRLEQLssgs/w/z4cSxsKKCmwAAAABJRU5ErkJggg==

تظهر رسالة بها 24

اظن ان الاجابة مختلفة يا استاذ حسن
فالمفترض انه يكون رفع الاس اولا قبل عملية الضرب
بمعنى 3^2*(3)
اولا يرفع الاس فتكون 8*(3)
ثانيا الضرب فيكون الناتج 24
وبالتجربة على فيجوال بيزيك يعطيك هذا الناتج
كلامك صحيح ، وآسف على الخطأ الغير مقصود

لو سمحت يا أستاذ حسن الخطأ التالى
dim x as byte=344
هل هو خطأ املائى أم خطأ أثناء التشغيل
وما هى الرسالة التى تظهر في هذه الحالة

لو سمحت يا أستاذ حسن الخطأ التالى
dim x as byte=344
هل هو خطأ املائى أم خطأ أثناء التشغيل
وما هى الرسالة التى تظهر في هذه الحالة

الخطأ هنا املائى ونحوى حضرتك لانه خطا فى نوع المتغير
وبالتجريب على البرنامج يعطى خطأ Syntax Error

الخطأ هنا املائى ونحوى حضرتك لانه خطا فى نوع المتغير
وبالتجريب على البرنامج يعطى خطأ syntax error


مش المفروض تخصيص قيمة اكبر من مدى البيان يبقي عند التشغيل

ممكن لو سمحتم اجابة بعض الاسئلة :
- الخطأ ........... لايؤدى لتوقف البرنامج
-n mod2 ادا كان يساوى ........ فهدا يعنى عدم وجود باقي للقسمة وباالتالى العدد زوجى
-مجموع درجات الطلاب بيان من نوع ...............
أكواد :
- عرض قيمة المتغير firstname في سطر والمتغيرر userage في سطر جديد داخل lbl1
- ن &""& textbox1 =txtn.text
- ماناتج تنفيد الاكواد :
dim first as integer = 2.6 *
for i = 10 to 2 step -2*
msgbox i
next

* لا يستخدم في جمل التخصيص نهائيا ............

ممكن لو سمحتم اجابة بعض الاسئلة :
- الخطأ المنطقى لايؤدى لتوقف البرنامج
-n mod2 ادا كان يساوى صفر فهدا يعنى عدم وجود باقي للقسمة وباالتالى العدد زوجى
-مجموع درجات الطلاب بيان من نوع Single
أكواد :
- عرض قيمة المتغير firstname في سطر والمتغيرر userage في سطر جديد داخل lbl1
- ن &""& textbox1 =txtn.text

lbl1 . text = firstname&vbcrlf&userage -
ماناتج تنفيد الاكواد :
dim first as integer = 2.6
first = 2
for i = 10 to 2 step -2*
msgbox i
next
i = 10 , 8 , 6 , 4 , 2

* لا يستخدم في جمل التخصيص نهائيا الاجراء sub ( وهو غير مقر )




تحت امر حضرتك

أشكرك جزيلا أستاذ أحمد
ولكن لو سمحت بطلب من حضرتك خدمة وجود رابط لتحميل برنامج v.b.net

أشكرك جزيلا أستاذ أحمد
ولكن لو سمحت بطلب من حضرتك خدمة وجود رابط لتحميل برنامج v.b.net

ده رابط لتحميل البرنامج رابط مباشر

http://download.microsoft.com/download/D/9/C/D9C35F20-A749-4E25-A306-DE20B93AB8C0/VB.iso

ما نوع الخطأ اذا كتب الامر
const x as integer=textbox1.text
ونحن نعلم انه لا يمكن تخصيص قىمة للثابت أثناء التشغيل
وشكرا جزيلا يا أستاذنا

كلامك صحيح ، وآسف على الخطأ الغير مقصود

شكرا جزيلا اساتذتنا الكرام ...

ما نوع الخطأ اذا كتب الامر
const x as integer=textbox1.text
ونحن نعلم انه لا يمكن تخصيص قىمة للثابت أثناء التشغيل
وشكرا جزيلا يا أستاذنا
Syntax Error إملائى ونحوى

بعد إذن الأستاذ / أحمد قرنى
dim first as integer = 2.6
first = 3

شكرا جزيلا لحضرتك أستاذ احمد ... بالنسبة 2.6 التقريب يكون 3 ولا ايه

syntax error إملائى ونحوى

ازاى مقدرش اخصص قيمة للثوابت .. مش انا لابد عند العلان عن الثوابت تخصيص قيمة عكس المتغيرات ممكن فى وقت لاحق .. وايه الخطأ بالظبط

سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
كلمة dim لابد ان تكون كابتل ولا عادى سمول
-
إن&""& textbox1 =txtn.text وضح الكود السابق
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if
* dim x ,y as single
x = me . textbox1.text
y=3*x=2
label1.text=y

ما ناتج ذلك
(“msg box (“ m & “ ، “ & n
(“ “ = “ msg box (“ 2 & “+ “ & 4
("msg box (“ 3 & “ * “ & 5 & “ = “ 3*5

[QUOTE=حسن الاستاذ;5833309]سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
اه لازم يكون فى مسافة
كلمة dim لابد ان تكون كابتل ولا عادى سمول
مش هتفرق
-
إن&""& textbox1 =txtn.text وضح الكود السابق
مش فاهم اكود عايز ايه حضرتك متاكد من صحة كتابته
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if

dim x ,y as single
If isnumeric ( textbox1.text) then
x = me . textbox1.text
y=3*x=2
label1.text=y
else
( " ادخل قيمة عددية " )msgbox
( ) Textbox1 . Focus
""= Textbox1 . txet
End If

[QUOTE=حسن الاستاذ;5833309]سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
اه لازم يكون فى مسافة
كلمة dim لابد ان تكون كابتل ولا عادى سمول
مش هتفرق
-
إن&""& textbox1 =txtn.text وضح الكود السابق
مش فاهم اكود عايز ايه حضرتك متاكد من صحة كتابته
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if

dim x ,y as single
If isnumeric ( textbox1.text) then
x = me . textbox1.text
y=3*x=2
label1.text=y
else
( " ادخل قيمة عددية " )msgbox
( ) Textbox1 . Focus
""= Textbox1 . txet
End If

شكرا جزيلا لرد حضرتك
بالنسبة للكود ان حرف n بالانجليزي بس مش راضي يكتب معايا

[QUOTE=أحـمد قرنى;5834406]

شكرا جزيلا لرد حضرتك
بالنسبة للكود ان حرف n بالانجليزي بس مش راضي يكتب معايا

هيبقى ربط محتوى اداة مربع الكتابة بمحتوى المتغير n وعرضهما داخل اداة مربع الكتابة textbox

تطبع جميعها كما هي لا تغير شيل الاقواس فقط هههههههههه

m & “ ، “ & n - 1

وهكذا

سؤال
صح ام خطأ
ناتج تنفيذ الكود Degree=TextBox1.Text يكون True أو False ( )

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية

المجموعة ( ب )
تم عمل برنامج يقوم بحساب مجموع درجات الطالب في ىاربع مواد وايجاد متوسطهم كما يلي :
مجموع المواد Sum = Arabic + English + Math + Science
عددها / مجموع المواد = Aver

تتبع البرنامج لتكشف أن هناك خطأين هما :
الخطأ الاول : يعطل البرنامج ( صحح هذا الخطأ )
الخطأ الثاني : لا يعطل تنفيذ البرنامج لكن يمنع حصولك علي نتائج دقيقة ( حدد السبب ) و البرنامج هو :
Dim Arabic, English, Math , Science ,Sum , Aver as integer

Arabic= 45.5

English = 40

Math = 45

Science =40

Sum = Arabic + English + Math + Science

Aver = Sum / 4

TextBox1.Text = Sum

TextBox1.Text = Aver

المجموعة ( ب )
تم عمل برنامج يقوم بحساب مجموع درجات الطالب في ىاربع مواد وايجاد متوسطهم كما يلي :
مجموع المواد Sum = Arabic + English + Math + Science
عددها / مجموع المواد = Aver

تتبع البرنامج لتكشف أن هناك خطأين هما :
الخطأ الاول : يعطل البرنامج ( صحح هذا الخطأ )
الخطأ الثاني : لا يعطل تنفيذ البرنامج لكن يمنع حصولك علي نتائج دقيقة ( حدد السبب ) و البرنامج هو :
Dim Arabic, English, Math , Science ,Sum , Aver as integer

Arabic= 45.5

English = 40

Math = 45

Science =40

Sum = Arabic + English + Math + Science

Aver = Sum / 4

TextBox1.Text = Sum

TextBox1.Text = Aver


أولاً : لا يوجد خطأ يعطل البرنامج ، حيث أن قيم المواد معروفة مسبقاً ومخصص لها قيم ولم يتم تخصيص قيم مجهوله لمتغيرات هذه المواد ، مثل أن يتم تخصيص قيم لهذه المواد من صناديق نصوص وهذا لم يحدث
ثانياً : الخطأ الذى لا يعطل البرنامج ولكن يمنع الحصول على نتائج دقيقة ، هى تمثيل بيانات المواد والمجموع والمتوسط من نوع بيان عددى صحيح integer ، والأصح أن يكون من نوع بيان عددى غير صحيح Single بهذا الأمر
Dim Arabic, English, Math , Science ,Sum , Aver as Single

انا متفق معاك يا استاذ حسن فى النقطة الثانية
اما فى النقطة الاولى ممكن يكون يقصد عندما يعطل البرنامج وفى هذة الحالة نستخدم try catch فى هذا المثال

وما الداعى لها : هل درجات المواد ستكون غير رقمية أو خالية ، حضرتك التمرين أعطى قيم مسبقة للمواد
السؤال نفسه خطأ

ممكن حل المسألة الاتية
اولا :اكتب برنامج لحساب ضرب الاعداد الزوجية من ( 2 الى 8 )
ارجو الرد سريعا

ثانيا :فى حالة ان ناتج القسمة مثلا ( 36/0 ) فما هو نوع الخطأ

لو سمحت يامستر لو تكرمت تجاوبلي السؤال ده وياريت متتاخرش
dim a AS integer=15
if a mode 3=0 then
label1.text=true
else
llabel1.text=false
end if
الاختيارات (true-false-15)
هيا مكتوبة ف الاجابات true بس انا شايف انها false علشان السؤال بيقول لو 15 علي 3 يساوي 0 وده غلط يبقي false فننتقل علي الشرط بعد else واللي هو بيقول false ارجو التوضيح لي يامستر وارجو الاهتمام بالسؤال

ممكن حل المسألة الاتية
اولا :اكتب برنامج لحساب ضرب الاعداد الزوجية من ( 2 الى 8 )
ارجو الرد سريعا

ثانيا :فى حالة ان ناتج القسمة مثلا ( 36/0 ) فما هو نوع الخطأ


اولا :

Dim M As Integer
Dim Total As Integer = 1

Me.TextBox1.Text = ""
For M = 2 To 8 Step 2
Total = Total * M
Next
Me.TextBox1.Text = Total


ثانيا : لن تحدث أخطاء وسيكون الناتج ( مالا نهاية )

لو سمحت يامستر لو تكرمت تجاوبلي السؤال ده وياريت متتاخرش
dim a AS integer=15
if a mode 3=0 then
label1.text=true
else
llabel1.text=false
end if
الاختيارات (true-false-15)
هيا مكتوبة ف الاجابات true بس انا شايف انها false علشان السؤال بيقول لو 15 علي 3 يساوي 0 وده غلط يبقي false فننتقل علي الشرط بعد else واللي هو بيقول false ارجو التوضيح لي يامستر وارجو الاهتمام بالسؤال
سيتم تنفيذ الأمر label1.text=true
والمعامل Mod ليس لحساب القسمة ، بل لحساب باقى القسمة
وبما أن باقى قسمة 15 عى 3 هى 0 سيتم تنفيذ الأمر label1.text=true

طب ممكن حضرتك توضحلي معني باقي قسمة ده لو حضرتك تكرمت

خلاص شكرا اوي حضرتك انا تذكرت وشكرا اوي علي ردك هو حضرتك اللي عامل ملف الباوربويت اللي فيه امتحانات 2011 -2012-2013 ؟؟؟؟

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية


ممكن الاجابة

خلاص شكرا اوي حضرتك انا تذكرت وشكرا اوي علي ردك هو حضرتك اللي عامل ملف الباوربويت اللي فيه امتحانات 2011 -2012-2013 ؟؟؟؟
لا : كلنا هنا تحت أمرك

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية

تعديل :
اختر
2/ وظيفة الامر Next في جملة For ..Next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة القيمة الجديدة لعداد الحلقة بقيمة نهاية الحلقة
(ج) كل ما سبق
والإجابة : (ج) كل ما سبق
أظن أن اللبس الذى عندك ليس له وجود الآن

الف شكرا يا مستر حسن
جعله الله فى ميزان حسناتك

اولويات تنفيذ العمليات الحسابية يتم احتسابها من
أ- المستوى الاعلى فى الاسبقية الى المستوى الاقل
ب- من اليسار الى اليمين
ارجو الرد

اولويات تنفيذ العمليات الحسابية يتم احتسابها من
أ- المستوى الاعلى فى الاسبقية الى المستوى الاقل
ب- من اليسار الى اليمين
ارجو الرد




المستوى الاعلى فى الاسبقية الى المستوى الاقل

سؤال من الكتاب الفصل الثالث
اختر
2/ وظيفة الامر next في جملة for ..next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة قيمة الزيادة بقيمة نهاية الحلقة
(ج) كل ما سبق
ــــــــــــــــــــــــــــــــــــــــــ
(( يعني ايه يقارن قيمة الزيادة بقيمة المتغير )) المفروض انا بقارن قيمة المتغير بقيمة النهاية

تعديل :
اختر
2/ وظيفة الامر next في جملة for ..next هو
( أ ) زيادة قيمة متغير الحلقة بقيمة الزيادة
(ب) مقارنة القيمة الجديدة لعداد الحلقة بقيمة نهاية الحلقة
(ج) كل ما سبق
والإجابة : (ج) كل ما سبق
أظن أن اللبس الذى عندك ليس له وجود الآن


متفق معاك . لكن التعديل الي انت قمت بها نزل في نشرة تعديلات الكتاب اصل ده سؤال في الكتاب و اسئلة الكتاب هي الاكثر قربا لاسئلة الامتحان

متفق معاك . لكن التعديل الي انت قمت بها نزل في نشرة تعديلات الكتاب اصل ده سؤال في الكتاب و اسئلة الكتاب هي الاكثر قربا لاسئلة الامتحان
فى كلا الحالتين إذا جاء فى الإمتحان : اختر كل ما سبق

شكرا مستر حسن
بعد اذنك فى سؤال فى مذكرة الزياد
1- طباعة قيمة المتغير m x n=4 باستخدام msgbox مش فاهم ارجو التوضيح والحل .
2-اختبار قيمة المتغير salary هل هى عددية ام لا في صندوق رسالة هل هذا هو الحل
msgbox isnumeric ( salary
وبالتالى يكون الناتج T او F
ارجو الرد

dim x as integer=2.5
msgbox (x )

ناتج التنفيذ هنا لو رياضيا ح يكون 3

لو عمليا في برنامج الفيجوال هو 2 ;)

لو سمحتم
t=12 y=3 m=2.2
for x = 1 to t stepy
m=m*2

Try/catch تستخدم اثناء التشغيل ولا اثناء التشغيل والتصميم

يتم الاعلان عنه واعطائه قيمة اثناء الاعلان فقط......

* لحساب معادلة من الدرجة الاولى
dim ........, y as single
if ............. Textbox.text then
y = ..................
....=3*x+2
label.text = y
............
من فضلك ادخل قيمة رقمية
end if

ممكن استاذ يتكرم ويجاوبلي علي الاستفسار ده
dim n..k.c as integer
c=10
for n=1 to10 step 5
k=k+n
next
if n>= c then
c=c+1
end if
اذاي n هنا هتساوي 11 مش المفرود 15 بعد التكرار ياريت حد يجاوبلي بسرعة لو تكرم

الحلقة هنا
1
6
11 وهنا ينتهي التكرار لان قيمة المتغير اصبح اكبر من قيمة النهاية