هل يمكن استدعاء الاجراء قبل الاعلان عنه كما فى صفحة 85

هل يمكن استدعاء الاجراء قبل الاعلان عنه كما فى صفحة 85
نعم يمكن . ولكن فى أول الأمر سوف ينبهك البرنامج إلى وجود خطأ من عدم وجود الإجراء الذى تم استدعاءه ، وبعد الإعلان عنه يزول هذا الخطأ

اقرأالتعليمات التالية ثم أكمل العبارات التالية :
Dim x,Sum as integer
For X= 2 to 6 step 2
sum = sum+ x
If x < 4 Then
X= X+2
End If
Next
1- قيمة المتغير Sum تساوى ..........
2- قيمة المتغير X تساوى ........
3- قيمة التعبير X<4 فى المرة الثانية للتكرار تكون ..........
حاول تحل السؤال وهرفع الاجابة بعد تجميع اجابات الاخريين لتوضيحه

اقرأ التعليمات التالية ثم أكمل العبارات التالية
Dim X as integer = 2 ,Sum as integer
6=>Do While x
Sum =Sum + x
X=X+2
If Sum = 6 then Exit Do
Loop
Sum = Sum / 2
1- قيمة المتغير x تساوى ...........
2- قيمة المتغير Sum تساوى ...............
3- قيمة التعبير Sum = 6 فى المرة الثانية للتكرار تكون ..........

اقرأالتعليمات التالية ثم أكمل العبارات التالية :
Dim x,Sum as integer
For X= 2 to 6 step 2
sum = sum+ x
If x < 4 Then
X= X+2
End If
Next
1- قيمة المتغير Sum تساوى 8
2- قيمة المتغير X تساوى 8
3- قيمة التعبير X<4 فى المرة الثانية للتكرار تكون False
حاول تحل السؤال وهرفع الاجابة بعد تجميع اجابات الاخريين لتوضيحه
X.........Sum
========
0..............0 ............Dim x,Sum as integer
0..............2 ............ For X= 2 to 6 step 2
2..............2 ............ sum = sum+ x
2..............2 ............ If x < 4 Then ناتج الشرط True
2..............4 ............X= X+2
2..............6 ............ For X= 2 to 6 step 2
8..............6 ............ sum = sum+ x
8..............6 ............ If x < 4 Then ناتج الشرط False
8..............8 ............ For X= 2 to 6 step 2
ثم يتم الخروج من الحلقة التكرارية وتنفيذ ما يلى Next
ملحوظة : يتم زيادة قيمة متغير الحلقة بعد الوصول للأمر For وليس Next

اقرأ التعليمات التالية ثم أكمل العبارات التالية
Dim X as integer = 2 ,Sum as integer
6=>Do While x
Sum =Sum + x
X=X+2
If Sum = 6 then Exit Do
Loop
Sum = Sum / 2
1- قيمة المتغير x تساوى 6
2- قيمة المتغير Sum تساوى 3
3- قيمة التعبير Sum = 6 فى المرة الثانية للتكرار تكون True
X.........Sum
========
0..............2 ............Dim X as integer = 2 ,Sum as integer
0..............2 ............6=>Do While x ناتج الشرط True
2..............2 ............ sum = sum+ x
2..............4 ............X= X+2
2..............4 ............If Sum = 6 Then Exit Do ناتج الشرط False
2..............4 ............6=>Do While x ناتج الشرط True
6..............4 ............ sum = sum+ x
6..............6 ............X= X+2
6..............6 ............If Sum = 6 Then Exit Do ناتج الشرط True ثم يتم الخروج من الحلقة التكرارية وتنفيذ ما يلى Loop
3..............6 ............ Sum = Sum / 2

بارك الله فيك

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

لان وظيفة الامر Next زيادة العداد بمقدار خطوة التزايد ثم الرجوع لبداية الحلقة التكرارية والامور تكون واضحة أثناء التحويل بين الأمر For....next والامر Dowhile....loop

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

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

حد ممكن يفهمنى حل السؤال الثالث رقم 1 فى نموزج اختبار رقم 1
حدد قيمه كل متغير بعد تنفيذ الكود
1 – حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :
المتغير

القيمة

C

11

K

7

N

11


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

قيمة m عند انتهاء الحلقة ( for m = 2 to 10 )




ممكن من فضلكم تفهمونى حلها بيجى ازاى

قيمة المتغير m في كل مره تتزايد بمقدار خطوة التزايد و التي لم يتم كتابتها فتصبح بالتالي خطوة التزايد مقدارها 1
و هذا يعني ان في كل مره يتم زيادة قيمة المتغير m بمقدار 1

فتكون قيم m هي 2 و 3 و 4 و 5 و 6 و 7 و 8 و 9 و 10 و 11

أي أن القيمة النهائية للمتغير m هي 11 لانه عندها يخرج البرنامج من التكرار و يتوقف التكرار

قيمة المتغير m في كل مره تتزايد بمقدار خطوة التزايد و التي لم يتم كتابتها فتصبح بالتالي خطوة التزايد مقدارها 1
و هذا يعني ان في كل مره يتم زيادة قيمة المتغير m بمقدار 1

فتكون قيم m هي 2 و 3 و 4 و 5 و 6 و 7 و 8 و 9 و 10 و 11

أي أن القيمة النهائية للمتغير m هي 11 لانه عندها يخرج البرنامج من التكرار و يتوقف التكرار

بارك الله فيك علي هذا التوضيح

صح ام خطأ
يمكن تحويل نوع البيان string الى single تحويلا ضمنيا
كيف نحصل على عدد مرات التكرار مثلا
for n=1 to 10 step 2 هل عدد مرات التكرار هنا 6؟
المتغير الذى يعلن عنه داخل الاجراء يسمى ........
(global variable - local variable - middle variable - لا شىء مما سبق )
الشرط فى Do While .......Loop هو شرط ......
( استمرار التكرار _ نهاية التكرار _التفرع المشروط- التفرع غير المشروط )
ارجو شرح كيفية تحويل الجمل من for .....next الى do while ......loop
وسيلة تستخدم لجعل text box هى المستخدمة حاليا

شكرا استاذ تامر

صح ام خطأ
يمكن تحويل نوع البيان string الى single تحويلا ضمنيا صح
كيف نحصل على عدد مرات التكرار مثلا
for n=1 to 10 step 2 هل عدد مرات التكرار هنا 6؟= ( ( 10 - 1 ) ÷ 2 ) + 1 = ( 9 ÷ 2 ) + 1 = 4.5 + 1 = 5.5 ثم إهمال الكسر يصبح عدد مرات التكرار = 5 مرات أو يحدث التكرار عندما تكون قيمة n تساوى 1 و 3 و 5 و 7 و 9 و عندما يصبح قيمة n تساوى 11 يتم الخروج من الحلقة ولا يتم التكرار
المتغير الذى يعلن عنه داخل الاجراء يسمى ........
(global variable - local variable - middle variable - لا شىء مما سبق )
الشرط فى Do While .......Loop هو شرط ......
( استمرار التكرار_ نهاية التكرار _التفرع المشروط- التفرع غير المشروط )
ارجو شرح كيفية تحويل الجمل من for .....next الى do while ......loop
وسيلة تستخدم لجعل text box هى المستخدمة حاليا SetFocus ( ).
الإجابة بالأعلى

جملة For تنقسم إلى 3 أجزاء يتم تقسيمهم فى جملة Do While كما يلى : بما تحته خط فى المثال التالى:
مثال : for n=1 to 10 step 2
n=1 يتم وضعها فى سطر أوامر منفصل n =1
10يتم وضعها فى سطر أوامر جملة Do ولها شكلان
1 - إذا كانت الحلقة التكرارية تصاعدية يتم وضع علامة = > أقل من أو يساوى ,ومقارنتها بمتغير الحلقة nكما يلى Do While n <= 10
2 - إذا كانت الحلقة التكرارية تنازلية يتم وضع علامة = < أكبر من أو يساوى ,ومقارنتها بمتغير الحلقة n وهذا لا ينطبق على مثالنا الحالى
step 2 يتم تحويلها إلى أمر تخصيص بزيادة متغير الحلقة بقيمة 2 كما يلى : n = n + 2
الحل هو :
n =1
Do While n <= 10
الأوامر المراد تكرارها
n = n + 2
Loop

عدد مرات التكرار = ( ( القيمة النهائية للعداد - القيمة الإبتدائية للعداد ) ÷ قيمة معدل الزيادة ) + 1 مع إهمال الرقم العشرى
عدد مرات التكرار = ( ( 6 - 1 ) ÷ 2 ) + 1 = ( 5 ÷ 2 ) + 1 = 2.5 + 1 = 3.5 مع إهمال الرقم العشرى
يصبح عدد مرات التكرار = 3 مرات


3 ازى
مش المفروض يكون 4 لانه لم يصل لنهايه
بصراحه كل ما ابدأ افهم اتلخبط

لاننى اذكر لاختى
ارجو الحسم

فى الامر for n =1 to 6 step 2 فان عدد مرات التكرار يساوى...............3.......................

1 3 5
3ازى
مش المفروض يكون 4 لانه لم يصل لنهايه
بصراحه كل ما ابدأ افهم اتلخبط

لاننى اذكر لاختى
ارجو الحسم

قيمة البداية توضع كتخصيص قبل Do
قيمة النهاية هى شرط Do
قيمة الStep هى قيمة الزيادة فى Do وتوضع قبل Loop

3ازى
مش المفروض يكون 4 لانه لم يصل لنهايه
بصراحه كل ما ابدأ افهم اتلخبط

لاننى اذكر لاختى
ارجو الحسم

سوف يتم التكرار عندما تكون قيمة متغير الحلقة = 1 و 3 و 5 وعندما يصبح قيمة عداد الحلقة = 7 يكون تخطى قيمة النهاية للعداد وهى 6 لذا يتم الخروج من الحلقة دون تكرار ما بداخلها

قيمة البداية توضع كتخصيص قبل do
قيمة النهاية هى شرط do
قيمة الstep هى قيمة الزيادة فى do وتوضع قبل loop
كلام سليم 100%

البداية = المتغير (يوجد بعد Forمباشرة)
النهاية =>المتغيرDo While (قيمة النهاية بعد To)
أمر التكرار
معادلة الزيادة ( مقدار الزيادة+المتغير= المتغير) مقدار الزيادة بعد Step وفى حالة عدم وجودها تكون الزيادة واحد )
Loop

الرجاء حل اسئلة واختبارات كتاب الوزارة

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

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

الفصل الخامس
التعدي الإلكتروني
Cyber bullying
 أولاً : مقدمة :
إن أخلاقيات التعامل مع الإنترنت بل وكافة وسائل المعلومات والإتصالات أصبحت من موضوعات الساعة التى تهم الأفراد والمجتمعات والدول
لذا نسعى فى هذا الفصل إلى رفع الوعى لدى أبنائنا وبناتنا بأهمية أخلاقيات التعامل مع الإنترنت واكسابهم المعلومات والمهارات اللازمة لرفع درجة سلامتهم الشخصية فيما يتعلق بالتعدى عبر الإنترنت .
ومن خلال الإنترنت نستطبع أن نتعلم و نتثقف و نتسلى ونتواصل و نتحاور
ولكن يمكن أن نحصل منها على معلومات خطأ ويمكن أن نتعرف على أشخاص سيئين.
 تعريف التعدي الإلكتروني : عبارة عن سلوك عدواني متعمد يستخدم الوسائط الإلكترونية بغرض :
1- التحرش.
2- المضايقة.
3- الإحراج.
4- التخويف.
5- التهديد.
6- ....... إلخ.
 ثانياً : الوسائط الإلكترونية للتعدي : الوسائط الإلكترونية التي يستخدمها المعتدي الإلكتروني كثيرة منها ما يلى:
1- البريد الكتروني E-Mail : من خلاله يمكنك إرسال واستقبال والرد وإعادة توجيه الرسائل الكترونيا مع إمكانية إرفاق ملفات بتلك الرسائل.
2- المنتديات الإلكترونية Forums : فيها يتم طرح موضوعات للمناقشة فيتم إرسال المشاركة وتجد الردود من الآخرين.
3- الرسائل الفوريةInstant Message : من خلالها يحدث اتصال فوري بين طرفين أو أكثر عن طرق الكتابة أو المحادثة الصوتية أو المرئية.
4- التدوين الإلكترونيBloging : عبارة عن سجل الإلكتروني خاص يدون به صاحب المدونة ما يشاء.
5- المواقع الاجتماعية مثل FaceBook : تسمح بنشر معلومات خاصة للشخص صاحب الحساب.
 ثالثاً : أشكال التعدي الإلكتروني :
1- التخفي الإلكتروني (: (Anonymity عبارة عن " استخدام اسماء مستعارة تخفى شخصية المتعدى الإلكترونى بغرض الإفلات من العقاب "
2- المضايقات الإلكترونية (Harassment) : عبارة عن " رسائل عدائية ومزعجة موجهة ضد شخص أو أكثر "
3- الملاحقة الإلكترونية (Cyber stalking) : هي " شكل من أشكال المضايقات الإلكترونية لكن بشكل متكرر "
4- السب أو القذف الإلكتروني ( Flaming) : عبارة عن " نشر تعليقات أو كلمات عدائية و مبتذلة ضد شخص أو أكثر "
5- التشهير الإلكتروني (Outing) : عبارة عن " نشر معلومات عن شخص محدد أو أكثر بشكل مسيئ "
6- الاستثناء الإلكتروني (Exclusion) : عبارة عن " تجاهل شخص أو أكثر من خلال وسائط إلكترونية "
7- التهديد الإلكتروني (Cyber Threats) : عبارة عن " إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر "
 كيف تحمي نفسك من التعدي الإلكتروني ؟ يمكـنك حمـايـة نفسـك من هـذا التعـدي بإتباع الآتي :
1- لا تشارك أحد بكلمة السر, مهما كان قريب منك ( كصديق ) ، وأن تتعامل مع كلمة السر كمفتاح شـقتك لا تعطيه لأي صديق من أصـدقائك.
2- إعداد كلمة مرور لا تستنتج ، وذلك باستخدام مزيج من الحروف والأرقام "غير متعلقة بإسمه أو سنة ميلاده أو تفضيلاته أو أبناءه أو الأشخاص المقربين جداً منه".
3- عدم نشر أى بيانات خاصة أو عائلية على الإنترنت، بغض النظر عن طريق البريد الإلكتروني, أو النصوص المكتوبة، أو اليوميات الإلكترونية, أو على المواقع الإلكترونية.
4- عدم حذف رسائل التعـدي إلكترونى ، حيث يمكن أن تحتاجها كأدلة ضـده.
5- عدم مقابلة أحدا تعرفت عليه من خلال الإنترنت.
6- عدم إرسال رسائل وأنت فى حالة غضـب.
7- إطلاع ولى الأمر بما يضايقك عند استخدام الإنترنت أو ممن تثق بهم من كبار العائلة أو من المعلمين إذا تلقيت بريد أو رسالة الكترونية تجعلك تشعر بعدم الراحة، و أخبر وشارك أحد الكبار بتجاربك على شبكة الإنترنت.
8- إنزال البرامج من الإنترنت يكون تحت إشراف معلمك أو ولى أمرك.
9- قم بالإبلاغ عن التعدي الإلكتروني للسلطات المختصة.
10- لا ترد على المتعـدي إلكترونيـاً، ولا تصدق كل ما يكتبـه على الإنترنت والإنتظار حتى تهدأ.
11- احترم دائماً حق الآخرين على شبكة الإنترنت، وتعلم الخلق الحسن الذي يعتبر فن أدب التحاور على شبكة الإنترنت.
مواقف توضح الإرشادات السابقة
1 – قال عمرو لياسمين أريد أن أرسل رسالة لصديق وليس عندى حساب بريد الكترونى هل من الممكن أن تعطينى اسم المستخدم وكلمة المرور الخاصين بك حتى أتمكن من إرسال هذه الرسالة.
فى رأيك ماذا تفعل ياسمين ؟
الإجابة : لا تشارك أحد بكلمة السر.
2 – قام عمرو بإنشاء حساب بريد الكترونى خاص به فحاولت ياسمين استنتاج كلمة المرور بأن كتبت اسمه ثم سنة ميلاده ففتح الحساب.
فى رأيك ماذا كان يجب أن يفعل عمرو ؟
الإجابة : مراعاة إعداد كلمة مرور لا تستنتج.
3 – قام رامى بالإشتراك فى خدمة الـ FaceBook وقام بنشر معلومات تخص أسرته مستعرضاً صور الأسرة وأنشطتهم اليومية فقام لص بدراسة تلك المعلومات وعرف متى يكون المنزل غير متواجد به أحد ثم .........!؟.
فى رأيك ماذا كان يجب أن يفعل رامى ؟
الإجابة : عدم نشر أى بيانات خاصة أو عائلية على الإنترنت.
4 – اشتكى أحد الطلاب لمعلمه أن زميله سبه فى رسالة بريد الكترونى فقال المعلم أرنى تلك الرسالة ، فقال الطالب لقد حذفتها فقال المعلم ضيعت الدليل.
فى رأيك ماذا كان يجب أن يفعل الطالب ؟
الإجابة : عدم حذف رسائل التعـدي إلكترونى ، حيث يمكن أن تحتاجها كأدلة ضـده.
5 – قال عمرو لوالده لقد تعرفت على شخص فى إحدى غرف المحادثة ويود أن يقابلنى.
فى رأيك ماذا كان رد والده ؟
الإجابة : عدم مقابلة أحدا تعرفت عليه من خلال الإنترنت.
6 – حدثت مشاحنة كبيرة بين طالبين وبعد أن انتهت كان أحدهما غاضباً جداً فبعث رسالة تهديد ووعيد للآخر.
فى رأيك ماذا كان يجب أن يفعل الطالب ؟
الإجابة : يجب أن ينتظر حتى يهدأ ، و عدم إرسال رسائل وأنت فى حالة غضـب.
7 – أحد الطلاب يستخدم الإنترنت فى عمل الأنشطة المدرسية من خلال مجموعات عمل مع زملائه كلما استخدم الإنترنت تصله رسائل فورية Chat مسيئة له فدفاعاً عن نفسه قلل من استخدامه للإنترنت حتى يتجنب تلك الإساءات.
فى رأيك ماذا يجب أن يفعل الطالب ؟
الإجابة : أن يخبر والده أو ولى أمره حتى يساعده فى تخطى تلك المشكلة.
8 – قامت ياسمين بإنزال إحدى البرامج المجانية على جهاز الكمبيوتر ونتيجة لهذا العمل ظهرت إصابات فيروسية خطيرة للبيانات المخزنة بالجهاز تخص والدها.
فى رأيك ماذا كان يجب تفعل ياسمين ؟
الإجابة : أن تستشير والدها أولاً قبل إنزال البرنامج.

(5+3^2\(8mod5))

Sub showOddOrEven()
تفسير هذا الكودهل هواستدعاء وتنفيذ الاجراء showOddOrEven
أم الاعلان عن الاجراء showOddOrEven بدون وسائط لأنه لم يكتب حاجة داخل القوسين

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

الاعلان عن اجراء فرعى
ورقم الجلوس يمشى string على حسب المنهج

هنا طالما استخدمت sub
فهو اعلان والاستدعاء نكتب الاسم بدونها

ضع علام صح او خطأ:
1-يعتبر 7octn2010mبيان من النوع Date()
2-يتم الاعلان عن الداله Functionووسيطها من نفس النوع()











ك:

الاجابة الاولى خطا
الاجابة الثانية خطا

لو تفضلتو ا حد يجاوب السؤال الاخير فى محافظة الدقهلية:):)

الاولى خطأ وتصحيحها String
الثانية برضه خطأ لان مش شرط ان يكون نوع الوسائط من نفس نوع الدالة

قيمة A تساوى 0
قيمة B تساوى 8
قيمة c تساوى 7

عاوز الحل بالتفصيل لو سمحتوااااااااااااااااااااااااا

بص اتعود طالما بدأ الجملة ب Sub او Function يبقى ده اعلان عن اجراء او دالة
وبالنسبة لرقم الجلوس احنا اتفقنا ان طالما الارقام مش هنجرى عليها عمليات حسابية ممكن نعلن عنها انها String وبرضه ممكن نعلن عنها انها integer

للسادة الأفاضل
لو الطالب في امتحان المنوفية كتب الشرطة كدا
if m > 0 then
فيها مشكلة ولا لازم يكتب أكبر من أو يساوي أرجوا الرد وهي تأثر علي الدرجة أم لا

للسادة الأفاضل
لو الطالب في امتحان المنوفية كتب الشرطة كدا
if m > 0 then
فيها مشكلة ولا لازم يكتب أكبر من أو يساوي أرجوا الرد وهي تأثر علي الدرجة أم لا
طبعا ستكون خطأ
وحسب رأي الزميل الذي اطلع على النموذج
درجة ضاعت

يبقى نسى النقطه (بضم النون )اللى نصف قطرها صفر

قيمة a تساوى 0
قيمة b تساوى 8
قيمة c تساوى 7
مظبوط تمام
a متغير عددى تم الاعلان عنه يأخذ القيمه الافتراضيه صفر
جملة التكرار ستتم مرتين يبقى b تنقص 2 و c تزيد 2
10 - 2 = 8
5+2 = 7

ضع علامة صح او خطا

يتم الاعلن عن الدالة Function ووسيطها من نفس النوع

الاولي خطأ لأنها ببساطة مش تاريخ أو وقت وهي أيضا ليست string لانها اذا كانت سلسلة حرفية كان وضعها بين علامتي تنصيص " "

الثانية خطأ ولكنها لم تذكر في الكتاب المدرسي

خطأ ......

صح لطالما كانوا النوعين مداهم واحد اما لو حصل اتغير المدي للقيمة الراجعة عن مدي الدالة يحدث خطأ اثناء التشغيل RunTime

صح لطالما كانوا النوعين مداهم واحد اما لو حصل اتغير المدي للقيمة الراجعة عن مدي الدالة يحدث خطأ اثناء التشغيل RunTime
الله يفتح عليك
هو دا الكلام الصح
لما يكون مدي الدالة مغاير لمدى نوع القيمة يحدث runtime
ودا اللي حصل في امتحان المنوفية

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

الله يفتح عليك
هو دا الكلام الصح
لما يكون مدي الدالة مغاير لمدى نوع القيمة يحدث runtime
ودا اللي حصل في امتحان المنوفية
المدى بيتم تجاوزه بالتحويل الضمنى ولن تحدث أى أخطاء من نوع runtime

وعليك ان شاء الله بس هو مش هيبقي غلط في كتابة الكود يعني الغلط هيجي لما يستدعي بوضع قيم غلط يعني لو حضرتك جربت تدخل قيم فية يعمل خطأ وفيه ميعملش خطأ
القيم المدخل ستكون من نفس نوع الوسائط يعنى قيم صحيحة وليست قيم غلط كما اشرتم
وسيكون البرنامج runtime ايضا

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

المدى بيتم تجاوزه بالتحويل الضمنى ولن تحدث أى أخطاء من نوع runtime


التحويل الضمني دا شئ داخل اللغة نفسها يتحول مع الخصائص مع الدوال مش مع متغير او دالة
وجرب بنفسك خلي نوع الدالة Byte والراجعة single ودخل مدي اكبر من 255 وشوف هيديك اية

هذا هو التنفيذ بدون أى أخطاء
https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-prn2/p206x206/971048_465181370229590_657334748_n.jpg

مدي ال Decimel وال single متقارب وانت كدا فية جرب وجرب نوع الدالة ل Byte

التحويل الضمني دا شئ داخل اللغة نفسها يتحول مع الخصائص مع الدوال مش مع متغير او دالة
وجرب بنفسك خلي نوع الدالة Byte والراجعة single ودخل مدي اكبر من 255 وشوف هيديك اية
ما هوا دا اللى ذكرتهولك فى مشاركة سابقة فى موضوع ( هل من فتوى لواحد .... )
وكان محتواها
الكود سليم تماماً ولن يحدث أى أخطاء
والا قاصدك فى مشكلة خاصة بالدقة

كان قصدى الدقة والمدى أيضاً حتى فى سؤال الإمتحان وليس فقط عندما تكون نوع الدالة Byte

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

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

هذا هو التنفيذ بدون أى أخطاء
https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-prn2/p206x206/971048_465181370229590_657334748_n.jpg

مدي ال Decimel وال single متقارب وانت كدا فية جرب وجرب نوع الدالة ل Byte
جرب تاني
في نفس الكود بتاع المنوفية
عند الاستدعاء
موضوع الامتخان اللي حصل حصل
والاستاذ تامر ربنا ينوره طريقة
قطع الشك وقال نوع القيمة الراجعة ديسميل ودا مخالف للنموذج والنموذج مخالف للكتاب ص 90
عايزين نستفاد من الموضوع
الكود يحدث runtime عند الاستدعاء بقيم صحيحة وليست خطأ

ضع علامة صح او خطا

يتم الاعلن عن الدالة function ووسيطها من نفس النوع

مهو دا اللي جاء في دمياط هههههههههه

انا عن نفسي قلت للطلبة ان اجابته صح

الاولى خطأ لان البيانات من النوع تاريخ تدخل بين علامتى ## وبالصيغ التاليه #10/23/2012# مع ملاحظة ان الشهر يكتب قبل اليوم .
الثانيه خطأ مش شرط
للاسف هناك مجموعه كبيره من مدرسى الماده لم يدرسوها اصلا ولا يعرفون عنها شيئا وللاسف الاكبر لم يحاولوا ان يطوروا انفسه بدراستها او اخذ دورات فيها والمشكله الكبرى انهم قد يضعون الامتحانات واذا كان احدهم يصحح ورقة طالب مبدع وللاسف سيلتزم المصحح بنموذج الاجابه حتى لو كان النموذج خطأ والطالب هو الصحيح

طالما بدأ الجمله ب Sub او Function يبقى اعلان اجراء وزى ماحنا عارفين مش شرط اننا نكتب وسائط فى الاجراء
بالنسبه لرقم الجلوس الادق اعلانه من النوع String وذلك لاننا اذا كتبنا بالخطأ جمع رقم جلوس على رقم اخر يعطينى رسالة خطأ ولا يقوم بجمعهم

الأولي خطأ

الثانية صح لأنه لم يقل فقط ولم يقل شرط زيها زي اسئلة الكتاب اللي غلبنا فيييييييها

الاولى خطأ لان البيانات من النوع تاريخ تدخل بين علامتى ## وبالصيغ التاليه #10/23/2012# مع ملاحظة ان الشهر يكتب قبل اليوم .
الثانيه خطأ مش شرط
للاسف هناك مجموعه كبيره من مدرسى الماده لم يدرسوها اصلا ولا يعرفون عنها شيئا وللاسف الاكبر لم يحاولوا ان يطوروا انفسه بدراستها او اخذ دورات فيها والمشكله الكبرى انهم قد يضعون الامتحانات واذا كان احدهم يصحح ورقة طالب مبدع وللاسف سيلتزم المصحح بنموذج الاجابه حتى لو كان النموذج خطأ والطالب هو الصحيح

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

امال تعمل ايه لو شوفت سؤال صيغته غ.... بالشكل دا

اختر
تستخدم جملة Do while….loop لتكرار كود معين لعدد من المرات .......
( المحددة – غير محددة – لاشى مما سبق )

سؤال نرجو الرد عليه مع التفسير
Public Class Form1


Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total

End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum(255, 1))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim total As Short
total = 255 + 1
MsgBox(total))
End Sub

End Class
عند الضغط على button2 ماذا يحدث

عند الضغط على button1 ماذا يحدث


طبعا مع التفسير
واعتقد الكثير ليس لديه تفسير وخاصة الكمبيوتر التعليمى

أولاً بالنسبة للزر الأول قيمة tatal سوف تكون 256 وهذا الرقم تتقبله tatal لأنها من نوع Short
ولكن عند تحويل تلك القيمة الراجعة من نوع بيان Short إلى نوع بيان Byte اللى هوا نوع بيان الدالة Sum يصطدم التحويل بأعلى قيمة لمدى الـ Byteوهو 255 فيعطى رسالة خطأ وقت التشغيل
ولكن السؤال هنا
إذا كان شرحى هذا صحيح
فلماذا لم يشر للخطأ للسطر Return total ؟ ولكنه أشار للسطر السابق له وهو total = First + second
هذا غير مفهوم
عذراً أستاذ / سيف فأنا أسأل وأرد على نفسى

أولاً بالنسبة للزر الأول قيمة tatal سوف تكون 256 وهذا الرقم تتقبله tatal لأنها من نوع Short
ولكن عند تحويل تلك القيمة الراجعة من نوع بيان Short إلى نوع بيان Byte اللى هوا نوع بيان الدالة Sum يصطدم التحويل بأعلى قيمة لمدى الـ Byteوهو 255 فيعطى رسالة خطأ وقت التشغيل
ولكن السؤال هنا
إذا كان شرحى هذا صحيح
فلماذا لم يشر للخطأ للسطر Return total ؟ ولكنه أشار للسطر السابق له وهو total = First + second
هذا غير مفهوم
عذراً أستاذ / سيف فأنا أسأل وأرد على نفسى
اصبت الحقيقة
لماذا الرن تيم في هذا السطر
ولماذا نفذ في button2
البرنامج لم يصل بعد للقيمة الراجعة حتى يصدم بالنوع

أولاً بالنسبة للزر الأول قيمة tatal سوف تكون 256 وهذا الرقم تتقبله tatal لأنها من نوع Short
ولكن عند تحويل تلك القيمة الراجعة من نوع بيان Short إلى نوع بيان Byte اللى هوا نوع بيان الدالة Sum يصطدم التحويل بأعلى قيمة لمدى الـ Byteوهو 255 فيعطى رسالة خطأ وقت التشغيل
ولكن السؤال هنا
إذا كان شرحى هذا صحيح
فلماذا لم يشر للخطأ للسطر Return total ؟ ولكنه أشار للسطر السابق له وهو total = First + second
هذا غير مفهوم
عذراً أستاذ / سيف فأنا أسأل وأرد على نفسى
انت عارف
لو اردنا ان نفسر
لماذا الكمبيوتر لم يستطع تخصيص 256 في النوع short
هو نفس السبب
فسر
1+2=4

Arithmetic operation resulted in an overflow.

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

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

هذا هو التفسير المنطقى لذلك
وحتى لو كتبنا الكود كما يلى سوف يعطى خطأ فى نفس السطر
Function Sum(ByVal First As Byte, ByVal second As Byte) As
Dim total As Short
total = First + second
total = total - 1
Return total
End Function
بالرغم من أن total أصبحت قيمتها فى المدى المسموخ لـ Byte

انت عارف
لو اردنا ان نفسر
لماذا الكمبيوتر لم يستطع تخصيص 256 في النوع short
هو نفس السبب
فسر
1+2=4
ماذا تقصد بهذا التفسير

أنظر لهذا التعديل وستعجب له
Function Sum(ByVal First As Short, ByVal second As Short) As Byte
Dim total As Short
total = First + second
Return total

End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum(255, 1))
End Sub
ستجد أن الخطأ ظهر فى سطر Return total

أنظر لهذا التعديل وستعجب له
Function Sum(ByVal First As String, ByVal second As String) As Byte
Dim total As String
total = First + second
Return total

End Function



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum("255", "1"))
End Sub

ستجد أن الخطأ ظهر فى سطر Return total

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

Public Class Form1
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Sum(255, 1))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim total As Short
total = 255 + 1
MsgBox(total))
End Sub

End Class
عند الضغط على button2 ماذا يحدث

عند الضغط على button1 ماذا يحدث


طبعا مع التفسير

ممكن حضرتك الإنتقال للرابط التالى حيث تم إثارة الموضوع وبه العديد من المناقشات
مطلوب الحل فورا (http://www.thanwya.com/vb/showthread.php?t=521430)

1- يجوز الإعلان عن متغير أو غيره نوع بيانه يختلف عن نوع بيان الدالة ثم نجعله القيمة الراجعة (Value)
2- عندما تستقبله الدالة عند استدعائها يتم تحويله لنفس نوع بيان الدالة
حيث أن الدالة Sum نوع بيانها Byte وتم استخدام المتغير Total المعلن في نطاق الدالة Sum بنوع بيان Short كقيمة راجعة

3- عند استدعاء الدالة Sum في نطاق معالج الحدث الخاص ب Button1
تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime
منها نخلص
عند استدعاء الدالة لابد من تخصيص قيم من نفس نوع بيان وسائط الدالة أو يمكن تحويلها لهذا النوع وأن تكون في مدى القيم المسموح بها
الإعلان عن الدالة سليم لكن الاستدعاء لم يلتزم بمواصفات الدالة (مجازا)

الغريب أن نوع بيان المعاملات First و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second
و عندما يكون نوع بيان المعاملات First و second نفس نوع بيان القيمة الراجعة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total

255 ليست أكبر من مدى الـ Byte
((MsgBox(Sum(255, 1

في زر Button 2
تم تخصيص قيمة من خلال ناتج تعبير 255+1
التي هي في حدود نطاق مدى نوع المتغير

لذلك عرضت الرسالة
ولم يحدث خطأ

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

255 ليست أكبر من مدى الـ Byte
((MsgBox(Sum(255, 1

معذرة
ناتج الجمع وعند التحويل لنوع بيان الدالةbyte

الخطأ لم يكن فى الأمر Return total ولكنه حدث فى الأمر total = First + second
وكما ذكرت حضرتك فإن total نوعها Short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = First + second

ممكن حضرتك تنظر لتلك المناقشات
أولاً بالنسبة للزر الأول قيمة tatal سوف تكون 256 وهذا الرقم تتقبله tatal لأنها من نوع short
ولكن عند تحويل تلك القيمة الراجعة من نوع بيان short إلى نوع بيان byte اللى هوا نوع بيان الدالة sum يصطدم التحويل بأعلى قيمة لمدى الـ byteوهو 255 فيعطى رسالة خطأ وقت التشغيل
ولكن السؤال هنا
إذا كان شرحى هذا صحيح
فلماذا لم يشر للخطأ للسطر return total ؟ ولكنه أشار للسطر السابق له وهو total = first + second
هذا غير مفهوم
عذراً أستاذ / سيف فأنا أسأل وأرد على نفسى

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

انت عارف
لو اردنا ان نفسر
لماذا الكمبيوتر لم يستطع تخصيص 256 في النوع short
هو نفس السبب
فسر
1+2=4

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

هذا هو التفسير المنطقى لذلك
وحتى لو كتبنا الكود كما يلى سوف يعطى خطأ فى نفس السطر
function sum(byval first as byte, byval second as byte) as
dim total as short
total = first + second
total = total - 1
return total
end function
بالرغم من أن total أصبحت قيمتها فى المدى المسموخ لـ byte



أنظر لهذا التعديل وستعجب له
function sum(byval first as short, byval second as short) as byte
dim total as short
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum(255, 1))
end sub
ستجد أن الخطأ ظهر فى سطر return total



أنظر لهذا التعديل وستعجب له
function sum(byval first as string, byval second as string) as byte
dim total as string
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum("255", "1"))
end sub

ستجد أن الخطأ ظهر فى سطر return total


الغريب أن نوع بيان المعاملات first و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات first و second نفس نوع بيان الدالة وهو byte يحدث الخطأ عند الأمر total = first + second
و عندما يكون نوع بيان المعاملات first و second نفس نوع بيان القيمة الراجعة total وهو مثلاً short يحدث الخطأ عند الأمر return total

الخطأ لم يكن فى الأمر return total ولكنه حدث فى الأمر total = first + second
وكما ذكرت حضرتك فإن total نوعها short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = first + second

الأمر يحتاج لبحث واطلاع امهلني بعض من الوقت

الغريب أن نوع بيان المعاملات first و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات first و second نفس نوع بيان الدالة وهو byte يحدث الخطأ عند الأمر total = first + second
و عندما يكون نوع بيان المعاملات first و second نفس نوع بيان القيمة الراجعة total وهو مثلاً short يحدث الخطأ عند الأمر return total

هو ده الكلام المظبوط والاستنتاج الصحيح يا مستر حسن

الخطأ لم يكن فى الأمر Return total ولكنه حدث فى الأمر total = First + second
وكما ذكرت حضرتك فإن total نوعها Short سوف تستقبل ناتج الجمع دون مشاكل
فكيف يظهر الخطأ فى total = First + second

الخطأ حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime

لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total

ثم يتم تحويل المتغير Total إلى Byte ويرجع للدالة

وحلا لهذا الوضع
قم بعمل تحويل صريح
total =CShort( First) +CShort ( second)

ستجد الخطأ يظهر في سطر Return Total

لقد قمت بتطبيق ما قلته فى كود برمجة عادى وكانت النتيجة مشابهة
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Short
Dim first, Second As Byte
first = 255
Second = 1
total = first + Second
MsgBox(total)
End Sub

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

وممكن توضح بنفس الكيفية ما الذى يحث عند تنفيذ الكود التالى

function sum(byval first as byte, byval second as short) as byte
dim total as short
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum(255, 1))
end sub

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

إنا لله وإنا إليه راجعون

الموضوع عايز بحث كبير

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

وسنحيا كراما


قدر الله وما شاء فعل
وله سبحانه الأمر من قبل ومن بعد

لقد قمت بتطبيق ما قلته فى كود برمجة عادى وكانت النتيجة مشابهة
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Short
Dim first, Second As Byte
first = 255
Second = 1
total = first + Second
MsgBox(total)
End Sub

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

256 خارج الحد
التعليمات تتم وفقا للمترجم Compiler الخاص باللغة وكذلك وفقا لما يقوم به Jit Compiler وكله باستخدام المعالج
الذي يدير الذاكرة الفرام ورك عن طريق CLR
وهذة المشاكل نتجت نتيجة اعتماد المبرمج على التحويل الضمني الذي يوفره لغة الفيجوال بيزيك
على عكس لغة C# لذلك كثير يفضلونها عن الفيجوال بيزيك

وممكن توضح بنفس الكيفية ما الذى يحث عند تنفيذ الكود التالى

function sum(byval first as byte, byval second as short) as byte
dim total as short
total = first + second
return total

end function



private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
msgbox(sum(255, 1))

end sub

عملية التخصيص للمتغير Total سوف تتم بنجاح
لكن عملية التحويل من Short إلى Byte
لن تنجح بسبب تخطي القيمة للحد ونجد الخطأ يظهر عند سطر Return

1- يجوز الإعلان عن متغير أو غيره نوع بيانه يختلف عن نوع بيان الدالة ثم نجعله القيمة الراجعة (Value)
2- عندما تستقبله الدالة عند استدعائها يتم تحويله لنفس نوع بيان الدالة
حيث أن الدالة Sum نوع بيانها Byte وتم استخدام المتغير Total المعلن في نطاق الدالة Sum بنوع بيان Short كقيمة راجعة

3- عند استدعاء الدالة Sum في نطاق معالج الحدث الخاص ب Button1
تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime
منها نخلص
عند استدعاء الدالة لابد من تخصيص قيم من نفس نوع بيان وسائط الدالة أو يمكن تحويلها لهذا النوع وأن تكون في مدى القيم المسموح بها
الإعلان عن الدالة سليم لكن الاستدعاء لم يلتزم بمواصفات الدالة (مجازا)

في زر Button 2
تم تخصيص قيمة من خلال ناتج تعبير 255+1
التي هي في حدود نطاق مدى نوع المتغير

لذلك عرضت الرسالة
ولم يحدث خطأ

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

معذرة
ناتج الجمع وعند التحويل لنوع بيان الدالةbyte

الأمر يحتاج لبحث واطلاع امهلني بعض من الوقت

الخطأ حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime

لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total

ثم يتم تحويل المتغير Total إلى Byte ويرجع للدالة

وحلا لهذا الوضع
قم بعمل تحويل صريح
total =CShort( First) +CShort ( second)

ستجد الخطأ يظهر في سطر Return Total
اولا نتوجه بالشكر للاستاذ تامر
"تم تخصيص قيمة للوسيط الأول والوسيط الثاني أكبر من مدى نوع بيان الدالة وهذا لا يجوز فيتسبب في خطأ Runtime"
هل هذا استنتاج ام مسند الى رأي علمى
"المتغير استقبل القيمة لأنها تناسبه"
طبعا المتغير لم يستقبله من الاساس رغم ان القيمة تناسبة تماما ولم تتخطى المدى short
"حدث عن تنفيذ السطر total = First + second
بسبب عندما يتم جمع قيمة المتغير First الذي نوعه Byte والمتغير Second الذي نوع Byte
ناتج الجمع يتم تمثيله أيضا في شكل Byte
وبما أن ناتج الجمع أكبر من الحد المسموع يحدث خطأ Runtime "
طبعا ناتج الجمع 256 يناسب النوع short تماما بعكس ما ذكرتم وحدث الخطأ وهذا هو المطلوب تفسيره لماذا لم يقبل النوع short تخزين 256 التى تناسب معه
"لو القيمة في الحد المسموح يتم تحويل الناتج الذي نوعه Byte إلى Short
ليخزن في المتغير Total"
القيمة 256 في الحد المسموح للمكان التى ستخصص له total
وحلا لهذا الوضع
نحن لا نريد حلا ولكن نريد تفسير ليه متغير يرفض قبول قيمة مسموح بها في نطاقه في مكان ويقبلها في مكان اخر

طبعا الهدف ليس سوى الوصول الصح ايه
هل ما بعد return القيمة الراجعة نوعها هو النوع ما بعد as في تعريف الدالة ام لا

ماذا تقصد بهذا التفسير
طبعا التفسير
كان فسر
2+1=4
لما نيجى نفسر هكذا
صيغة عملية الجمع صحيحة ولا غبار عليها
حيث تم جمع عدد مع عدد فيكون الناتج عدد لان عملية الدمج عملية مغلقة
ولكن قيمة 1+2 ليست هي دي القيمة 4
هل هذا تفسير
طبعا دا اسمه لف ودوران
وسفسطة فقط ولا غير
اما التفسير
يكون هكذا
1+2=4
عملية حسابية خاطئة
فقط ولاغير وبكل بساطة

Function procedure performs a task and then returns control to the calling code. When it returns control, it also returns a value to the calling code.
Each time the procedure is called, its statements run, starting with the first executable statement after the Function statement and ending with the first End Function, Exit Function, or Return statement encountered.
You can define a Function procedure in a module, class, or structure. It is Public by default, which means you can call it from anywhere in your application that has access to the module, class, or structure in which you defined it.
A Function procedure can take arguments, such as constants, variables, or expressions, which are passed to it by the calling code.

http://www.thanwya.com/vb/ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/icons/collapse_all.gifDeclaration Syntax

The syntax for declaring a Function procedure is as follows:
[modifiers] Function functionname[(parameterlist)] As returntype
' Statements of the Function procedure.
End Function
The modifiers can specify access level and information regarding overloading, overriding, sharing, and shadowing. For more information, see Function Statement (Visual Basic) (http://www.thanwya.com/vb/a4497077-0f46-4ede-a27f-9e8670df52b9.htm).
You declare each parameter the same way you do for Sub Procedures (http://www.thanwya.com/vb/6a0a4958-ed0a-4d3d-8d31-0772c82bda58.htm).
Data Type

Every Function procedure has a data type, just as every variable does. This data type is specified by the As clause in the Function statement, and it determines the data type of the value the function returns to the calling code. The following sample declarations illustrate this.
http://www.thanwya.com/vb/../icons/copycode.gifCopy Code Function yesterday() As Date End Function Function findSqrt(ByVal radicand As Single) As Single End Function
For more information, see "Parts" in Function Statement (Visual Basic) (http://www.thanwya.com/vb/a4497077-0f46-4ede-a27f-9e8670df52b9.htm).


http://www.thanwya.com/vb/ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/icons/collapse_all.gifReturning Values

The value a Function procedure sends back to the calling code is called its return value. The procedure returns this value in one of two ways:


It assigns a value to its own function name in one or more statements of the procedure. Control does not return to the calling program until an Exit Function or End Function statement is executed. The following example illustrates this.
Function functionname[(parameterlist)] As returntype
' The following statement does not transfer control back to the calling code.
functionname = expression
' When control returns to the calling code, expression is the return value.
End Function
It uses the Return statement to specify the return value, and returns control immediately to the calling program. The following example illustrates this.
Function functionname[(parameterlist)] As returntype
' The following statement immediately transfers control back to the calling code and returns the value of expression.
Returnexpression
End Function

The advantage of assigning the return value to the function name is that control does not return from the procedure until it encounters an Exit Function or End Function statement. This allows you to assign a preliminary value and adjust it later if necessary.
For more information, see "Return Value" in Function Statement (Visual Basic) (http://www.thanwya.com/vb/a4497077-0f46-4ede-a27f-9e8670df52b9.htm).
Returning Arrays

If the Function procedure returns an array data type, you cannot access the individual elements of the array within the function. If you attempt to do this, the compiler interprets it as a recursive call to the procedure. The following example illustrates this.
Function allOnes(ByVal n As Integer) As Integer()
For i As Integer = 1 To n - 1
' The following statement generates a COMPILER ERROR.
allOnes(i) = 1
Next i
' The following statement generates a COMPILER ERROR.
Return allOnes()
End Function
In the preceding example, the compiler interprets the attempted assignment allOnes(i) = 1 as a call to allOnes on the left side of an assignment statement. It interprets the attempted Return allOnes() as a call with no argument. Both statements generate compiler errors.


http://www.thanwya.com/vb/ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/icons/collapse_all.gifCalling Syntax

You invoke a Function procedure by including its name and arguments either on the right side of an assignment statement or in an expression. You must provide values for all arguments that are not optional, and you must enclose the argument list in parentheses. If no arguments are supplied, you can optionally omit the parentheses.
The syntax for a call to a Function procedure is as follows:
lvalue = functionname[(argumentlist)]
If ((functionname[(argumentlist)] / 3) <= expression) Then
When you call a Function procedure, you do not have to use its return value. If you do not, all the actions of the function are performed, but the return value is ignored. MsgBox is often called in this manner.
Illustration of Declaration and Call

The following Function procedure calculates the longest side, or hypotenuse, of a right triangle, given the values for the other two sides.
Visual Basic http://www.thanwya.com/vb/../icons/copycode.gifCopy Code Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2)) End Function

The following example shows a typical call to hypotenuse.
Visual Basic http://www.thanwya.com/vb/../icons/copycode.gifCopy Code Dim testLength, testHypotenuse As Single testHypotenuse = hypotenuse(testLength, 10.7)



http://www.thanwya.com/vb/ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/icons/collapse_all.gifVisual Basic Runtime Functions

The Visual Basic runtime provides many functions, located in the Microsoft


ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/html/1b9f632c-553b-4cb6-920a-ded117ead8c0.htm (http://www.thanwya.com/vb/ms-help://MS.VSCC.v90/MS.msdnexpress.v90.en/dv_vbalr/html/1b9f632c-553b-4cb6-920a-ded117ead8c0.htm)

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

الغريب أن نوع بيان المعاملات First و second يؤثر فى مكان حدوث الخطأ
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second
و عندما يكون نوع بيان المعاملات First و second نفس نوع بيان القيمة الراجعة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second
لماذا لا تفسر هكذا
فعندما يكون نوع بيان المعاملات First و second نفس نوع بيان الدالة وهو Byte يحدث الخطأ عند الأمر total = First + second لانه لايمكن التخزين في نوع مغاير الا هو نوع المتغير داخل الدالة
اما

و عندما يكون نوع بيان المعاملات First و second نفس نوع بيان القيمة الراجعة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total
تفسر هكذا
و عندما يكون نوع بيان المعاملات First و second مغايرنوع بيان الدالة وهو Byte ومتفق مع نوع بيان المتغير داخل الدالة total وهو مثلاً Short يحدث الخطأ عند الأمر Return total لانه ليس نوع بيان الدالة byte

[QUOTE=سيف سالم;5289582]سؤال نرجو الرد عليه مع التفسير
Public Class Form1


Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total

End Function


مع خالص تقديري للاراء ولاكن الصورة المرفقة موضحة المشكلة ولا ادري لما الجدال
1- لاحظ التظليل اتي اين في الصورة اتى على السطر الخاص بجملة التخصيص
total = First + second
مع سطر اعلان الدالة
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
تمام
2 - وقال ان الخطأ overflow تمام
نوضح
انت جمعت byte + byte وخصصته في short تمام
ورجعت ال Short ل byte تمام
لحد هنا عادي
بس لما تستخدم قيم تعدي الحد بتاع الدالة byte لن يستطيع المترجم تحويلها ضمنيا كما في التخصيص العادي : - إزاي تحط مثلا 2 لتر في ازازة 1 لتر مثلاً ماشي الحال
عشان كدة المترجم علملك على سطر الجمع وظللك بالرصاصي سطر اعلان الدالة عشان يقلك خلي بالك انت معلن ايع وجا تخصص ايه
فين بقى القيمة overflow ؟
فين طبعا في سطر التخصيص
عشان كدة علملك عليه اصفر وقالك overflow مع سطر الاعلان عشان طلاحظ الي انت اخطأته كأنه بيقلك متصحى يا عم انت نايم خلي بالك
وشكراً
أخوكم سعد

[QUOTE=سيف سالم;5289582]سؤال نرجو الرد عليه مع التفسير
Public Class Form1


Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
Dim total As Short
total = First + second
Return total

End Function


مع خالص تقديري للاراء ولاكن الصورة المرفقة موضحة المشكلة ولا ادري لما الجدال
1- لاحظ التظليل اتي اين في الصورة اتى على السطر الخاص بجملة التخصيص
total = First + second
مع سطر اعلان الدالة
Function Sum(ByVal First As Byte, ByVal second As Byte) As Byte
تمام
2 - وقال ان الخطأ overflow تمام
نوضح
انت جمعت byte + byte وخصصته في short تمام
ورجعت ال Short ل byte تمام
لحد هنا عادي
بس لما تستخدم قيم تعدي الحد بتاع الدالة byte لن يستطيع المترجم تحويلها ضمنيا كما في التخصيص العادي : - إزاي تحط مثلا 2 لتر في ازازة 1 لتر مثلاً ماشي الحال
عشان كدة المترجم علملك على سطر الجمع وظللك بالرصاصي سطر اعلان الدالة عشان يقلك خلي بالك انت معلن ايع وجا تخصص ايه
فين بقى القيمة overflow ؟
فين طبعا في سطر التخصيص
عشان كدة علملك عليه اصفر وقالك overflow مع سطر الاعلان عشان طلاحظ الي انت اخطأته كأنه بيقلك متصحى يا عم انت نايم خلي بالك
وشكراً
أخوكم سعد

نشكر الاستاذ سعد
يعنى تقصد الجهاز بيقولك انك اخطأت لان short ليس هو نوع القيمة الراجعة وان نوع القيمة الراجعة هو byte

انا من الاسكندرية و كان السؤال الاخير احابته النموذجية

السؤال الرابع
1- Case 0

2- Case Is < 0

3- Case Is > 0 او Case Else

4- End Select



انا عملت 1 - Case Degree=0


2- Case degree <0

3-Case Degree >0

4-End Selcect

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

شكررررررررررررررررررررررررررررا

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

آسف أستاذ / سيف و أستاذ / تامر
على عدم مشاركتى فى اليومين السابقين بسبب إنقطاع الإنترنت

آسف أستاذ / سيف و أستاذ / تامر
على عدم مشاركتى فى اليومين السابقين بسبب إنقطاع الإنترنت
مبارك عودة النت
لو ممكن تعلق على كلام بتاع الشركة المنتجة
او على الاقل ترجمتع
وكذالك الملاحظ

اما الاستاذ تامر كلامه تناقض
مرة شمال ومرة يمين

يا جماعة حد يقولى منهج الحاسب حيتغير

اخر الاخبار اخي

http://www.almasryalyoum.com/node/1685616

http://www.almasryalyoum.com/node/1575866

حد من السادة اللي ليهم اتصالات بالوزارة يعرف ظروف ماده الحاسب الالي اية مقررة ولا لا واية ظروفها

محدش راح التصحيح

عشان يجيب نموذج الاجابة

انا حاسس انه فيه غلطة

dim x as byte=344

فى نموذج الاجابة : خطأ وقت التشغيل runtimw error

وكده خطأ المفروض خطأ املائى ونحوى syntax error

كارثة يا سادة

وعشان يعالجو الموضوع اللى كتب اى نوع خطأ ادالو الدرجة

محدش راح التصحيح

عشان يجيب نموذج الاجابة

انا حاسس انه فيه غلطة

dim x as byte=344

فى نموذج الاجابة : خطأ وقت التشغيل runtimw error

وكده خطأ المفروض خطأ املائى ونحوى syntax error

كارثة يا سادة

وعشان يعالجو الموضوع اللى كتب اى نوع خطأ ادالو الدرجة
اخى الفاضل ازاى يكون خطأ أملائى ونحوى !!!!!!!!!!

اخى الفاضل ازاى يكون خطأ أملائى ونحوى !!!!!!!!!!
لأنه خطأ فى قواعد اللغة ، ويحدث أثناء مرحلة كتابة وتصميم البرنامج ، ويظهر خط تحت الخطأ ، نتيجة وضع قيمة للمتغير أكبر من نوع بيانه

انا من الاسكندرية و كان السؤال الاخير احابته النموذجية

السؤال الرابع
1- Case 0

2- Case Is < 0

3- Case Is > 0 او Case Else

4- End Select



انا عملت 1 - Case Degree=0


2- Case degree <0

3-Case Degree >0

4-End Selcect

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

إذا كان كل جزئية بنصف
يبقى انت أخذت حققك بالكامل ولم تظلم

لأنه خطأ فى قواعد اللغة ، ويحدث أثناء مرحلة كتابة وتصميم البرنامج ، ويظهر خط تحت الخطأ ، نتيجة وضع قيمة للمتغير أكبر من نوع بيانه


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

http://www.thanwya.com/vb/showthread.php?t=520783

الغريب أستاذ / أحمد أن واضع الإمتحان يضع سؤال جيد جداً ليميز الطالب الفاهم عن الطالب الغير مجتهد
وفى النهاية يأتى الموجه العام يلغى ويحذف الحسنة الوحيدة فى الإمتحان
فيتساوى المجتهد مع الغير مجتهد
واحنا عايزين المادة يبقى لها أهمية !!!!
يبقى لا نعيب على الوزير وأقرانه أو الإدارة العامة للكمبيوتر . اللى الحسنة الوحيدة اللى عمالها الوزير إن ألغى هذه الإدارة ، لأنها مافيهاش فايدة

ممتتتتتتتتتتتتتتتتتتتتتتتتتتاززززززززززز

انا من الاسكندرية و كان السؤال الاخير احابته النموذجية

السؤال الرابع
1- Case 0

2- Case Is < 0

3- Case Is > 0 او Case Else

4- End Select



انا عملت 1 - Case Degree=0


2- Case degree <0

3-Case Degree >0

4-End Selcect

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

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

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


لاء لسة ولا حتى الشهادة الابتدائية

انا من الاسكندرية و كان السؤال الاخير احابته النموذجية

السؤال الرابع
1- Case 0

2- Case Is < 0

3- Case Is > 0 او Case Else

4- End Select



انا عملت 1 - Case Degree=0


2- Case degree <0

3-Case Degree >0

4-End Selcect

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


ردوا سريع ارجوكم لان اخر يوم بكرة و لو مش عارفين قولوا

انا من الاسكندرية و كان السؤال الاخير احابته النموذجية

السؤال الرابع
1- case 0

2- case is < 0

3- case is > 0 او case else

4- end select



انا عملت 1 - case degree=0


2- case degree <0

3-case degree >0

4-end selcect

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


ردوا سريع ارجوكم لان اخر يوم بكرة و لو مش عارفين قولوا


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

تجميع لطلبات الأعضاء للتيرم الثانى للعام الدراسي 2012-2013 ‏

عرفاناً لجميل أعضاء منتدى الثانوية العامة ، أهدى إليكم هذا العمل البسيط بتجميع لطلبات الأعضاء للعام الدراسي 2012-2013 منفى الفترة من 24 / 1 / 2013 وحتى 18 / 6 / 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)