27 Sept 2012

Membuat Text Berkedip di VB 6.0

Unknown | 22:44 |
Source code berikut untuk membuat tulisan pada label (teks) berkedip berwarna-warni.

caranya :

1. Buat 1 project Standard.EXE dengan :
  • 1 Form
  • 1 Label
  • 1 Timer
2. 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
3. Jalankan program dan lihat hasilnya

Ditulis Oleh : Unknown ~ kudo-share.blogspot.com

Anda sedang membaca sebuah artikel yang berjudul Membuat Text Berkedip di VB 6.0, Semoga artikel tersebut bermanfaat untuk anda ....

:: Thank you for visiting ! ::

Post a Comment