Membuat Program Simulasi Lampu Stopan di Visual Basic 6

Assalamualaikum Wr. Wb

Hai teman-teman pada kesempatan kali ini saya akan  berbagi tutorial Membuat progam simulasi lampu stopan di Visual Basic 6. Okey kita langsung aja

1. Klisk Start
2. Tunjuk Program, dilanjutan dengan Microsoft Visual Basic 6.0
3. Klik Microsoft Visual Basic 6.0
4. Akan muncul gambar seperti dibawah ini, pilih Standard Exe, Klik Open

5. Buat 4 shape,  1 label dan 1 timmer  seperti di bawah ini.

a. Label

b. Shape

c. Timer

d. Propertis

6. Ubah propertis tiap objek. Seperti di bawah ini.

objek	Property	Nilai
From 1	Caption	Lampu STOPAN
Label1	Name Autosize Caption Font Fontstyle size	lblHitung true 00 MS san serif Regular 24
Shape1	Backcolor Backstyle Shape	Dekstop Opaque Circle
Shape2	Name Backcolor Backstyle Shape	shpMerah Active Border Opaque Circle
Shape3	Name Backcolor Backstyle shape	shpKuning active Border opaque Circle
Shape4	Name Backcolor Backstyle Shape	shpMerah active Border opaque Circle
Timmer1	Name Interval	tmrHitung 1000

Hasilnya akan jadi seperti di bawah ini

7. Kemudian tuliskan / copy paste source code berikut ini pada kode editor Visual basic 6.0

'MERAH > HIJAU > KUNING > MERAH

Dim WaktuMerah As Integer, WaktuKuning As Integer, WaktuHijau As Integer

Dim Penghitung As Integer

Private Sub Form_Load()

 WaktuMerah = 20

    WaktuKuning = 5

    WaktuHijau = 20

    

    shpMerah.BackColor = vbRed

    lblHitung.ForeColor = vbRed

    lblHitung.Caption = WaktuMerah

End Sub

Private Sub tmrHitung_Timer()

Penghitung = Penghitung + 1

    

    If shpMerah.BackColor = vbRed Then

        If Penghitung = WaktuMerah Then

            shpMerah.BackColor = vbButtonFace

            

            shpHijau.BackColor = vbGreen

            lblHitung.ForeColor = vbGreen

            lblHitung.Caption = WaktuHijau

            

            Penghitung = 0

            

        Else

            lblHitung.Caption = WaktuMerah - Penghitung

        End If

        

        

        

    ElseIf shpHijau.BackColor = vbGreen Then

        If Penghitung = WaktuHijau Then

            shpHijau.BackColor = vbButtonFace

            

            shpKuning.BackColor = vbYellow

            

            lblHitung.Caption = ""

            

            Penghitung = 0

            

        Else

            lblHitung.Caption = WaktuHijau - Penghitung

        End If

        

        

        

    ElseIf shpKuning.BackColor = vbYellow Then

        If Penghitung = WaktuKuning Then

            shpKuning.BackColor = vbButtonFace

        

            shpMerah.BackColor = vbRed

            lblHitung.ForeColor = vbRed

            lblHitung.Caption = WaktuMerah

            Penghitung = 0

        End If

        

    End If

End Sub

8. Untuk menjalankan program yang sudah di buat klik tombol star / F5. Jika ingin menyimpannya, klik menu File >> save Project dan jika ingin membuat program anda tersebut bisa langsung dipakai dalam bentuk format EXE, klik menu File >> Make Project1.exe.

Sekian  Tutorial sederhana dari saya , apabila ada kesalahan dan kekurangan mohon maaf karena sesungguhnya manusia itu tidak ada yang sempurna...

Selamat Mencoba Dan Smoga Bermanfaat.