Membuat Teks Berubah Warna bag.ll di Visual Basic

Tutorial ini adalah lanjutan dari Membuat teks berubah warna otomatis . Sekarang kita akan membuat Teks berubah-ubah warna juga, tapi warnanya kita yang menentukan. kita bisa mengaturnya sesuai yang kita inginkan, kali ini kita akan membuat code dengan menggunakan bentuk percabangan. kita akan mempraktekan dengan menggunakan 3 warna yang sudah kita tentukan, yaitu: merah, hijau, dan biru.
berikut langkah-langkahnya:

1. Buat New Project, Standard EXE
2. Masukan 1 buah label dan 1 buah Timer,

3. Ganti Caption label1 menjadi "SAYA YANG MENGATUR WARNA TEKS INI"
4. Set Interval Timer1 menjadi 1000 dan Enabled=True
5. Masukan kode berikut ini:

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
    Label1.ForeColor = vbGreen
ElseIf Label1.ForeColor = vbGreen Then 
    Label1.ForeColor = vbBlue
Else      
    Label1.ForeColor = vbRed
End If
End Sub

6. Jalankan programnya!!

keterangan :
Logikanya seperti ini

• 'jika warna teks merah maka
• 'teks berwarna hijau
• 'teks berwarna hijau
• 'jika warna teks hijau maka
• 'teks berwarna biru
• 'selain itu(jika tdk berwarna merah/hijau)
• 'teks akan berwarna merah lagi dan terus berulang-ulang selama timer berjalan

Silahkan berkreasi sendiri dengan menggunakan lebih dari 3 warna.. hehehe :)
berikut code warna dasar dalam visual basic yang bisa digunakan untuk referensi

Constant	Description
vbBlack	Black
vbRed	Red
vbGreen	Green
vbYellow	Yellow
vbBlue	Blue
vbMagenta	Magenta
vbCyan	Cyan
vbWhite	White

Silahkan Baca Juga :

• Tutorial Visual Basic yang lain

Thanks for reading Membuat Teks Berubah Warna bag.ll di Visual Basic