Sabtu, 30 November 2013

Cara Alami Untuk Mencegah Kanker

Kanker merupakan penyakit yang sangat berbahaya dan sering menghantui banyak orang.Tapi seseorang yang terkena kanker tidak berarti mereka akan divonis mati. Karena dalam beberapa kasus banyak pasien yang bisa disembuhkan.

Makanan yang mengandung antioksidan dipercaya dapat melawan kanker. Dan Antioksidan tersebut bisa didapat dari teh hijau, bawah putih, paprika, dan ikan. Selain  itu gaya hidup menghindari radiasi berbahaya juga diyakini merupakan cara yang aman dari kanker.

1. Mengurangi Asupan Gula
Perlu sobat ketahui bahwa, sel kanker itu ada didalam tubuh setiap orang dan sel-sel kanker tersebut membutuhkan gula untuk tumbuh. Oleh karena itu Sobat perlu mengurangi asupan yang manis-manis dan juga bertepung seperti kentang, nasi dan juga gula.

2. Menghentikan kebiasaan merokok
Perokok sangat beresiko sekali terkena kanker, kalau sobat merokok coba lihat dalam kemasan sudah diberi peringatan bahwa rokok dapat menyebabkan impotensi dan kanker. Hal ini dikarenakan rokok menyebabkan sebagian tubuh teracuni. Makanya bagi perokok kanker dapat menyerang tak hanya satu bagian tubuh saja misalnya paru-paru, tenggorokan dan juga mulut.

3. Mengonsumsi Teh Hijau
Dari berbagai penelitian menunjukkan bahwa teh hijau dapat memangkas resiko kanker jika dikonsumsi dengan teratur. Hal ini dikarenakan teh hijau memiliki antioksidan yang melawan kanker. Tapi ketika sobat meminum teh hijau ini pastikan Sobat tidak menambahkan gula atau susu di dalamnya.

4. Membatasi Mengonsumsi atau bahkan menghindari Alkohol
Penyalahgunaan alkohol bisa meningkatkan resiko terkena kanker, apalagi untuk wanita. Bagi wanita yang sering mengonsumsi alkohol maka akan lebih rentan terkena kanker payudara. Ok.. mulai sekarang hindari alkohol

5. Mengonsumsi Sayuran Hijau Organik
Sayuran Organik memang sangat baik untuk dikonsumsi salah satunya adalah agar terhindar dari penyakit kanker. Hal ini karena Sayuran hijau organik tidak mengandung pestisida sehingga mampu membantu melawan kanker. Makanya mulai sekarang cobalah untuk mengonsumsi sayuran hijau organik.

6. Mengurangi Daging Merah
 Daging merah ternyata dapat memacu kanker usus. karena daging merah mengandung lemak jenuh dan juga kolesterol jahat.

7. Makan Ikan
Untuk melawan kanker ikan sangat bagus karena mengandung asam lemak omega-3 yang sangat berperan untuk melindungi dari pertumbuhan sel kanker. Tapi jangan memasak ikan terlalu matang karena dapat mengakibatkan nutrisi yang dikandungnya menjadi hilang.

8. Makan Paprika
Paprika merah dan juga kuning kaya akan lykopene yang dapat membantu mencegah kanker. Makanya paprika sangat dianjurkan untuk dikonsumsi bagi mereka yang memiliki resiko kanker atau pasien kanker.

9. Bergerak dan Berkeringat
Dengan bergerak dan berkeringat mampu membantu menghilangkan racun dari dalam tubuh. Makanya untuk mendapatkan keringat sehat Sobat harus berolahraga secara teratur. Gak usaha olahraga yang berat cukup berjalan atau berlari di atas treadmill secara teratur saja sudah cukup.

10. Makan Bawang putih
Makan bawang putih sangat bermanfaat sekali karena bawang putih mampu melawan kanker sekaligus mampu meningkatkan ketebalan tubuh.

11.Minum Air
Dengan minum Air maka bisa membantu mengeluarkan racun di dalam tubuh. Dengan meminum air secara cukup setiap harinya maka Sobat dapat membersihkan sitem tubuh. Jika sobat tidak ada masalah dengan ginjal minumlah air yang banyak setiap harinya.

12. Gunakan Plastik yang berkualitas
Plastik berdampak buruk terhadap penyakit kanker apalagi plastik tersebut berkualitas rendah atau buruk karena dapat mengalami degenerasi seiring berjalannya waktu. Untuk itu mulai sekarang pilihlah plastik dengan kualitas bagus atau kalau mungkin gunakan wadah selain plastik.

13. Memakai Masker
Sekarang polusi udara sangat berbahaya untuk kesehatan. Bahkan beberapa kota besar polusi udaranya memiliki level yang sama bahanya dengan asap rokok. Untuk itu pakailah masker untuk menutupi hidung dan mulut sehingga sobat bisa terhindar dari racun yang menyebar melalui udara.

Kamis, 07 November 2013

Bahasa pemrograman Visual Basic


Langkah-langkahnya :
1. Buka program VB (Visual basic)
2. klik create:project
3.ubah project dengan nama anda
4. Maka setelah itu akan muncul form1 pada project kita
5. Desain form1 tersebut dengan Label, TextBox, Combobox, Button


6. Listing program

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110677")
        NPM.Items.Add("12110678")
        NPM.Items.Add("12110679")
        NPM.Items.Add("12110680")
        kode_dosen.Items.Add("0711320")
        kode_dosen.Items.Add("0711321")
        kode_dosen.Items.Add("0711322")
        kode_dosen.Items.Add("0711323")
        kode_matakuliah.Items.Add("KBTI4302")
        kode_matakuliah.Items.Add("KBTI4305")
        kode_matakuliah.Items.Add("KBTI4301")
        kode_matakuliah.Items.Add("KBTI4303")

        Dim i As Integer
        For i = 1 To 100
            nilai_kehadiran.Items.Add(i)
            nilai_tugas.Items.Add(i)
            nilai_uts.Items.Add(i)
            nilai_uas.Items.Add(i)
        Next i
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110677"
                NAMA.Text = "Evi rida Maha"
            Case "12110678"
                NAMA.Text = "Nurvarida"
            Case "12110679"
                NAMA.Text = "Ade Fitriani"
            Case "12110680"
                NAMA.Text = "Nurainun"

        End Select
        Jenjang.Text = "S1"
        Jurusan.Text = "Teknik Informatika"
    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select kode_dosen.Text
            Case "0711320"
                nama_dosen.Text = "Sony Bahagia S.Kom"
            Case "0711321"
                nama_dosen.Text = "Mesran,M.kom"
            Case "0711322"
                nama_dosen.Text = "piliphus tarigan S.T M.kom"
            Case "0711323"
                nama_dosen.Text = "Tonny Limbong S.kom M.kom"

        End Select
    End Sub
    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "KBTI4302"
                mata_kuliah.Text = "Komunikasi Data"
            Case "KBTI4305"
                mata_kuliah.Text = "Pemograman Visual"
            Case "KBTI4301"
                mata_kuliah.Text = "Arsitektur dan organisasi komputer"
            Case "KBTI4303"
                mata_kuliah.Text = "Sistem Basis Data"
        End Select
    End Sub

   
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nilai_akhir.Text = nilai_kehadiran.Text * 0.15 + nilai_tugas.Text * 0.25 + nilai_uts.Text * 0.35 + nilai_uas.Text * 0.45
        If nilai_akhir.Text >= 80 Then
            nilai_huruf.Text = "A"
            keterangan.Text = "LULUS"
        ElseIf nilai_akhir.Text >= 70 Then
            nilai_huruf.Text = "B"
            keterangan.Text = "LULUS"
        ElseIf nilai_akhir.Text >= 60 Then
            nilai_huruf.Text = "C"
            keterangan.Text = "LULUS"
        ElseIf nilai_akhir.Text >= 50 Then
            nilai_huruf.Text = "D"
            keterangan.Text = "GAGAL"
        Else
            nilai_huruf.Text = "E"
            keterangan.Text = "GAGAL"
        End If


    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        NAMA.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_kehadiran.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class
7. Setelah dijalankan :



silahkan di coba ya teman :)

Sabtu, 02 November 2013

TENTANG AKU & KAMU, KAWAN


Kawan,
Taukah kamu berapa lama masa yang kita lewati bersama??
Aku tak ingin tau,
Karna kamu selamanya bagiku.....
Bersamamu,
Tangisku kan terurai menjadi tawa
Dukaku kan terpecah menjadi bahagia
Dan airmata yang terlanjur jatuh....
Takan berubah menjadi nestapa
Denganmu,kepenatanku tergilas sirna

Terkadang disatu waktu,
Prasangka pernah menjauhkanmu dariku
Tapi sungguh kawan,
Amarah takkan bisa bertahan lama dikalbuku
Kusadari aku terikat jauh kedalam hatimu

Ingatkah kawan,
Kita pernah duduk bersama
Melukis langit dengan impian
Tentang aku , kamu dan kehidupan......


Sejarah Perkembangan Kalkulus


Sejarah perkembangan kalkulus bisa ditilik pada beberapa periode zaman, yaitu zaman kuno, zaman pertengahan, dan zaman modern. Pada periode zaman kuno, beberapa pemikiran tentang kalkulus integral telah muncul, tetapi tidak dikembangkan dengan baik dan sistematis. Perhitungan volume dan luas yang merupakan fungsi utama dari kalkulus integral bisa ditelusuri kembali pada Papirus Moskwa Mesir (c. 1800 SM). Pada papirus tersebut, orang Mesir telah mampu menghitung volume piramida terpancung.Archimedes mengembangkan pemikiran ini lebih jauh dan menciptakan heuristik yang menyerupai kalkulus integral.
Pada zaman pertengahan, matematikawan India, Aryabhata, menggunakan konsep kecil tak terhingga pada tahun 499 dan mengekspresikan masalah astronomi dalam bentuk persamaan diferensial dasar.]Persamaan ini kemudian mengantar Bhāskara II pada abad ke-12 untuk mengembangkan bentuk awal turunan yang mewakili perubahan yang sangat kecil takterhingga dan menjelaskan bentuk awal dari "Teorema Rolle".Sekitar tahun 1000, matematikawan Irak Ibn al-Haytham (Alhazen) menjadi orang pertama yang menurunkan rumus perhitungan hasil jumlah pangkat empat, dan dengan menggunakan induksi matematika, dia mengembangkan suatu metode untuk menurunkan rumus umum dari hasil pangkat integral yang sangat penting terhadap perkembangan kalkulus integral.Pada abad ke-12, seorang Persia Sharaf al-Din al-Tusi menemukan turunan dari fungsi kubik, sebuah hasil yang penting dalam kalkulus diferensial.Pada abad ke-14, Madhava, bersama dengan matematikawan-astronom dari mazhab astronomi dan matematika Kerala, menjelaskan kasus khusus dari deret Taylor, yang dituliskan dalam teks Yuktibhasa.
Pada zaman modern, penemuan independen terjadi pada awal abad ke-17 di Jepang oleh matematikawan seperti Seki Kowa. Di Eropa, beberapa matematikawan seperti John Wallis dan Isaac Barrow memberikan terobosan dalam kalkulus. James Gregory membuktikan sebuah kasus khusus dari teorema dasar kalkulus pada tahun 1668.
Gottfried Wilhelm Leibniz pada awalnya dituduh menjiplak dari hasil kerja Sir Isaac Newton yang tidak dipublikasikan, namun sekarang dianggap sebagai kontributor kalkulus yang hasil kerjanya dilakukan secara terpisah.Leibniz dan Newton mendorong pemikiran-pemikiran ini bersama sebagai sebuah kesatuan dan kedua orang ilmuwan tersebut dianggap sebagai penemu kalkulus secara terpisah dalam waktu yang hampir bersamaan. Newton mengaplikasikan kalkulus secara umum ke bidang fisika sementara Leibniz mengembangkan notasi-notasi kalkulus yang banyak digunakan sekarang.
Ketika Newton dan Leibniz mempublikasikan hasil mereka untuk pertama kali, timbul kontroversi di antara matematikawan tentang mana yang lebih pantas untuk menerima penghargaan terhadap kerja mereka. Newton menurunkan hasil kerjanya terlebih dahulu, tetapi Leibniz yang pertama kali mempublikasikannya. Newton menuduh Leibniz mencuri pemikirannya dari catatan-catatan yang tidak dipublikasikan, yang sering dipinjamkan Newton kepada beberapa anggota dari Royal Society.
Pemeriksaan secara terperinci menunjukkan bahwa keduanya bekerja secara terpisah, dengan Leibniz memulai dari integral dan Newton dari turunan. Sekarang, baik Newton dan Leibniz diberikan penghargaan dalam mengembangkan kalkulus secara terpisah. Adalah Leibniz yang memberikan nama kepada ilmu cabang matematika ini sebagai kalkulus, sedangkan Newton menamakannya "The science of fluxions".
Sejak itu, banyak matematikawan yang memberikan kontribusi terhadap pengembangan lebih lanjut dari kalkulus.Kalkulus menjadi topik yang sangat umum di SMA dan universitas zaman modern. Matematikawan seluruh dunia terus memberikan kontribusi terhadap perkembangan kalkulus.
Pengaruh penting
Walau beberapa konsep kalkulus telah dikembangkan terlebih dahulu di Mesir, Yunani, Tiongkok, India, Iraq, Persia, dan Jepang, penggunaaan kalkulus modern dimulai di Eropa pada abad ke-17 sewaktu Isaac Newton dan Gottfried Wilhelm Leibniz mengembangkan prinsip dasar kalkulus. Hasil kerja mereka kemudian memberikan pengaruh yang kuat terhadap perkembangan fisika.
Aplikasi kalkulus diferensial meliputi perhitungan kecepatan dan percepatan, kemiringan suatu kurva, dan optimalisasi. Aplikasi dari kalkulus integral meliputi perhitungan luas, volume, panjang busur, pusat massa, kerja, dan tekanan. Aplikasi lebih jauh meliputi deret pangkat dan deret Fourier.
Kalkulus juga digunakan untuk mendapatkan pemahaman yang lebih rinci mengenai ruang, waktu, dan gerak. Selama berabad-abad, para matematikawan dan filsuf berusaha memecahkan paradoks yang meliputi pembagian bilangan dengan nol ataupun jumlah dari deret takterhingga. Seorang filsuf Yunani kuno memberikan beberapa contoh terkenal seperti paradoks Zeno. Kalkulus memberikan solusi, terutama di bidang limit dan deret takterhingga, yang kemudian berhasil memecahkan paradoks tersebut.

Jumat, 01 November 2013

Resep Bolu Tape Keju



 

Bahan :
- 300 gram tape singkong, buang serat / tulang tengahnya, haluskan
- 225 gram tepung terigu
- 225 gram  gula pasir
- 125 gram mentega, cairkan
- 100 ml santan kental
- 6 butir telur
- 1 sendok teh baking powder
- Keju untuk taburan

Cara Membuat :
  • Panaskan oven dan siapkan loyang yang telah diolesi margarin dan dialasi kertas roti terlebih dahulu.
  • Campur tape singkong yang telah dihaluskan dengan santan kental, kemudian sisihkan.
  • Kocok telur dan gula pasir hingga mengembang. Setelah itu masukkan tepung terigu yang telah dicampur dengan baking powder sambil diayak, lalu aduk rata dengan spatula.
  • Masukkan campuran tape sedikit demi sedikit ke dalam adonan, lalu aduk hingga rata. Kemudian masukkan mentega cair ke dalam adona perlahan-lahan ke dalam adonan, aduk rata.
  • Tuang ke dalam loyang dan beri taburan keju diatasnya.
  • Oven selama kurang lebih 45 menit atau hingga matang.
  • Setelah itu dinginkan dan potong sesuai selera.
  • Kue bolu tape keju siap untuk dihidangkan.