Membuat Lampu Berkedip VB.NEt

Postingan Kali ini saya akan memberikan  cara membuat lampu kelap kelip menggunakan VB.NET nah langsung aja ni cara-cara membuatnya











1. Membuat Form Baru dengan Klik Poject- Add Windows Form

2. Menambahkan komponen komponen Button,Label dan Timer
3. Mengisikan Propertinya seperti :

4. kemudian masukan kode berikut ini,

Public Class
Form5

    Dim Milsecond As Integer = 0

    Dim seconds As Integer = 0

    Dim HalfSecond As Integer = 0





    Private Sub
Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load

       
Label1.BackColor = Color.Violet

       
Label2.BackColor = Color.Violet

       
Label3.BackColor = Color.Violet

       
Label4.BackColor = Color.Violet

       
Label5.BackColor = Color.Violet

       
Label6.BackColor = Color.Violet

        Timer1.Start()

    End Sub



    Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Timer1.Tick

        'terpaut o,5 detik

        Milsecond = Milsecond + 1

        If Milsecond = 5 Or
Milsecond = 15 And Label1.BackColor =
Color.Violet Then

           
Label1.BackColor = Color.Yellow

           
Label2.BackColor = Color.Violet

        ElseIf Milsecond = 10 Or
Milsecond = 20 And Label2.BackColor =
Color.Violet Then

           
Label1.BackColor = Color.Violet

           
Label2.BackColor = Color.Yellow



            'terpaut 1 detik

            seconds =
seconds + 1

            If seconds = 1 And
Label3.BackColor = Color.Violet Then

               
Label3.BackColor = Color.Yellow

               
Label4.BackColor = Color.Violet

            ElseIf seconds = 2 And
Label4.BackColor = Color.Violet Then

               
Label3.BackColor = Color.Violet

               
Label4.BackColor = Color.Yellow



                'terpaut 2 detik



                If Label5.BackColor = Color.Violet Then

                   
Label5.BackColor = Color.Yellow

                   
Label6.BackColor = Color.Violet

                Else

                   
Label5.BackColor = Color.Violet

                   
Label6.BackColor = Color.Yellow

                End If

                seconds
= 0

            End If

        End If

        If Milsecond = 20 Then

            Milsecond =
0

        End If

    End Sub

End Class

ini dia hasil progam yang telah dibuat