Thursday, June 25, 2015

Cara Membuat Label Dengan Warna Berubah-Ubah Di Visual Basic

Cara Membuat Label Dengan Warna Berubah-Ubah Di Visual Basic 6.0 - Hai Sobat Naga, Kali ini saya akan member tahu tentang Cara Membuat Label Dengan Warna Berubah – Ubah Dengan Visual Basic 6.0
Berikut Tutorial Cara Membuat Label Dengan Warna Berubah-Ubah Dengan Visual Basic 6.0 :

cara membuat label warna warni dengan visual basic, Cara Membuat Label Dengan Warna Berubah-Ubah Di Visual Basic
Microsoft Visual Basic 6.0

Hal-Hal Yang Dibutuhkan Adalah :

1.     Visual Basic 6.0
2.     Buatlah 1 Project Dengan Tools  :
  •  1 Form 
  •  1 Label dengan nama : Label1
  •  1 Timer Dengan nama : Timer1 Dan interval : 100

Klik View Pada Menu ToolBar -> Code

Kemudian Ketik Code (Copy) Berikut Ini untuk membuat label warna warni dengan visual basic 


'Tutorial By Andi Fajar
'Website bapaknaga.com
Dim i As Long
Dim Merah, Hijau, Biru As Integer
Private Sub Form_Load()
  i = 0
  Timer1.Interval = 100
  Label1.Caption = "Contoh Label Dengan Warna Berubah-Ubah"
End Sub
Private Sub Timer1_Timer()
  i = i + 1
  If i = 1000000 Then i = 0 'Supaya Tidak Overflow
  Merah = Int(255 * Rnd)    'Bangkitkan Warna Random Untuk Merah
  Hijau = Int(255 * Rnd)    'Bangkitkan Warna Random Untuk Hijau
  Biru = Int(255 * Rnd)     'Bangkitkan Warna Random Untuk Biru
  Label1.ForeColor = RGB(Merah, Hijau, Biru)   'Bercampur tiga warna
  If i Mod 2 = 0 Then
     Label1.Visible = True  'Menampilkan Label
  Else

     Label1.Visible = False 'Menyembunyikan Label
  End If                    'Akhir Dari Pemeriksaan
End Sub

Sekian Tutorial Dari Kami Yang Berjudul Cara Membuat Label Warna Berubah-Ubah Dengan Visual Basic 6.0.
Gimana Mudah Bukan ? jika sudah, kami menunggu feedback dari anda, silahkan untuk berkomentar jika ada kritik dan sarannya, saya harap anda bisa dengan mudah mengikuti tutorial yang kami berikan.

Tags :

Related : Cara Membuat Label Dengan Warna Berubah-Ubah Di Visual Basic