مشاهدة النسخة كاملة : سؤال ارجو الرد سريعا


. ahmed-gamal
25-04-2012, 10:55 AM
السؤال جاء فى محافظة المنوفية 2009 وهو من الفص الرابع

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

السؤال غريب شوية وممكن يكون من جزء محذوف عموما ارجو الرد من المدرسين

اسلام عمر 1
25-04-2012, 12:04 PM
السؤال جاء فى محافظة المنوفية 2009 وهو من الفص الرابع

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

السؤال غريب شوية وممكن يكون من جزء محذوف عموما ارجو الرد من المدرسين
حل السؤال كالتالي

يكتب الكود في الكائن Timer والحدث Tick كالتالي :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.enabled=true
Timer1.interval=10000
If Button1.BackColor = Color.Green Then
Button1.BackColor = Color.Red
Else
Button1.BackColor = Color.Green
End If
End Sub

. ahmed-gamal
25-04-2012, 03:37 PM
الف الف الف شكر يا استاذنا على حل المسألة

msk325
27-04-2012, 04:44 PM
جزاك الله خيرا