Membuat Teks Kelap-Kelip Pada Visual Basic 6.0

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

Suka Dengan Artikel Ini ?

Anda baru saja membaca artikel yang berkategori Pendidikan / Visual Basic 6.0 dengan judul "Membuat Teks Kelap-Kelip Pada Visual Basic 6.0". Anda bisa bookmark halaman ini dengan URL https://blog17lamers.blogspot.com/2013/04/membuat-teks-kelap-kelip-pada-visual.html.