Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic

Huruf dan Angka

Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic - Pada postingan kali ini BLOGNYA SI IMIN akan memposting tentang pemrograman. Pemrograman kali ini kita akan belaja mengenai Visual Basic atau VB. Disini saya menggunakan visual basic 6. Nah dalam pembelajaran Visual Basic kali ini, saya akan membagi sebuah tips dan trik VB tentang bagaimana cara membuat hanya huruf atau angka saja di textboxt. Mau tahu caranya? Ikuti langkahnya di bawah ini:

-Buatlah sebuah form baru di VB kalian

-Tambahkan sebuah 1 buah TextBox (ganti namanya menjadi TextAngka)

-Dan Masukkan coding berikut ini di TextBox (TextAngka) dengan Event Keypress

Private Sub TextAngka_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
MsgBox "Isikan Angka Saja", 48, "Perhatian"
KeyAscii = 0
End If
End Sub

-Kalau sudah coba jalankan program.

-Kemudian untuk yang Huruf kalian tambahkan 1 buah TextBox lagi (ganti namanya menjadi TextHuruf)

-Dan Masukan coding berikut ini di TextBox (TextHuruf) dengan Event Keypress

Private Sub TextHuruf_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
MsgBox "Isikan Huruf Saja", 48, "Perhatian"
KeyAscii = 0
End If
End Sub

Selamat mencoba dan Semoga Bermanfaat ^^

Lirik Lagu Adera - Lebih Indah

Adera - Lebih Indah

Lirik Lagu Adera - Lebih Indah. Pada postingan kali ini BLOGNYA SI IMIN akan memposting tentang lirik lagu. Dan lirik lagu kali ini datang dari penyanyi solo yang bernama Adera dengan lagunya yang berjudul Lebih Indah. Lagu ini sendiri sangat cocok sekali bagi kalian yang sedang jatuh cinta. 

Ok Langsung saja berikut merupakan lirik lagu dari Adera berjudul Lebih Indah.

Adera - Lebih Indah

Saat ku tenggelam dalam sendu

Waktupun enggan untuk berlalu

Ku berjanji tuk menutup pintu hatiku

Entah untuk siapapun itu
Semakin ku lihat masa lalu

Semakin hatiku tak menentu

Tetapi satu sinar terangi jiwaku

Saat ku melihat senyummu
 

Reff:

Dan kau hadir merubah segalanya 

Menjadi lebih indah

Kau bawa cintaku setinggi angkasa

Membuatku merasa sempurna

Dan membuatku utuh tuk menjalani hidup

Berdua denganmu selama-lamanya

Kaulah yang terbaik untukku
Kini ku ingin hentikan waktu

Bila kau berada di dekatku

Bunga cinta bermekaran dalam jiwaku

Kan ku petik satu untukmu
 

Repeat Reff
 

Kaulah yang terbaik untukku
Ku percayakan seluruh hatiku padamu

Kasihku satu janjiku kaulah yang terakhir bagiku
 

Repeat Reff

Semoga Bermanfaat ^^