Minggu, 30 Januari 2011

Traffic Light Tello (Makassar)


         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
Sekian postingan saya, smoga dapat membantu para sahabat….. “Ilmu itu untuk di amalkan , bukan untuk di sombongkan “ ^_^ .. Wassalam!!!