Visual Basic - Membuat Traffic Lights

Melanjutkan posting program Visual Basic.

Program Lampu Lalu Lintas / Traffic Lights.

Cek Sekarang....

Siapkan kerangka program seperti gambar diatas.

Gunakan :

-Shape (untuk membuat Lampu)

-Label (untuk kotak waktu)

-Command Button (untuk Stop)

Added Command Button saya tambahkan karena Tugas Program saya buat Berantai (Berkesinambungan dari Login, Lampu Lalu Lintas, Stopwatch). Kalian boleh tidak usah menambahkannya.

Ok, jika sudah. Salin Koding Program dibawah ini :

Dim menit As Integer, detik As Integer, i As Integer

Private Sub cmdnext_Click()

frmstopwatch.Show

frmlampu.Visible = False

End Sub

Private Sub CmdStop_Click()

timer.Enabled = False

lbldetik.Caption = 0

lblmenit.Caption = 0

End Sub

Private Sub Form_Load()

timer.Enabled = True

frmlampu.Visible = True

formlogin.tmrwaktu.Enabled = False

End Sub

Private Sub timer_Timer()

Static i

detik = detik + 1

If detik > 60 Then

menit = menit + 1

detik = 0

If menit = 6 Then

End If

End If

lblmenit.Caption = menit

lbldetik.Caption = detik

i = menit

If i = 6 Then

i = 0

End If

If i = 0 Then

Shape3(2).FillColor = vbBlack

Shape3(0).FillColor = vbRed

Shape3(1).FillColor = vbBlack

ElseIf i = 2 Then

Shape3(0).FillColor = vbBlack

Shape3(1).FillColor = vbYellow

ElseIf i = 4 Then

Shape3(1).FillColor = vbBlack

Shape3(2).FillColor = vbGreen

End If

End Sub

Klik Run, kemudian lihat hasilnya

Semoga Bermanfaat.