Simulasi Lampu merah dengan Visual Basic

Simulasi Lampu merah dengan Visual Basic

            Visual Basic saat ini merupakan salah satu aplikasi pemograman yang sudah seharusnya dikuasai oleh setiap pelajar maupun mahasiswa, karena memang fitur –fitur yang disediakan oleh visual basic bisa digunakan semua kalangan (red: merakyat)….

            Okelah kalau begggitu… langsungke intinya kali ini kita akan membuat simulasi lampu lalu lintas dengan menggunakan fungsi timer pada visual basic..

stay tune

masukkan toolbox berikut:

Keterangan:

1.      Shape1

2.      Shape2

3.      Shape3

4.      Shape4

5.      Label

6.      Commandbutton1

7.       Commandbutton1

PLUS TIMER JANGAN LUPA

(timer 1 buat lampunya gerak, timer 2 buat hiutngan mundur)

Truz listing programnya

'program simulasi lampu merah

'created: muhammad aldrin julianto

'tanggal:6 maret 2010

Dim a As Integer

Dim 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 Form_Load()

End Sub

 

Private Sub Timer1_Timer()

a = a + Timer1.Interval

Select Case a

Case 4000

Shape2.FillColor = vbRed

Shape3.FillColor = vbBlack

Shape4.FillColor = vbBlack

Case 8000

Shape2.FillColor = vbBlack

Shape3.FillColor = vbYellow

Shape4.FillColor = vbBlack

Case 12000

Shape2.FillColor = vbBlack

Shape3.FillColor = vbBlack

Shape4.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 

 

Hasil jadi kayak ini…..

Selamat mencoba

“Sesungguhnya dalam penciptaan langit dan bumi, dan silih bergantinya malam dan siang terdapat tanda-tanda bagi orang-orang yang berakal, (yaitu) orang-orang yang mengingat Allah sambil berdiri atau duduk atau dalam keadan berbaring dan mereka memikirkan tentang penciptaan langit dan bumi (seraya berkata): "Ya Tuhan kami, tiadalah Engkau menciptakan ini dengan sia-sia, Maha Suci Engkau, maka peliharalah kami dari siksa neraka.”