Cara Membuat Text Kedap Kedip (Effect Blink) VB6

Berikut ini adalah kombinasi penggunaan Label dan Timer untuk menampilkan caption/tulisan kedap-kedip (effect blink) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat satu proyek baru dengan 1 Form, 1 Label, dan 1 Timer
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Dim i As Long                       'Deklarasi
          Dim merah, hijau, biru As Integer   'Variabel global

          Private Sub Form_Load()
             i = 0     'Inisialisasi detik
             Timer1.Interval = 500   'Kalau 1000 biasanya lompat 1 detik
          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                     

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module