Tampilkan postingan dengan label atau. Tampilkan semua postingan
Tampilkan postingan dengan label atau. Tampilkan semua postingan
Sabtu, 02 November 2013
Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic
Membuat Hanya Huruf atau Angka Saja Yang Diinput di TextBox Visual Basic - Pada postingan kali ini BLOGNYA loker Q 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
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
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 ^^
Rabu, 30 Oktober 2013
Cara Melihat Masa Expired Windows 8 Pro atau Enterprise
Setelah berhasil melakukan Aktivasi Windows 8 Tanpa Software Krek-Krekan, sekarang kita mau cek sampai kapankah masa berlaku windows 8 pro yang sudah kita Install. Lalu Bagaimana Cara Melihat Masa Expired Windows 8 Pro atau Entre, tersebut?.
Bagi anda yang belum berhasil mengaktifkan windows 8 pro atau enterprise, bisa menuju postingan sebelumnya tentang cara aktivasi Windows 8 tanpa software Krek-Krekan. Dan ternyata masa berlaku Windows 8 pro yang di aktifkan dengan cara tersebut tidaklah permanen. Masa berlakunya hanya sekitar 6 bulan saja.
Berikut ini cara yang saya gunakan untuk melihat masa berlaku (expired) windows 8. Cara ini bisa digunakan untuk windows 8 pro maupun windows 8 enterprise.
Buka Command Prompt (Admin), dengan cara tekan tombol keyboard Windows+X atau bisa juga dengan cara klik kanan pada start menu. Klik Yes.
Kemudian akan keluar kotak dialog command prompt (Admin), dan ketikkan perintah dibawah ini:
ReadFull Article ..
 |
| Windows 8 Pro Active |
Bagi anda yang belum berhasil mengaktifkan windows 8 pro atau enterprise, bisa menuju postingan sebelumnya tentang cara aktivasi Windows 8 tanpa software Krek-Krekan. Dan ternyata masa berlaku Windows 8 pro yang di aktifkan dengan cara tersebut tidaklah permanen. Masa berlakunya hanya sekitar 6 bulan saja.
Berikut ini cara yang saya gunakan untuk melihat masa berlaku (expired) windows 8. Cara ini bisa digunakan untuk windows 8 pro maupun windows 8 enterprise.
Buka Command Prompt (Admin), dengan cara tekan tombol keyboard Windows+X atau bisa juga dengan cara klik kanan pada start menu. Klik Yes.
 |
| Menu Command Prompt (Admin) |
slmgr -xpr
Update:
Bisa juga dengan cara ketikkan perintah slmgr /dlv di Command Prompt (admin)
Dari gambar diatas, dapat kita lihat bahwa masa berlaku windows 8 yang sudah kita instal hanya sampai bulan 6 tanggal 15 tahun 2013.
Update:
Bisa juga dengan cara ketikkan perintah slmgr /dlv di Command Prompt (admin)
 |
| Ketikkan slmgr -epr, tunggu sampai keluar notifikasi seperti diatas. |
Sekial artikel singkat tentang bagaimana cara melihat masa expired windows 8 pro atau enterprise, mudah-mudahan artikel ini dapat bermanfaat untuk anda. Jika anda bertanya "Lalu, Bagaimanakah caranya agar windows 8 pro atau enterprise kita dapat aktif selamanya atau permanen?.". Menurut saya BELILAH DVD ASLI Windows 8 pro atau enter di toko-toko komputer terdekat, ^_^. Atau dengan cara lainnya yang akan kita bahas pada kesempatan berikutnya.
Langganan:
Postingan (Atom)