Program Visual Basic: Membuat Teks Kedap Kedip (Blink) di Visual Basic

Sekarang saya akan share tentang cara membuat teks kedip-kedip (blink) dengan visual basic.

program bisa di download di sini

cara 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 sini

sumber:
http://irmanf.wordpress.com/2010/02/19/membuat-teks-kelap-kelip-pada-visual-basic/

Labels: