LAMPU MERAH 4 SIMPANG VISUAL BASIC

ini adalah aplikasi VB lampu merah 4 simpang yang di tugaskan oleh kk tingkat, cuma mao share aja

masih newbie nih, menurut sesepuh sebaiknya ilmu yang kita dapati di tulis  ya aku coba tulis aja di blok heheh
monggo coment dll nya

ini contoh sourcenya :

Dim a, b As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True




End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False

Label1.Caption = ""
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
a = 0
b = 0






End Sub

Private Sub Timer1_Timer()
a = a + Timer1.Interval
Select Case a
Case 4000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbYellow
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen


Case 8000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbGreen
Shape6.FillColor = vbBlack
Shape7.FillColor = vbYellow
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack

Case 12000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbBlack
Shape7.FillColor = vbBlack
Shape8.FillColor = vbGreen
Shape10.FillColor = vbBlack
Shape11.FillColor = vbYellow
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack

Case 16000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbBlack
Shape11.FillColor = vbBlack
Shape12.FillColor = vbGreen
Shape14.FillColor = vbRed
Shape15.FillColor = vbYellow
Shape16.FillColor = vbBlack

Case 20000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen



a = 0
End Select



End Sub

Private Sub Timer2_Timer()
b = b + Timer2.Interval
Label1.Caption = Val(4000 - b) / Val(1000)
Select Case b
Case 4000
b = 0
End Select




End Sub

Private Sub Timer3_Timer()