Senin, 16 Desember 2013

Manfaat lidah buaya

Lidah Buaya yang dalam bahasa latin memiliki nama Aloe Vera merupakan tanaman yang sering di jumpai di daerah tropis yang memiliki bentuk daun tebal. Tanaman ini sebelumnya lebih dikenal sebagai tanaman liar, namun kini telah berubah dan lebih dikenal sebagai sebagai tanaman hias. Di Indonesia sendiri lidah buaya sangat mudah di jumpai.
lidah buaya Manfaat Lidah Buaya Untuk Kesehatan dan Obat
Lidah buaya kaya akan manfaat dan khasiat bagi kesehatan maupun obat. Tanaman ini mengandung berbagai zat yang sangat bermanfaat untuk kesehatan maupun sebagai obat seperti Mannans Asetat, Polymannans, Antrakuinon dan berbagai Lektinmembuat. Maka jangan heran jika saat ini lidah buaya banyak di budidayakan sebagai tamanam obat serta sebagai bahan kosmetik kecantikan.
Bukan itu saja, tanaman tropis yang satu ini juga memiliki kandungan 72 jenis zat bermanfaat dan 200 senyawa penting lain. Diantara zat yang dikandung adalah sebagai berikut:
  • Mengandung Enzim yang bisa mencegah peradangan.
  • Mengandung Enzim yang dapat membantu pencernaan.
  • Mengandung hampir semua jenis vitamin kecuali vitamin D.
  • Mengandung 20 jenis dari 22 jenis Asam Amino.
  • Mengandung Saponin, yaitu berupa zat anti microba.
  • Kaya akan mineral yang dibutuhkan oleh enzim.

Manfaat Lidah Buaya

  1. Sebagai Detoksifikasi: Ternyata lidah buaya bisa bermanfaat untuk menetralisir racun yang masuk kedalam tubuh. Caranya pun cukup mudah, yaitu dengan cara membuat jus Lidah buaya.
  2. Mengatasi Stress: Karena kaya akan vitamin dan mineral, lidah buaya yang di olah sebagi jus juga bisa membantu tubuh mengatasi stress.
  3. Meningkatkan Imunitas atau Kekebalan tubuh: Selain kaya akan vitamin juga kaya akan anti oksidan yang tentunya mampu meningkatkan imunitas dan daya tahan tubuh terhadap penyakit.
  4. Menurunkan kadar gula penderita Diabetes: Tanaman ini juga berfungsi sebagai penurun kadar gula bagi penderita diabetes. Caranya cupu mudah, dengan mengkonsumsi 1/2 sendok jus lidah buaya diminum secara rutin selama 14 hari ternyata terbukti mampu menurunkan kadar gula sebanyak 45% bagi mereka yang menderita Diabetes.
  5. Mengobati ganguan pencernaan: Bagi yang mengalai gangguan pencernaan seperti iritasi pada usus, tukak lamubung, dan perut terasa panas bisa mengobatinya dengan lidah buaya. Selain itu juga bisa menenangkan Esofagus serta mengatasi Refluks asam.
  6. Mengobati luka bakar: Pada daun lidah buaya ketika di belah terdapat getah yang menyerupai Gel. Getah atau Gel tersebut ternyata sudah dikenal lama dan telah dugunakan selama bertahun-tahun untuk mengobati luka bakar.
  7. Mengatasi luka lebam dan luka dalam: Selain luka bakar, tanaman Aloe Vera ini juga bisa dimanfaatkan untuk mengobati luka lebam akibat benturan dan juga luka dalam.
  8. Perawatan kulit: Seperti diketahui saat ini banyak produk kecantikan yang memanfaatkan tanaman ini. Ternyata memang sangat baik dalam menjaga kelembaban kulit, bisa untuk menghilangkan jerawat, menghilangkan bekas luka, detoksifikasi racun pada kulit, mengurangi peradangan dan iritasi kulit, serta mampu meperbaiki dan meremajakan kulit.
  9. Mengatasi ketombe, rambut rontok, dan kebotakan: Sudah bukan rahasia lagi, sejak dulu kala lidah buaya telah dikenal sebagai obat untuk mengatasi ketombe serta gatal pada kulit rambut. Selain itu juga bisa mencegah rambut rontok dan kebotakan. Caranya cukup mudah, yaitu dengan mengoleskan lidah buaya pada rambut dan kulit kepala sambil di pijat-pijat. Selanjutnya diamkan kurang lebih selama 40 – 60 menit barulah dibilas dan dikramas hingga bersih.
  10. Menjaga kesehatan mulut: Manfaat lainya yaitu untuk menjaga kesehatan mulut. Baik pula bagi yang mengalami gusi yang tidak sehat dan semakin memburuk.

FUNGSI DAN MANFAAT KOMPUTER BAGI KEHIDUPAN MANUSIA

 
Fungsi dan Peranan komputer bagi kehidupan manusia sangat penting, bahkan boleh dikatakan  sebahagian besar kegiatan manusia  bertunjangkan komputer. Bermula dari kegiatan pendidikan, kegiatan bisnes dan komersial, pemerintahan, dunia hiburan, dan kegiatan peribadi dan lain-lain.

Melihat 30 tahun kebelakang, fungsi dari sebuah komputer hanya terbatas untuk pemprosesan sederhana (penghitungan, perkalian, pembahagian, dan ekseskusi sederhana dan lain-lain). Namun kini fungsi komputer sudah semakin kompleks, mulai dari kepentingan hiburan, keperluan kantor, hingga untuk mengawal sesuatu. Perkembangan fungsi dari sebuah komputer pastinya karena didukung oleh perkembangan dari komputer itu sendiri dan juga perangkat-perangkat lain.

Bentuk dan ukurannya pun mengalami perkembangan yang cukup signifikan dan mengalami penyusutan dimensi yang drastik. Ukuran komputer pada awalnya bisa mencapai ruangan 5×5 meter, namun sekarang ukurannya hanya  25×25 centimeter.

Melihat dari fungsi dan manfaat sebuah komputer bagi kehidupan manusia, fungsi dan manfaat itu antaranya ialah:

1. Fungsi Komputasi

Fungsi ini merupakan fungsi awal dari komputer, untuk melakukan komputasi dan pemrosesan data. Fungsi ini lebih banyak digunakan pada aplikasi-aplikasi sistem informasi. Meskipun fungsi yang lain juga memerlukan proses komputasi, namun fungsi komputasi disini lebih ditekankan pada pemrosesan data-data.

.2. Fungsi Bisnes

Komputer sudah banyak dipakai untuk keperluan bisnes dan komersial. Fungsi ini diantaranya adalah untuk keperluan promosi produk (iklan). Untuk mempromosikan produk-produk dari pelaku bisnis, adanya dunia internet memperluas area promosi mereka hingga keluar negeri dengan pembiayaan yang lebih murah.

Untuk transaksi bisnes. Seperti jual beli online, semakin banyaknya web-web e-commerce memudahkan manusia untuk melakukan transaksi belanja melalui internet. Selain itu, hampir semua perusahaan sudah menggunakan komputer untuk kemudahan dalam berbisnes, seperti perusahaan travel yang telah menyediakan layanan reservasi tiket online, bank-bank menggunakan komputer untuk keperluan transaksi perbankan, dan sebagainya.

3. Fungsi Hiburan

Fungsi hiburan merupakan fungsi paling menonjol daripada komputer saat ini. Lain dengan komputer zaman dulu yang belum memiliki fungsi hiburan, namun saat ini komputer sudah tidak lepas dari fungsi hiburan. Fungsi Gaming digunakan bagi orang-orang yang senang bermain game, mulai dari game balap, advanture, ketangkasan. Apalagi dengan dukungan banyaknya jenis-jenis game yang beredar, serta dukungan game multiplayer online semakin menambah  kecanduan dan keinginan orang untuk bermain game.

Fungsi Entertainment, seperti untuk menonton film dan mendengar muzik.  Adanya perangkat tambahan seperti speaker aktif dan juga viewer lebih memanjakan para pengguna komputer untuk mendapatkan hiburan dengan menggunakan komputer. Bagi yang sudah memiliki koneksi ke internet, dapat juga mendengarkan lagu-lagu secara online dan juga boleh membelinya secara online. Banyak juga penyedia layanan menonton film secara online.

.4. Fungsi Pendidikan

Fungsi komputer pada dunia pendidikan saat ini sangatlah penting. Komputer dapat digunakan untuk keperluan belajar mengajar, seperti laptop yang digunakan guru untuk menyampaikan pengajaran dikelas. . Untuk keperluan praktikum, komputer juga sangat diperlukan. Program internet untuk sekolah yang sedang dilaksanakan pemerintah juga akan lebih menambah intensitas penggunaan komputer di instansi pendidikan. Para pelajar dan mahasiswa saat ini untuk mengerjakan tugas juga menggunakan komputer. Untuk melakukan penelitian, komputer dapat digunakan untuk pemrosesan data yang lebih cepat dan tepat.

.5. Fungsi Pemerintahan

Pemerintah sudah mulai menerapkan sistem E-Government, dimana setiap daerah, instansi pemerintah sudah memiliki sistem informasinya masing-masing, atau yang lebih dikenal dengan E-Government. Kini, penggunaan komputer sudah menjadi kewajiban bagi setiap komponen-komponen pemerintahan. Penerapan E-government ini tentunya untuk meningkatkan pelayanan terhadapa masyarakat. Seperti pembuatan KTP online, investasi bisnis yang lebih menjanjikan, komunikasi antara daerah lebih meningkat, dan lain sebagainya. Badan pemerintah telah melakukan komputerisasi untuk semua kegiatan mereka, pemantauan cuaca dan lainnya dapat dengan mudah dilakukan dengan penggunaan komputer.

.

Kesimpulannya, adalah, komputer dibuat sebagai alat yang memberikan kemudahan bagi manusia. Kemudahan dalam segala aspek kehidupan manusia. Komputer dibuat untuk memanjakan manusia. Saat ini, bagi yang tidak mau mengenal komputer, atau belum mengenal komputer, baik untuk penggunaannya serta manfaatnya, bagaikan hidup di jaman batu. Sebenarnya masih banyak lagi fungsi dan kegunaan komputer bagi kehidupan kita, namun yang paling banyak dan utama adalah seperti yang saya sebutkan diatas.

Minggu, 08 Desember 2013

Belajar Pemrograman VB.NET Tagihan Listrik

Contoh VB.NET sederhana
Gambar Form :



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
        buattabel()
    End Sub
    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles No.TextChanged
        Dim x As String
        No.Text = "1" & Microsoft.VisualBasic.Right(kode.Text, 2)
        x = Microsoft.VisualBasic.Mid(kode.Text, 4, 3)
        If x = "MED" Then
            Daerah.Text = "MEDAN"
            pjk.Text = 0.015
        ElseIf x = "BEL" Then
            Daerah.Text = "BELAWAN"
            pjk.Text = 0.015
        ElseIf x = "TEM" Then
            Daerah.Text = "AKSARA"
            pjk.Text = 0.015
        ElseIf x = "MAR" Then
            Daerah.Text = "MARENDAL"
            pjk.Text = 0.015
        ElseIf x = "BIN" Then
            Daerah.Text = "BINJAI"
            pjk.Text = 0.015
        ElseIf x = "PAK" Then
            Daerah.Text = "LUBUK PAKAM"
            pjk.Text = 0.015
        End If
        x = Microsoft.VisualBasic.Mid(kode.Text, 1, 3)
        If x = "TOK" Then
            Tipe.Text = "TOKO"
            harga.Text = "500"
            biaya.Text = "150000"
        ElseIf x = "RUM" Then
            Tipe.Text = "RUMAH"
            harga.Text = "200"
            biaya.Text = "50000"
        ElseIf x = "SWA" Then
            Tipe.Text = "SWALAYAN"
            harga.Text = "1500"
            biaya.Text = "400000"
        ElseIf x = "PAB" Then
            Tipe.Text = "PABRIK"
            biaya.Text = "1000000"
            harga.Text = "10000"
        End If

    End Sub


    Sub buattabel()
        Lv.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = tgl.Text
        lst.SubItems.Add(No.Text)
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(biaya.Text)
        lst.SubItems.Add(meterlalu.Text)
        lst.SubItems.Add(metersekarang.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(besar.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(tagihan.Text)
        lst.SubItems.Add(total.Text)
        Lv.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
        isitabel()
        kode.Text = ""
        Daerah.Text = ""
        biaya.Text = ""
        Tipe.Text = ""
        meterlalu.Text = ""
        harga.Text = ""
        total.Text = ""
        metersekarang.Text = ""
        No.Text = ""
        tagihan.Text = ""
        besar.Text = ""
        pjk.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
        kode.Text = ""
        Daerah.Text = ""
        biaya.Text = ""
        Tipe.Text = ""
        meterlalu.Text = ""
        harga.Text = ""
        total.Text = ""
        metersekarang.Text = ""
        No.Text = ""
        tagihan.Text = ""
        besar.Text = ""
        pjk.Text = ""

    End Sub

    Private Sub No_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles No.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Proses_Click(sender, e)
        End If

    End Sub



    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Proses.Click
        besar.Text = metersekarang.Text - meterlalu.Text
        tagihan.Text = biaya.Text + (harga.Text * besar.Text)
        total.Text = tagihan.Text * 0.015

    End Sub
End Class