Home > Pemrograman > Membuat Label Kedap-kedip/blink (pke VB)

Membuat Label Kedap-kedip/blink (pke VB)

Berikut ini cara membuat tulisan di label kelihatan kedap-kedip (blink) dengan menggunakan vb. Gag cuman pke html aja tapi pke vb pun bisa.  Dengan menggunakan control Label dan Timer untuk menampilkan tulisan kedap-kedip di atas form Anda (blink).Langkah pertama buka aplikasi vb 6 klo belum ada maka instal dlu.

* Buat satu proyek baru dengan 1 Form, 1 Label, dan 1 Timer
* 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

Gimna???? sederhana bnget kn..!!!

Categories: Pemrograman
  1. March 16, 2009 at 12:15 pm

    artikelnya bagus..mau dunk di ajarin..!!!

  2. m0811503465
    March 21, 2009 at 2:19 pm

    simak terus aja artikel-artikel tentang pemrograman yang lain dan praktekkan. Moga mengerti dan bisa tentang pemrograman …
    Saya juga lagi tahap belajar

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: