Membuat Kata Berkelap Kelip

Pernahkan anda melihat sebuah kata yang berubah warna, dari satu warna ke warna laianya, lalu kembali ke warna asalnya, baik tulisanya yang berubah warna, maupun background dari kata tersebut, kali ini kita akan belajar membuatnya menggunakan Visual Basic dengan memanfaatkan Timer sebagai toolbox utamanya, berikut tutorialnya :

1. Seperti biasa jalankan VB dengan projext Standar EXE

2. Karena hanya sebagai media pembelajaran saja, tambahkan 1 label saja dengan Caption Bebas, namun disini saya menuliskan "WELCOME TO BLUES PEDIA", dan atur juga font sizenya menjadi 24.

Untuk lebar dari label sesuaikan / paskan dengan lebar kata, sehingga seperti ini :

jangan lupa tambahkan juga komponen utamanya yaitu timer, setting interval dari timer menjadi 500

3. jika sudah tuliskan script berikut :

Private Sub Form_Load()

Label1.ForeColor = vbBlue 'Warna teks ketika program di jalankan adalah Biru

End Sub

Private Sub Timer1_Timer()

If Label1.ForeColor = vbBlue Then 'Jika warna teks adalah biru maka

Label1.ForeColor = vbRed 'Warna text berubah menjadi Merah

Label1.BackColor = vbBlue 'Background Teks menjadi Biru

ElseIf Label1.ForeColor = vbRed Then 'Dan Jika warna teks adalah biru maka

Label1.ForeColor = vbBlue 'Warna text berubah menjadi Biru

Label1.BackColor = vbRed 'Background Teks menjadi Merah

End If

End Sub

Keterangan :

- Script Fore Color adalah script untuk merubah warna text sedangkan

- Back Color script untuk merubah warna bacground

- Ganti kode warna vbBlue dan vbRed dengan warna yang anda sukai

Dan ini adalah script untuk menggunakan 3 warna :

Private Sub Timer1_Timer()

If Label1.ForeColor = vbWhite Then

Label1.ForeColor = vbRed 

Label1.BackColor = vbBlue

ElseIf Label1.ForeColor = vbRed Then

Label1.ForeColor = vbGreen

Label1.BackColor = vbBlack

ElseIf Label1.ForeColor = vbGreen Then

Label1.ForeColor = vbWhite

Label1.BackColor = vbBlue

End If

End Sub

4. Jalankan program

Ketika program dijalankan, maka warna teks label adalah Biru, ketika teks berwarna biru maka warna text berubah menjadi Merah dengan background Biru. Begitu juga ketika teks berwarna merah, maka warna teks akan berubah menjadi Biru dengan background Merah.

Interval / waktu yang di gunakan untuk text dan bacground berubah warna adalah 500 (waktu VB) atau setara dengan 0,5 detik.

Sekian tutorial kali ini semoga bermanfaat