طلبات الأعضاء للعام الدراسي 2012-2013

[samermym]

أشكرك أستاذ حسن علي ردك و اهتمامك
بارك الله لك
أخوك سمير صبري

[يحيى عاشور أحمد]

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

[fatmwael]

صح او خطأ
لا يجوز ان يحتوي الاسم علي الشرطي السفلي(خطأ)

أكمل
علامة .الشرطة السفلي.. توضع في نهاية سطر الكود لكتابة الكود علي اكثر من سطر

تخير
يبدأ اسم المتغير بــ
( الشرطة السفلي - كلمة محجوزة - حرف - كل من الاختيار الاول والثالث صحيح )

الاسطر التي تبدأ بــ ......... او ...... تسمي ملاحظات او تعليقات ويهملها المترجم عند ترجمة كود البرنامج
أ - Dim أو As ب - Const أو Dim ج - (‘) أو Rem د - Rem أو Dim
__________________

[aazz_200561]

C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF

أنا فاهم قيمة c,k لكن مشفاهم n=11 أزاى المفروض تساوى 13 والتى هى نهاية التكرار فلى العداد ارجو شرح المثال بالتفصيل ولكن سريعا جدا من فضلكم

[hassanelbash]

اذا ذكرت قيمة العداد بعد الحلقة التكرارية فأنها تأخذ القيمة الأعلى من End
و هنا العداد N بعد Next أى بعد نهاية الحلقة فكانت القيم داخل الحلقة ( 1 , 6 )
و قيمته بعد Next ستكون بزيادة 5 و هى (11)
و بالتالى فى الشرط (N > = C) ستكون N تساوى 11 و C تساوى 10 فيكون قيمة الشرط (True)
و سيتم تنفيذ ما بعد (Then) أى (C= C + 1) و ستكون c تساوى 11
و هذا المثال الوحيد الذى تم فيه ذكر العداد بعد Next

[السيد شعبان]

في البداية عند For ثيمة العداد تساوي واحد فيبدأ التكرار حتى نصل إلي Next فنويد قية N بمقدار 5 فتصبح 6 ونقارن هل هي أكبر من قيمة النهاية فالاجابة خطأ فيتم تنفيذ التكرار مرة أخرى حتي نصل إلي Next فنويد N بمقدار 5 فتصبح 11 ونقارن هل هي أكبر من قيمة النهاية فالاجابة صحيحة فينتهي التكرار ويبدأ بتنفيذ الاوامر التي تلي Next وبذلك تصبح n تساوي 11

[toubaaa]

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

قيمة كلا من c , k , n


n هى العداد يبدء ب 1 ويزيد بقدار 5 اذن قمته 1 --------- 6 ---------- 13 وبهذه الحالة نجد ان عدد مرات التكرار 2

وسوف نقوم بتكرار k=k+n لايجاد قيمة ال k

وبالتخصيص k=0+1 --------------------اول التكرار

k=1+6 اذن = 7



لايجاد c يوجد شرط n >= c وهذا الشرط حقيقى
اذن

1 + 10= c
11 = c
7 = k
11 = n
وبالتوفبق

ليه مكملناش التكرار فى المعادله k=k+n لحد القيمه 11 ل n ليه وقفنا لحد قيمه n ب 6 يعنى تبقي المعادله كده k=7+11= 18?????????????????????????????????????

[yassminramy]

لا ن 11 اكبر من قيمة نهايه العداد وهى 10 وايضا عدد مرات التكرار 2 فقط
وبالتوفبق

[أحـمد قرنى]

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

ولكن بتنفيذى لهذ الكود
Dim a As Boolean
MsgBox(IsNumeric(a))
أعطى ناتج True مع العلم ان المتغير a ليس له ناتج عددى بل ناتجه منطقى فما تفسير ذلك

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

[tmrmsr]

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا

[lora2014]

الخير كل الخير لكم ان شاء الله

[bosyramy]

الخير كل الخير لك ان شاء الله ولكل اعضاء المنتدى

[زياد_عاطف]

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

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا

==============================
أستاذنا العزيز شكرا لحضرتك لكن لى تعليق و هو خاص بالعبارة

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

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

Dim x as Boolean
MsgBox(x)0

قيمة المتغير x التى تظهر فى مربع الرسالة هى False

===============================================

عاطف حسان / ميت موسى

[نورهان م]

Dim sum, x As Integer
sum = 0
x = 6
Do While x < 10
s um= s um+ x
x = x + 1
Loop

عدد مرات التكرار وياريت الشرح بشء من التفصيل

[سيف سالم]

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

تحية طيبة لحضرتك
أما بعد
Dim a As Boolean
((MsgBox(IsNumeric(a

حضرتك أعلنت عن متغير من النوع Boolean دون تخصيص قيمة له
بناء علية يأخذ القيمة الأفتراضية True

عند استخدام الدالة IsNumeric الوسيط a وتستقبله على شكل Object ( عددي - حرفي - ...الخ)
تستخدمه الدالة في أسطر الكود الخاصة بها وهي مخفية عنا وفقا لقاعدة التغليف
وذلك لتقييمة هل هو قيمة رقمية أم لا

وبناء عليه تم اعتبار a كقيمة رقمية

مثال
عند عمل تحويل للقيمة True ل Integer تأخذ القيمة -1
عند عمل تحويل للقيمة false ل Integer تأخذ القيمة 0
وهذا لا يعني أن الدالة IsNumeric تقوم بهذا النوع من التحويل

Parameters:
Expression: Required. Object expression.

Return Values:
Returns a Boolean value indicating whether an expression can be evaluated as a number.

وشكرا

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

IsNumeric returns True if the data type of Expression is Boolean, Byte, Decimal, Double, Integer, Long, SByte, Short, Single, UInteger, ULong, or UShort, or an Object that contains one of those numeric types. It also returns True if Expression is a Char or String that can be successfully converted to a number.

IsNumeric returns False if Expression is of data type Date or of data type Object and it does not contain a numeric type. IsNumeric returns False if Expression is a Char or String that cannot be converted to a number.

هذه هي الدالة
بدون تغليف او فلسفة لانتصار لرأي