الفكرة سهلة وهي اضافة مؤقت وتجعل قيمة الانترفال 1 وتكتب كود يتحقق من الثانية now.date.second
مش متاكد املائيا
جرب المثال هذا
هذا الكود المطلوب(حسب فهمي للطلب)
مش متاكد املائيا
جرب المثال هذا
PHP كود :
Public Class Form1
Dim colors As New List(Of Color)
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = TimeString
If Now.Second = 0 Then
Me.BackColor = colors(Int(Rnd() * 2))
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
colors.Add(Color.Blue)
colors.Add(Color.Green)
colors.Add(Color.Red)
End Sub
End Class
هذا الكود المطلوب(حسب فهمي للطلب)
PHP كود :
Public Class Form1
Dim colors As New List(Of Color)
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = TimeString
If Now.Second > 0 Then Timer2.Start()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize()
colors.Add(Color.Blue)
colors.Add(Color.Green)
colors.Add(Color.Red)
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Now.Second = 0 Then
Me.BackColor = colors(Int(Rnd() * 2))
Timer2.Stop()
End If
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

