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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 2 54 منذ 9 ساعة مضت
آخر رد: abudawoodd
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 471 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [VB.NET] مشكلة في تغيير لون خلفية الخلية في ال Datagridview Joe kad 10 231 09-01-17, 02:01 AM
آخر رد: مساعدة
  [VB.NET] طريقة عمل زخرفة تلقائية 3asfa~mdmra 1 96 06-01-17, 02:55 PM
آخر رد: Basil Abdallah
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  [سؤال] مواقع التوصل والفيجول هل من طريقة للتحكم فى الفيسبوك elhon.tec 2 300 29-12-16, 11:38 PM
آخر رد: Basil Abdallah
  مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) marten363 3 94 27-12-16, 08:20 PM
آخر رد: مساعدة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,320 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  مساعد من فضلكم في طريقة ملء كومبوتكست ادت و القريد فيو في الديف اكسبرس hocine_btsm 0 75 25-12-16, 12:19 AM
آخر رد: hocine_btsm
Rainbow طريقة عمل حضور وانصراف يتجدد يوميًا+طباعة سجلات الحضور والانصراف فاطمة غ 5 297 14-12-16, 02:47 PM
آخر رد: tryold

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


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