Cara Membuat Blink Text (Teks Berkedip) di VB.Net – priacoding. Pada postingan sebelumnya priacoding telah membahas membuat control keyboard tombol F1 F2 F3 dan Escape di VB.Net. Dan pada postingan kali ini kita akan membahas bagaimana cara membuat teks berkedip atau blink text di VB.Net.
Teks berkedip merupakan salah satu cara untuk memperbagus tampilan aplikasi supaya pengguna tertarik dan nyaman dengan aplikasi yang kita buat atau disebut juga user interface.
Oke langsung saja kita masuk ke tutorial nya...
Teks berkedip merupakan salah satu cara untuk memperbagus tampilan aplikasi supaya pengguna tertarik dan nyaman dengan aplikasi yang kita buat atau disebut juga user interface.
Oke langsung saja kita masuk ke tutorial nya...
1. Tambahkan satu buah Label pada form
Seperti gambar
Seperti gambar
Blink atau pengkedipan teks akan kita lakukan pada Label ini, supaya lebih bagus silahkan modifikasi Lebel tersebut, kami melakukan modifikasi seperti gambar dibawah..
2. Tambahkan satu buah Timer
Pada properties ganti Enabled = False jadi Enabled = True Masuk ke tahap pengkodingan
Masuk ke tahap pengkodingan
3. Double klik form, pada public class, tambahkan coding berikut
Dim i As Interger
4. Double klik Timer1 nya
Pada Timer1_Tick tambahkan coding berikut
i = i + 1 If i = 2 Then i = 0 End If If i Mod 2 = 0 Then Label1.Visible = True Else Label1.Visible = False End If
Kira-kira keseluruhan coding seperti ini..
Penjelasan :
Dim i As Interger
Variable integer untuk blink
i = i + 1
Variable i di tambah 1 setiap timer nya
If i = 2 Then
i = 0
End If
Jika variable i menjadi 2 maka nilai variable i di kembalikan ke 0
If i Mod 2 = 0 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
Jika i mod 2 = 0 atau sisah bagi dari i oleh 2, maka Label visible = true maksudnya Label di munculkan, jika i mod 2 tidak 0 maka label di hilangkan, begitu seterusnya.
Dim i As Interger
Variable integer untuk blink
i = i + 1
Variable i di tambah 1 setiap timer nya
If i = 2 Then
i = 0
End If
Jika variable i menjadi 2 maka nilai variable i di kembalikan ke 0
If i Mod 2 = 0 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
Jika i mod 2 = 0 atau sisah bagi dari i oleh 2, maka Label visible = true maksudnya Label di munculkan, jika i mod 2 tidak 0 maka label di hilangkan, begitu seterusnya.
5. Jalankan aplikasi, maka akan menghasilkan
Penting :
Untuk mengatur kecepatan blink nya silahkan ganti interval pada timer, sesuai yang kita inginkan
Untuk mengatur kecepatan blink nya silahkan ganti interval pada timer, sesuai yang kita inginkan
Untuk penjelasan lebih lanjut silahkan lihat video berikut.
Baca Juga:
Note |
Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini disharing kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih.. |