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



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Membuat Kata Berkelap Kelip"

Post a Comment