Sekarang saya akan share tentang cara membuat teks kedip-kedip (blink) dengan visual basic.
program bisa di download di
sinicara membuat:
1. Buat form seperti di bawah ini.
Tulisan dalam label bisa anda kreasikan sendiri.
Setting properties timer untuk interval menjadi 1000
2. coding, copy-paste saja:
Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0 'Supaya tdk overflow, dsb...
merah = Int(255 * Rnd) 'Bangkitkan angka random untuk merah
hijau = Int(255 * Rnd) 'Bangkitkan angka random untuk hijau
biru = Int(255 * Rnd) 'Bangkitkan angka random untuk biru
Label1.ForeColor = RGB(merah, hijau, biru) 'Campur tiga warna
If i Mod 2 = 0 Then 'Jika counter habis dibagi 2
Label1.Visible = True 'Tampilkan label
Else 'Jika counter tidak habis dibagi 2
Label1.Visible = False 'Sembunyikan label
End If 'Akhir pemeriksaan
End Sub
program bisa di download di
sinisumber:
http://irmanf.wordpress.com/2010/02/19/membuat-teks-kelap-kelip-pada-visual-basic/