PROSES KEMATIAN DAN HANCURNYA TUBUH KITA

Sesaat sebelum mati, Anda akan merasakan jantung berhenti berdetak, nafas tertahan dan badan bergetar.
Anda merasa dingin ditelinga. Darah berubah menjadi asam dan tenggorokan berkontraksi.

0 Menit ...

Kematian secara medis terjadi ketika otak kehabisan supply oksigen.

1 Menit ...

Darah berubah warna dan otot kehilangan kontraksi, isi kantung kemih keluar tanpa izin.

3 Menit ...

Sel-sel otak tewas secara masal. Saat ini otak benar-benar berhenti berpikir.

4 – 5 Menit ...

Pupil mata membesar dan berselaput.
Bola mata mengkerut karena kehilangan tekanan darah.

7 – 9 Menit ...

Penghubung ke otak mulai mati.

1 – 4 Jam ...

Rigor Mortis (fase dimana keseluruhan otot di tubuh menjadi kaku) membuat otot kaku dan rambut berdiri, kesannya rambut tetap tumbuh setelah mati.

4 – 6 Jam ...

Rigor Mortis Terus beraksi. Darah yang berkumpul lalu mati dan warna kulit menghitam.

6 Jam ...

Otot masih berkontraksi. Proses penghancuran, seperti efek alkohol masih berjalan.

8 Jam ...

Suhu tubuh langsung menurun drastis.

24 – 72 Jam ...

Isi perut membusuk oleh mikroba dan pankreas mulai mencerna dirinya sendiri.

36 – 48 Jam ...

Rigor Mortis berhenti, tubuh anda selentur penari balerina.

3 – 5 Hari ...

Pembusukan mengakibatkan luka skala besar, darah menetes keluar dari mulut dan hidung.

8 – 10 Hari ...

Warna tubuh berubah dari hijau ke merah sejalan dengan membusuknya darah.

Beberapa Minggu ..

Rambut, kuku dan gigi dengan mudahnya terlepas. Satu Bulan ... Kulit Anda mulai mencair.

Satu Tahun ...

Tidak ada lagi yang tersisa dari tubuh Anda.
Anda yang sewaktu hidupnya cantik, gagah, ganteng, kaya dan
berkuasa, sekarang hanyalah tumpukan tulang-belulangyang menyedihkan. Jadi, apa yang mau disombongkan orang sebenarnya ???….

Apa yang hendak kau sombongkan wahai diri...?

Oleh Karena itu..
Yuk Aamiin-kan Do'a ini

Ya Allah..
Jangan engkau Ambil Nyawa kami kecuali dalam keadaan Husnul khatimah.. Aamiin

LED CUBE 4X4X4 dengan ATMega 16

Assalamu'alaikum...
Hadeeewwwhh...dah lama banget ngilang dari dunia bloger..belakangan ini memang lagi agak males nulis2..tiba2 aja ada minat buat nulis lagi..kebetulan gw lagi bwt project yang saat ini masih dalam tahap pengerjaan..doain j moga bisa berhasil hihihi...tapi ga ada salahnya,walaupun lom selesai,berbagi informasi kepada blogger semua..

ini dia project yg lagi gw kembangin..LED CUBE..siapa yang tau?
Led cube bisa di bilang susunan lampu led yg berbentuk kubus,yang bisa menyala dengan bermacam2 variasi animasi yg di kontror dengan microcontroler..
ini dia skemanya..silahkan copas dan kembangin sendiri

coba buka halaman ini untuk referensi lebih lengkap...gw juga belajarnya dari sini..
http://www.instructables.com/id/Led-Cube-4x4x4/

Membuat aplikasi MP3 Player dengan Visual Basic 6.0

1. Buka program VB 6.0 dan pilih Standart.EXE
2. Masukkan 5 buah CommandButton, 1 buah komponen media player (msdxm.ocx) dan 2 buah ListBox kedalam Form1. Atur Posisinya seperti gambar di bawah ini:

3. Ganti Caption dari setiap tombol menjadi :

 
4. Masukkan 1 buah Form (Form2) kedalam Projects dan tambahkan 1 buah DriveListbox, 1 buah DirListbox, 2 buah CommandButton dan 1 buah FileListBox kedalam Form2. Atur seperti gambar di bawah ini:
 

5.Ubah Caption Command1 = Add dan Caption Command2 = Cancel
Untuk FileListBox ubah Pattern = *.mp3
Tampilan Form2 akan menjadi seperti ini :


 


 Ubah Caption Command1 = Add dan Caption Command2 = Cancel

6. Ubah Properties dari Form1, Form2 & Form3
a. Form1
Caption = Mp3 Player
StartUpPosition = 2-Center Screen
b. Form2
Caption = Add File
StartUpPosition = 2-Center Screen
c. Form3
Caption = Add Foler
StartUpPosition = 2-Center Screen

7. Kode/ Listing Form1

Private Sub Command1_Click()
MediaPlayer1.Open List2
End Sub

Private Sub Command2_Click()
MediaPlayer1.Stop
End Sub

Private Sub Command3_Click()
If MediaPlayer1.IsDurationValid = False Then Exit Sub
If Command3.Caption = "Pause" Then
MediaPlayer1.Pause
Command3.Caption = "Resume"
Else
MediaPlayer1.Play
Command3.Caption = "Pause"
End If
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command5_Click()
Form3.Show
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub

Private Sub List1_DblClick()
Command1_Click
End Sub

8. Kode/ Listing Form2
Private Sub Command1_Click()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Private Sub File1_DblClick()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub
9. Kode/Listing Form3
Private Sub Command1_Click()
Dim a As Long
Dim b As String
If File1.ListCount = "0" Then Exit Sub: MsgBox "No files"
For a& = 0 To File1.ListCount - 1
Form1.List1.AddItem File1.List(a&)
Form1.List2.AddItem Dir1.Path & "\" & File1.List(a&)
Next a
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

10. Test program (tekan F5)