Membuat teks berkedip dengan Visual Basic 6 tidak lah susah, hanya membutuh 1 buah label dan 1 buah timer. Tulisan berkedip di gunakan untuk animasi tulisan pada form dan berfungsi sebagai menampilkan pesan peringatan dengan menggabung kan logika IF pada vb. Namun untuk artikel ini saya gunakan hanya untuk dasar dalam membuat tulisan berkedip dengan dua metode yaitu : Metode tanpa pengaturan interval , dan pengaturan interval. untuk lebih lanjut nya bisa di sesuaikan dengan keperluaan masing masing.
1. Buatlah desain form untuk tulisan atau teks berkedip tersebut. Seperti contoh di bawah
 |
| Desain Form |
2. Setting pengaturan interval Timer (Tmrtulisan) sebesar 500
3. Kode program teks berkedip
Letakan pada Timer (tmrtulisan)
Private Sub Tmrtulisan_Timer()
If Lbltulisan.ForeColor = vbRed Then
Lbltulisan.ForeColor = vbBlue
Else
Lbltulisan.ForeColor = vbRed
End If
End sub
Letakan pada Tmrtulisan2_Timer()
Private Sub Tmrtulisan2_Timer()
i = i + 1
'Supaya tdk overflow, dsb...
If i = 1000000 Then i = 0
'Bangkitkan angka random untuk merah
merah = Int(255 * Rnd)
'Bangkitkan angka random untuk hijau
hijau = Int(255 * Rnd)
'Bangkitkan angka random untuk biru
biru = Int(255 * Rnd)
'Campur tiga warna
Label2.ForeColor = RGB(merah, hijau, biru)
'Jika counter habis dibagi 2
If i Mod 2 = 0 Then
'Tampilkan label
Label2.Visible = True
Else 'Jika counter tidak habis dibagi 2
'Sembunyikan label
Label2.Visible = False
End If
End sub
Letakan pada Commandbutton (CmdKeluar)
Private Sub Cmdtutup_Click()
Unload me
End Sub
Letakan pada Form load
Private Sub Form_Load()
i = 0 'Inisialisasi detik
Timer2.Interval = 100 'Kalau 1000 biasanya lompat 1 detik
End sub
4. Demo Tulisan berkedip
Itulah sobat tutorial Membuat teks berkedip dengan visual basic 6.0
0 Comments
