انت تسأل وجميع الاساتذة تجيب

[ماجدة عمرو]

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

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

الاكواد
if button1.backcolor=color.green then
button1.backcolor=color.red
else
button1.backcolor=color.green
end if


على ان يتم ضبط interval=10000
وجعل خاصية الـ Enabled= true
مكان كتابة الاكواد هو معالج الحدث tick

[MS.egypt]

السلام عليكم
ممكن رابط للمراجعة النهائية
للصف الثالث الالأعدادي مراجعة شاملة
مشكورين

[مآزر2000]

خلاص for next اللي كنت فاهمها خلاص اتلخبطت بعد كلامكم[

[mony_love2211]

السلام عليكم
انا نزلت مسائل من هنا وطبعتها بس مش عارفه شويه مسائل كدا ارجو الحل مع الفهم
Dim hour as integer
Dim salary as integer =20
hour=10
if hour >10 then
salary=salary +5* hour
end if
?????????????? السؤال بهذه الطريقه
تكون قيمه ال salary بعد تنفيذ الاوامر السابقه هى .........

ناتج تنفيذ الصيغه الحسابيه (11mod 3_1) / )4*3^2)

مش بعرف فى مسائل الباقى دى خالص ياريت حد يفهمهالى بنجيب ازاى الباقى دا ؟

ما نتيجه الاوامر التااليه
X=2
for I =0 to 6 step 2
X=X*2
next

انا جبت قيمه T لكن مش عارفه اجيب قيمه X
وجبت قيمه I وهى 0,2.4.6
لكن التانيه مش بعرف اجبها فى كل المسائل ارجو التوضيح

احسب
36 mod 5

[سلمان يوسف عبد النبى]

يااساتذة ارجوكم حل المسالة اللى جات في امتحان اسكندرية السنة اللى فاتت
fori=1to8step2
total=total+i
next
show (total
احسب القيمة النهائية للمتغير total
جزاكم الله خيرا

[mizooo2020]

Dim score As Decimal
score = Decimal.Parse(txtscore.text)
If score >= 90 Then
lbldisplay.text = "Excellent"
ElseIf score >= 75 Then
lbldiplay.text = "very good"
ElseIf score >= 65 Then
lbldisplay.text = "good"
ElseIf score >= "sufficient" Then
Else
Lbldisplay.text = "Failed"

الكود دة صح بس ناقصة خطوة اية هى

[محمدبلبوله]

End IF
هي الي ناقصه في الاخر

[saharelsafty]

الرجا من سيادتكم توضيح اجابة السؤال الاتى
Dim N , K , C As integer
C = 6
For N= 1 To 6 Step 3
K= K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيذ هذه التعليمات أكمل مكان النقط :

تساوى ــــــــــــــــC المتغير قيمة1-

تساوى ــــــــــــــــــــــN المتغير قيمة2-

3- ناتج الشرط يساوى ـــــــــــــــــــ N > C

ـــــــــــــــــــتساوى K المتغير قيمة

[saharelsafty]

الرجا من سيادتكم توضيح اجابة السؤال الاتى
Dim N , K , C As integer
C = 6
For N= 1 To 6 Step 3
K= K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيذ هذه التعليمات أكمل مكان النقط :
1- قيمة المتغير C تساوى ــــــــــــــــــــ
2- قيمة المتغير N تساوى ــــــــــــــــــــ
3- ناتج الشرط N > C يساوى ــــــــــــــــــــ
4- قيمة المتغيرK تساوى ــــــــــــــــــــ
الرجا الاجابة مع توضيح الشرح للاهمية لقرب الامتحان وشكرا لسياتكم

[saharelsafty]

الرجا الاجابة على سؤالى

[alhlwany]

فيم تستخدم الدالة ( ) val

[alhlwany]

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

[alhlwany]

بعض المحافظات تزعم أن المعلومات الإثرائية لابد من وجودها فى الامتحان للطالب المتميز على الرغم من وجودها فى المحذوفات هذا العام

[saharelsafty]

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

[العميل 101]

صفحه 124 كتاب المدرسه افترض مجموعه الاوامر الاتيه for i=1 to 10 step x msgbox (i) i next اشرح كيفيه تنفيذ الاوامر في كل حاله اذا كان المتغير x اكبر من صفر اذا كان المتغير x اكبر من صفر اذا كان المتغير x = صفر