Cara Memubuat Label Berkedip Pada VB6

Bismillah...

Tips kalai ini kita akan membahas tentang bagaimana caranya membuat suatu label atau teks bisa berkedip sehingga membuat form anda lebih menarik. Penasaran.? ikuti langkah berikut ini.

• Letakkan sebuah label dan sebuah timer pada form anda (pada vontoh dibawah, properti caption untuk label1 sudah dirubah menjadi "Label Ini Akan Berkedip).

Gambar 1. Label Dan Timer Dalam Form

• Aturlah properti untuk timer dengan Interval = 100. "Nilai dari interval dapat anda isi sesuka anda, tetapi jangan lupa  bahwa interval adalah selang waktu, bukan kecepatan. Jadi, semakin besar nilai interval maka kecepatan berkedip akan semakin rendah (semakin lambat), begitu juga sebaliknya.
• Buka jendela kode dan ketikkan program berikut ini:

    Private Sub Form_Load()

       Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Timer()

       On Error Resume Next

    If Label1.Visible = True Then

       Label1.Visible = False

    ElseIf Label1.Visible = False Then

       Label1.Visible = True

    End If

    End Sub

• Lalu coba anda jalankan aplikasi anda, jika berhasil label anda akan berkedip sesuai dengan interval yang anda atur pada properti timer anda.

Oups, tunggu dulu, sebenarnya aplikasi anda sudah selesai sampai disini. Tapi program ini masih kurang sempurnya, karena jika kecepatan berkedip label tidak sesuai dengan keinginan anda, anda harus mengubah intervalnya lagi dari timer. Hal ini tentu saja kurang praktis. Yang lebih parah lagi, jika aplikasi anda tersebut sudah anda kopilasi menjadi file EXE, pengguna tidak akan dapat mengubah interval timernya lagi.

Untuk mengatasi hal tersebut, sebaiknya anda juga menyertakan inputan interval timer dalam form anda. Jadi pengguna bebas menentukan kecepatan berkedip label. Lihat cara pembuatannya dibawah ini:

• Tambahkan sebuah label, sebuah TextBox dan dua buah CommandButton pada form anda, lihat gambar dibawah ini.

Gambar 2. Mengatur Interval Melalui Form

• Kemudian atur properti caption masing kontrolnya sesuka hati anda, saya beri saran untuk properti Text1 di kosongkan, kemudian label2 dirubah menjadi interval, command 1 dirubah menjadi mulai, dan command 2 menjadi berhenti.
• Buka jendela code anda lalu ketikkan program berikut.

    Private Sub Command1_Click()

        Timer1.Interval = Text1.Text

        Timer1.Enabled = True

    End Sub

    Private Sub Command2_Click()

        Timer1.Enabled = False

        Text1.SetFocus

    End Sub

    Private Sub Form_Load()

        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Timer()

        On Error Resume Next

    If Label1.Visible = True Then

        Label1.Visible = False

    ElseIf Label1.Visible = False Then

        Label1.Visible = True

    End If

    End Sub

• Jika sudah, jalankan aplikasi anda.

Klik Disini untuk download Program Siapnya

Happy Programming, And Enjoy..!!!