Blink pke VB

Berikut ini cara membuat tulisan di label kelihatan kedap-kedip (blink) dengan menggunakan vb. Gag cuman pke html aja tapi pke vb pun bisa. Dengan menggunakan control Label dan Timer untuk menampilkan tulisan kedap-kedip di atas form Anda (blink).Langkah pertama buka aplikasi vb 6 klo belum ada maka instal dlu.

* Buat satu proyek baru dengan 1 Form, 1 Label, dan 1 Timer
* Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------

Dim i As Long 'Deklarasi
Dim merah, hijau, biru As Integer 'Variabel global

Private Sub Form_Load()
i = 0 'Inisialisasi detik
Timer1.Interval = 500 'Kalau 1000 biasanya lompat 1 detik
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

Gimna???? sederhana bnget kn..!!!
Posted on 4:00 AM by cah djogja and filed under | 0 Comments »

0 comments:

Post a Comment