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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير على كود الحفظ محمد خيري 6 170 أمس, 04:20 PM
آخر رد: محمد خيري
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 462 07-02-24, 08:59 PM
آخر رد: Kamil
  تغيير اسم حقل او تغيير نوع البيان atefkhalf2004 5 294 31-01-24, 04:09 PM
آخر رد: atefkhalf2004
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit

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


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