27 Sep 2012

Membuat Text Berkedip di VB 6.0

Ryan Kudo' | 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 : Ryan Kudo' ~ 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 ! ::

+ komentar + 1 komentar

8 Oktober 2014 02.20

Teman - teman kesulitan untuk Belajar Komputer karena kesibukan? kini kami memfasilitasi kursus komputer jarak jauh via online, silahkan kunjungi website kami di asianbrilliant.com, Master Komputer, Kursus Online

Ayah, Bunda..butuh guru untuk mengajar anak-anak dirumah ? kami memfasilitasi 1000 guru untuk anak-anak ayah dan bunda datang kerumah, silahkan kunjungi website kami di smartsukses.com, Bimbingan Belajar, Les Private

Poskan Komentar