26-05-16, 11:21 PM
27-05-16, 06:07 PM
مممممممممم ضروري ردو علي
27-05-16, 06:35 PM
PHP كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim colors As List(Of Color) = New List(Of Color) From {Color.Blue, Color.Red, Color.Black, Color.Orange}
Dim current As Integer = DateTime.Now.Minute
Dim period As Integer = current
Dim index = period Mod colors.Count
Me.BackColor = colors(index)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Start()
End Sub
27-05-16, 06:52 PM
يا ريت لو توضح اكثر
انا بدي تتغير لون الخلفية لما يصير عقرب الثواني بالساعه عند 60
انا بدي تتغير لون الخلفية لما يصير عقرب الثواني بالساعه عند 60
27-05-16, 08:06 PM
يا اخوان وينكم <
27-05-16, 10:08 PM
الفكرة سهلة وهي اضافة مؤقت وتجعل قيمة الانترفال 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
28-05-16, 01:25 AM
بارك الله فيك
ابداع + ذكاء =عضو رائع
ابداع + ذكاء =عضو رائع
17-06-16, 07:50 PM
يحتاج تجربة هذا الكود