G t’rasa juga kita sudah menapaki akhir Januari…. Tu artinya dah saatnya final di kampusku (STMIK DIPANEGARA MAKASSAR) ….
Ya… Seperti yang dulu”, begadang utak atik program komputer (salah satu upaya biar ga gaptek..hihihi) dengan modal sok tau yang akhirnya menjadi Paham …. ^_^,,, hehe malah curhat…
Oce sesuai judul di atas….. saya mencoba untuk membuat program traffic light sederhana yang area observasi yang saya ambil yaitu sekitar wilayah Tello yang macetnya minta ampun kalau pagi…mana smuanya g’ sabaran pengen maju smua.. yaa….al hasil…mau mundur g’ bias.. mau maju apalagi… ckckkckck …..bikin pakpolnya juga cpek tuh atur lalu lintas….. ;-} ,, di bawah ini adalah simulasi progam traffic light yang saya buat sekaligus sebagai pemenuhan tugas dan permintan teman hehehehhehehe ^_^v …
Sekedar info simulasi ini saya buat dengan menggunakan Program Visual Basic 6.0 :
Nah langkah awal yang sahabat blogger lakukan adalah merancang form sedemikian rupa hingga menyerupai skema tello yang terdiri dari Jl. Perintis Kemerdekaan, Jl. Urip Sumihardjo, Jl. Abdul daeng Sirua, dan Antang…. Adapun contoh formnya seperti di bawah ini :
(Silahkan utak atik sesuai kreatifitas sahabat maisng”)
Setelah formnya selesai di desigh… langkah berikutnya yaitu membuat listing programnya…. Di ibaratkan manusia, listing program ini adalah jantungnya…mengapa? Karena meskipun design yang telah kita buuat sudah sangat bagus namun listingnya g’ kita buat/ salah otomatis program itu tidak akan berjalan, yang biasanya dari Visual Basic 6.0 akan memberitahukan kita tentang kesalahan dalam program kita.
Listin yang saya buat untuk menjalankan program traffick light ini adalah sebagai berikut:
Private Sub delay()
Ad = Timer
Do While Timer < 1 + Ad
DoEvents
Loop
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Timer1_Timer()
For al = 0 To 5
Label1.Caption = 10 - al
If al = 0 Then
Shape3.FillColor = &H40&
Shape15.FillColor = &H40&
Shape4.FillColor = &H4040&
Shape6.FillColor = &H40&
Shape7.FillColor = &H4000&
Shape8.FillColor = &H4040&
Shape10.FillColor = &H40&
Shape1.FillColor = &H40&
Shape13.FillColor = &H40&
Shape11.FillColor = &H4040&
Shape19.FillColor = &H4000&
Shape16.FillColor = &H4000&
Shape20.FillColor = &H4040&
Shape17.FillColor = &H4040&
Shape18.FillColor = vbRed
Shape21.FillColor = vbRed
Shape2.FillColor = vbYellow
Shape14.FillColor = vbYellow
Shape5.FillColor = vbYellow
Shape9.FillColor = vbRed
Shape12.FillColor = vbRed
Else
Shape2.FillColor = &H4040&
Shape14.FillColor = &H4040&
Shape5.FillColor = &H4040&
Shape9.FillColor = &H40&
Shape21.FillColor = &H40&
Shape18.FillColor = &H40&
Shape12.FillColor = &H40&
Shape3.FillColor = vbRed
Shape15.FillColor = vbRed
Shape6.FillColor = vbRed
Shape7.FillColor = vbGreen
Shape19.FillColor = vbGreen
Shape16.FillColor = vbGreen
Shape10.FillColor = vbGreen
End If
delay
Next al
For al = 5 To 10
Label1.Caption = 10 - al
If al = 5 Then
Shape7.FillColor = &H4000&
Shape19.FillColor = &H4000&
Shape16.FillColor = &H4000&
Shape10.FillColor = &H4000&
Shape3.FillColor = vbRed
Shape15.FillColor = vbRed
Shape6.FillColor = vbRed
Shape8.FillColor = vbYellow
Shape20.FillColor = vbYellow
Shape17.FillColor = vbYellow
Shape11.FillColor = vbYellow
Else
Shape3.FillColor = &H40&
Shape15.FillColor = &H40&
Shape6.FillColor = &H40&
Shape8.FillColor = &H4040&
Shape20.FillColor = &H4040&
Shape17.FillColor = &H4040&
Shape11.FillColor = &H4040&
Shape1.FillColor = vbGreen
Shape13.FillColor = vbGreen
Shape4.FillColor = vbGreen
Shape9.FillColor = vbRed
Shape21.FillColor = vbRed
Shape18.FillColor = vbRed
Shape12.FillColor = vbRed
End If
delay
Next al
End Sub
Private Sub Timer2_Timer()
marque.Left = marque.Left - 100
If marque.Left < -7000 Then
marque.Left = 7000
End If
End Sub
(Listing ini masih bias di utak atik koq….!!)
Hmmmm….. Design sudah… Listing juga sudah sekarang tinggal mengecek ada error apa g’? caranya dengan menekan F5 (Run) dan jangan lupa Bismillah….jika design dan listing yang sahabat benar maka program akan berjalan… kurang lebih seperti di bawah ini… ^_^
Sahabat juga bisa memancing program traffic light itu disini