Selasa, 28 Mei 2013

ISLAM AGAMAKU


(Astaghfirullah Rabbal Barooya Astaghfirullah Minal Khotoya)

Aku mohon ampun Pada Allah, Tuhan sekalian mahluk
Aku mohon ampun pada Allah atas segala dosa

Hidup di dunia sebentar saja
Sekedar mampir sekejap mata
Jangan terpersona, jangan terpedaya
Akhirat nanti tempat pulang kita
Akhirat nanti hidup sebenarnya

Barang siapa Allah tujuannya
Niscaya dunia akan melayaninya
Namun siapa dunia tujuannya
Niscaya kan letih dan pasti sengsara
Diperbudak dunia sampai akhir masa

Kasih sayang Allah Maha Mempesona
Betapapun menghianati-Nya
Tiada terputus curahan nikmat-Nya
Selalu dinanti kembali pada-Nya
Selalu dinanti bertaubat pada-Nya

Allah Melihat, Allah Mendengar
Segala sikap dan kata kita
Tiada nan luhur satupun jua
Allah takkan lupa selama-lamanya

Wahai sahabat cepatlah taubat
Karena ajal kian mendekat
Takutlah adzab yang mengerikan
Siksa jahanam sepanjang zaman

Allah pengampun penerima taubat
Walaupun dosa sepenuh jagat
Wahai sahabat cepatlah taubat
Karena ajal kian mendekat

"Mohonlah ampun kepada Tuhanmu, sesungguhnya Dia adalah Maha Pengampun, niscaya Dia akan mengirimkan hujan kepadamu dengan lebat, dan membanyakkan harta dan anak-anakmu, dan mengadakan untukmu kebun-kebun dan mengadakan (pula di dalamnya) untukmu sungai-sungai. Mengapa kamu tidak percaya akan kebesaran Allah?" (Q.S Nuh : 10-13)

Resep Klepon



Bahan:
250 gr tepung beras ketan
50 gr tepung beras putih
100 ml air daun suji
2 sdt air kapur sirih
100 gr gula merah, sisir
½ btr kelapa, kupas, parut
¼ sdt garam
1 liter air
Cara membuat:
1. Campur tepung beras ketan dan tepung beras putih, aduk rata. Sisihkan.
2. Campur air daun suji dan air kapur sirih
3. Tuangi tepung dengan campuran air daun suji, aduk dan uleni hingga menjadi adonan yang liat.
4. Ambil sedikit adonan, pipihkan, beri sedikit gula merah, rapatkan dan bentuk bulat menyerupai bola.
5. Masak air hingga mendidih, celupkan bola-bola kelepon, biarkan hingga matang dan mengapung. Angkat, langsung gulingkan dalam kelapa parut yang sudah dibubuhi garam.



Senin, 27 Mei 2013

15 Resep Alami Peluruh Kolesterol



Banyak tanaman yang secara turun temurun terbukti dapat menurunkan kadar kolesterol maupun trigliserida darah. Karena murah dan mudah didapat, tanaman ini banyak direkomendasikan.

Mengonsumsi tanaman obat, baik daun, biji, akar, maupun buahnya, tidak berarti makan tanaman itu sebanyak-banyaknya. Konsumsilah ramuan tersebut dengan komposisi dan dosis tertentu. Karenanya, cara membuat ramuan, komposisi, dosis, dan waktu pemakaian harus dipelajari dengan baik lagi benar.

Berikut beberapa resep peluruh kolesterol dan trigliserida yang diperoleh dari berbagai sumber :

1. Alpukat
Alpukat mengandung asam folat, asam pantotenat, niasin, vitamin B1, vitamin B6, vitamin C, vitamin E, fosfor, zat besi, kalium, magnesium, dan glutation, juga kaya akan serat dan asam lemak tak jenuh tunggal. Kandungan ini yang mampu menurunkan kadar trigliserida dan kolesterol darah.
Bahan: 1 buah alpukat matang
Cara Pemakaian: Buah alpukat dimakan mentah. Lakukan setiap hari.

2. Kubis
Kubis (brassica oleracea var. capitate) yang juga disebut kol, mengandung air, protein, lemak, karbohidrat, serat, kalsium, fosfor, tinamide, dan betakaroten. Kubis juga mengandung senyawa sianohidroksibutena (CHB), sulforafan, dan iberin yang merangsang pembentukan glutation.
Bahan: 1 buah kubis segar
Cara Pemakaian: Cuci kubis hingga bersih, lalu bilas dengan air matang. Potong-potong seperlunya, lalu dijus. Air sari kubis diminum sekaligus, lakukan setiap hari.

3. Belimbing manis
Apa rahasia buah ini sehingga bisa mengusir kolesterol? Ternyata seratnya yang tinggi mampu mencegah penyerapan lemak hingga dapat menurunkan kadar kolesterol dan mencegah tekanan darah tinggi. Serat yang tinggi juga memperlancar pencernaan. Sementara kandungan vitamin C-nya yang tinggi baik untuk antikanker.
Bahan: 2 buah belimbing manis ukuran besar
Cara Pemakaian: Buah belimbing dimakan setelah makan pagi dan malam, masing-masing 1 buah.

4. Akar manis
Tanaman yang memiliki nama asing licorice ini mengandung sejumlah zat seperti triterpenoid, flavanoid, asam ferulic, asam sinapic, biotin, asam amino dan beta-sitoserol. Yang perlu diperhatikan, jangan menggunakan akan manis dalam dosis besar jangka panjang. Ada laporan bahwa pemakaian akan manis dengan dosis 30-40 gram per hari selama 9 bulan menyebabkan kelemahan oto, hipertensi, edema dan kekurangan kalium.
Bahan: 10 gram akar manis
Cara Pemakaian: Akar manis direbus dengan 3 gelas air bersih hingga tersisa 1 gelas. Setelah dingin, airnya disaring, lalu dibagi menjadi 2 kali minum, pagi dan malam hari.

5. Kacang Tanah
Bahan: 1 genggam daun kacang tanah
Cara Pemakaian: Daun dicuci bersih, lalu diiris halus. Masukkan irisan daun ke dalam gelas, lalu diseduh dengan secangkir air panas. Biarkan selama 40 menit, lalu disaring. Minum airnya selagi hangat dan sewaktu perut kosong.

6. Tempe
Bahan: 100 gram tempe
Cara Pemakaian: Tempe dipotong-potong sesuai selera, lalu direbus, dikukus, atau dibacem. Tempe dijadikan lauk dan dimakan bersama nasi.

7. Angkak
Sering disebut beras merah Cina, tanakan adalah sejenis cendawan berwarna merah, bernama Latin Monascus purpureus. Angkak bisa digunakan untuk membuat arak merah yang terbuat dari beras, sebagai bahan pengawet makanan, dan untuk obat. Berdasarkan penelitian, angkak mampu menurunkan kadar kolesterol darah.
Bahan: 1 sendok teh angkak
Cara Pemakaian: Angkak ditumbuk halus, dimasukkan ke dalam cangkir, lalu diseduh dengan secangkir air panas. Minum airnya selagi hangat. Lakukan setiap hari.

8. Labu siam
Bahan: 1 buah labu siam ukuran sedang
Cara Pemakaian: Buah labu dikupas, potong kecil-kecil dan dijus atau diparut, peras airnya dan saring. Kumpulan airnya diminum sekaligus.

9. Sambiloto
Bahan: 20 gram herbal sambiloto kering
Cara Pemakaian: Direbus dengan 3 gelas hingga tersisa 1 gelas. Setelah dingin, air disaring, lalu diminum sekaligus. Lakukan setiap hari.

10. Jamur kuping putih
Bahan: 10 gram jamur kuping putih kering
Cara Pemakaian:Jamur putih dipotong-potong secukupnya, lalu direbus dengan 3 gelas air hingga tersisa 1 gelas. Tambahkan sedikit pemanis buatan. Setelah dingin, airnya diminum dan jamurnya boleh dimakan.

11. Bawang merah
Bawang merah (Cepae bulbus), mengandung senyawa flavonoid yang bekerja sebagai antioksidan dan menurunkan kadar kolesterol, trigliserida, dan gula darah. Bahan: 20 gram bawang merah segar
Cara Pemakaian: Bawang merah diiris tipis-tipis, dimakan bersama nasi. Lakukan 3 kali sehari dengan ukuran yang sama.

12. Bawang putih
Bawang putih (Allii bulbus), bahan aktifnya s-allyl cysteine, suatu komponen thioallyl yang mempunyai khasiat hipolipidemik dan antitrombotik. Studi di Munich University, Jerman, menemukan bahwa menambahkan bawang putih ke dalam diet akan menurunkan kolesterol jahat sekitar 10 persen dalam empat bulan. Mengonsumsi bawang putih segar sering jadi masalah bagi banyak orang karena rasa yang tidak enak dan aromanya menyengat.
Bahan: 1-2 siung bawang putih
Cara Pemakaian: Bawang putih diiris tipis-tipis atau dipipiskan dan dibuat bulatan kecil, lalu ditelan. Lakukan 2 kali sehari. Namun ada cara lain supaya lebih mudah masuk ke tubuh kita. Bawang putih bisa dikreasikan dengan buah-buahan yang enak, menjadi jus kaya manfaat.

13. Kunyit
Dengan nama latin Curcumae domesticae rhizoma, tumbuhan ini juga berkhasiat melancarkan darah dan energi vital, menghilangkan sumbatan, sebagai peluruh kentut dan haid, mempermudah persalinan, antibakteri, antiinflamasi, serta memperlancar pengeluaran empedu ke usus.
Bahan: 10 gram rimpang kunyit segar
Cara Pemakaian: Rimpang kunyit dibersihkan, lalu diiris tipis-tipis. Rebus dalam air 2 gelas hingga tersisa 1 gelas. Setelah dingin, air disaring dan diminum sekaligus. Lakukan hal ini 3 kali sehari, selama 12 minggu.

14. Temulawak
Tanaman bernama latin Curcumae rhizoma ini mempunyai aktivitas kolagoga (memperlancar pengeluaran empedu ke usus).
Bahan: 3 jari rimpang temulawak segar
Cara Pemakaian : Rimpang temulawak dikupas kulitnya, lalu diparut. Tambahkan 1/2 cangkir air panas dan biarkan mengendap. Setelah dingin, endapannya dibuang dan airnya diminum. Lakukan setiap hari.

15. Seledri
Seledri (Apii graveolentis radix), akarnya mengandung asparagin, pentosan, glutamin, tirosin, manit, zat pati, lendir, dan minyak atsiri. Khasiatnya memacu enzim pencernaan dan peluruh kencing.
Bahan: 30 gram akar seledri segar
Cara Pemakaian: Akar seledri dicuci bersih, lalu direbus dengan 2 gelas air bersih hingga tersisa 1 gelas. Setelah dingin, air disaring lalu minum sekaligus. 15 Resep Alami Peluruh Kolesterol

Minggu, 19 Mei 2013

Lirik Lagu Maroon 5 - One More Night_Chantika Al Fitrah Sianturi





Judul Lagu : One More Night
Penyanyi : Maroon 5

You and Igo hard at each other like we're going to war.
You and I go through, we keep throwing things and slamming the door.
You and I get so damn dysfunctional, we stopped keeping score.
You and I get sick, yeah. I know that we can't do this no more.

But baby there you go again, there you go again, making me love you.
Yeah. I stopped using my head, using my head, let it all go.
Got you stuck on my body, on my body, like a tattoo.
And now I'm feeling stupid, feeling stupid, crawling back to you.

So I cross my heart and I hope to die.
That I'll only stay with you one more night.
And I know I said it a million times.
But I'll only stay with you one more night.

Trying to tell you 'no' but my body keeps on telling you 'yes'.
Trying to tell you to stop, but your lipstick got me so out of breath.
I'd be waking up in the morning, probably hating myself.
And I'd be waking up, feeling satisfied but guilty as hell.

But baby there you go again, there you go again, making me love you.
Yeah, I stopped using my head, using my head, let it all go.
Got you stuck on my body, on my body, like a tattoo.
And now I'm feeling stupid, feeling stupid, crawling back to you.

So I cross my heart and I hope to die.
That I'll only stay with you one more night.
And I know I said it a million times.
But I'll only stay with you one more night.

Yeah, baby give me one more night [3x]

But baby there you go again, there you go again, making me love you.
Yeah, I stopped using my head, using my head, let it all go.
Got you stuck on my body, on my body, like a tattoo.
Yeah...Yeah...Yeah...Yeah...

So I cross my heart and I hope to die.
That I'll only stay with you one more night.
And I know I said it a million times.
But I'll only stay with you one more night.
(Yeah, baby give me one more night)

So I cross my heart and I hope to die. (Yeah)
That I'll only stay with you one more night. (Yeah)
And I know I said it a million times. (Yeah)
But I'll only stay with you one more night. (Yeah)

Kamis, 16 Mei 2013

Lihat Tugas Pemrograman Pak Mesran

Listview Cantika Al Fitrah Sianturi



CODING PROGRAM

Public Class Form1
    Sub buatTabel()
        LV.Columns.Add("NIK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("JABATAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI POKOK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("STATUS", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJANGAN keluarga", 150, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL GAJI", 150, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = NIK.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(tunjangankeluarga.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(totalgaji.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buatTabel()
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "Mandor" : gaji.Text = 17500000
            Case "Kepala Bagian" : gaji.Text = 2500000
            Case "Staff" : gaji.Text = 1250000

        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "001" : nama.Text = "Cantika Al Fitrah Sianturi"
            Case "002" : nama.Text = "Omega"
            Case "003" : nama.Text = "Nova"

        End Select
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Select Case status.Text
            Case "Menikah" : tunjangankeluarga.Text = 0.15 * gaji.Text
            Case "Tidak Menikah" : tunjangankeluarga.Text = 0
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        totalgaji.Text = Val(gaji.Text) + Val(tunjangankeluarga.Text) - Val(pajak.Text)
    End Sub

    Private Sub btnsimpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpn.Click
        IsiTabel()
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangankeluarga.Text = ""
        pajak.Text = ""
        totalgaji.Text = ""
    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 btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class