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.

Belum ada Komentar untuk "Visual Basic - Membuat Traffic Lights"

Posting Komentar

Iklan Atas Artikel



Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel