بوابة الثانوية العامة المصرية

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)
-   أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)
-   -   انت تسأل وجميع الاساتذة تجيب (https://www.thanwya.com/vb/showthread.php?t=305990)

ماجدة عمرو 16-05-2011 06:25 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة new2011 (المشاركة 3415675)
زر يسمى 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 16-05-2011 12:59 PM

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

مآزر2000 16-05-2011 07:21 PM

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

mony_love2211 16-05-2011 08:33 PM

السلام عليكم
انا نزلت مسائل من هنا وطبعتها بس مش عارفه شويه مسائل كدا ارجو الحل مع الفهم
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

سلمان يوسف عبد النبى 17-05-2011 04:21 AM

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

mizooo2020 17-05-2011 05:00 PM

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"

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

محمدبلبوله 17-05-2011 08:53 PM

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

saharelsafty 17-05-2011 11:51 PM

الرجا من سيادتكم توضيح اجابة السؤال الاتى
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 18-05-2011 12:03 AM

الرجا من سيادتكم توضيح اجابة السؤال الاتى
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 18-05-2011 12:22 AM

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

alhlwany 18-05-2011 01:02 AM

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

alhlwany 18-05-2011 01:05 AM

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

alhlwany 18-05-2011 01:07 AM

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

saharelsafty 18-05-2011 12:51 PM

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

العميل 101 18-05-2011 05:28 PM

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


جميع الأوقات بتوقيت GMT +2. الساعة الآن 10:22 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.