ahlussunnah wal jama'ah

Senin, 28 April 2014

ANTARA KULIAH, KERJA, DAN NIKAH


Antara Kuliah, Kerja dan Nikah  


Alhamdulillah wash shalah wassalam ala Rasulillah, amma ba'du..
Solusi terbaik untuk para pemuda-pemudi di zaman yang penuh dengan fitnah syahwat adalah dengan menikah. Sebagaimana anjuran Rasulullah shalallahu alaihi wasallam:

يا معشر الشباب من استطاع منكم الباءة فليتزوج فإنه أغض للبصر وأحصن للفرج ، ومن لم يستطع فعليه بالصوم فإنه له وجاء

Wahai para pemuda, siapa saja diantara kalian yang telah mampu untuk kawin, maka hendaklah dia menikah. Karena dengan menikah itu lebih dapat menundukkan pandangan dan lebih menjaga kemaluan. Dan barangsiapa yang belum mampu, maka hendaklah dia berpuasa, karena sesungguhnya puasa itu bisa menjadi perisai baginya” (HR. Bukhari-Muslim).

Hadis di atas sangatlah jelas maknanya. Bagi yang sudah mampu, maka hendaklah bersegera untuk menikah, dan bagi yang belum mampu hendaklah memperbanyak puasa. Sedangkan permasalahan yang saudara sebutkan, seperti kuliah atau kerja, maka jangan jadikan hal tersebut sebagai penghalang untk menyempurnakan separoh dari agama saudara. Karena pada dasarnya Allah telah berjanji bagia hamba-hamba-Nya yang menikah karena dasar ingin menjaga kesucian diri, berupa kecukupan rezeki. Allah ta'ala berfiman:

وَأَنكِحُوا الْأَيَامَى مِنكُمْ وَالصَّالِحِينَ مِنْ عِبَادِكُمْ وَإِمَائِكُمْ إِن يَكُونُوا فُقَرَاء يُغْنِهِمُ اللَّهُ مِن فَضْلِهِ وَاللَّهُ وَاسِعٌ عَلِيمٌ

"Dan kawinkanlah orang-orang yang sendirian diantara kamu, dan orang-orang yang layak (berkawin) dari hamba-hamba sahayamu yang lelaki dan hamba-hamba sahayamu yang perempuan. Jika mereka miskin Allah akan memampukan mereka dengan kurnia-Nya. Dan Allah Maha luas (pemberian-Nya) lagi Maha Mengetahui." (QS. An Nuur : 32).

Demikianlah janji Allah, dan Allah sekali-kali tidak akan menulayani janji-Nya. Janganlah ragu dengan janji Allah, tidak ada yang ragu dengan janji-Nya kecuali orang yang tidak sempurna imannya.

Wallahu A'lam

sumber : alislamu.com 

artikel terkait : PANDUAN NIKAH

Jumat, 25 April 2014

MEMBUAT APLIKASI BIODATA DENGAN VISUAL BASIC



Assalamu'alaikum Warohmatulloh Wabarokatuh
bagi anda yang lagi belajar Visual Basic dan yang lagi ada tugas berikut saya posting cara membuat aplikasi biodata, oke langsung saja kita mulai...
silahkan dibuka dulu aplikasi VB nya, dan yang belum punya bisa mendownloadnya disini
pertama-tama kita siapkan Alat Tempurnya dulu yang terdiri dari :

- Frame = 1 buah (Data Mahasiswa)
- Label = 6 buah (Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- TextBox = 4 buah (Input Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- ComboBox = 2 buah (Pria, Pengangguran Banyak Acara)
- CommandButton = 3 buah (Cetak, Bersih, Exit)
- ListBox (Outputnya)

Nah ini contoh Programnya, silahkan dilirik ScreenShotnya :
 

Oke... kembali ke TOPIK...!!!
Langsung aja copy paste listingnya apabila sudah membuat beberapa alat tempur diatas :

Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

#########################KETERANGAN#########################

===> 1
Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub

(Untuk menampilkan daftar di ComboBox, jadi apabila ada listing seperti :

"Private Sub Combo2_Change()

End Sub..... SILAHKAN di DELETE aja, tidak berpengaruh pada programnya)

===> 2
Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub

(Untuk menampilkan inputan nama, nim, dsb di ListBox)

===> 3
Private Sub Command2_Click()
List1.Clear
End Sub

(Untuk membersihkan semua text hasil inputan, dan listing ini ada pada Command2 yaitu BERSIH)

===> 4
Private Sub Command3_Click()
Unload Me
End Sub

(Untuk keluar/exit, dan listing ini ada pada command3 yaitu EXIT)

gampang kaaaaannn????? :)