Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET - Hallo sahabat Breaking News, Pada Artikel yang anda baca kali ini dengan judul Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel visual basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET
link : Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET

Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET

ANDA bisa membuat simulasi traffic light dengan 3 buah timer di vb .net
Lihat gambar di bawah ini:

Untuk membuar form seperti di atas ANDA meletakkan

3 buah Ovalshape

1 buah RectangleShape

3 buah label

3 buah timer

1 buah button

Kode lengkapnya  di bawah ini:


Public Class Form1

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Timer1.Interval = 1000
        Timer2.Interval = 1000
        Timer3.Interval = 1000

        OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape1.FillColor = Color.White

        OvalShape2.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape2.FillColor = Color.White

        OvalShape3.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape3.FillColor = Color.White


        Timer1.Start()

    End Sub

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

        Static i As Integer
        i = i + 1

        Label1.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape1.FillColor = Color.Red
        End If

        If i = 2 Then
            OvalShape1.FillColor = Color.White
            i = 0
            Timer2.Start()
            Timer1.Stop()
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Static i As Integer
        i = i + 1

        Label2.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape2.FillColor = Color.Yellow
        End If

        If i = 2 Then
            OvalShape2.FillColor = Color.White
            i = 0
            Timer3.Start()
            Timer2.Stop()
        End If

    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Static i As Integer
        i = i + 1

        Label3.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape3.FillColor = Color.YellowGreen
        End If

        If i = 2 Then
            OvalShape3.FillColor = Color.White
            i = 0
            Timer3.Stop()
            Timer1.Start()
        End If
    End Sub

End Class

Demikianlah Artikel Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET

Sekianlah artikel Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Membuat Simulasi Traffic Light dengan 3 buah Timer di Visual Basic .NET dengan alamat link https://gpbn1.blogspot.com/2016/05/membuat-simulasi-traffic-light-dengan-3.html

Location:

Berbagi :