Motivasi hidup dari dunia lain :

v  Belajarlah dari kuntilanak, sesulit apun hidup tapi selalu tertawa.

v  Belajarlah dari tuyul, masih kecil sudah bisa cari duit.

v  Belajarlah dari pocong, slalu pede loncat pake baju itu_itu saja.

v  Belajarlah dari babi ngepet, modal Cuma pake lilin, hemat listrik.

v  Belajarlah dari jelangkung, datang gak dijemput pulang gak diantar,,hemat bensin

Telur atau Ayam duluan..???

Teka teki, tentang lebih dulu mana telur dan ayam yang kerap kita dengar, dari dahulu sampai detik kemarin belum ada jawabanya. Tapi sekarang sudah ada jawabannya secara ilmiah. Para ilmuan mancanegara menemukan bahwa pembentukan kulit telur bergantung pada satu protein yang hanya ditemukan di indung telur ayam. Artinya telur hanya bisa ada jika berada di dalam ayam. Protein yang disebut ovocledidin-17, atau OC-17 bertindak sebagai katalis untuk mempercepat pengembangan kulit telur. Cangkang telur ini sangat penting untuk tempat kuning dan putih telur. Para ilmuan dari Universitas di Sheffield dan Warwick menggunakan super komputer untuk men’zoom in’ pembentukan telur tersebut. Komputer yang disebut HEC-ToR mengungkapkan bahwa OC-17 sangat penting dalam memulai kristalisasi atau tahap awal penciptaan kulit telur. Protein OC-17 mengubah kalsium karbonat menjadi kristal kalsit yang membentuk kulit telur. Kalsit kristal ada di berbagai tulang dan tempurung unggas, tetapi untuk unggas ayam terbentuknya lebih cepat. Ayam mampu menghasilkan 6 gram kulit telur setiap 24 jam. Dr. Colin Freeman dan Profesor John Harding dari Departemen Teknik Material Universitas Sheffield, mengatakan dengan bukti ilmiah yang menunjukan bahwa “Ayam” lah yang lebih dulu ada. ‘Protein itu sudah diidentifikasi lama dan diketahui terkait dengan pembentukan telur. Menarik untuk diketahui bahwa berbagai jenis spesies burung memiliki variasi protein dengan cara kerja yang sama. ” Alam telah menemukan solusi inovatif untuk semua jenis masalah dalam ilmu tentang materi dan teknologi, kita dapat belajar banyak dari alam”. Kita jangan pernah menyerah, Inovasi teknologi yang akan menjawab semuanya.

Dear Ayah,

Ayah apa kabar?? Semoga bahagia di sana , istirahat yang tenang , aku tidak akan sekali pun melewatkan mu dalam doa dan pengharapan ku , dan aku berjanji akan menjaga Inong (Ibu) kita tercinta. Aku tak akan lagi menyakiti nya , sungguh aku akan menjaganya, betapa aku menyayanginya.

Tepat hari ini 18-03-2012 tujuh tahun aku tanpamu. Tujuh tahun aku tanpa sosokmu. Tujuh tahun tanpa hangatnya pelukanmu. Ayah, begitu aku merindukanmu. Rindu yang sangat menyesakkan dada, yang terkadang membuat airmata ini keluar . Ayah, tak pernah kusesali kepergianmu meskipun kepergianmu membuat hidupku tak lagi lengkap, itu semua kehendak Tuhan, pasti ada cerita indah dibalik semua ini. Tujuh tahun aku belajar. Belajar memaknai kepergianmu. Tujuh tahun aku belajar banyak hal tentang hidup. Mungkin kepergianmu untuk mengajarkanku menjadi anak yang kuat. Ayah, kepergianmu tak pernah menjadi mendung hariku melainkan semangat untuk terus mengejar mimpi, membuat senyum bangga Ibu / Inong tercinta meskipun jalannya begitu terjal.

KATA NASEHAT PENYEJUK HATI.

1. Jangan tertarik kepada seseorang karena parasnya, sebab keelokan paras dapat menyesatkan. Jangan pula tertarik kepada kekayaannya, karena kekayaan dapat musnah. Tertariklah kepada seseorang yang dapat membuatmu tersenyum, karena hanya senyum yang dapat membuat hari-hari yang gelap menjadi cerah. Semoga kamu menemukan orang seperti itu.

2. Ada saat-saat dalam hidup ketika kamu sangat merindukan seseorang, sehingga ingin hati menjemputnya dari alam mimpi dan memeluknya dalam alam nyata. Semoga kamu memimpikan orang seperti itu.

3. Bermimpilah tentang apa yang ingin kamu impikan, pergilah ke tempat-tempat kamu ingin pergi, jadilah seperti yang kamu inginkan, karena kamu hanya memiliki satu kehidupan dan satu kesempatan untuk melakukan hal-hal yang ingin kamu lakukan.

4. Semoga kamu mendapatkan kebahagiaan yang cukup untuk membuatmu baik hati, cobaan yang cukup untuk membuatmu kuat, kesedihan yang cukup untuk membuatmu manusiawi, pengharapan yang cukup untuk membuatmu bahagia dan uang yang cukup untuk membeli hadiah-hadiah.

5. Ketika satu pintu kebahagiaan tertutup, pintu yang lain dibukakan. Tetapi acapkali kita terpaku terlalu lama pada pintu yang tertutup sehingga tidak melihat pintu lain yang dibukakan bagi kita.

6. Sahabat terbaik adalah dia yang dapat duduk berayun-ayun di beranda bersamamu, tanpa mengucapkan sepatah katapun, dan kemudian kamu meninggalkannya dengan perasaan telah bercakap-cakap lama dengannya.

7. Sungguh benar bahwa kita tidak tahu apa yang kita milik sampai kita kehilangannya, tetapi sungguh benar pula bahwa kita tidak tahu apa yang belum pernah kita miliki sampai kita mendapatkannya.

8. Pandanglah segala sesuatu dari kacamata orang lain. Apabila hal itu menyakitkan hatimu, sangat mungkin hal itu menyakitkan hati orang itu pula.

9. Kata-kata yang diucapkan sembarangan dapat menyulut perselisihan. Kata-kata yang kejam dapat menghancurkan suatu kehidupan. Kata-kata yang diucapkan pada tempatnya dapat meredakan ketegangan. Kata-kata yang penuh cinta dapat menyembuhkan dan memberkahi.

10. Awal dari cinta adalah membiarkan orang yang kita cinta menjadi dirinya sendiri, dan tidak merubahnya menjadi gambaran yang kita inginkan. Jika tidak, kita hanya mencintai pantulan diri sendiri yang kita temukan di dalam dia.

11. Orang-orang yang paling berbahagia tidak selalu memiliki hal-hal terbaik, mereka hanya berusaha menjadikan yang terbaik dari setiap hal yang hadir dalam hidupnya.

12. Mungkin Tuhan menginginkan kita bertemu dengan beberapa orang yang salah sebelum bertemu dengan orang yang tepat, kita harus mengerti bagaimana berterima kasih atas karunia itu.

13. Hanya diperlukan waktu semenit untuk menaksir seseorang, sejam untuk menyukai seseorang dan sehari untuk mencintai seseorang tetapi diperlukan waktu seumur hidup untuk melupakan seseorang.

14. Kebahagiaan tersedia bagi mereka yang menangis, mereka yang disakiti hatinya, mereka yang mencari dan mereka yang mencoba. Karena hanya mereka itulah yang menghargai pentingnya orang-orang yang pernah hadir dalam hidup mereka.

15. Cinta adalah jika kamu kehilangan rasa, gairah, romantika dan masih tetap peduli padanya.

16. Hal yang menyedihkan dalam hidup adalah ketika kamu bertemu seseorang yang sangat berarti bagimu dan mendapati pada akhirnya bahwa tidak demikian adanya dan kamu harus melepaskannya.

17. Cinta dimulai dengan sebuah senyuman, bertumbuh dengan sebuah ciuman dan berakhir dengan tetesan air mata.

18. Cinta datang kepada mereka yang masih berharap sekalipun pernah dikecewakan, kepada mereka yang masih percaya sekalipun pernah dikhianati, kepada mereka yang masih mencintai sekalipun pernah disakiti hatinya.

19. Sungguh menyakitkan mencintai seseorang yang tidak mencintaimu, tetapi yang lebih menyakitkan adalah mencintai seseorang dan tidak pernah memiliki keberanian untuk mengutarakan cintamu kepadanya.

20. Masa depan yang cerah selalu tergantung kepada masa lalu yang dilupakan, kamu tidak dapat hidup terus dengan baik jika kamu tidak melupakan kegagalan dan sakit hati di masa lalu.

21. Jangan pernah mengucapkan selamat tinggal jika kamu masih mau mencoba, jangan pernah menyerah jika kamu masih merasa sanggup jangan pernah mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

22. Memberikan seluruh cintamu kepada seseorang bukanlah jaminan dia akan membalas cintamu! Jangan mengharapkan balasan cinta, tunggulah sampai cinta berkembang di hatinya, tetapi jika tidak, berbahagialah karena cinta tumbuh di hatimu.

23. Ada hal-hal yang sangat ingin kamu dengar tetapi tidak akan pernah kamu dengar dari orang yang kamu harapkan untuk mengatakannya. Namun demikian janganlah menulikan telinga untuk mendengar dari orang yang mengatakannya dengan sepenuh hati.

24. Waktu kamu lahir, kamu menangis dan orang-orang di sekelilingmu tersenyum – jalanilah hidupmu sehingga pada waktu kamu meninggal, kamu tersenyum dan orang-orang di sekelilingmu menangis.

Cara Mengganti Nama Facebook

Kita sering kali mengganti nama sesuai keinginan kita sehingga mencapai batas yang ditentukan Facebook dan ketika batas yang ditentukan tercapai, maka saat kita mengganti nama akan muncul pesan seperti di bawah ini :

“Batas Perubahan Nama Tercapai”

Maaf anda telah beberapa kali mengubah nama melebihi jumlah yang diperbolehkan dan nama anda tidak dapat diubah lagi. Untuk mencantumkan nama lain yang anda miliki, seperti nama gadis Anda, silahkan gunakan ruas Nama Alternatif di bawah.

Lalu bagaimana caranya agar kita bisa ganti nama???
Langkah-langkah:

1. Ubah dulu nama di pengaturan akun (nama-nama yang pernah kita pakai dulu) pilih salah satu.
2. klik http://www.facebook.com/hacked/ atau http://www.facebook.com/roadblock/roadblock_me.php?r=5
3. Klik amankan akun
4. masukkan kata sandi baru
5. ceklis konfirmasi penggantian
6. klik lanjutkan
7. tinjau informasi Akun Anda
8. Ubah nama anda
9. klik lanjutkan
10. aktifkan akun

Silahkan ganti nickname akun fb kamu yang baru. Untuk mengganti nama sepuasnya kamu tinggal ulangi langkah di atas.

quiz3

    Private Sub PEGAWAI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel( )
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("KABAG")
        JABATAN.Items.Add("STAFF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("TIDAK MENIKAH")
    End Sub
    Sub BuatTabel( )
        With LV( )
            .Columns.Add("NAMA", 100, HorizontalAlignment.Center)
            .Columns.Add("JABATAN", 120, HorizontalAlignment.Left)
            .Columns.Add("GAJI", 100, HorizontalAlignment.Left)
            .Columns.Add("STATUS", 100, HorizontalAlignment.Left)
            .Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
            .Columns.Add("TUNJANGAN ANAK", 120, HorizontalAlignment.Left)
            .Columns.Add("JAM", 80, HorizontalAlignment.Left)
            .Columns.Add("LEMBUR", 110, HorizontalAlignment.Left)
            .Columns.Add("TUNJANGAN ISTRI", 120, HorizontalAlignment.Left)
            .Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
            .Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub IsiTabel( )
        Dim Lst As New ListViewItem
        With Lst
            .Text = NAMA.Text
            .SubItems.Add(JABATAN.Text)
            .SubItems.Add(GAJI.Text)
            .SubItems.Add(STATUS.Text)
            .SubItems.Add(JLHANAK.Text)
            .SubItems.Add(TUNJANGANANAK.Text)
            .SubItems.Add(JAM.Text)
            .SubItems.Add(LEMBUR.Text)
            .SubItems.Add(TUNJANGANISTRI.Text)
            .SubItems.Add(PAJAK.Text)
            .SubItems.Add(TTLGAJI.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        If JABATAN.Text = "MANDOR" Then
            GAJI.Text = 175000
        ElseIf JABATAN.Text = "KABAG" Then
            GAJI.Text = 2500000
        ElseIf JABATAN.Text = "STAFF" Then
            GAJI.Text = 1250000
        Else
            GAJI.Text = " "
        End If
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        If STATUS.Text = "MENIKAH" Then
            TUNJANGANISTRI.Text = 9 * GAJI.Text / 100
            PAJAK.Text = 1.5 * GAJI.Text / 100
        ElseIf STATUS.Text = "TIDAK MENIKAH" Then
            TUNJANGANANAK.Text = 0
            TUNJANGANISTRI.Text = 0
            PAJAK.Text = 1.5 * GAJI.Text / 100
        Else
            STATUS.Text = " "
        End If
    End Sub
  
    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        If JABATAN.Text = "MANDOR" Then
            LEMBUR.Text = Val(JAM.Text) * 7500
        ElseIf JABATAN.Text = "KABAG" Then
            LEMBUR.Text = Val(JAM.Text) * 10000
        ElseIf JABATAN.Text = "STAFF" Then
            LEMBUR.Text = Val(JAM.Text) * 5000
        End If
    End Sub

    Private Sub JLANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JLHANAK.TextChanged
        If Val(JLHANAK.Text) = 1 Then
            TUNJANGANANAK.Text = 3 * GAJI.Text / 100
        ElseIf Val(JLHANAK.Text) >= 2 Then
            TUNJANGANANAK.Text = 7 * GAJI.Text / 100
        End If
    End Sub
    Sub PROSES( )
        TTLGAJI.Text = Val(GAJI.Text) + Val(TUNJANGANISTRI.Text) + Val(TUNJANGANANAK.Text) + Val(LEMBUR.Text) - Val(PAJAK.Text)
    End Sub
    Private Sub BTNTOTAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTOTAL.Click
        Call PROSES( )
    End Sub

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        IsiTabel( )
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        LV.Items.Clear( )
    End Sub

    Private Sub BTNDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDATA.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        NAMA.Text = ""
        JABATAN.Text = ""
        STATUS.Text = ""
        GAJI.Text = ""
        JLHANAK.Text = ""
        TUNJANGANANAK.Text = ""
        JAM.Text = ""
        LEMBUR.Text = ""
        TUNJANGANISTRI.Text = ""
        PAJAK.Text = ""
        TTLGAJI.Text = ""
    End Sub
End Class

quiz2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kodbrg.Items.Add("TS001")
        kodbrg.Items.Add("TS002")
        kodbrg.Items.Add("VG001")
        kodbrg.Items.Add("VG002")
    End Sub
    Sub BuatTabel()
        With LV
            .Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
            .Columns.Add("Kode Barang", 120, HorizontalAlignment.Left)
            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add("Harga", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
            .Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        With Lst
            .Text = pembelian.Text()
            .SubItems.Add(kodbrg.Text)
            .SubItems.Add(nmbrg.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jlhbeli.Text)
            .SubItems.Add(ttlhrg.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub kodbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodbrg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kodbrg.Text, 2)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-Gen"
        End Select
        x = Microsoft.VisualBasic.Right(kodbrg.Text, 3)
        Select Case x
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select
        If kodbrg.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kodbrg.Text = "TS002" Then
            harga.Text = 75000
        End If
        If kodbrg.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kodbrg.Text = "VG002" Then
            harga.Text = 60000
        End If

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btndata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        pembelian.Text = ""
        kodbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jlhbeli.Text = ""
        ttlhrg.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub


    Private Sub jlhbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhbeli.TextChanged
        ttlhrg.Text = Val(jlhbeli.Text) * Val(harga.Text)
    End Sub
End Class