Home > Visual Basic 6 > Membuat Teks Kelap-Kelip Pada Visual Basic

Membuat Teks Kelap-Kelip Pada Visual Basic

Source code berikut untuk membuat tulisan pada label (teks) kelap-kelap berwarna-warni.

Buat 1 project dengan :
1 Form
1 Label
1 Timer

Copy source code berikut pada Form : 

Dim i As Long
Dim merah, hijau, biru As Integer

Private Sub Form_Load()
  i = 0     'Inisialisasi detik
  Timer1.Interval = 100   'Kalau 1000 biasanya lompat 1 detik
  Label1.Caption = "Ini contoh tulisan kelap-kelip"
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


Referensi :
Masino Sinaga
http://www.masinosinaga.com/


Artikel Terkait :

  1. supandi sugeha
    September 6, 2010 at 2:04 pm

    salam kenal mas, gua supandi mahasiswa menado, numpang sedot ilmu yachh mas…

  2. January 6, 2011 at 7:26 pm

    tolong dong buatkan contoh aplikasi si

  3. August 22, 2011 at 5:28 pm

    Berbagi Ilmu adalah shodaqoh yang pahalanya mengalir terus.

  4. indra
    December 1, 2011 at 9:44 pm

    smoga ilmu yg telah agan bagi bisa bermanfaat…thx

  5. July 11, 2012 at 12:57 pm

    trm ksih…………….

  6. September 28, 2012 at 3:43 pm

    mantepp gan,, boleh ane copas,, buat bahan renungan,,, heheh..

  7. November 17, 2012 at 10:35 am

    Hi there, I found your web site by way of Google while looking for a comparable matter, your web site came up, it seems to be good. I’ve bookmarked to my favourites|added to bookmarks.

  8. April 28, 2014 at 4:05 pm

    Mau nanya bang, kalau di vb net kodenya apa?

  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: