Aplikasi Lampu Lalu Lintas pada Vb

Mei 10, 2015

Aplikasi Lampu Lalu Lintas pada Vb

Membuat Lampu Lalu Lintas pada Vb

design :

Form program membuat nyala lampu lalu lintas ini terdiri tadi beberapa bentuk yaitu persegi panjang dan lingkaran yang dibuat melalui shape, 3 buah timer dan 2 commandbutton yang masing masing diganti captionnya dengan start dan stop, dan tambahkan Label dengan memasukkan nilai yang diinginkan.

kemudian tuliskan code:

Private Sub Command1_Click()

Timer1.Enabled = True

Label1.Caption = 10

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

End Sub

Private Sub Timer1_Timer()

Shape2.BackColor = vbRed

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Label1.Caption = 3

Timer1.Enabled = False

Timer2.Enabled = True

Shape2.BackColor = vbWhite

Shape3.BackColor = vbYellow

Shape4.BackColor = vbWhite

End If

End Sub

Private Sub Timer2_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer2.Enabled = False

Timer3.Enabled = True

Label1.Caption = 10

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbGreen

End If

End Sub

Private Sub Timer3_Timer()

Label1.Caption = Label1.Caption - 1

If Label1.Caption = 0 Then

Timer3.Enabled = False

Timer1.Enabled = True

Label1.Caption = 12

Shape2.BackColor = vbRed

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

End If

End Sub

logika program:

· Logika untuk program lampu lalu lintas

Program tersebut berjalan karna ada beberapa perintah pada command 1, command 2, timer 1, timer 2, timer 3.

Pada command 1 berisi nilai benar maka akan dieksekusi, dan diberikan nilai waktu10 detik untuk mulai proses running.

Pada command 2 berisi nilai eksekusi untuk stop menghentikan program yang sedang running.

Pada timer 1, 2, dan 3 berisi nyalanya lampu lalu lintas yang akan running.

Pertama tama akan menyala lampu merah dengan waktu yang ditentukan selama 10 detik dengan bentuk yang kedua dan ketiga berwarna putih atau tidak akan menyala, yang menyala hanya lampu pertama berwarna merah. Selanjutnya untuk kondisi nyalanya lampu kuning yang belangsung setelah berakhirnya nyala lampu merah, selama 3 detik. Pada nyalanya lampu kuning bentuk pertama dan ketiga berwarna putih, untuk kondisi berikutnya nyala lampu hijau dengan selang waktu 10 detik, dan pada nyala lampu hijau, bentuk pertama dan kedua berwarna putih atau tidak menyala. Ini diakibatkan karna suatu source code yang bernilai vbWhite dan menyala dengan source code sesuai warna lampu yang menyala.

output: