تقييم الموضوع :
  • 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
يحتاج تجربة هذا الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 36 منذ 10 ساعة مضت
آخر رد: ابراهيم النعيمي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 94 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] طريقة عمل كشف حساب (دائن ومدين) اليوم مبتدئة وغداً محترفة 11 328 14-11-16, 08:26 AM
آخر رد: Genius Live
  طريقة تحزيم التطبيق اليوم مبتدئة وغداً محترفة 1 115 12-11-16, 08:16 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  طريقة عمل استعلام في sql server 2014 Rabeea Qbaha 2 73 07-11-16, 03:13 PM
آخر رد: Rabeea Qbaha
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 142 06-11-16, 07:51 PM
آخر رد: العواد الصغير
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 116 30-10-16, 10:14 PM
آخر رد: adel27
  هل من طريقة لإنشاء اداة بنفسك في vb.net thevirus 2 88 30-10-16, 06:15 PM
آخر رد: silverlight
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 52 29-10-16, 08:37 PM
آخر رد: mmm650
  طريقة تغيير الباك كلر للتكست بوكس thevirus 8 210 29-10-16, 05:57 PM
آخر رد: thevirus

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


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