Pertanggungjawaban Manusia dalam Islam

Manusia dapat memilih dua jalan (baik atau buruk), tetapi ia sendiri yang harus mempertanggung-jawabkan pilihannya. Manusia tidak membebani orang lain untuk memikul dosanya, tidak juga dosa orang lain dipikulkan ke atas pundaknya. Tetapi dalam Al-Quran surat Al-An'am ayat 164 dinyatakan bahwa tanggung jawab tersebut baru dituntut apabila memenuhi syaratsyarat tertentu, seperti pengetahuan, kemampuan, serta kesadaran.

Dan seorang yang berdosa tidak dapat memikul dosa orang lain, dan Kami tidak akan menyiksa sebelum Kami mengutus seorang rasul... (QS Al-Isra' [17]: 15).

Allah tidak membebani seseorang kecuali sesuai dengan kemampuannya... (QS Al-Baqarah [2]: 286)

Dari gabungan kedua ayat ini, kita dapat memetik dua kaidah yang berkaitan dengan tanggung jawab, yaitu:
1. Manusia tidak diminta untuk mempertanggungjawabkan apa yang tidak diketahui atau tidak mampu dilakukannya.
2. Manusia tidak dituntut mempertanggungiawabkan apa yang tidak dilakukannya, sekalipun hal tersebut diketahuinya.

Di sisi lain, ditemukan ayat-ayat yang menegaskan bahwa pertanggungjawaban tersebut berkaitan dengan perbuatan yang disengaja, bukan gerak refleks yang tidak melibatkan kehendak. Al-Quran secara tegas menyatakan:

Allah tidak akan meminta pertanggungjawabanmu atas sumpah-sumpah yang tidak kamu sengaja, tetapi Dia akan meminta pertanggungjawabanmu terhadap apa yang disengaja oleh hatimu... (QS Al-Baqarah [2]: 225).

...tetapi jika seseorang terpaksa, sedangkan ia tidak menginginkannya, dan tidak pula melampaui batas, maka tidak ada dosa baginya... (QS Al-Baqarah [2]: 173).

Dapat juga disimpulkan, bahwa karena manusia diberi kemampuan untuk memilih, maka pertanggungjawaban berkaitan dengan niat dan kehendaknya.

Atas dasar ini pula, maka
"niat dan kehendak seseorang mempunyai peran yang sangat besar dalam nilai amal sekaligus dalam pertanggungjawabannya".

Barangsiapa yang kafir kepada Allah sesudah ia beriman, dia mendapatkan kemurkaan Allah, kecuali orang-orang yang dipaksa kafir sedang hatinya tetap tenang dalam keimanan... (QS An-Nahl [16]: 106).

Al-Quran surat Al-Isra ayat 23-24 memerintahkan kepada seorang anak agar menghormati kedua orang-tuanya, khususnya kalau usia mereka sudah tua (karena ketika telah uzur boleh jadi mereka melakukan hal-hal yang menjengkelkan). Anak dilarang berkata uh, dan harus memilih kata-kata yang baik, sambil merendahkan diri kepada keduanya. Ayat ini disusul dengan firman-Nya:

Tuhanmu lebih mengetahui yang ada dalam hatimu. Jika seandainya kamu orang baik-baik (Allah akan memaaafkan sikap dan kelakuan yang telah kamu lakukan dengan terpaksa, tidak sadar, atau yang berada di luar kontrol kemampuanmu), karena Allah Maha Pengampun bagi orang-orang yang bertobat (QS Al-Isra' [17]: 25).

Sumber :
http://al-quran.bahagia.us/_q.php?_q=sihab&dft=&dfa=&dfi=&dfq=1&u2=&ui=1&nba=14#2

SEBAB-SEBAB KEMUNDURAN UMAT ISLAM INDONESIA

Muqoddimah Kita semua menyadari bahwa kondisi umat Islam di Indonesia sangat memprihatinkan.Terlalu banyak masalah dan penyakit yg diidap oleh jasad besar umat Islam di Indonesia bahkan boleh dikata sampai ketingkat stadium kronis.Membutuhkan pisau bedah yg tajam dan analisis yg dalam utk mencari solusi agar ummat Islam dapat keluar dari kemunduran dan krisis-krisis yg melandanya. Namun dari semua analisa pakar-pakar ulama` menuju kesatu arah yaitu kurangnya atau hilangnya komitmen ummat Islam utk berpegang teguh kepada ajaran Islam itu sendiri. Betul apa yg dikatakan Imam Malik yg artinya “Tidak akan berjaya akhir dari ummat ini melainkan dgn apa yg dipegang oleh generasi pertama“.

Kalau kita berbicara ummat Islam itu berarti dgn segala kemampuannya baik bersifat perorangan organisatoris institusi masyarakat muslim dll.

Untuk itu kalau kita bicarakan panjang lebar tentu akan menjadi buku tersendiri tetapi krn tulisan ini adl makalah tentunya kami sampaikan sesuai dgn porsi itu. Kami ungkapkan titik kelemahannya saja.semoga bermanfaat.

Lemah dalam pemahaman Islam Kelemahan dimaksud terletak dalam cara memahami Islam itu sendiri sehingga mengakibatkan lahirnya pemikiran atau ajaran yg rancu yg dipicu oleh hawa nafsu kepentingan tertentu politik dll.

Leukimia

Anak-anak yang tidur dengan lampu menyala beresiko mengidap leukemia.

Para ilmuwan menemukan bahwa tubuh perlu suasana gelap dalam menghasilkan zat kimia pelawan kanker. Bahkan ketika menyalakan lampu toilet, begadang, bepergian melintas zona waktu, lampu-lampu jalanan dapat menghentikan produksi zat melatonin.Tubuh memerlukan zat kimia untuk mencegah kerusakan DNA dan ketiadaan zat melatonin tersebut akan menghentikan asam lemak menjadi tumor dan mencegah pertumbuhannya.

Prof. Russle Reiter dari Texas University yang memimpin penelitian tersebut mengatakan “Sekali Anda tidur dan tidak mematikan lampu selama 1 menit. Otak Anda segera mendeteksi bahwa lampu menyala seharian dan produksi zat melatonin menurun”.Jumlah anak-anak pengidap leukimia naik menjadi dua kali lipat dalam kurun 40 tahun terakhir. Sekitar 500 anak muda dibawah 15 tahun didiagnosa menderita penyakit ini pertahun dan sekitar 100 orang meninggal.Sebuah konferensi tentang anak penderita leukimia diadakan di London menyatakan bahwa orang menderita kanker akibat terlalu lama memakai lampu waktu tidur dimalam hari dibanding dengan yang tidak pernah memakai lampu waktu tidur.

Hal ini menekan produksi melatonin dimana normalnya terjadi antara jam 9 malam s/d jam 8 pagi. Penelitian terdahulu telah menunjukkan bahwa orang-orang yang paling mudah terserang adalah para pekerja shift yang memiliki resiko terkena kanker payudara.Pada kenyataannya, Orang-orang buta tidak rentan terhadap melatonin memiliki resiko yang lebih rendah mengidap kanker. Maka para orang tua disarankan utk menggunakan bola lampu yang suram berwarna merah atau kuning jika anak-anaknya takut pada kegelapan.

sumber : http://timetotalks.blogspot.com/2010/01/bahaya-tidur-dengan-lampu-menyala.html

Array

hallo para netter kali ni theBluemenulis artikel tentang Arrray pada VB bagi yang udah tahu g usah banyak komen nie hanya untuk yang belum tahu aja...

Array merupakan tipe terstruktur

yang terdiri dari sejumlah komponen yang mempunyai tipe yang sama.

Deklarasi Array

Suatu array yang akan digunakan di dalam pemrograman visual basic harus di deklarasikan terlebih dahulu. deklarasi pada array itu hampir sama dengan deklarasi biasa hanya pada array harus ditambahkan nilai index yang diletakkan dalam tanda "( )".

Contoh :

Dim Jumlah(10) as integer

Dim dataku(4) as String

atau contoh yang lain :

Private Sub Form_Click()

Dim Jml(10) As Integer

Dim Hari As Variant

Hari = Array("Senin", "Selasa", "Rabu")

Jml(0) = 3500

Print Hari(2)

Print Jml(0)

End Sub

dari contoh di atas dapat diketahui bahwa

Jml(0)=3500

Jml adlah nama variant

0 adalah nilai index

3500 adalah nilai numerik

Nilai standar awal suatu elemen dari array adalah 0 tetapi jika ingin mengubah dapat dilakukan dengan dua cara :

1. dapat di tuliskan secara langsung misal data dimulai dari index 9 sampai 20 maka penulisannya sebagai berikut

Dim Data(9 to 20) As String

2.memberi harga awal indeks pada bagian deklaration

misal dimulai dari 1 sebanyak 5 index maka penulisannya sebagai berikut :

Option Base 1

Dim Data(4) As String

Membuat Aplikasi chating sederhana dg VB

Setelah beberapa hari bahkan berbulan-bulan g posting sekarang gua pengen posting lg nie tentang membuat animasi chating sederhana ya mungkinsudah banyak yang bisa tapi juga banyak yang belum bisa n semoga ja artikel yang gua buat nie bisa membantu teman-teman yang membutuhkan...

ya sekarang kita mulai saja membuatnya :

sekarang untuk servernya dulu kita buat desain form yang terdiri dari tiga textbox dan 1 winsock kenapa winsock karena winsock adalah sbuah komponen yang di buat untuk jaringan..

ya seperti gambar dibawah ini :

setelah buat form seperti diatas kita lanjutkan dengan menulis scriptnya:

Private Sub Form_Activate()

Me.Text1.Text = Winsock1.LocalIP 'untuk menampilkan ip sendiri

End Sub

Private Sub Form_Load()

Winsock1.LocalPort = 5050 'Port bebas tetapi harus sama dg port client

Winsock1.Listen ' untuk menunggu koneksi dari client

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Winsock1.SendData Text3 'berfungsi untuk mengirim pesan yang ada di text3

End If

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close 'jika winsock masih dalam keadaan terkoneksi maka akan di putus untuk merefresh koneksi

Winsock1.Accept requestID 'untuk menerima permintaan koneksi

MsgBox "Client Terkoneksi", vbInformation

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data 'untuk menerima data yang dikirim oleh Client

Me.Text2.Text = data

End Sub

nah perintah-perintah diatas baru servernya ja loch...

cekarang kita buat clientnya...

desain form yang terdiri dari dua textboxt dan tetep pake winsock...

yach kira2 seperti gambar dibawah ini :

nah setelah buat desain form selesai kita lanjutkan dengan menulis scriptnya :

Private Sub Form_Load()

Dim ip As String

ip = InputBox("Masukkan IP Server")

Winsock1.Connect ip, 5050

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Winsock1.SendData Text2

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data

Me.Text1.Text = data

End Sub

sekarang tinggal jalankan dech...

NB : Untuk File jadinya bisa download disini

dah dulu y...

semoga bermanfaat...