Ada berbagai macam lampu neon yang berkedip-kedip di malam perkotaan. Diantaranya, yang paling umum digunakan mungkin adalah lampu air yang mengalir. Efeknya yang mengalir membawa vitalitas pada malam yang tenang. Apa efeknya jika kita menambahkan rangkaian lampu air berkilau ke antarmuka perangkat lunak multimedia yang kita buat? Ikuti langkah-langkah di bawah ini untuk menambahkan rangkaian lampu air mengalir dengan efek mengejar ke program multimedia Anda.
1. Buat formulir baru. Masuk ke lingkungan sistem Visual5asic4.0, buat formulir baru (FORM1), dan atur properti Backcolor FORM1 ke RGB (192.192.192).
2. Bangun lentera pertama. Klik "Label" di "Form Control Bar" dengan mouse, dan tarik keluar kotak persegi panjang (LABEL1) pada FORM1. Atur atribut Caption menjadi "★" (bisa juga karakter lain, "★" di sini dapat ditemukan di "Character Map" dari "Accessories" WINDOWS95), Autosize ke .T., Backstyle ke 0, dan Forecolor menjadi Merah, ukuran font 18.
3. Buat 29 lentera lainnya. Klik LABEL1 dengan mouse, tekan tombol CTRL C (copy), lalu tekan tombol CTRL V (paste) untuk membuat label lain (LABEL1 (1)) dengan judul yang sama dengan LABEL1 pada FORM1. Pilih 'YA' saat diminta di layar apakah akan membuat array kontrol.'. Ulangi penyalinan ini untuk membuat total 30 label, dan susun 30 label ini ke dalam kotak persegi panjang secara berurutan.
4. Buat pengatur waktu. Klik "Timer" di "Form Control Bar" dengan mouse, lalu klik sekali pada FORM1 untuk membuat timer (TIMER1) pada FORM1. Atur Interval propertinya menjadi 400.
5. Klik dua kali FORM1 dan tulis proses Load FORM1 sebagai berikut:
PrivatSubForm_Load()
saya=0
Forj=0To9
Label1(j*3).Warna Depan=&HFF&'merah
Label1(j*3 1).Warna Depan=&HFF00&'hijau
Label1(j*3 2).Warna Depan=&HFFFF&'kuning
Selanjutnyaj
Sub Akhir
6. Klik dua kali TIMER1 dan tulis proses Timer TIMER1 sebagai berikut:
PrivateSubTimer1_Timer()
Jika saya = 30 maka
saya=0
AkhirJika
saya = saya 1
UntukJ=0To29
Label1(J).Terlihat=Salah
BerikutnyaJ
JikaIMod3=2Kemudian
UntukJ=0To9
Label1(J*3 1).Terlihat=Benar
BerikutnyaJ
Kalau tidak
JikaIMod3=0Lalu
UntukJ=0To9
Label1(J*3 2).Terlihat=Benar
BerikutnyaJ
Kalau tidak
UntukJ=0To9
Label1(J*3).Terlihat=Benar
BerikutnyaJ
AkhirJika
AkhirJika
Sub Akhir
Setelah menjalankan form, Anda dapat melihat bahwa lampu merah, hijau, dan biru menyala secara bergantian. Menyesuaikan nilai atribut Interval Timer1 dapat mengubah kecepatan siklus ketiga kelompok lampu.
Program di atas berhasil berjalan di VisualBasic5.0 dan Windows95. ->