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.

Cara Membuat Label Dengan Warna Berubah-Ubah Di Visual Basic Rating: 4.5 Diposkan Oleh: Asri Fahmi