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 )
 |
| Desain Form |
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.
Demikian tip cara Cara Membuat Simulasi Lampu Merah Lalulintas dengan VB6. Selamat mencoba semoga berhasil.
No comments:
Post a Comment