Senin, 29 November 2010

44

[VB.NET] Program Penghitung Lama Parkir Sederhana

  • Senin, 29 November 2010
  • Nurkholish Ardi Firdaus
  • Oke, parkir memang sudah menjadi lahan bisnis yang cukup menggiurkan. Coba saja sobat pikirkan, jika ditempat-tempat ramai seperti swalayan, mall, dan tempat-tempatramai lainnya. Jika sehari ada 100 kendaraan yang parkir disana dan setiap kendaraan dikenakan biaya parkir Rp.2000 lumayan kan, apalagi jika biaya parkirnya berdasarkan hitungan waktu misal perjam. Akan lebih menghijaukan mata dong. Ok, jika sobat mempunyai lahan bisnis ini, tidak ada salahnya jika sobat menggunakan program komputer untuk lebih mempermudah pekerjaan sobat. Ok, kali ini saya mau bagi-bagi source code program penghitung lama parkir sederhana. Ok, lets gooo.



    Form Design:


    Deklarasi:
    1 Form
    5 GroupBox
    2 CheckBox
    3 Label
    8 Button
    2 TextBox
    2 ListView
    3 ComboBox

    Atur seperti ini, klik untuk memperbesar gambar:





    Untuk properties control-control nya:

    1. GroupBox
     Name: gbAdd
     Text: Tambah Data
    2. Label
     Name: lblJenis
     Text: Jenis Kendaraan
    3. ComboBox
     Name: cbJenis
    4. Button
     Name: cmdAdd
     Text: Tambah
    5. GroupBox
     Name: gbCari
     Text: Cari
    6. TextBox
     Name: txtFind
    7. Button
     Name: cmdFind
     Text: Cari
    8. ComboBox
     Name: cbAdd
    9. ListView
     Name: lstEmpat
    10.GroupBox
     Name: gbEmpat
     Text: Roda Empat
    11.Buton
     Name: cmdDel4
     Text: Hapus
    12.Button
     Name: cmdStop4
     Text: Stop
    13.ListView
     Name: lstDua
    14.Button
     Name: cmdDel2
     Text: Hapus
    15.Button
     Name: cmdStop2
     Text: Stop
    16.GroupBox
      Name: gbDua
     Text: Roda Dua
    17.Label
     Name: lblPlat
     Text: Plat Nomor
    18.TextBox
     Name: txtPlat
    19.CheckBox
     Name: chkAutoDel2
     Text: Hapus Otomatis
    20.GroupBox
     Name: gbAturBiaya
     Text: Atur Biaya
    21.ComboBox
     Name: cbJenisBiaya
    22.Button
     Name: cmdSet
     Text: Ubah
    23.Button
     Name : cmdOmsetToday
     Text: Penghasilan Hari Ini
    24.CheckBox
     Name: chkAutoDel4
     Text: Hapus Otomatis
    25.Label
     Name: lblJenisBiaya
     Text: Jenis

    Sorce Code:

    Public Class Form1
    
        ' --------------------------------------------------
        ' ---- Program Penghitung Lama Parkir Sederhana ----
        ' --------------------------------------------------
        ' ----------- coded by nurkholish ardi f -----------
        ' ------------ www.crowja.blogspot.com -------------
        ' --------------------------------------------------
    
        ' karena semua buatan manusia tidak ada yang sempurna maka
        ' jika sobat menemukan bug pada source code ini, harap komentar 
        ' dg menyertai deskripsi errornya. tnx  ;)
        
        Option Explicit
        Dim PenghasilanDua As Double
        Dim PenghasilanEmpat As Double
        Dim PenghasilanTotal As Double
    
        ' Gunakan biaya permenit agar lebih spesifik
        ' Biaya default
        Dim BiayaPerMenitRodaDua As Double = (1000 / 60)  ' Sama saja Rp 1000 per jam
        Dim BiayaPerMenitRodaEmpat As Double = (2000 / 60)  ' Sama saja Rp 2000 per jam
    
        Dim BiayaAbsRodaDua As Integer
        Dim BiasaAbsRodaEmpat As Integer
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            InitializeView()
        End Sub
    
        Private Sub InitializeView()
    
            ' Mengatur listview
    
            With lstDua
                .FullRowSelect = True
                .GridLines = True
                .Columns.Add("Plat Nomor").Width = 85
                .Columns.Add("Waktu Mulai").Width = 72
                .Columns.Add("Berakhir").Width = 72
                .Columns.Add("Biaya Parkir").Width = 71
            End With
    
            With lstEmpat
                .FullRowSelect = True
                .GridLines = True
                .Columns.Add("Plat Nomor").Width = 85
                .Columns.Add("Waktu Mulai").Width = 72
                .Columns.Add("Berakhir").Width = 72
                .Columns.Add("Biaya Parkir").Width = 71
            End With
    
            cbJenisBiaya.Items.Add("Mutlak")
            cbJenisBiaya.Items.Add("Per Waktu")
            cbJenisBiaya.DropDownStyle = ComboBoxStyle.DropDownList
            cbJenis.Items.Add("Roda Dua")
            cbJenis.Items.Add("Roda Empat")
            cbJenis.DropDownStyle = ComboBoxStyle.DropDownList
            cbFind.Items.Add("Roda Dua")
            cbFind.Items.Add("Roda Empat")
            cbFind.DropDownStyle = ComboBoxStyle.DropDownList
            Me.Text = "Parkir"
            cbJenisBiaya.SelectedIndex = 1
            cbJenisBiaya.Tag = cbJenisBiaya.SelectedIndex
            cbJenisBiaya.Enabled = False
            cmdSet.Text = "Ubah"
            Me.MaximizeBox = False
        End Sub
    
        Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
            If cbJenisBiaya.Text = "" Or cmdSet.Text = "Atur!" Then
                cmdSet.Text = "Ubah"
                cbJenisBiaya.Enabled = False
                cbJenisBiaya.SelectedIndex = cbJenisBiaya.Tag
                MsgBox("Atur biaya terlebih dahulu", MsgBoxStyle.Critical, "Biaya")
                Exit Sub
            End If
            If txtPlat.Text = "" Or cbJenis.Text = Nothing Then
                MsgBox("Masukkan plat nomor terlebih dahulu & tentukan jenis kendaraan", MsgBoxStyle.Critical, "Plat nomor")
                Exit Sub
            End If
            If cbJenis.Text = "Roda Dua" Then
                ' cek sudah ada blum
                If IsExists("2", UCase(Trim(txtPlat.Text))) Then
                    MsgBox("Plat Nomor Sudah Ada", MsgBoxStyle.Information, "Masih Ada")
                    Exit Sub
                End If
                ' tambahkan data
                With lstDua.Items.Add(UCase(Trim(txtPlat.Text)))
                    .SubItems.Add(Now.ToString("HH':'mm")).Tag = Now
                End With
                txtPlat.Text = ""
            Else
                If IsExists("4", UCase(Trim(txtPlat.Text))) Then
                    MsgBox("Plat Nomor Sudah Ada", MsgBoxStyle.Information, "Masih Ada")
                    Exit Sub
                End If
                With lstEmpat.Items.Add(UCase(Trim(txtPlat.Text)))
                    .SubItems.Add(Now.ToString("hh:mm")).Tag = Now
                End With
                txtPlat.Text = ""
            End If
        End Sub
    
        Private Function IsExists(ByVal j As Char, ByVal Plat As String) As Boolean
            If j = "2" Then
                For i = 0 To lstDua.Items.Count - 1
                    If UCase(lstDua.Items(i).Text) = UCase(Plat) And lstDua.Items(i).BackColor <> Color.Red Then
                        ' Jika sudah ada dan belum di stop
                        lstDua.Items(i).Selected = True
                        lstDua.Focus()
                        IsExists = True
                    End If
                Next
            Else
                For i = 0 To lstEmpat.Items.Count - 1
                    If UCase(lstEmpat.Items(i).Text) = UCase(Plat) And lstEmpat.Items(i).BackColor <> Color.Red Then
                        ' Jika sudah ada dan belum di stop
                        lstEmpat.Items(i).Selected = True
                        lstEmpat.Focus()
                        IsExists = True
                    End If
                Next
            End If
        End Function
    
        Private Sub cmdStop2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop2.Click
            Dim ongkos As Long
            ' jika sudah pernah distop, abaikan
            If lstDua.SelectedItems(0).BackColor = Color.Red Then Exit Sub
            With lstDua
                ' cek apakah user memilih slah stu item
                If .SelectedItems.Count > 0 Then
                    ongkos = IIf(cbJenisBiaya.SelectedIndex = 1, Val(Format(DateDiff(DateInterval.Minute, .Items _
                    (.SelectedItems(0).Index).SubItems(1).Tag, Now) * BiayaPerMenitRodaDua, "#")), BiayaAbsRodaDua)
    
                    UpdatePenghasilan("2", ongkos)
    
                    MsgBox("Biaya parkir Rp." & ongkos)
    
                    .SelectedItems(0).BackColor = Color.Red
                    .SelectedItems(0).SubItems.Add(Now.ToString("HH':'mm"))
                    .SelectedItems(0).SubItems.Add("Rp. " & ongkos)
                    ' jika chekbox hapus otomatis dipilih
                    If chkAutoDel2.Checked Then .Items.Remove(.SelectedItems(0))
                End If
            End With
        End Sub
    
        Private Sub UpdatePenghasilan(ByVal j As Char, ByVal biaya As Long)
            If j = "2" Then
                PenghasilanDua = PenghasilanDua + biaya
            Else
                PenghasilanEmpat = PenghasilanEmpat + biaya
            End If
            PenghasilanTotal = PenghasilanDua + PenghasilanEmpat
        End Sub
    
        Private Sub cmdDel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel2.Click
            With lstDua
                If .SelectedItems.Count > 0 Then
                    If MsgBox("Hapus dari daftar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Hapus") = MsgBoxResult.Yes Then
                        .Items.Remove(.SelectedItems(0))
                    End If
                End If
            End With
        End Sub
    
        Private Sub cmdStop4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop4.Click
            Dim ongkos As Long
            ' jika sudah pernah distop, abaikan
            If lstEmpat.SelectedItems(0).BackColor = Color.Red Then Exit Sub
            With lstEmpat
                ' cek apakah user memilih slah stu item
                If .SelectedItems.Count > 0 Then
                    ongkos = IIf(cbJenisBiaya.SelectedIndex = 1, Val(Format(DateDiff(DateInterval.Minute, .Items _
                    (.SelectedItems(0).Index).SubItems(1).Tag, Now) * BiayaPerMenitRodaEmpat, "#")), BiasaAbsRodaEmpat)
    
                    UpdatePenghasilan("4", ongkos)
    
                    MsgBox("Biaya parkir Rp." & ongkos)
    
                    .SelectedItems(0).BackColor = Color.Red
                    .SelectedItems(0).SubItems.Add(Now.ToString("HH':'mm"))
                    .SelectedItems(0).SubItems.Add("Rp." & ongkos)
                    ' jika chekbox hapus otomatis dipilih
                    If chkAutoDel4.Checked Then .Items.Remove(.SelectedItems(0))
                End If
            End With
        End Sub
    
        Private Sub cmdDel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel4.Click
            With lstEmpat
                If .SelectedItems.Count > 0 Then
                    If MsgBox("Hapus dari daftar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Hapus") = MsgBoxResult.Yes Then
                        .Items.Remove(.SelectedItems(0))
                    End If
                End If
            End With
        End Sub
    
        Private Sub cmdFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFind.Click
            If cbFind.Text = "" Or txtFind.Text = "" Then
                MsgBox("Masukkan plat nomor dan jenis kendaraan yang akan dicari", MsgBoxStyle.Critical, "Cari")
                Exit Sub
            End If
            If cbFind.Text = "Roda Dua" Then
                lstDua.SelectedItems.Clear()
                If IsExists("2", UCase(Trim(txtFind.Text))) = False Then
                    MsgBox("Kendaraan tidak ditemukan atau mingkin kendaraan telah di stop", MsgBoxStyle.Information, "Tidak ditemukan")
                End If
            Else
                lstEmpat.SelectedItems.Clear()
                If IsExists("4", UCase(Trim(txtFind.Text))) = False Then
                    MsgBox("Kendaraan tidak ditemukan atau mingkin kendaraan telah di stop", MsgBoxStyle.Information, "Tidak ditemukan")
                End If
            End If
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOmsetToday.Click
            MsgBox("Omset Parkir Roda Dua  : Rp " & PenghasilanDua & vbCrLf _
                 & "Omset Parkir Roda Empat: Rp " & PenghasilanEmpat & vbCrLf _
                 & "" & vbCrLf _
                 & "Omset Total Hari Ini   : Rp " & PenghasilanTotal, MsgBoxStyle.Information, _
                 "Penghasilan Hari Ini")
        End Sub
    
        Private Sub cmdSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSet.Click
    
            Dim BiayaDua As String
            Dim BiayaEmpat As String
    
            If cmdSet.Text = "Ubah" Then
                cmdSet.Text = "Atur!"
                cbJenisBiaya.Enabled = True
                cbJenisBiaya_Click(sender, e)
            Else
                cmdSet.Text = "Ubah"
                If cbJenisBiaya.SelectedIndex = 0 Then
                    BiayaDua = InputBox("Masukkan biaya parkir roda dua dalam Rupiah ", "Atur Biaya", "1000")
                    BiayaEmpat = InputBox("Masukkan biaya parkir roda empat dalam Rupiah ", "Atur Biaya", "2000")
                ElseIf cbJenisBiaya.SelectedIndex = 1 Then
                    BiayaDua = InputBox("Masukkan biaya parkir roda dua per jam dalam Rupiah ", "Atur Biaya", "1000")
                    BiayaEmpat = InputBox("Masukkan biaya parkir roda empat per jam dalam Rupiah ", "Atur Biaya", "2000")
                End If
    
                If IsNumeric(BiayaDua) And IsNumeric(BiayaEmpat) Then
                    If cbJenisBiaya.SelectedIndex = 0 Then
                        BiayaAbsRodaDua = Int(BiayaDua)
                        BiasaAbsRodaEmpat = Int(BiayaEmpat)
                    ElseIf cbJenisBiaya.SelectedIndex = 1 Then
                        BiayaPerMenitRodaDua = Int(BiayaDua) / 60
                        BiayaPerMenitRodaEmpat = Int(BiayaEmpat) / 60
                    End If
    
                Else
                    MsgBox("Masukkan angka!", MsgBoxStyle.Critical, "Kesalahan")
                    cbJenisBiaya.SelectedIndex = cbJenisBiaya.Tag
                End If
                cmdSet.Text = "Ubah"
                cbJenisBiaya.Enabled = False
                cmdSet.Enabled = True
            End If
            
        End Sub
    
        Private Sub cbJenisBiaya_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbJenisBiaya.Click
            ' masukkan data sebelum combobox diubah
            cbJenisBiaya.Tag = cbJenisBiaya.SelectedIndex
        End Sub
    End Class
    ' 2010 Crowja-Codez (www.crowja.blogspot.com)


    Jika sobat malas untuk membuatnya, sobat juga bisa mendownload langsung source codenya:

    Crowja-Coderz
    4

    [VB.NET] Memasukan Tabel Database Ke ListView

  • Nurkholish Ardi Firdaus
  • Oke, kebanyakan orang memang lebih suka dengan menggunakan DataGrid untuk menampilkan keseluruhan isi dari tabel pada database. Tetapi kali ini sobat akan tahu tentang teknik menampilkan table database kedalam ListView. Okee...........







    Deklarasi:
    1 Form
    1 ListView

    Atur seperti ini:


    Source Code:

    Deklarasi:
    1 Form
    1 ListView



    Source Code:


    Public Class Form1
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ' Membuat koneksi baru
            Dim adoConn As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet." _
                    & "OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb" _
                    & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False")
    
            ' Membuka Koneksi
            adoConn.Open()
    
            ' Membuat Adapter dari koneksi
            Dim adoAdapter As New Data.OleDb.OleDbDataAdapter("SELECT * FROM Titles ORDER By Title", adoConn)
            Dim adoTable As New DataTable
    
            ' Mengisi object Tabel dengan Adapter
            adoAdapter.Fill(adoTable)
    
            ' Masukan tabel kedalam ListView
            LoadDB(lstData, adoTable)
        End Sub
    
        Private Sub LoadDB(ByRef lstView As System.Windows.Forms.ListView, ByVal Table As DataTable)
            Dim curRow As DataRow
    
            ' Membuat header kolom
            For i = 0 To Table.Columns.Count - 1
                lstView.Columns.Add(Table.Columns(i).Caption)
                lstView.Columns.Item(i).Width = Len(Table.Columns(i).Caption) * 10
            Next
    
            ' Mengisi data ke ListView
            For i = 0 To Table.Rows.Count - 1
                curRow = Table.Rows(i)
                With lstView.Items.Add(curRow.Item(0).ToString)
                    For j = 1 To lstView.Columns.Count - 1
                        .SubItems.Add(curRow.Item(j).ToString)
                    Next
                End With
            Next
        End Sub
    End Class
    


    Sabtu, 27 November 2010

    1

    10 Orang Pertama yang Mendaftar di Facebook

  • Sabtu, 27 November 2010
  • Nurkholish Ardi Firdaus
  • Pastinya semua udah tahu facebook dong? yup. situs fenomenal yang menduduki peringkat kedua situs dunia ini sudah menjadi penemuan fenomenal abad ini.

    siapa aja sih 10 orang pertama yang mendaftar sebagai member facebook? berikut daftarnya.. here we go.

    1. Mark Zuckerberg


    yup. founder facebook ini adalah orang yang pertama mendaftar di situs jejaring fenomenal ini dengan nomor id 4.

    2. Chris Hughes


    Chris Hughes adalah Co-Founder Facebook sekaligus teman sekamar Mark Zuckerberg sewaktu mereka kuliah di harvard University. proyek yang membuat namanya melejit selain menjadi co-founder facebook adalah proyek pembuatan situs kampanye obama di my.barrackobama.com yang disebut2 punya andil besar dalam menyukseskan obama menjadi presiden kulit hitam pertama di Amerika Serikat.

    nomor idnya adalah 5.

    3.Dustin Moskovitz


    Dustin Moskovitz adalah Co-Founder Facebook sekaligus teman sekamar Mark Zuckerberg sewaktu mereka kuliah di harvard University. Moskovitz memiliki saham facebook sebesar 6 % yang membuat kekayaannya diperkirakan mencapai 1,4 milliar US$. Forbes menasbihkan dia sebagai milyader termuda di dunia.

    nomor idnya adalah 6.

    4. Arie Hasit


    Arie Hasit adalah teman baik dari Mark Zuckerberg. bisa dibilang sohibnya deh karena sewaktu mereka kuliah di harvard mereka sering melakukan kegiatan bersama - sama. hal ini karena mereka sama2 seorang jewish. sekarang dia bekerja sebagai juru bicara angkatan bersenjata Israel.

    nomor idnya adalah 7.

    5. Marcel Georgés Laverdet II


    sedikit yang diketahui soal Marcel Georgés Laverdet II. yang bisa diketahui hanya dia bekerja di Facebook.

    nomor idnya adalah 10.

    6. Soleio


    soleio adalah pegawai teknis facebook. di pagenya, dia menulis bahwa pekerjaannya adalah yang berhubungan dengan teknis facebook.

    nomor idnya adalah 11.

    7. Chris Putnam


    Chris Putnam adalah salah satu software engineer Facebook. aktivitasnya dapat dipantau melalui blognya.

    ada yang unik dari chris putnam adalah satu - satunya orang yang memiliki avatar khusus di facebook. dengan mengetik :putnam: di chat box anda, maka akan ada sesosok foto avatar yang keluar. yaitu fotonya sendiri.

    nomor idnya adalah 13.

    8. Andrew McCollum


    Andrew McCollum adalah teman sekelas dari Mark Zuckerberg di Harvard sekaligus adalah desainer grafis pertama Facebook. dialah yang merancang logo facebook pertama kali dan yang memutuskan untuk memberikan siluet ala al pacino.

    nomor idnya adalah 26.

    9. Colin Kelly


    Sedikit info tentang orang ini. yang pasti dia adalah alumnus harvard university. kemungkinan besar adalah teman sekelas dari Mark Zuckerberg. kebanyakan dari pemilik id - id kecil ini adalah alumnus Harvard University karena memang pada awalnya, facebook dikembangkan untuk kepentingan alumnus dan mahasiswa Harvard.

    nomor idnya adalah 27.

    10. Mark Kaganovich


    Mark Kaganovich adalah alumnus Harvard bidang computer science. dia merupakan founder dari labmeeting, yaitu sejenis social network (seperti facebook) tetapi dikhususkan untuk para ilmuwan.

    Kaskus
    0

    10 X-Files FBI tentang Misteri di Dunia

  • Nurkholish Ardi Firdaus
  • Ada banyak kejadian aneh dan misterius yang tak dapat dijelaskan dengan akal sehat. Secara ilmiah sulit diurai, mungkin hanya lewat supranatura. Artikel ini bukan dimaksud membahas hal-hal klenik, tapi kejadian-kejadian ini sungguh terjadi dan sampai sekarang tak mampu dijelaskan sebab musababnya. Bahkan FBI yang telah turun tangan pun 'menyerah' dan masuk dalam 'X Files'.

    Berikut 10 kejadian aneh dan misterius dari berbagai pelosok dunia, Hal aneh yang terjadi di dunia :

    1.Rumah Hantu The Amityville


    Anda pernah nonton film horror Amityville House? Tahukah Film yang diangkat dari novel horror karangan George dan Kathy Lutz, begitu menyeramkan ketika ditayangkan di layar lebar. Tapi tahukah anda kalau sebenarnya semua kejadian horror itu adalah kisah nyata. George dan Kathy menulisnya dalam novel berdasarkan kejadian sebenarnya yang kemudian diangkat ke layar lebar. Orang percaya bahwa penulis sebenarnya adalah orang yang mengalami kejadian tersebut.

    Kisah rumah berhantu itu terungkap tahun 1975 ketika pasangan suami istri pindah ke sebuah rumah di Amityville, New York. Pasangan baru pindah ini tidak tahu kalau rumah itu pada 13 tahun sebelumnya pernah terjadi pembantaian mengerikan. Putra pemilik rumah telah menembak mati semua keluarganya yang berjumlah enam orang. Saat ditangkap, dia mengaku, membunuh karena suruhan suara yang mendengung di kepalanya.

    Tapi anehnya, keenam korban di temukan tertelungkup di tempat tidur mereka. Mereka tampak tidur tenang, tidak ada tanda kalau mereka sebelumnya minum obat penenang. Ini memang menjadi misteri yang aneh. Sementara pelaku Ronald DeFeo dijebloskan ke penjara di New York dan mendekam di sana sampai mati.

    Kembali ke soal keluarga baru pindah ke rumah horror itu. Selama 28 hari di sana, banyak kejadian misterius dan mengerikan dialami pasangan ini. Bukan hanya soal bau busuk yg tiba-tiba datang, atau suara gedebak-gedebuk yang bising, tapi juga serangan fisik yang tidak diketahui siapa pelakunya. Malah salah satu anggota keluarga melihat penampakan sosok menyeramkan dengan mata merah berpijar. Kathy menemukan sebuah ruang kecil, anjing tidak mau mendekat ke sana. Ada apakah?

    2.Misteri Kematian Mary Reeser


    Ini kejadian luar biasa yang sampai kini tidak bisa dijelaskan oleh akal sehat. Mary Reeser, lahir pada 1881, ditemukan hampir seluruh badannya hangus dilahap api di rumahnya di Florida pada 1951. Tapi anehnya, meski seluruh tubuhnya gosong, kaki kirinya mulus tanpa cacat sedikitpun. Ini tentu sangat mustahil.

    Lebih aneh lagi, sepertinya api hanya menyasar tubuh Mary Reseer saja. Karena ruangan di sekitarnya tempat dia ditemukan, sama sekali tidak terbakar.. Padahal diperkirakan suhu api begitu tinggi sama dengan kremasi mayat, dan harusnya menyambar ke seluruh ruangan bukan hanya tubuh wanita itu..
    FBI telah datang untuk melakukan penyelidikan, forensic pun ikut ambil bagian dalam kasus itu, tapi tidak bisas memecahkan kenapa bisa terjadi demikian.

    "Saya merasa sulit percaya hal ini. Tubuh manusia yang terbakar dengan suhu tinggi, bisa menyisakan kaki yang mulus tak terbakar sedikitpun. Apa sebenarnya yang terjadi pada malam 1 Juli 1951 itu? Ini sungguh suatu misteri. Seharusnya seluruh ruangan ini hangus terbakar. Ini adalah hal paling luar biasa yang pernah saya lihat. Rambutnya pendek dengan wajah seperti orang ketakutan amat sangat. Saya merasa seperti tinggal di abad pertengahan, di mana orang banyak bicara tentang sihir dan black magic," ungkap Profesor Krogman dari University of Pennsylvania's School of Medicine. Ia mengaku tak mampu menjelaskan misteri ini.

    3.Misteri Jejak Setan Gentayangan di Devon


    The Devil's Footprints adalah nama yang diberikan untuk sebuah fenomena yang aneh terjadi di Devon, Inggris pada tanggal 8 Februari 1855. Setelah salju yg turun di malam hari, keesokannya muncul jejak-jejak di salju berukuran 1,5 inc (4 cm) dan lebar 2,5 inc (6,35 cm). Jejak-jejak itu bertebaran di seluruh desa. Bukan hanya itu jejak -jejak itu juga ada di atap bahkan di dinding bangunan yang tinggi. Penduduk desa menjadi geger dan tak mengerti fenomena apa itu. Karena tak jelas, orang pun mulai berpikir tentang makhluk aneh bahkan setan yang gentayangan di desa mereka. Itu sebabnya muncul istilah Devil's Footprint.**

    4. Misteri Zana 'Manusia Purba'


    Kejadian aneh ini terjadi pada abad pertengahan, sekitar abad 18. Ochamchir, seorang pemburu di wilayah Georgia ketika itu masih masuk dalam salah satu provinsi di Rusia. Pemburu ini menangkap seorang perempuan liar di mana lengan, kaki dan jari ditutupi rambut tebal. Perempuan aneh ini diberi nama Zana. Karena liarnya, untuk menjinakkannya pada awalnya dia terpaksa harus dikurung selama bertahun-tahun dengan makanan yang dilemparkan kepadanya. Setelah ia jinak, barulah Zana dibebaskan dan diajari mengerjakan hal-hal ringan. Seperti menggiling jagung, dll.

    Uniknya, Zana memiliki daya tahan tubuh yang tinggi lebih dari manusia biasa. Dia tahan pada cuaca dingin luar biasa, namun dia tidak tahan pada udara hangat dalam ruangan. Dia sangat suka makan buah anggur dan tanaman menjalar. Dia adalah peminum berat dan bisa tidur berjam-jam. Yang anehnya, dia bisa memiliki banyak anak dengan ayah yang berbeda-beda. Tapi kebanyakan anak-anaknya tewas karena Zana memandikan mereka di sungai dingin yang hampir beku.

    Penduduk desa khawatir dengan ulah aneh Zana, dan mereka pun mengambil anak-anaknya menjauhi ibunya. Anak-anak Zana tidak seperti ibunya, mereka berkembang seperti manusia biasa dan mereka juga telah diangkat anak oleh beberapa penduduk desa. Zana meninggal di desa itu tahun 1890.Sedang anak bungsunya meninggal 1954.

    Kisah ini merupakan hasil penelitian Professor Porchnev yang mewawancarai orang-orangtua di desa itu. Zana juga memiliki banyak cucu. Mereka berkulit gelap. Salah satunya adalah Shalikula, ia memiliki mulut yang kuat sehingga ia dapat mengangkat sebuah kursi dengan seorang lelaki duduk di atasnya.

    Penelitian tentang Zana menghasilkan dugaan kalau wanita aneh itu merupakan bentuk evolusi manusia yang belum sepenuhnya berubah menjadi manusia modern. ***

    5. Misteri Wanita Penyebar Gas


    The Mad Gasser dari Mattoon adalah nama yang diberikan kepada orang berada di balik serangkaian serangan gas yang terjadi di Botetourt County, Virginia, pada awal tahun 1930an, dan di Mattoon, Illinois, pada pertengahan tahun 1940-an.Kejadian pertama terjadi di rumah Cal Huffman, di Haymakertown, Botetourt County, di mana terdapat tiga serangan dilaporkan selama satu malam.

    Sekitar 10:00 pada 22 Desember 1933, Ibu Huffman melaporkan bau bau yang tidak biasa, dan dengan mengatasi rasa mual. Bau yang mual dan kembali lagi sekitar 10:30, Cal Huffman kemudian menghubungi polisi. Ketiga serangan terjadi sekitar 1:00, saat itu serangan gas memenuhi seluruh rumah. Delapan anggota keluarga Huffman menjadi korban bersama dengan Ashby Henderson, seorang tamu tinggal di rumah.

    Berikutnya yang tercatat di Cloverdale insiden terjadi pada 24 Desember. Clarence Hall, istrinya, dan dua anak-anak mereka baru pulang dari gereja 9:00 Mereka pun lemas. Polisi menyelidiki kasus ini, menemukan paku yang diambil dari belakang jendela, di mana bau gas sangat keras. Diduga, lubang itu digunakan untuk memasukkan gas ke dalam rumah itu.

    Kejadian ketiga pada 27 Desember, di mana penduduk Troutville, A. Kelly dan ibunya dilaporkan memiliki gejala sama seperti kasus Huffman dan Hall. Insiden keempat dan kelima terjadi pada 10 Januari, ketika Mrs Moore, seorang tamu di rumah penduduk Haymakertown Homer Hylton melaporkan mendengar suara di luar, sebelum gas dimasukkan ke rumah mereka lewat jendela yang rusak. Kedua serangan malam yang dilaporkan dalam Troutville, di rumah Kinzie G..

    Sedikitnya 10 kasus lain yang dilaporkan di Botetourt dan dalam 10 tahun kemudian, lebih dari 20 kasus baru dilaporkan di Mattoon. Salah satu saksi mengatakan, dia melihat pelaku penyebar gas ity adalah seperti seorang wanita bertubuh tinggi kurus, berpakaian seperti seorang laki-laki namun jejak kakinya milik seorang perempuan.**

    6.Misteri Lampu Hantu di Bridgewater Triangle


    Bridgewater Triangle merupakan wilayah sekitar 200 mil persegi (520 km2) di tenggara Massachusetts, Amerika Serikat. Sejak masa colonial, daerah itu dikenal sebagai daerah yang memiliki kekuatan misterius yang sulit dijelaskan. Berbagai laporan tentang daerah itu sempat dicatat di antaran tentang fenomena Poltergeists dan orbs, bola api yang tiba tiba jatuh di sana juga fenomena hantu.

    Rumors yang beredar tentang penampakan 'bigfoot', ular raksasa, burung raksasa, serta ditemukan banyak sisa sisa potongan ternak, dll. Polisi juga wartawan telah berusaha mengungkap kejadian-kejadian aneh di sana.
    Area itu menjadi amat sangat misterius dan tak tersentuh sehingga dijuluki Hockomock Swamp, yang berarti " jiwa dwell", atau penduduk setempat menyebutnya sebagai "The Devil's Swamp" .

    Salah satu fenomena yang terkenal terjadi di daerah itu adalah munculnya cahaya berkelap-kelip dari rawa-rawa di sekitar situ. Orang menyebut kelap kelip itu sebagai lampu hantu yang biasanya terlihat di daerah berawa.
    Fenomena lampu hantu it u terus muncul di sekitar Bridgewater Triangle. Lampu aneh itu juga muncul setiap Januari di sekitar rel kereta yg melintasi daerah itu.***

    7. The Clapham Wood Mystery


    The Clapham Wood Mystery adalah nama yang diberikan terkait dengan peristiwa-peristiwa aneh yang terjadi di Clapham Wood, West Sussex, Inggris. Peristiwa-peristiwa itu merupakan laporan dari warga setempat yang mengalami fenomena aneh itu. Misalnya, hewan peliharaan keluarga yang hilang tiba-tiba atau orang yang tiba-tiba meninggal tanpa sebab.

    Sejak 1960 dilaporkan di kawasan itu sempat terlihat adanya benda terbang aneh (UFO?), juga masyarakat yang tiba tiba merasa suatu yang aneh dan gaib. Jalur yang dilaporkan misterius adalah jalur menuju hutan. Dari penelitian diperoleh hasil bahwa daerah itu memiliki tingkat radiasi tinggi.

    Laporan ini mengejutkan, karena daerah tersebut merupakan daerah kapur yang biasanya rendah radiasi.

    Dalam foto, pada awalnya masih terlihat pohon-pohon tinggi dan besar. Namun akibat 'depresi' pohon-pohon itu mati. Kini sangat sulit mencari pohon pohon besar di sana.

    Dilaporkan ada empat kematian misterius di dekat hutan. Pertama Juni 1972 dimana seorang polisi, Peter Goldsmith hilang saat hiking di daerah itu. Tubuhnya telah menemukan 6 bulan kemudian. Kematian yang kedua adalah dari Leon Foster, tubuh yang telah ditemukan pada Agustus 1975, setelah 3 bulan hilang.

    Yang ketiga adalah kematian dari Reverend Harry Neil Snelling, mantan wakil dari Clapham. Dia menghilang pada Oktober 1978 dan tubuhnya tidak ditemukan sampai 3 tahun kemudian. Kasus-kasus di Clapham ini hingga kini tak terungkap.

    8. Misteri Rumah Hantu Summerwind


    Summerwind Mansion, sebelumnya dikenal sebagai Lamont Mansion, merupakan gudang di pantai Barat Teluk Vilas di Lake County, North East Wisconsin. Daerah itu merupakan salah satu daerah paling angker di Wisconsin. Kondisinya kini kumuh dan telantar. Hal ini karena pernah terjadi kebakaran hebat di daerah itu yang nyaris memusnahkan semua gedung di sana.

    Summerwind pada awalnya dibangun pada awal abad ke-20 sebagai mes para nelayan. Pada 1916 telah dibeli oleh Robert P. Lamont, yang bekerja sebagai arsitek di perusahaan Tallmadge and Watson. Kemudian dia merenovasi gedung itu dan tinggal di sana. Namun sebelumnya ia sudah diperingatkan bahwa gedung itu angker.

    Tapi dia tidak percaya sampai kemudian dia sendiri bertemu dengan 'penunggu' rumah itu. Kejadian itu terjadi era 1930, Lamont melihat penampakan hantu di dapur rumahnya, membuat dia terbirit birit meninggalkan rumahnya itu.
    Setelah kepergian Lamont, rumah itu dibiarkan kosong dan terbengkalai.

    Tahun 1970-an, pasangan suami istri, Arnold dan Ginger Hinshaw membeli rumah itu dan tinggal bersama empat anaknya. Sejak mulau tinggal, keluarga ini kerap diganggu berbagai hal aneh.

    Hinshaws melaporkan sejumlah kejadian aneh, mulai dari bayangan yang bergerak dari bawah ke atas dengan suara pelan dan berhenti ketika mereka masuk ke kamar, atau jendela yang tiba-tiba terbuka sendiri. Mereka melaporkan beberapa kali melihat hantu wanita di sekitar ruang makan.

    Mungkin karena stress, dalam waktu enam bulan setelah pindah ke Summerwind, Arnold jatuh sakit dan Ginger , istrinya, mencoba bunuh diri. Akhirnya Arnold masuk rumah sakit, sedang Ginger pindah dengan orang tuanya di Granton, Wisconsin.

    Pada bulan Juni 1988, Summerwind beberapa kali terkena petir yang memicu munculnya api dan membakar rumah. Sehingga banyak bagian gedung itu rusak parah. Yang anehnya, petir menyambar berkali-kali, padahal di sekitarnya banyak pohon tinggi melebihi gedung itu tapi sama sekali tidak ikut tersambar.
    Saat ini gedung itu tak berbentuk lagi hanya menyisakan fondasi rumah yang tak terawatt.**

    9.Hopkinsville Goblins: Munculnya Makhluk Aneh Bercahaya


    Kasus Hopkinsville Goblins dikenal sebagai kasus teraneh dalam sejarah benda-benda terbang yang pernah ada. Kasus ini terdokumentasi dengn baik. Kasus ini terjadi di dekat kota antara Kelly dan Hopkinsville, Kentucky, pada 21 Agustus 1955 malam hingga pagi.

    Bermunculan benda terbang aneh dalam tempo yang lama, ada banyak saksi yang melihatnya. " Beberapa sakisi mata mengatakan, benda-benda itu terbang terlihat beberapa jam, memanjang sepanjang malam hingga pagi. Mereka melihat penampakan makhluk-makhluk bercahaya yang tingginya tiga kaki. Saksi melihat lengannya mengeluarkan api yang ditembakkan ke atas.

    Pada malam 21 Agustus, 1955, Billy Ray Taylor mengundang teman-temannya gi untuk makan malam. Ketika menengok ke atas, mereka melihat ada cahaya aneh di langit sebelah barat. Kelompok ini juga melihat makhluk terang tingginya setengah kaki berkepala besar, telinga lebar dan mata bercahaya. Tangannya mengeluarkan api.

    Makhluk itu mendekati rumah Taylor sampai berjarak 20 kaki. Orang-orang yang melihat mengambil senapan dan bersiap-siap menggunakannya. Namun makhluk itu kemudian melarikan diri kea rah kegelapan malam.

    Setelah itu, semua anggota keluarga berulang kali melihat penampakan makhluk itu yang sepertinya bergerak menuju rumah mereka. Ini memang cerita aneh. Untuk lebih jelas anda bisa membaca artikel lengkapnya di Wikipedia.**

    10. Manusia Kadal dari Scape Ore Swamp


    Kasus ini terjadi di kawasan berawa di daerah Lee Country, Carolina Selatan. Makhluk aneh yang digambarkan memiliki tinggi 7 feed atau lebih dari 2 meter, berbadan tegap dengan kulit yang bersisik berwarna hijau muncul di sana. Matanya menyeramkan sebesar jeruk glowing. Makhluk itu memiliki tiga jari pada tangan dan kakinya. Orang menyebutnya makhluk kadal dari rawa.

    Laporan pertama tentang keberadaan mahluk itu disampaikan oleh Christopher Davis, 17 tahun, penduduk setempat. Ia mengatakan, makhluk yang ditemui saat berkendara melewati perbatasan Scape Ore Swamp. Kebetulan saat itu mobilnya mengalami masalah sehingga ia terpaksa berhenti untuk ganti ban. Ketika ia selesai ganti ban, dia mendengar suara berisik di belakangnya.

    Saat berpaling, betapa terkejutnya dia melihat mahluk aneh tampak berjalan menuju dirinya. Davis mengaku, makhluk itu mencoba menyerang mobilnya, dengan melompat di atas atap mobil. David berusaha kabur . Sampai di rumah, di lihatnya kaca spion mobinya telah hancur, kerusakan juga pada atap mobil.

    Beberapa bulan yang sama, muncul laporan hampir senada dengan kasus David. Dilaporkan, mahluk itu mirip kadal raksasa berada di dekat rawa. Sebagian besar laporkan mengatakan kejadiannya sekitar 3 mil atau 5 km dari Bishopville atau di sekitar dari rawa-rawa. Dua bulan kejadian, beberapa polisi melakukan penyelidikan dan ditemukan jejak kaki berukuran 14 inc panjangnya.

    Lalu polisi mengirim laporran itu ke FBI untuk ditelusuri lebih lanjut. Namun analisa menemui jalan buntu, hingga sekarang tak jelas, makhluk apakah yang berperawakan mirip kadal itu.


    Sumber: Whooila.com
    2

    Ini Dia Jenazah-jenazah yang Tidak Membusuk

  • Nurkholish Ardi Firdaus
  • Percaya atau tidak, ini benar-benar ada dan merupakan fakta. Kondisi jenazah-jenazah pada foto di bawah ini berlawanan dengan hukum alam. Teka-teki bagaimana bisa awetnya jenazah-jenazah tersebut, sampai kini belum terpecahkan. Satu-satunya hipotese, penyebabnya adalah jenazah tersebut diletakkan dalam suatu ruangan yang memiliki komposisi udara tertentu, sehingga proses kerusakan jenazah sangat lamban sekali.


    Santo Pio dari Pietrelcina (wafat tahun 1968).


    Santa Bernadette dari Lourdes (wafat tahun 1879).


    Santo Vincent de Paul (wafat tahun 1660).


    Santa Veronica Giuliani (wafat tahun 1727).


    Santo John Vianney (wafat tahun 1859).


    Santa Clare dari Assisi (wafat tahun 1253, sahabat Santa Francis dari Assisi).


    Santo Silvan (wafat tahun 350 Sebelum Masehi).


    Santo John Bosco (wafat tahun 1888).


    Santa Rita dari Cascia (wafat tahun 1457).


    Santa Teresa Margaret (wafat tahun 1770).


    Santa Catherine Laboure (wafat 1876).


    Blessed Imelda Lambertini (meninggal tahun 1333 dalam usia 12 tahun).


    Santo Francis Xavier (wafat tahun 1552).


    Santa Maria Goretti (wafat tahun 1902).


    Sumber: Whooila.com
    0

    Foto Bukti Aburizal Bakrie Bertemu dengan Gayus Tambunan di Bali

  • Nurkholish Ardi Firdaus
  • Foto Bukti Aburizal Bakrie Bertemu dengan Gayus Tambunan di Bali




    Harus ada Roy Suryo nih buat ngebuktiin foto ini asli apa enggak! Hahaha


    Sumber: Whooila.com
    0

    Ketika Wajah Para Politikus Tanpa Kumis

  • Nurkholish Ardi Firdaus
  • Ketika Wajah Para Politikus Tanpa Kumis





















    Sumber: Whooila.com
    0

    Hati-hati, Playboy Berumur Pendek

  • Nurkholish Ardi Firdaus
  • SEORANG playboy akan mati-matian memberi kesan hebat saat kencan pertama. Tujuannya, agar bisa membuat kaum hawa terpincut pesonanya. Apakah kehebatan yang ditampilkan itu jujur atau palsu, itu urusan nanti, yang penting rencana jangka pendek terpenuhi.

    Namun jangan senang dulu, jika Anda seorang playboy, waspadalah! Pasalnya, Anda mungkin akan meninggal lebih awal. Begitu kata para peneliti.

    Sebuah studi baru yang dipimpin oleh University of New South Wales mengklaim, bahwa pria yang terfokus mengejar beberapa wanita biasanya pertumbuhannya terhambat dan meninggal muda. Pasalnya, mereka dapat mengabaikan kebutuhan utama seperti makan.

    Temuan itu menunjukkan, bahwa pergaulan laki-laki tidak lebih umum, walaupun memiliki potensi keuntungan berevolusi karena hal itu mengikuti keterbatasan alam. Demikian laporan Journal of Evolutionary Biology yang dinukil dari Times of India.

    Kepala peneliti Alex Jordan mengatakan, "Mungkin ini cara alam menceritakan laki-laki yang akan lebih setia kepada pasangan seksual mereka. Kami bertanya-tanya mengapa dunia bukanlah tempat yang lebih kacau."

    "Untuk pria, terutama yang telah menikah dengan sejumlah wanita memiliki keberhasilan bereproduksi dengan hebat, sehingga Anda akan berpikir bahwa aturan tersebut harus lebih baik. Bahkan, penelitian kami menunjukkan bahwa laki-laki membayar biaya yang signifikan terhadap pergaulan yang menempatkan batasan jumlah pasangan seksual mereka sepanjang masa hidupnya."

    Untuk penelitian ini, para peneliti melakukan uji coba perilaku ikan-ikan tropis, serta memeriksa biaya reproduksi pria seumur hidupnya. Ini menjadi studi pertama yang melibatkan hewan vertebrata.

    Pria dari banyak spesies meningkatkan upaya reproduksi mereka dengan teman-teman asing, sehingga menjadi sebuah fenomena yang dikenal sebagai efek Coolidge.

    Ketika ikan jantan secara teratur dipasok dengan ikan perempuan asing yang baru sepanjang hidup mereka, mereka menghabiskan waktu lebih sedikit mencari makanan dan lebih banyak waktu mengejar betina. Pria yang hidup dengan perempuan asing juga tumbuh lebih lambat dan untuk mereka yang telah dewasa memiliki ukuran yang lebih kecil, dan cenderung lebih cepat meninggal.

    Sebaliknya, laki-laki yang hidup dengan satu pasangan biasanya makan secara teratur, tumbuh terus, dan hidup lebih lama.

    "Biaya besar untuk individu yang terlibat pergaulan bebas mengungkapkan pembatasan alam pada perilaku kacau, yang belum terdeskripsikan dalam vertebrata. Mungkin mereka yang menginginkan keberadaan yang lebih kacau akan melihat ini sebagai peringatan," papar Jordan.

    "Kondisi itu memberitahu kita secara ilmiah bahwa evolusi pergaulan ekstrem tampaknya akan dibatasi oleh biaya fisiologis yang terlibat, meskipun pergaulan memiliki kelebihan, tapi mungkin terlalu hebat untuk jangka panjang," tutup Jordan.


    Sumber: Whooila.com

    Subscribe