pemograman citra

Pada artikel kali saya akan membuat program pengolahan citra . Adapun  program yang akan dirancang yaitu menggunakan Visual Basic.Net 2008.

 Untuk memulai mengolah gambar atau disebut dengan citra, lakukan langkah dibawah ini:
1. Jalankan Aplikasi Visual Basic.Net 2008
2. Setelah Buat Nama program yang akan dibuat.  
3. Klik OK
4. Silahkan design form program vb untuk mengolah citra seperti bentuk di bawah ini.

berikut ini adalah program listingnya;

Public Class Form1
    Dim gambar2 As Bitmap

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox2.Image = PictureBox1.Image
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox1.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                rt = (vm + vh + vb) / 3
                gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub HIJAU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HIJAU.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G - 10
                vb = gambar2.GetPixel(pc, pb).B
                If vh <= 0 Then vh = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()


        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G + 10
                vb = gambar2.GetPixel(pc, pb).B
                If vh >= 255 Then vh = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R - 10
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                If vm <= 0 Then vm = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R + 10
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                If vm >= 255 Then vm = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox1.Image)
        Dim gambar3 As Bitmap = New Bitmap(PictureBox1.Image)
        For fb = gambar2.Height - 1 To 0 Step -1
            For pc = gambar2.Width - 1 To 0 Step -1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                gambar3.SetPixel(gambar2.Width - 1 - pc, gambar2.Height - 1 - pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar3
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R + 5
                vh = gambar2.GetPixel(pc, pb).G + 5
                vb = gambar2.GetPixel(pc, pb).B + 5
                If vm >= 255 Then vm = 255
                If vb >= 255 Then vb = 255
                If vh >= 255 Then vh = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R - 5
                vh = gambar2.GetPixel(pc, pb).G - 5
                vb = gambar2.GetPixel(pc, pb).B - 5
                If vm <= 0 Then vm = 0
                If vb <= 0 Then vb = 0
                If vh <= 0 Then vh = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = 255 - gambar2.GetPixel(pc, pb).R
                vh = 255 - gambar2.GetPixel(pc, pb).G
                vb = 255 - gambar2.GetPixel(pc, pb).B
                If vm <= 0 Then vm = 0
                If vb <= 0 Then vb = 0
                If vh <= 0 Then vh = 0

                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = 255 - gambar2.GetPixel(pc, pb).R
                vh = 255 - gambar2.GetPixel(pc, pb).G
                vb = 255 - gambar2.GetPixel(pc, pb).B
                If vm >= 255 Then vm = 0
                If vb >= 255 Then vb = 0
                If vh >= 255 Then vh = 0

                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B + 10
                If vb >= 255 Then vb = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub
End Class


setelah program listingnya di buat, silahkan jalankan programnya atau tekan F5
maka hasilnya seperti ini;

Setelah program dijalankan kita bisa merubah warnanya sesuai keinginan kita.

Silahkan mencoba

QUIS Listview Perhitungan Penjualan Barang

 
Public Class Form1

   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        K_barang.Items.Add("TS001")
        K_barang.Items.Add("TS002")
        K_barang.Items.Add("VG001")
        K_barang.Items.Add("VG002")
        N_pembelian.Focus()
    End Sub
    Sub RancangTabel()
        Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        Lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub
    Sub hapus()
        N_pembelian.text = ""
        K_barang.text = ""
        N_barang.text = ""
        Merk.text = ""
        Harga.text = ""
        J_beli.text = ""
        T_harga.text = ""
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = N_pembelian.Text
        Lst.SubItems.Add(K_barang.Text)
        Lst.SubItems.Add(N_barang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(J_beli.Text)
        Lst.SubItems.Add(T_harga.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub K_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(K_barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            Merk.Text = "V-GEN"
        End If

        Dim y As String
        y = Microsoft.VisualBasic.Mid(K_barang.Text, 3)
        If y = "001" Then
            N_barang.Text = "FLASHDISK 4GB"
        ElseIf y = "002" Then
            N_barang.Text = "FLASHDISK 2GB"
        End If

        Dim z As String
        z = Microsoft.VisualBasic.Left(K_barang.Text, 5)
        If z = "TS001" Then
            Harga.Text = "105000"
        ElseIf z = "TS002" Then
            Harga.Text = "75000"
        ElseIf z = "VG001" Then
            Harga.Text = "90000"
        ElseIf z = "VG002" Then
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub J_beli_Keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles J_beli.KeyPress
        If e.KeyChar = Chr(13) Then
            T_harga.Text = Val(Harga.Text) * J_beli.Text
        End If
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        RancangTabel()
        IsiTabel()
        N_pembelian.Focus()
    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        N_pembelian.Text = ""
        K_barang.Text = ""
        N_barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        J_beli.Text = ""
        T_harga.Text = ""
    End Sub

    Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.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
End Class

program VB.Net

 mencari nilai mahasiswa menggunakan VB.Net


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("13111000")
        npm.Items.Add("13111011")
        npm.Items.Add("13112011")
        For x = 1 To 3
            kode_dosen.Items.Add("KD0" & x)
        Next
        For x = 11 To 13
            kode_matkul.Items.Add("KM" & x)
        Next
        Dim i As Integer
        For i = 0 To 100 Step +5
            nilai_tugas.Items.Add(i)
            nilai_uts.Items.Add(i)
            nilai_uas.Items.Add(i)
        Next i
        Dim j As Integer
        For j = 0 To 100
            nilai_hadir.Items.Add(j)
        Next j

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Right(npm.Text, 1)
        If x = "0" Then
            jenjang.Text = "S1"
        ElseIf x = "1" Then
            jenjang.Text = "D3"
        Else
            jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
        If x = "10" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "11" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "12" Then
            jurusan.Text = "Manajemen"
        Else
            jurusan.Text = "-"
        End If
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Doni M"
            Case "13111011"
                nama.Text = "Hendra S"
            Case "13112011"
                nama.Text = "Atika"
            Case Else
                nama.Text = "-"
        End Select

    End Sub

    Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged

        Dim y As String
        y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
        If y = "11" Then
            nama_matkul.Text = "Pemograman Visual"
        ElseIf y = "12" Then
            nama_matkul.Text = "Arsitektur Informasi"
        ElseIf y = "13" Then
            nama_matkul.Text = "Struktur Data"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        Dim z As String
        z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
        If z = "01" Then
            nama_dosen.Text = "Mesran S.Kom, M.Kom"
        ElseIf z = "02" Then
            nama_dosen.Text = "Sony Bahagia S.Kom"
        ElseIf z = "03" Then
            nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
        End If

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        nilai_akhir.Text = 0.1 * nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
        If nilai_akhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
        Select Case nilai_akhir.Text
            Case Is >= 80
                nilai_hurf.Text = "A"
            Case 70 To 79
                nilai_hurf.Text = "B"
            Case 60 To 69
                nilai_hurf.Text = "C"
            Case 50 To 59
                nilai_hurf.Text = "D"
            Case Is <= 49
                nilai_hurf.Text = "E"
        End Select

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matkul.Text = ""
        nama_matkul.Text = ""
        nilai_hadir.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_hurf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        Me.Close()

    End Sub

End Class




Hasil Programnya adalah :

Manfaat Daun sirih

manfaat dan Khasiat Daun Sirih Merah Untuk Pengobatan Dan Kesehatan, Diantaranya: Keputihan, Pengobatan Jerawat Pada muka / wajah, Dan kesehatan tubuh

Manfaat Daun Sirih Sebagai Obat Keputihan

Manfaat daun sirih sebagai obat keputihan pernah diuji secara klinis. ini diungkapkan oleh Amir Syarif dari Bagian Farmakologi Universitas Indonesia. Ia mengatakan bahwa daun sirih punya khasiat yang lebih bermakna dibandingkan dengan plasebo. Pengujian melibatkan 40 pasien penderita keputihan yang tidak sedang hamil, menderita diabetes melitus, ataupun penyakit hati dan ginjal. 20 di antaranya mendapatkan daun sirih, sedang sisanya diberi plasebo. Baik daun sirih maupun plasebo itu diberikan pada vagina sebelum pasien tidur selama tujuh hari. Dari 40 pasien tersebut, 22 orang mendapat pemeriksaan ulang, masing-masing 11 mendapat plasebo dan daun sirih. Hasil pengujian ini membuktikan sekitar 90,9 persen pasien yang mendapat daun sirih dinyatakan sembuh, sedangkan pada kelompok yang diberi plasebo hanya 54,5 persen saja.

Itulah manfaat daun sirih sebagai obat keputihan. Tetapi, dalam mengolah daun sirih ini perlu ketelitian dan harus di buat secara steril supaya khasiatnya tidak berkurang. Untuk itu, disini kami hadirkan solusi lainnya yang tentu saja khasiat dan keampuhannya sudah terbukti baik secara klinis maupun nyata. Apa solusinya ? Solusinya hanya dengan Obat Ace Maxs yang terbuat dari daun sirsak dan kulit manggis.
Khasiat Ace Maxs sebagai Obat Keputihan

Apa itu Ace Maxs ? bisa anda lihat dengan cara klik Ace Maxs. Kini anda tidak perlu repot Manfaat Daun Sirih Sebagai Obat Keputihanrepot meraciknya sendiri , karena sekarang sudah hadir obat Ace Maxs yang mampu mengobati keputihan secara alami, aman tanpa efek samping. Ace Maxs sebagai obat keputihan telah terdaftar secara resmi di DEPKES RI P-IRT No. 113317506253. Khasiat ace maxs dalam mengobati keputihan adalah sebagai berikut :

“Berdasarkan penelitian, di dalam kulit buah manggis terkandungxanthone yang berfungsi sebagai antioksidan, antiinflamasi dan penangkal radika bebas. Antioksidan yang terkandung di kulit buah manggis ini dapat mencegah pembengkakan dan memperbaiki komunikasi antar sel-sel tubuh untuk melawan serangan dan perkembangan bibit penyakit (bakteri atau virus), serta mempercepat penyembuhan dan pemulihan. Dalam paparannya, Prof. Sidik menjelaskan aspek farmakologis dari tanaman manggis yang diperoleh dari sejumlah penelitian. Kulit buah manggis diketahui mempunyai daya antimikroba terhadap beberapa jenis bakteri. “Kulit buah manggis juga bersifat antijamur,” ujarnya. Aktivitas antijamur hasil isolasi beberapa xanthone (salah satu jenis zat warna pada manggis) yang berasal dari kulit buah manggis dan beberapa derivat mangostin terhadap jamur Fusarium oxysporum f. sp. Vasinfectum, Alternaria tenuis, dan Drechela oryzae dapat menghambat pertumbuhan semua jamur tersebut.

Sedangkan daun sirsak memiliki kandungan seperti annocatacin, annocatalin, annohexocin, annonacin, annomuricin, anomurine, anonol, caclourine, gentisic acid, gigantetronin, linoleic acid, muricapentocin. Kandungan senyawa tersebut merupakan senyawa yang sangat bermanfaat bagi tubuh, bisa sebagai obat keputihan, menghambat pertumbuhan bakteri, menghambat perkembangan virus, menghambat perkembangan parasit, menekan peradangan, membunuh cacing parasait, mengurangi stres, meningkatkan sistem kekebalan 
tubuh dan menghindari infeksi yang mematikan.”

========================

Manfaat Daun Sirih Untuk Kesehatan

Manfaat daun Sirih dapat menghambat mimisan hidung dengan cara melipat daun sirih secukupnya agar muat untuk menyumbat hidung yangkeluar darah
Kandungan daun sirih menghilangkan bau mulut dengan cara mengunyah daun sirih beberapa menit ( 3 x sehari ) atau rebuslah daun sirih yang di gunakan untuk berkumur ( 2 x sehari )
Kandungan daun sirih dapat mengobati diare dengan cara haluskan 7 lembar daun sirih, 6 biji merica, 1 sendok minyak kelapa, usapkan pada bagian perut
Kandungan daun sirih dapat mengobati batuk dengan cara merebus 5 lembar daun sirih, 11 biji kemukus, 11 biji cengkeh, 11 biji kapulaga, kayu manis, 2 gelas air, ( untuk 3 kali dalam sehari )
Kandungan daun sirih dapat menyembuhkan keputihan dengan cara rebus daun sirih secukupnya, airnya digunakan untuk membersihkan tempat keputihan
Kandungan daun sirih dapat menyembuhkan sariawan dengan cara cuci bersih 2 daun sirih dan kunyah sampai lumat dengan mulut sampai menjadi ampas
Kandungan daun sirih dapat menyembuhkan luka bakar dengan cara hancurkan dau sirih dan tambahkan madu. oleskan pada bagian mengalami luka bakar
Kandungan daun sirih dapat menyembuhkan bisul dengan cara tumbuk dau sirih hingga halus. oleskan pada bisul area di sekitar bisul. Balut dengan perban
Kandungan daun sirih dapat menyembuhkan jerawat dengan cara tumbuk 10 lembar daun sirih, seduh dengan 2 gelas air panas, ketika sudah dingin gunakan untuk membasuh muka yang jerawatan
Kandungan daun sirih dapat menyembuhkan gatal dengan cara rebus 20 lembar daun sirih, gunakan air hangat rebusan untuk membasuh gatal

===========================

Manfaat Daun Sirih Untuk Mengobati Jerawat

Daun sirih untuk wajah dan untuk jerawat dengan mencuci muka
Ambilah 10 lembar daun sirih, cuci bersih dan tumbuk halus. Seduh dengan dua gelas air panas. Gunakan air tersebut untuk mencuci muka. Lakukan 2-3 kali sehari, maka bisa menghilangkan jerawat

Khasiat daun sirih bagi jerawat
Ambil 12 lembar daun sirih kemudian campur dengan sepotong jahe. Masukkan keduanya dalam cangkir atau gelas, kemudian seduh dengan air panas yang baru mendidih. Minum ramuan ini tiga kali sehari. Ini baik untuk menghilangkan jerawat dan bintik bintik hitam.

Nah demikian Artikel Manfaat Daun Sirih Untuk Jerawat ini saya berikan, semoga ini menjadi bermanfaat untuk semua, Selamat Mencoba.


Itulah Manfaat Daun Sirih Dan Kegunaannya bagi tubuh Manusia, Waja Berjerawat Dan Keputihan Pada wanita

Manfaat Khasiat Kulit Buah Manggis Untuk Kesehatan

Berikut iniadalah Manfaat Kulit buah manggis yang saat ini paling banyak dicari dan digunakan untuk dijadikan obat tradisional untuk berbagai macam penyakit, serta dimanfaatkan dalam urusan kecantikan.

Memang ternyata buah manggis yang rasanya enak dan mengandung banyak manfaat, mempunyai fakta kalau kulitnya lah yang mempunyai manfaat lebih.
Kulit Manggis mempunyai kandungan senyawa xanthone yang saat ini banyak dikembangkan dan diproduksi dalam bentuk sirup, yang kemudian terkenal dengan nama sirup xanthone. Sirup ini sangat terkeenal karena mengandung zat antioksidan yang dapat melawan radikal bebas. Beberapa penelitian menunjukkan, senyawa ini memiliki sifat sebagai antidiabetes, antikanker, anti peradangan, antibakteri, antifungi, antiplasmodial, dan meningkatkan kekebalan tubuh.


Manfaat Khasiat kulit manggis ini dapat kita peroleh jika kita rutin meminumnya dan asalkan telaten hasil yang maksimal pasti akan kita dapatkan, diantaranya :

Untuk Kesehatan Tubuh menyeluruh :

• Memperkuat sistem kekebalan.
• Memperbaiki komunikasi antar sel.
• Mengagalkan kerusakan DNA.
• Memelihara optimal fungsi kelenjar gondok.
• Mengurangi resistensi insulin.
• Membantu penurunan berat badan.
• Menyembuhkan kerusakan urat syaraf.
• Menyeimbangkan sistem kelenjar endokrin.
• Menyembuhkan peradangan
• Meringankan wasir.
• Membantu menurunkan kadar gula dalam darah (hypoglycemia).
• Meringankan penyakit kulit kemerah-merahan/bersisik (psoriasis).
• Membantu menyembuhkan luka.
• Meringankan sakit akibat carpal tunnel syndrome (penyakit yang terjadi pada pergelangan tangan serta jari yang disebabkan oleh tekanan yang sering terjadi pada bagian tersebut. Dan biasanya sering diakibatkan karena terlalu sering memakai keyboard dan mouse).
• Menghilangkan penyakit kulit kering bersisik kronis (neurodermatitis). Kandungan anti peradangan dari manggis dapat mengurangi sisik dan gatal pada penyakit kulit.

Untuk Kesehatan Jantung :

• Membantu mencegah penyakit jantung.
• Memperkuat pembuluh darah.
• Menurunkan kolesterol LDL.
• Menurunkan tekanan darah tinggi.
• Membantu mencegah arteriosclorosis.

Kesehatan Pencernaan :

• Membantu mengatasi penyakit GERD (penyakit kronik yang ditandai dengan mengalirnya asam lambung ke dalam kerongkongan).
• Membantu menyembuhkan borok/bisul.
• Meringankan syndrome kelainan usus besar (IBS).
• Membantu menghentikan diare.
• Dapat meringankan peradangan usus besar ataupun kecil yang dikenal dengan Crohn`s disease.
• Bisa mencegah salah satu penyakit radang usus besar (diverticulitis).

Membuat Lebih Awet Muda :

• Menambah energi, meningkatkan kegembiraan dan menaikkan stamina.
• Memperlambat proses penuaan.
• Membantu menghindari penyakit kemerosotan pada otak (dementia & Alzheimer`s).
• Membantu mencegah batu ginjal.
• Membantu mencegah penyakit sistem syaraf (parkinson).
• Meredakan sakit akibat radang sendi.
• Memperbaiki kerusakan dari penggunaan obat penghilang rasa sakit (NSAID).

Kesehatan keluarga :

• Menurunkan demam.
• Mengatasi keracunan makanan.
• Menyembuhkan luka tenggorakan.
• Membantu menyembuhkan sariawan.
• Mengatasi sesak nafas.
• Membantu mengurangi migran (sakit kepala sebelah).
• Mengurangi sakit gigi.
• Meningkatkan kemampuan untuk mengatasi stess.
• Meningkatkan mood dan menurunkan depresi.
• Menghilangkan jerawat dan cacat pada kulit.
• Menghilangkan bekas gigitan, terbakar dan keracunan.
• Meringankan keseleo, ketegangan otot dan sendi.
• Meringankan sakit perut.
• Meringankan radang tenggorokan (bronchitis), pembengkakan paru-paru (emphysema), dan radang paru-paru (pneumonia).
• Sebagai obat penghilang rasa sesak/mampat pada hidung (decongestant).

Kesehatan Pria :

• Membantu mencegah kemandulan.
• Membantu mencegah pembesaran prostat.

Kesehatan Wanita :

• Meringankan kesulitan buang air kecil.
• Sebagai obat pencuci perut yang lembut
• Meminimalkan gejala sakit sebelum menstruasi (PMS).
• Meringankan gejala menopause.
• Menurunkan pembengkakan saat menstruasi.
• Meringkan sakit pada otot, ligamen, atau tendon (fibromyalgia).
• Meringankan sakit akibat penyakit menurunnya kepadatan tulang/pengapuran tulang (osteoporosis).

Kesehatan Anak-Anak :

• Membantu meringkan penyakit asma.
• Bisa mencegah gangguan hyperaktif dan kurang perhatian (ADHD) dan alergi makanan.
• Membentuk gigi dan tulang yang lebih kuat.

Mengatasi Penyakit :

• Mencegah penyakit gusi.
• Memberantas penyakit TBC.
• Menurunkan efek samping ketidaktoleranan laktosa.
• Membantu mencegah disentri.
• Membantu mencegah penyakit sistem syaraf pusat (multiple sclerosis).
• Bisa mencegah kanker.
• Meringankan penyakit inflamasi kronik (peradangan menahun) yang menyerang struktur tulang belakang dan terutama sendi panggul (Ankylosing Spondylitis).
• Membantu mencegah infeksi paru-paru dan pernafasan kronis (cyctic fibrosis).
• Mencegah gejala yang berhubungan dengan penyakit lupus.
• Mengurangi penyakit lemas otot yang parah (Myasthenia Gravis).

================================

Sedangkan cara pengolahan Kulit Manggis atau sirup xanthone secara sederhana adalah sebagai berikut :
Cuci bersih kulit buah, kemudian potong kulit 2 butir buah. Selanjutnya potongan tersebut direbus dalam 4 gelas air, sehingga tersisa 2 gelas. Air rebusan tersaring itulah yang diminum secara rutin 2 - 3 kali sehari. Untuk cara lain anda bisa baca di Cara Membuat Jus Kulit Manggis.

Itulah manfaat kulit manggis serta khasiat kulit buah manggis yang sangat berguna untuk kesehatan dan kecantikan.

Sekian dan terimakasih semoga bermanfaat untuk anda

Obat Patah Hati

Obat patah hati paling manjur jatuh cinta lagi? Belum tentu. Obat patah hati paling mujarab adalah waktu. Meski tidak bisa dipaksa bekerja instan, waktu bukan saja mampu meredakan sakit, namun sekaligus menyembuhkannya. 

Karena itu, saat patah hati, yang paling diperlukan adalah mengambil waktu untuk ‘tarik napas’ sejenak guna memberi kesempatan pada tubuh dan hati untuk membenahi diri. Waktu normalnya, antara satu hingga enam bulan. Proses ini berlangsung secara bertahap.

1. Tahap pertama biasanya merupakan masa ‘berduka cita’. Misalnya dengan menangis sepuas-puasnya atau ‘menikmati’ kesedihan. Meskipun terkesan cengeng, periode ini sesungguhnya sangat penting. Bagaimanapun, air mata manjur untuk membersihkan ‘racun-racun’ yang menggerogoti tubuh dan jiwa.

2. Selanjutnya, masuk ke periode ‘buang sampah’ alias curhat sana-sini. Beruntunglah kaum wanita, karena kita punya banyak telinga yang bersedia menampung keluh kesah. Makin banyak ‘sampah’ dibuang, makin lega pula hati.

3. Tahap selanjutnya adalah kembali bersosialisasi atau menjalankan hobi setelah sebelumnya mengurung diri di kamar berhari-hari dan berminggu-minggu. Selain untuk mengalihkan pikiran dari kesedihan, Anda juga belajar untuk menikmati kembali kebersamaan dan kegembiraan hidup.

Biasanya, kalau berhasil melewati tiga tahapan ini, bisa dikatakan Anda sudah ‘sembuh’ 75%. Setelah itu, barulah Anda bisa mempertimbangkan kembali kehadiran cinta baru dengan lebih rasional, sehat, dan bebas dari trauma cerita lalu.

Tapi sayangnya, kadang-kadang sulit untuk sabar melewati proses yang tak bisa ditentukan waktunya itu. Apalagi bila ada seseorang menyodorkan cinta baru, yang sepintas terasa bagai setetes air di tengah padang tandus. Padahal sebetulnya saat itu kondisi Anda belum siap untuk menerima cinta baru karena luka lama masih ‘berdarah’. 

Celakanya, tak jarang cinta baru disambut terburu-buru tanpa pikir panjang. Padahal, mungkin saja pria baru ini hanya Anda jadikan sosok pelarian agar cepat sembuh dari penderitaan atau untuk membalas dendam pada mantan kekasih. 

Kondisi serba tak siap inilah yang biasanya mengundang risiko tinggi untuk jatuh lagi ke lubang sama. Bukannya menyembuhkan hati yang luka, yang ada hati malah dobel hancurnya. Namun tidak selamanya cinta pelarian berakhir gagal. Nyatanya, ada juga yang beruntung. (f) 

Makanan Khas Batak

Arsik adalah jenis masakan yang menjadi ciri khas dan dikenal oleh banyak orang, terbuat dari ikan yang biasanya ikan mas dengan bumbu rempah yang kaya sehingga memiliki warna dan rasa yang berani. Tekstur daging ikannya yang lembut karena lamanya dimasak sehingga seperti ikan presto namun memiliki rasa yang lebih enak karena paduan bumbu yang berani sehingga rasa rempahnya terasa dilidah. Arsik menjadi masakan penting bagi suku batak terutama batak toba, mandailing dan simalungun. Ikan mas yang menjadi ikan adat bagi suku batak karena selalu dipakai di acara adat selalu dimasak arsik dan disusun berjejer cantik.

Natinombur masakan yang bumbunya dan tampilannya mirip dengan pecal lele, namun ikannya bukan digoreng namun dibakar alias dipanggang. Tampilan boleh sama namun kalau rasa pasti berbeda karena natinombur ini lebih memiliki rasa yang berani karena bumbu rempahnya lebih banyak dan beragam

Naniura termasuk jenis masakan yang tidak lajim seperti masakan dari daerah lainnya di Indonesia. Naniura ini adalah salah satu masakan khas dari suku batak yang tampilannya mirip dengan sashimi makanan dari jepang yang sudah mendunia itu. Naniura memiliki kesamaan dengan sashimi karena dibuat dari ikan serta sisik dan durinya dibuang sehingga menjadi ikan fillet. Perbedaannya hanya penggunaan ikannya, kalau sashimi memakai ikan laut segar, naniura memakai ikan Batak (ihan Batak) namun lebih sering ikan mas yang dipakai. Setelah duri dan sisik ikan dibuang lalu dibalur dengan bumbu yang telah diberi asam, lalu didiamkan dan jadilah masakan naniura. Masakan Khas Batak Toba yang tidak disentuh api hanya diungkep dengan bumbu serta asam, sehingga rasanya dipastikan asam. Ikan ini hanya masak oleh asam, dipastikan tidak ada rasa amis namun rasa segar dan lejat karena bumbu rempahnya yang mantap.

Saksang adalah jenis masakan non halal yang dimiliki suku batak karena dibuat dari daging babi cincang namun dengan penggunaan darah sebagai pelengkap diakhir masakan. Sehingga tidak disarankan untuk semua kalangan, walaupun sebenarnya masakan ini memiliki rasa yang sangat khas dan enak karena bumbunya yang kaya dengan rempah-rempah namun karena memakai daging babi sehingga tidak disarankan untuk semua. Masakan ini cocok untuk daerah dingin karena penggunaan bumbu rempah yang dikapai membuat badan terasa hangat setelah memakannya.

Banyak lagi varian masakan batak yang tidak halal yang semuanya memakai bumbu rempah yang kaya, memang masakan batak itu dikenal dengan bumbu rempahnya yang berani, karena paduan rempah rempah dijadika sebagai bumbu disetiap masakannya.

Salah satu bumbu andalan yang memang wajib ada ditemukan disetiap masakan batak adalah andaliman. Andaliman banyak yang tau tapi belum semua tau rasa sebenarnya. Rasanya yang memberi sensasi mati rasa dan kelu dilidah serta aromanya yang unik dan segar menjadikan bumbu masakan ini memiliki tempat yang penting bagi masakan khususnya masakan batak. Rasa pedas dan menggeletar dan ketir  di lidah membuat lidah keriting  setelah selesai makan masakan yang memaki andaliman. Semua jenis masakan batak yang menjadikan andaliman ini sebagai bumbu wajib pelengkap yang tidak lengkap bila tidak ada. Arsik, Saksang, Natinombur dan yang lainnya  semuanya memakai andaliman. Intir-intir dengan nama latin Genus Zanthoxylum sebenarnya tidak hanya digunakan dimasakan batak saja. Merica batak ini juga dikonsumsi oleh masyarakat di Asia, seperti Thailand, Nepal, India, China, Jepang, Korea, Tibet, dan Bhutan juga mengenal buah ini. Dikenal sebagai Sichuan pepper di Amerika.

Banyak lagi jenis bumbu masakan batak yang khas dan selalu banyak dipakai seperti lengkuas, kecombrang (honje), dan banyak lagi. Memang masakan batak itu enak dan kaya akan bumbu rempah dan memiliki rasa yang khas namun kurang begitu dikenal karena dikira tidak halal semua jenis masakanya.