Cara Membuat Label Berkedip (V2)

Cara Membuat Label Berkedip - Pada tip kali ini saya ingin melanjutkan tip sebelumnya yaitu cara membuat label berkedip. Sebelumnya kita pernah membuat label berkedip versi pertama (V1). Pada versi pertama label berkedip kurang sempurna karena jika label berkedip tidak sesuai dengan keinginan kita, Anda harus merubah Timernya dulu .Hal ini tentu kurang praktis yang lebih parah lagi jika file tersebut sudah dibuatkan file EXE tentu pengguna tidak akan bisa lagi merubah kecepatannya.

Untuk mengatasi hal itu Anda perlu menmbahkan sebuah label, sebuah textbox dan sebuah commanbutton untuk membuat inputan interval dalan form Anda, jadi pengguna bisa leluasa mengatur kecepatan yang Anda inginkan dengan memasukan angka pada inputan interval.

Berikut adalah langkah-langkah dalam pembuatannya :

1. Bagi Anda yang sudah membuat label berkedip Versi pertama Anda hanya tinggal manambahkan
   Sebuah Textbox ( untuk inputan angka Interval ) dan dua buah commandbutton pada form. Bagi
   Anda yang belum membuat label berkedip versi pertama tidak masalah ikuti saja tutorial ini dengan
   lengkap silahkan Anda Desaign form seperti gambar sepeti diwah ini.

Form yang telah disepurnakan

Pengaturan kontrol :

CommandButton1     Caption : Star

CommandButton2     Caption : Berhenti
Text1                         Text      : kosongkan
Label1                       Caption : LABEL KEDIP VERSI2
Label2                       Caption : Interval
           

2. Kemudian ketikan kode dibawah ini

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()                      */ kelompok kode kontrol timer
On Error Resume Next
If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If

3. Simpan kode hasil pekerjaan Anda dan coba jalankan program.

Setelah program berhasil dijalankan coba masukan angka interval kecepatan kedipan dengan kisaran 1 samapai dengan 6000.Semakin besar angka interval yang dimasukan maka semakin lambat label berkedip begitupun sebaliknya semakin kecil angka interval semakin cepat kedipan label

Catatan: 

-Bagi Anda yang sudah membuat versi pertamanya, Anda tidak perlu manambah kode kelompok kontrol timer "Private Sub Timer1_Timer().

-Bagi Anda yang yang tidak membuat versi pertamanya ketik semua kode tersebut

Demikian tip lanjutan cara membuat label berkedip di form visual basic.Selamat mencoba semoga berhasil..

Related Post: Animasi Label/Text