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 sedang membaca Artikel tentang Membuat Teks Kelap-Kelip Pada Visual Basic 6.0 Dan anda bisa menemukan Artikel Membuat Teks Kelap-Kelip Pada Visual Basic 6.0 Ini dengan URL https://autoliketerbarudanaplikasi.blogspot.com/2013/09/membuat-teks-kelap-kelip-pada-visual.html, Anda boleh menyebar luaskan atau Mengcopy paste-nya jika Artikel Membuat Teks Kelap-Kelip Pada Visual Basic 6.0 Ini sangat bermanfaat bagi teman-teman anda,Namun jangan lupa untuk mencantumkan Link Membuat Teks Kelap-Kelip Pada Visual Basic 6.0 Sebagai Sumbernya. Terimakasih

KxMadagascar Backlink To Copy

URL

Code For Forum

HTML Code <a href='https://autoliketerbarudanaplikasi.blogspot.com/2013/09/membuat-teks-kelap-kelip-pada-visual.html' target='_blank'>Membuat Teks Kelap-Kelip Pada Visual Basic 6.0</a>

Related Post: