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 ^^

Membuat Website Sederhana Menggunakan PHP

Membuat Website Sederhana Menggunakan PHP - Postingan BLOGNYA SI IMIN kali ini akan memberikan tips dan trik membuat website sederhana dengan menggunakan PHP. Berhubung admin merupakan mahasiswa di kampus BSI Purwokerto, dan kebetulan juga diberikan tugas oleh dosen/instruktur untuk membuat sebuah website sederhana menggunakan PHP. Bagi kalian yang sedang belajar menggunakan bahasa pemrograman PHP, mungkin postingan ini bisa membantu kalian dalam mempelajarinya. Berikut kira-kira tampilan website sederhana menggunakan PHP:

Untuk yang mau download source codenya bisa langsung download melalui link di bawah ini:

Membuat Website Sederhana Menggunakan PHP

Oh iya jangan lupa buat databasenya dulu yah lewat localhost/phpmyadmin .Simpan dengan nama "media". Dan buatkan 2 tabel dengan nama "berita" dan "user".

Strukturnya di bawah ini:

berita

id_berita	int(11)	auto increment	*
judul	varchar(50)
isi_berita	text
gambar	varchar(100)

user

id	int(20)	*
password	varchar(20)

Web ini saya buat menggunakan PHP Coder dengan memakai XAMPP sebagai web servernya...

Semoga Bermanfaat ^^

Lirik Lagu Judika - Cinta Satukan Kita

Judika - Cinta Satukan Cinta

Lirik Lagu Judika - Cinta Satukan Kita. Setelah sebelumnya blog ini memposting tentang seragam kerja kantor murah di surewi, pada postingan pagi ini, BLOGNYA SI IMIN akan memposting tentang lirik lagu beserta chord lagunya. Kali ini lagu yang beruntung untuk di posting di blog ini adalah lagu dari penyanyi berkarakter emas jebolan Indonesian Idol, Judika yang berjudul Cinta Satukan Kita. Lagu ini merupakan soundtrack lagu dari Film "Rindu Purnama". Saya sendiri sebagai admin sangat menyukai suara dari judika, begitu powerfull dan sangatlah kuat karakternya. Lagu apapun yang dibawakan oleh judika, menurut saya lagu itu bisa sangat spektakuler. Oke langsung saja yang mau tahu lirik lagu judika yang berjudul Cinta Satukan Kita bisa lihat di bawah ini:

Judika - Cinta Satukan Kita

Intro: Em A D 2x

Em  A         D
dia sepi di sini
Em    A            D
tak seperti yang lain
Em     A           D
walau sudah takdirnya
Em         A          D
namun dia tetap tersenyum

Em   A        D
bahagialah bila
Em    A            D
kau masih punya mimpi
Em    A         D
hidup hanya sekali
Em     A             D
berikanlah yang terbaik

chorus:
D     F#   Bm B
merindukan purnama
Em                 A
bertahan walau di dalam duka
D      F#    Bm B
bersyukurNya-lah kita
Em                  A
masih banyak yang sayangi kita
D     F#    Bm   A       G
merindukan purnama  meraih cinta
Em        A          D
cinta yang menyatukan kita

Em   A        D
bahagialah bila
Em    A            D
kau masih punya mimpi
Em    A         D
hidup hanya sekali
Em     A             D
berikanlah yang terbaik

chorus:
D     F#   Bm B
merindukan purnama
Em                 A
bertahan walau di dalam duka
D      F#    Bm B
bersyukurNya-lah kita
Em                  A
masih banyak yang sayangi kita
D     F#    Bm   A       G
merindukan purnama  meraih cinta
Em        A
cinta yang menyatukan kita

solo: Bm A G 2x A B

chorus:
E     G#   C#m C#
merindukan purnama
F#m                B
bertahan walau di dalam duka
E      G#    C#m C#
bersyukurNya-lah kita
F#m                 B
masih banyak yang sayangi kita
E     G#    C#m  B       A
merindukan purnama  meraih cinta
F#m       B          E
cinta yang menyatukan kita

Semoga Bermanfaat ^^

Seragam Kerja Kantor Murah di Surewi

Seragam Kerja Kantor Murah di Surewi

Seragam Kerja Kantor Murah di Surewi. Bagi pembaca sekalian yang sudah bekerja di sebuah perusahaan atau di kantor pastinya sehari-harinya selalu mengenakan seragam kerja. Tentunya agar terlihat rapi dan menawan. Seragam kerja sudah bukan lagi milik pegawai negeri saja, akan tetapi pegawai swasta pun banyak yang memakainya. Selain sebagai syarat menjadi karyawan perusahaan, tentu dengan memakai seragam kerja, sebuah perusahaan akan cepat dikenal orang. Secara tidak langsung ketika karyawan memakai seragam kerja kantor, mereka ikut berpartisipasi dalam mempromosikan kantor atau perusahaannya. Dengan begitu perusahaan tidak perlu mengeluarkan biaya promosi. Ketika karyawan berangkat kantor dengan memakai seragam kerja, saat inilah promosi berlangsung.

Bagi kalian yang sedang bekerja di sebuah kantor perusahaan tepat sekali jika kalian membaca artikel ini. Pada postingan kali ini saya akan membagikan informasi yang ada hubungannya dengan seragam kerja kantor yatiu tentang Seragam Kerja Kantor Murah di Surewi. Surewi Wardrobe merupakan sebuah situs penyedia seragam kerja kantor murah dan lengkap. Perusahaan manufaktur garment dan general trading yang bergerak di bidang pelayanan kebutuhan akan pakaian seragam kerja ini sendiri didirikan pada tahun 1997. 

Dengan mengedepankan pada kualitas produk, kualitas pengiriman dan kualitas pelayanan, Surewi berusaha memberikan pelayanan terbaik kepada para pelanggannya. Terbukti sudah banyak para pelanggannya dari perusahaan besar maupun kecil yang menggunakan seragam kerja dari Surewi Wardrobe. Di bawah ini merupakan daftar perusahaan yang bekerja sama dengan Surewi Wardrobe:

TELKOMVISION & YES TV / PT. Indonusa Telemedia
PT Modernland Realty Tbk
PT Astra Honda Motor
STIKES KESOSI
PT. Uniteknindo Inti Sarana
FM 7 Hotel
Astrido Toyota
PT. SNP Indonesia
PT. Heidelberg
PT. Funworld Indonesia
Santa Laurensia School, Tangerang
PT Silva Rimba Lestari
PT Donggi Senoro
PT Snapy, Jakarta
PT. Adhi Karya, Jakarta
PT. Khasanah Timur Indonesia
PT. Integrasi
PT. Poly Packaging Indonesia
ADITEAM Konstruksi, Jakarta
GMF Aeroasia
PT. Printec Perkasa, Jababeka
PT. JUNGER Farma Distribusi
MIVO TV / Imediabiz Pty Ltd
PT. Cahaya Baru Raya Realty
PT. Tunas Inti Abadi
PT. Cheil Jedang
SK Networks Inni Joa Plantation
PT. Antar Mitra Sembada
PT. Surya Esa Perkasa
Teddy House, Medan & Jakarta
PT. Enviroment Technology I'ntl
KPPN Tahuna, Sulawesi
PT. Rejeki Inti Logam Jaya, Jakarta
PT. Dharma Polimetal
PT.Zahir International
PT.Citra Nusantara Gemilang ( Jakarta & Surabaya )
PT.Miura
PT.Wana Hijau Pesaguhan
PT.Raizo
PT.Hidroflex
PT.Surya Rasa Loka Jaya
Happy Holly Kids

Surewi Wardrobe sendiri menerima pesanan seperti Polo Shirt, T-Shirt, Kemeja Formal, Kemeja F1, PDH, PDL, SPG Uniform, Celana formal, Celana casual, Jacket, Jas, Jasket, Blazer, Rompi, Topi, Apron, Hairnet, Dasi. Atau bagi yang ingin memesan Seragam kerja pabrik, Seragam kerja hotel, Seragam kerja restoran, Seragam kerja tambang, Seragam kerja karyawan dll bisa juga hubungi Surewi Wardrobe. Seragam Kerja Kantor Murah di Surewi memang nyata adanya.

Demikian sedikit informasi mengenai Seragam Kerja Kantor Murah di Surewi. Semoga Bermanfaat ^^

Benarkah Bumi Akan Gelap Selama 3 Hari?

Planet-planet berdiri sejajar

Benarkah Bumi Akan Gelap Selama 3 Hari? - Postingam kali ini BLOGNYA SI IMIN akan memberitahukan informasi terbaru tentang sebuah berita yang cukup menggemparkan dunia yaitu berita tentang isu bumi akan gelap selama 3 hari yaitu diperkirakan dari tanggal 22 sampai 25 desember 2012. Tentunya berita ini membuat kaget banyak orang. Bagaimana bisa bumi akan gelap selama beberapa hari? Apa kita harus sediakan lilin yang banyak agar bumi kembali terang? Berikut merupakan berita yang saya dapatkan dari sebuah situs di internet tentang berita bumi yang akan gelap selama 3 hari yang diperkirakan dari tanggal 22 desember sampai 25 desember 2012.

Lembaga Penelitian Antariksa Amerika Serikat atau disebut juga NASA, memperkirakan akan ada sebuah peristiwa yang langka yaitu Blackout, atau kegelapan secara keseluruhan pada tanggal 22 sampai 25 desember 2012 nanti.

Peristiwa ini akan berlangsung mulai tanggal 22 hingga 25 Desember 2012, dimana menurut para ilmuwan dan fisikawan antariksa NASA, pada hari itu posisi planet-planet di galaksi bima sakti akan sejajar, mulai dari Merkurius, Venus, Bumi, hingga planet terakhir. Dampaknya adalah deretan planet-planet akan terhalang oleh planet yang pertama dan kedua dalam hal sinar matahari.

Sinar matahari akan tertutup oleh Merkurius dan Venus, sehingga bumi otomatis akan gelap gulita, dan energi listrik yang dimiliki bumi juga tidak akan cukup apabila dipakai seluruh umat manusia dalam waktu 3 hari secara terus menerus.

Dampak lain bagi kehidupan saat tak ada sinar matahari selama 3 hari adalah tumbuh-tumbuhan akan mengalami masalah dalam proses makanan, sehingga secara global hasil pertanian di seluruh dunia akan gagal dan kemungkinan akan ada krisis pangan terutama makanan segar.

Berita ini awal mulai keluar lewat sebuah artikel dan pesan dari seorang administrator NASA, Charles Bolden F., Jr, tentang Blackout ini menyarankan agar manusia bersiap-siap untuk menghadapi momen yang baru pertama kali dirasakan.

Kegelapan selama tiga hari berturut-turut merupakan hal yang bisa membuat panik setiap orang.

Akan tetapi hal ini masih diperdebatkan hingga hari ini oleh sesama ilmuwan NASA sendiri, dan kemungkinan justru tidak akan terjadi Blackout, yang pasti disarankan bagi setiap orang untuk tetap waspada, dan hemat energy.

Semoga Bermanfaat ^^

Video Penampakan Sosok Bercahaya di Masjid Nabawi

Sosok Misterius

Video Penampakan Sosok Bercahaya di Masjid Nabawi - Subhannallah! Maha Suci Allah! Kali ini BLOGNYA SI IMIN akan memposting tentang sesuatu yang misterius dan boleh percaya boleh tidak, berita ini datang dari Masjid Nabawi, Madinah. Sebuah penampakan misterius terlihat di dalam Masjid Nabawi ketika sedang shalat Jumat tanggal 23 Muharram 1433 H. Sosok misterius itu bercahaya putih berada di tengah-tengah umat yang sedang serius mendengarkan ceramah Syaikh dr. Abdul Muhsin al-Qasim. Banyak yang beranggapan kalau sosok misterius itu adalah sosok gaib seperti malaikat dan jin muslim.

Sosok misterius itu terlihat di rekaman video yang diunggap ke youtube dan spontan menggemparkan dunia, karena sosok itu tampak jelas terekam dalam video. Berbagai pihak mencoba menganalisis sosok bercahaya itu. Ada yang menyebutkan itu sebagai efek cahaya dari sinar matahari, tapi teori itu terbantahkan karena atap masjid Nabawi terbuat dari marmer. Tak seorang pun menyadari sosok itu berada di tengah-tengah umat. Bahkan pengurus masjid ketika menyaksikan video itu tak bisa mengidentifikasi siapa sosok misterius tersebut. Sebagian besar orang meyakini sosok gaib itu kemungkinan Malaikat yang memang selalu hadir di dalam Masjid Nabawi.

Untuk yang mau lihat video nya bisa lihat di bawah ini:

Wallahu A'lam Bishawab 

 Semoga Bermanfaat ^^