Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0

Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0
Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0
Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0

Pada postingan sebelumnya kita telah membahas mengenai pembuatan program list angka ganjil genap , dan pada postingan kali ini kita akan kembali belajar untuk membuat sebuah program sederhana menggunakan Microsoft Visual Basic 6.0.

Seperti biasa kita menggunakan bahasa pemrograman basic dan menggunakan Microsoft Visual Basic sebagai IDE nya. Kita kali ini akan membuat sebuah program sederhana yang mengimplementasikan penggunaan Percabangan dan Perulangan pada sebuah bahasa pemrograman tertentu ,pada kasus ini kita menggunakan percabangan dan perulangan pada Basic.

Sebelum kita masuk ke pembahasan inti mengenai pembuatan program lampu lalu lintas dengan VB 6.0 ini, seperti biasa kita harus merancang terlebih dahulu algoritma dari pembuatan program ini.

Jadi algoritma pada lampu lalu lintas ini, kita diminta untuk membuat sebuah program dimana seperti halnya lampu lalu lintas pada umumnya. Lampu terdiri dari lampu merah, kuning dan hijau. Kemudian dikombinasikan dengan penggunaan Timer pada masing-masing lampu, dan akan berubah warna dalam waktu tertentu yang telah diatur, dan akan melakukan perulangan secara terus menerus dari lampu satu ke lampu yang lainnya.

BACA JUGA : Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0


Baik langsung saja , sobat bisa praktekan beberapa langkah berikut terkait dengan kasus kita kali ini :

Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0

1. Pertama seperti biasa buka terlebih dahulu software Microsoft Visual Basic 6.0 milik sobat, tampilan pertamanya seperti ini
tampilan awal VB 

2. Kemudian pilih Standar EXE dan klik button open,kemudian akan menampilkan jendela Form 1 seperti di bawah ini.  
pilih standar EXE 

3. Setelah jendela Form1 muncul kemudian menyusun komponen programnya, komponen yang perlu dimasukan ke dalam Form1 adalah : 2 Label, 2 CommandButton, 5 Shape (2 Rectangle & 3 Circle) dan 3 Timer

4. Kemudian mengatur properties dan name dari masing-masing Form/Control seperti tabel di bawah ini :  
properti elemen
5. Kemudian sobat susun komponen programnya seperti berikut :

susunan elemen
6. Lalu sobat masukan kodingan seperti berikut ini.

Ini source code untuk ComandButton1 (start). 
kodingan start
  • Private Sub start_Click() Menyatakan kejadian ketika CommandButton1 (Start) di klik/dijalankan. 
  • Timer1.Enabled = True Perintah untuk mengaktifkan Timer1. 
  • waktu.Caption = 10 Perintah untuk mendeklarasikan nilai awal dari variabel waktu (Label1) dalam hal ini bernilai 10. 
  • waktu.ForeColor = vbRed Perintah untuk memberikan warna merah (Red) pada angka di variabel waktu ketika dijalankan. 
  • merah.BackColor = vbRed Perintah untuk memberikan warna merah (Red) pada Shape3 (merah) ketika dijalankan. 
  • End Sub Mengakhiri perintah .
 Ini source code untuk CommandButton2 (stop). 
kosingan stop 
  • Private Sub stop_Click() Menyatakan kejadian ketika CommandButton2 (stop) dijalankan. 
  • waktu.Caption = 10 Mendeklarasikan nilai awal dari variabel waktu sejumlah 10. 
  • waktu.ForeColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada angka di variabel waktu ketika dijalankan. 
  • merah.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape3 (merah) ketika dijalankan. 
  • kuning.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape4 (kuning) ketika dijalankan. 
  • hijau.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape5 (hijau) ketika dijalankan. 
  • Timer1.Enabled = False Perintah untuk menonaktifkan/mematikan Timer1. 
  • Timer2.Enabled = False Perintah untuk menonaktifkan/mematikan Timer2. 
  • Timer3.Enabled = False Perintah untuk menonaktifkan/mematikan Timer2. 
  • End Sub Mengakhiri perintah. 
BACA JUGA : Cara Membuat Program Konversi Dengan Java NetBeans IDE 8.1


 Ini source code untuk Timer1. 
kodingan timer1
  • Private Sub Timer1_Timer() Menyatakan kejadian ketika Timer1 di jalankan. 
  • waktu.Caption = waktu.Caption – 1 Perintah untuk memberikan nilai pada variabel waktu sejumlah nilai awal variabel waktu di kurangi 1 (waktu.Caption = waktu.Caption – 1). 
  • merah.BackColor = vbRed Perintah untuk memberikan warna merah (Red) pada Shape3 (merah) ketika dijalankan. 
  • kuning.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape4 (kuning) ketika dijalankan. 
  • hijau.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape5 (hijau) ketika dijalankan. 
  • If waktu.Caption = "0" Then Perintah percabangan if , dimana jika variabel waktu berjumlah 0 akan dilakukan eksekusi dengan perintah di bawah ini. 
  • waktu.Caption = 3 Mendeklarasikan nilai awal dari variabel waktu sejumlah 3. 
  • waktu.ForeColor = vbYellow Perintah untuk memberikan warna kuning (Yellow) pada angka di variabel waktu ketika dijalankan.
  • merah.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape3 (merah) ketika dijalankan. 
  • kuning.BackColor = vbYellow Perintah untuk memberikan warna kuning (Yellow) pada Shape4 (kuning) ketika dijalankan. 
  • hijau.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape5 (hijau) ketika dijalankan. 
  • Timer2.Enabled = True Perintah untuk mengaktifkan Timer2.
  • Timer1.Enabled = False Perintah untuk menonaktifkan/mematikan Timer1.  
  • End If Perintah untuk mengakhiri percbangan if. 
  • End Sub Mengakhiri perintah.
Ini source code untuk Timer2.  
kodingan timer2
  • Private Sub Timer2_Timer() Menyatakan kejadian ketika Timer2 di jalankan. 
  • waktu.Caption = waktu.Caption – 1 Perintah untuk memberikan nilai pada variabel waktu sejumlah nilai awal variabel waktu di kurangi 1 (waktu.Caption = waktu.Caption – 1). 
  • If waktu.Caption = "0" Then Perintah percabangan if , dimana jika variabel waktu berjumlah 0 akan dilakukan eksekusi dengan perintah di bawah ini.
  • waktu.Caption = 15 Mendeklarasikan nilai awal dari variabel waktu sejumlah 15. 
  • waktu.ForeColor = vbGreen Perintah untuk memberikan warna hijau (Green) pada angka di variabel waktu ketika dijalankan. 
  • merah.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape3 (merah) ketika dijalankan. 
  • kuning.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape4 (kuning) ketika dijalankan. 
  • hijau.BackColor = vbGreen Perintah untuk memberikan warna hijau (Green) pada Shape5 (hijau) ketika dijalankan. 
  • Timer3.Enabled = True Perintah untuk mengaktifkan Timer3. 
  • Timer2.Enabled = False Perintah untuk menonaktifkan/mematikan Timer2. 
  • End If Mengakhiri percabangan if. 
  • End Sub Mengakhiri perintah.
 Ini source code untuk Timer3.
 

kodingan timer3




  • Private Sub Timer3_Timer() Menyatakan kejadian ketika Timer3 di jalankan. 
  • waktu.Caption = waktu.Caption – 1 Perintah untuk memberikan nilai pada variabel waktu sejumlah nilai awal variabel waktu di kurangi 1 (waktu.Caption = waktu.Caption – 1).
  • If waktu.Caption = "0" Then Perintah percabangan if , dimana jika variabel waktu berjumlah 0 akan dilakukan eksekusi dengan perintah di bawah ini. 
  • waktu.Caption = 10 Mendeklarasikan nilai awal dari variabel waktu sejumlah 10. 
  • waktu.ForeColor = vbRed Perintah untuk memberikan warna merah (Red) pada angka di variabel waktu ketika dijalankan. 
  • merah.BackColor = vbRed Perintah untuk memberikan warna merah (Red) pada Shape3 (merah) ketika dijalankan. 
  • kuning.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape4 (kuning) ketika dijalankan. 
  • hijau.BackColor = vbBlack Perintah untuk memberikan warna hitam (Black) pada Shape5 (hijau) ketika dijalankan. 
  • Timer1.Enabled = True Perintah untuk mengaktifkan Timer1. 
  • Timer3.Enabled = False Perintah untuk menonaktifkan/mematikan Timer3. 
  • End If Mengakhiri percabangan if. 
  • End Sub Mengakhiri perintah. 
Nahh setelah semua kodingan sobat masukan , silahkan coba jalankan programnya dan lihat hasilnya. Jika tidak terdapat erorr hasilnya akan seperti ini:

BACA JUGA : Membuat Program Mencari Luas Bangun Datar Dengan Visual Basic 6.0

Ini tampilan awal program ketika di run. 

output awal

Ini output program ketika Button start atau Timer3 dijalankan (Menyala lampu merah).

lampu merah nyala

 Ini output program ketika Timer1 dijalankan (menyala lampu kuning). 

lampu kuning nyala

Ini output program ketika Timer2 dijalankan (menyala lampu hijau). 

lampu hijau nyala

Ini output program ketika button stop di jalankan. 

output stop


Nahh itulah tadi pembahasan kita mengenai pembuatan program lampu lalu lintas dengan VB 6.0 , semoga bermanfaat dan apat berguna buat kita semua.