Pernahkan anda melihat sebuah kata yang berubah warna, dari satu warna ke warna laianya, kemudian kembali ke warna asalnya, baik tulisanya yang berubah warna, maupun background dari kata tersebut, kali ini kita akan berguru membuatnya memakai 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 aku menuliskan "WELCOME TO BLUES PEDIA", dan atur juga font sizenya menjadi 24.
Untuk lebar dari label sesuaikan / paskan dengan lebar kata, sehingga menyerupai ini :
jangan lupa tambahkan juga komponen utamanya yaitu timer, setting interval dari timer menjadi 500
3. bila sudah tuliskan script berikut :
Private Sub Form_Load()
Label1.ForeColor = vbBlue 'Warna teks saat aktivitas di jalankan ialah Biru
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbBlue Then 'Jika warna teks ialah biru maka
Label1.ForeColor = vbRed 'Warna text bermetamorfosis Merah
Label1.BackColor = vbBlue 'Background Teks menjadi Biru
ElseIf Label1.ForeColor = vbRed Then 'Dan Jika warna teks ialah biru maka
Label1.ForeColor = vbBlue 'Warna text bermetamorfosis Biru
Label1.BackColor = vbRed 'Background Teks menjadi Merah
End If
End Sub
Keterangan :
- Script Fore Color ialah script untuk merubah warna text sedangkan
- Back Color script untuk merubah warna bacground
- Ganti aba-aba warna vbBlue dan vbRed dengan warna yang anda sukai
Dan ini ialah script untuk memakai 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 aktivitas dijalankan, maka warna teks label ialah Biru, saat teks berwarna biru maka warna text bermetamorfosis Merah dengan background Biru. Begitu juga saat teks berwarna merah, maka warna teks akan bermetamorfosis Biru dengan background Merah.
Interval / waktu yang di gunakan untuk text dan bacground berubah warna ialah 500 (waktu VB) atau setara dengan 0,5 detik.
Sekian tutorial kali ini biar bermanfaat
Comments
Post a Comment