منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طريقة تغيير بون الخلفيه كل دقيققه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طريقة تغيير بون الخلفيه كل دقيققه (/showthread.php?tid=15928)

طريقة تغيير بون الخلفيه كل دقيققه - CLARO - 26-05-16

السلام عليكم
انا جالس اسوي برنامج ساعه
بس بدي طريقة عشان يتغير لون الخلفية كل دقيقهيعني بدي الخلفيه تتغير لما يصير عقرب الثواني عند 60

RE: طريقة تغيير بون الخلفيه كل دقيققه - CLARO - 27-05-16

مممممممممم ضروري ردو علي

RE: طريقة تغيير بون الخلفيه كل دقيققه - silverlight - 27-05-16

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 


RE: طريقة تغيير بون الخلفيه كل دقيققه - CLARO - 27-05-16

يا ريت لو توضح اكثر
انا بدي تتغير لون الخلفية لما يصير عقرب الثواني بالساعه عند 60

RE: طريقة تغيير بون الخلفيه كل دقيققه - CLARO - 27-05-16

يا اخوان وينكم <

RE: طريقة تغيير بون الخلفيه كل دقيققه - سعود - 27-05-16

الفكرة سهلة وهي اضافة مؤقت وتجعل قيمة الانترفال 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 


RE: طريقة تغيير بون الخلفيه كل دقيققه - CLARO - 28-05-16

بارك الله فيك
ابداع + ذكاء =عضو رائع

RE: طريقة تغيير بون الخلفيه كل دقيققه - طالب 22 - 17-06-16

يحتاج تجربة هذا الكود