ما هو المصطلح العلمي
للربط بين المتغيرات والقيم الحرفية

شكــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــرا جدا جدا لسه فاهمة الان على ايدك:078111rg3::078111rg3::078111rg3::078111rg3::0 78111rg3::078111rg3:

معامل الربط &

http://hotfile.com/dl/116648481/8ec01f1/_.pdf.html

هاهو الملف فيه معظم اجابات تدريبات الفصول.

dim n , k , c sa integer
c=6
for n = 1 to 6 step 3
k = k + n
next
if n > c then
c = c + 1
end if

حضرتك قيمة n = 7 وهى القيمة التى يتوقف فيها العداد عن التكرار ، وعندما تكون قيمة n = 1 , 4 العداد سوف ينفذ الاوامر التى بين كلمة for وكلمة next ( داخل التكرار ) ولن ينتقل اطلاقاً الى الاوامر التى تلى كلمة Next الا عندما تكون القيمة الابتدائية اكبر من القيمة النهائية للعداد . وهى القيمة التى تكون فيها n = 7 .

وبالتالى يكون الشرط كالتالى if n= 7 > c= 6 قيمته true فيتم الانتقال الى الاوامر التى تلى كلمة then يعنى هينفذ الامر c = c + 1يعنى هتكون c = 7

رسالة الى الاستاذ / احمد قرنى

مشكور استاذ احمد على اجاباتك الممتازة

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

ارجوا التواصل ...... اخوك مدرس / احمد السقا

( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If
1- قيمة المتغير First = .........
2- قيمة المتغير Second = .........
3- قيمة المتغير Total = .........
4- قيمة التعبير Third <= 50 هى ........

sry بس ممكن تثبتوا الحصص الصوتية اللى فاتت كلها لأنى مش فاهمة حاجة و محتاجة شرح ؟؟؟؟؟؟؟؟؟ و شكرا مقدما :] :]

الله يكرمك يا أخى
وربنا يعلم ان كل يوم بتزداد معلوماتى من خلال مشاركتى مع الاخوة الافاضل داخل المنتدى ، وتبادل الاراء معهم .

]( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If


شرح استخدام الامر If .. Then .. Else :
هو أمر اختيار مزدوج يتم تنفيذه فى حالة وجود بديلين .
إذا كانت قيمة الشرط True يتم تنفيذ الاوامر التى تلى كلمة Then .
إذا كانت قيمة الشرط False يتم تنفيذ الاوامر التى تلى كلمة Else .

وبالعودة للمثال نجد أن قيمة الشرط Third <=50 تكون False وذلك بالنظر الى أن قيمة Third = 60 .
وبالتالى يتم الانتقال لتنفيذ الاوامر التى تلى كلمة Else . فتكون القيم كالتالى

1- قيمة المتغير First = 30
2- قيمة المتغير Second = 50
3- قيمة المتغير Total = 140
وذلك لأن ال Total = First + Second+ Third = 30 + 40 + 60
4- قيمة التعبير Third <= 50 هى False

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

اريد التوضيح
 

ما القيمة النهائية للمتغير i

x=2
forI =0to6 step 2
x=x*2
next

جزاك الله خيرا استاذ احمد

أكمل الفراغات فى الكود التالى لجمع الاعداد الفردية من 1 الى 10
Dim x , …… As Integer
For x = 1 To …… Step ---------
Total = total + x
Next
Msgbox ( …….......)

لو سمحتوا ممكن حد يقول خطوات الحل للاتى:

*مساحة الدائرة =ط نق حيث ط=3,14 ، نق=7

ممكن الاجابه عن الاسئله دى
بعد نهاية تنفيذ الكود التالى
k=1
for I=1to5
k=k *2
next
تكون قيمة I ,K
I(6-5-1)
K=(1-16-32)
ارجو شرح الحل لانى مش فاهمه المسائل اللى من النوع ده خالص
افترض مجموعة الاوامر التاليه
Dim I as Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=X*2
next
msg box (x)
1- تكون القيم التى يأخذها العداد I...............
2- تكون قيمة المتغير X التى سيعرضها مربع الرساله ...............زز
يكون عدد مرات تنفيذ الجمله x=x*2 هى ...........ز
س3\
Dim R as integer
Dim Total as integer
for R =1 to 8 step 2
total =total +R
next
msgbox (tota)
اكتب القيمه النهائيه للمتغير total
انا عرفه الاسئله كتير بس ارجوكو اشرحوهالى لانى مش قدره افهم النوع ده خاااااااااااااااااااااالص

ممكن شرح حل السؤال التالى من نتتج العملية الحسابي 9mod 4-1
لوحة المفاتيح بتكتب عندى الرقم بالعربى
شكرا

بس كده قيمة k هتكون 14 لان عملية k = k + n سوف تتكرار مرتين فى الا ول k=0+7 هكون ناتح k =7 وفى الثانية k=7+7 اذن هتكون 14

اكواد الكتاب المدرسى مفيش منها رجا دول مألفين اكواد عشان يتفزلكو
انصحك ان مدرس كريم من المنتدى يذكرلك الاكواد الصحيحه
وشكرا:039uw8::039uw8::039uw8::039uw8::039uw8::039u w8::039uw8::039uw8:

عايزة برنامج الفيجوال بيسك

معنى mod هو باقى القسمه يعنى انتى بتقولى2 فى 4 ب8 وهيتبقى 1 الواحد ده بقه هو باقى القسمه فهيبقى 1-1 =0
مثال تانى لو قالك 48mod 5هتبقى 3
ليه؟؟ لان 5*9 ب45 والباقى 3 وهو ده باقى القسمه
اتمنىاكون وصلتلك الحل

المسالة الخاصة for if المتداخلين اللى موجودة فلى اسئلة الفصل الثالث فى الكتابالحل الصحيح : I= 0,1,2,3,4,,5,6,7
فى جملة if then else المتعددة يتم اخذ قيمة المتغير مرة واحد فقط ولايتم تكراره
ولهذا : ( i mod 2= 0) يكون هذا مع الارقام 0 & 2 & 4 &6 ولهذ هيكون الناتج 1 & 3 & 5 &7
وعندما تكون ( i mod 3 =0 ) يكون الرقم المستخدم هنا فقط 3 ولن يتم استخدام 6 لانه تم استخدامها قبل ذلك ولهذ يكون الناتج )i * i = يكون الناتج = 9
عندما تكون (i mod 5 =0 ( يكون الرقم المستخدم 5 وهذا يكون الناتج )2* i -1 يكون الناتج 9
الرقمين التى لم يتم استخامهم هم ( 1 & 7 ) يظهر فى اخر البرنامج

* جرب البرنامج على vb.net
الدليل الثانى ان الحل فى خطأ ان ) zero mod 3 =0 لماذا لم يتم استخدامه[/quote]

انا معاك حلك هو اللى صح تما م

[quote=أحـمد قرنى;3366108]هى سلسلة حرفية فارغة طولها صفر

if
range
boolean

ممكن الاجابه عن الاسئله دى
بعد نهاية تنفيذ الكود التالى
k=1
for I=1to5
k=k *2
next
تكون قيمة I ,K
I(6-5-1)
K=(1-16-32)
ارجو شرح الحل لانى مش فاهمه المسائل اللى من النوع ده خالص
افترض مجموعة الاوامر التاليه
Dim I as Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=X*2
next
msg box (x)
1- تكون القيم التى يأخذها العداد I...............
2- تكون قيمة المتغير X التى سيعرضها مربع الرساله ...............زز
يكون عدد مرات تنفيذ الجمله x=x*2 هى ...........ز
س3\
Dim R as integer
Dim Total as integer
for R =1 to 8 step 2
total =total +R
next
msgbox (tota)
اكتب القيمه النهائيه للمتغير total
انا عرفه الاسئله كتير بس ارجوكو اشرحوهالى لانى مش قدره افهم النوع ده خاااااااااااااااااااااالص

اكتب الكود البرمجى الذي يظهر ناتج العمليه الحسابية التاليه :
3*5 / 6+3^5
فى t) textbox1)

الى الاستاذ/ سيف سالم و الاستاذ/احمد قرنى

ارجوا الافادة بليييييييييييييييييييييييييييييييييييييييييييييييي ييييييييييييييييييييييييييييييييز

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

ارجوا التوضيح
هل المتغيرات هى اسماء الخلايا
ام المتغيرات هى القيم
مشكوووووووووووووووووووووووووووووووووووور

المتغيرات لها اكثر من تعريف وكلهم بمعنى واحد كالاتى

المتغيرات هى الخلايا التى تحمل قيم تتغير اثناء تشغيل البرنامج
المتعيرات هى اسماء الخلايا التى تحمل قيم تتغير
المتغيرات هى المخازن التى تحمل قيم تتغير
المتغيرات هى القيم التى تتغير ( المتغيرة )

بينما عملية إعطاء اسماء للخلايا التى تحمل قيم متغيرة تسمى ( إعلان المتغيرات )

حضرتك انا بأخذ القيمة للمتغير الذى يلى كلمة For وليكن مثلاُ i عندما تكون قيمته اكبر من القيمة النهائية وذلك لكى ينتهى التكرار ويتوقف البرنامج عن التنفيذ .

مثال بسيط
نفترض حضرتك أن قيمة i هى الذهاب للمدرسة وقيمة x هى عملية التعلم
فلنجد الطالب ذهب للمدرسة ثم تعلم ( كرر عملية التعلم )
فى اليوم التالى الطالب أيضاً ذهب للمدرسة وكرر عملية التعلم
وهكذا فى اليوم التالى ذهب للمدرسة وتعلم

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

ارجو من الاساتذة الافاضل توضيح حل mod مع اضافة اساله عليها لتوضيح ارجو الشرح

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

اعد ترتيب الخطوات الاتيه
1- Total =Total +1
2-MsgBox(Total)
3- next
4-for I =1 to 20 step 2
5-Dim I,Total As integer

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total

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

اعد ترتيب الخطوات الاتيه
1- Dim I,Total As integer[/quote]
for I =1 to 20 step 2
3- Total =Total +1
4-next
5-MsgBox(Total)

- قيمة R = 1 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة Total = 0 وقيمة R = 1 فتكون قيمة Total = 1

- قيمة R = 3 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 1 وقيمة R = 3 فتكون قيمة Total =4


- قيمة R = 5 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 4 وقيمة R = 5 فتكون قيمة Total =9


- قيمة R = 7 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
Toal =Total + R بالتعويض عن قيمة السابقة Total = 9 وقيمة R = 7 فتكون قيمة Total =16

- قيمة R = 9 أكبر من القيمة النهائية يتوقف التكرار

من السابق تكون القيمة النهائية R = 9 والقيمة النهائية Total = 16

شكراااااااااا جدا يا استاذ احمد على اجابة حضرتك

لا اله الا الله محمد رسول الله

هل char متغير حرفي ؟؟؟

الناتج = 999
حيث إذا كان الرقم الذي قبل mod أصغر من القيمة بعد Mod يكون هو نفس الرقم
أما مثلا
14mod 5
يكون الناتج 4
حيث نقسم 14 على 5 يكون فيها 2 ثم نضرب 2 * 5 يكون 10 وقوم بطرح 14-10 يكون الباقي 4
ومثال 20mod5 يكون صفر حيث لا يوجد باقي من عملية القسمة

السؤال الاول


for A = 2 to 6 step 2
احسب عدد مرات التكرار موضحا قيمة A النهائية

السؤال الثانى

Dim R As integer
Dim total As integer

For R =1 to 8 step 2

Total=Total+R

NEXT

MSG BOX TOTAL

احسب قيمة TOTAL النهائية مع توضيح الخطوات

نعمل جدول قيمR هى 1 و3 و 5 و 7و9
قيم الـ Total هى 1و4 و9 و 16 اى ان الفيمة النهائبة لـ total هى 16

اذكر قيمة x بعد مرور ثلاث ثوانى بفرض أن قيمة الخاصية interval للمؤقت timer1 هي 1000
هي الاجابه ح تكون

الاوله : X=3 , الثانيه : X=1



والسبب
* تستخدم الكلمه Static للاعلان عن متغير خاص , حيث ان المتغير سيحتفظ بقيمته طول فتره تشغيل البرنامج
ولن يتم إعطاؤه قيمه ابتدائيه عند كل مره يتم فيها استدعاء البرنامج الفرعي .
بس مش فااااااااااااااااااااهم حاجه
مين يوضح ليه ؟؟؟؟؟؟؟؟

السلسلة الحرفية الفارغة توجد فى كتاب المدرسة بأكثر من طريقة
فى المثال ص 18 ،،,,
فى الأسئلة ص 39 ""
الرجاء من سيادتكم توضيح ايهما اصح لو جاءت فى الأمتحان
وشكرا على المجهود الرائع