Cara Membuat Simulasi Lampu Merah Lalulintas dengan VB6

Cara Membuat Simulasi Lampu Merah Lalulintas dengan VB6 - Lampu merah merupakan salah satu cara untuk mengendalikan jalannya lalulintas yang ada di jalan raya. Sudah tidak asing lagi buat kita khususnya bagi pengendara motor dan mobil, fungsi lampu merah adalah salah satu cara untuk mengatur jalannya lalulintas agar bisa diatur dengan baik, hal ini disebabkan karena adanya persimpangan jalan atau hal-hal lain yang dipasangi lampu merah.

Pada pertemuan kali ini tip dan trik visual ingin memberikan trik bagaimana membuat simulasi lampu lalulintas jalan raya dengan menggunakan Visual Basic 6.0,.Agar lebih mudah kita memahaminya perhatikan langkah-langkah berikut ini:

Cara Membuat Simulasi Lampu Merah Lalulintas dengan VB6

1. Buka Form Visual Basic Anda

2. Tambahkan 4 Timer, 2 Frame (untuk Wadah Lampu), 8 Shape (6 Shape Lingkaran dan 2 Shape     kotak bujur sangkar untuk kaki) dan beberapa Label.

   Untuk lebih jelasnya lihat gambar dibwah ini dan desainlah form Anda ( ikuti Petunjuk pada            gambar dibawah ini )

 

LuqmanseoFriendly -  Cara Membuat Simulasi Lampu Merah Lalulintas dengan VB6

 
Setelah Anda selesai mendesain Form sekarang kita akan membuat codenya :

3. Buka jendela kode dengan F7,  lalu hapus semua kode yang ada di jendela code sampai kosong

4. Setelah itu silakan Ketik atau Copy kode dibawah ini di jendela Kode:

Private Sub Form_Load()

Timer1.Enabled = True

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Timer1.Interval = 8000

Timer2.Interval = 3000

Timer3.Interval = 8000

Timer4.Interval = 8000

Shape1.FillColor = &HFF&

Shape2.FillColor = &HC0FFFF

Shape3.FillColor = &HC0FFC0

Shape5.FillColor = &HC0C0FF

Shape6.FillColor = &HC0FFFF

Shape7.FillColor = &HFF00&

End Sub

Private Sub Timer1_Timer()

Shape3.FillColor = &HC0FFC0

Shape1.FillColor = &HFF&

Shape2.FillColor = &HC0FFFF

Shape5.FillColor = &HC0C0FF

Shape6.FillColor = &HC0FFFF

Shape7.FillColor = &HFF00&

Timer2.Enabled = True

Timer1.Enabled = False

Label1.Caption = "STOP"

Label2.Caption = "RUN"

End Sub

Private Sub Timer2_Timer()

Shape2.FillColor = &HFFFF&

Shape1.FillColor = &HC0C0FF

Shape7.FillColor = &HC0FFC0

Shape6.FillColor = &HFFFF&

Timer3.Enabled = True

Timer2.Enabled = False

Label1.Caption = "SIAP-SIAP"

Label2.Caption = "SIAP-SIAP"

End Sub

Private Sub Timer3_Timer()

Shape2.FillColor = &HC0FFFF

Shape3.FillColor = &HFF00&

Shape6.FillColor = &HC0FFFF

Shape5.FillColor = &HFF&

Timer4.Enabled = True

Timer3.Enabled = False

Label1.Caption = "RUN"

Label2.Caption = "STOP"

End Sub

Private Sub Timer4_Timer()

Shape2.FillColor = &HFFFF&

Shape1.FillColor = &HC0C0FF

Shape3.FillColor = &HC0FFC0

Shape5.FillColor = &HC0C0FF

Shape7.FillColor = &HC0FFC0

Shape6.FillColor = &HFFFF&

Timer1.Enabled = True

Timer4.Enabled = False

Label1.Caption = "SIAP-SIAP"

Label2.Caption = "SIAP-SIAP"

End Sub

5. Simpan Code Anda dan jalankan Program.

Setelah Anda menjalankan program maka lampu merah akan langsung aktif persis seperti lampu merah yang berada di jalanan yang sering kita lihat.Aplikasi ini bisa Anda terapkan untuk jenis permaianan Game.Silahkan kembangkan kreatifitas Anda.