تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طريقة تغيير بون الخلفيه كل دقيققه
#1
السلام عليكم
انا جالس اسوي برنامج ساعه
بس بدي طريقة عشان يتغير لون الخلفية كل دقيقهيعني بدي الخلفيه تتغير لما يصير عقرب الثواني عند 60
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#2
مممممممممم ضروري ردو علي
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#3
PHP كود :
 Private Sub Timer1_Tick(sender As ObjectAs EventArgsHandles Timer1.Tick

        Dim colors 
As List(Of Color) = New List(Of ColorFrom {Color.BlueColor.RedColor.BlackColor.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 ObjectAs EventArgsHandles MyBase.Load
        Timer1
.Enabled True
        Timer1
.Start()
 
   End Sub 
الرد }}}}
تم الشكر بواسطة: CLARO
#4
يا ريت لو توضح اكثر

انا بدي تتغير لون الخلفية لما يصير عقرب الثواني بالساعه عند 60
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#5
يا اخوان وينكم <
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#6
الفكرة سهلة وهي اضافة مؤقت وتجعل قيمة الانترفال 1 وتكتب كود يتحقق من الثانية now.date.second
مش متاكد املائيا

جرب المثال هذا
PHP كود :
Public Class Form1
    Dim colors 
As New List(Of Color)
 
   Private Sub Timer1_Tick(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles Timer1.Tick
        Label1
.Text TimeString
        If Now
.Second 0 Then Timer2.Start()
 
   End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Randomize
()
 
       colors.Add(Color.Blue)
 
       colors.Add(Color.Green)
 
       colors.Add(Color.Red)
 
   End Sub

    Private Sub Timer2_Tick
(sender As ObjectAs EventArgsHandles Timer2.Tick
        If Now
.Second 0 Then
            Me
.BackColor colors(Int(Rnd() * 2))
 
           Timer2.Stop()
 
       End If
 
   End Sub
End 
Class 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: CLARO , CLARO
#7
بارك الله فيك
ابداع + ذكاء =عضو رائع
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة: سعود
#8
يحتاج تجربة هذا الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,991 25-05-17, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 54 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  تغيير التقويم أسامة السالمي 4 89 22-05-17, 08:03 PM
آخر رد: أسامة السالمي
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 89 20-05-17, 12:49 AM
آخر رد: alma2
  طريقة طباعة فاتورة و التحكم بشكلها Basil Abdallah 1 66 19-05-17, 12:34 PM
آخر رد: Adrees
Question طريقة فتح المشاريع المرفقة ابو إياد 5 225 16-05-17, 10:40 PM
آخر رد: safalo
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 65 13-05-17, 11:01 AM
آخر رد: khalid475
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  [VB.NET] طريقة منع استخدام form1 بعد فتح form2 abomo3ath 3 91 19-04-17, 10:56 AM
آخر رد: عبـدالله
  [VB.NET] محتاج مساعدة في تغيير التاريخ من yyyymmdd dubai.eig 2 129 13-04-17, 03:54 PM
آخر رد: dubai.eig

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم