Tips Kulit Cantik: 5 Manfaat Air Mawar untuk Kulit

 
Air mawar (rosewater) merupakan antiseptik yang bermanfaat untuk memelihara dan merawat kulit.
Air mawar juga memiliki sifat antibakteri yang membantu memerangi masalah kulit.
Berikut adalah beberapa manfaat air mawar untuk kulit:
1. Anti penuaan
Air mawar membantu melawan tanda-tanda penuaan dan melindungi kulit dari keriput dan peradangan.
2. Menghaluskan kulit
Bahan pembersih alami dari air mawar menjadi komposisi yang ampuh untuk melawan jerawat.
Air mawar (rosewater) merupakan antiseptik yang bermanfaat untuk memelihara dan merawat kulit.
Air mawar juga memiliki sifat antibakteri yang membantu memerangi masalah kulit.
Berikut adalah beberapa manfaat air mawar untuk kulit:
1. Anti penuaan
Air mawar membantu melawan tanda-tanda penuaan dan melindungi kulit dari keriput dan peradangan.
2. Menghaluskan kulit
Bahan pembersih alami dari air mawar menjadi komposisi yang ampuh untuk melawan jerawat.

Kandungan air mawar juga bisa mengencangkan dan mengurangi ukuran pori-pori, sehingga membuat kulit nampak lebih muda dan halus.
3. Mencegah penyakit kulit
Air mawar membantu menjaga keseimbangan pH alami kulit sehingga mampu melawan berbagai penyakit kulit dan eksim.
4. Menyeimbangkan minyak kulit
Produksi sebum dapat diseimbangkan dengan menggunakan air mawar. Hal ini berlaku untuk orang dengan kulit berminyak maupun kulit kering.
5. Membersihkan kulit
Sifat antibakteri dalam air mawar mampu membersihkan kulit secara menyeluruh namun tetap lembut.
Air mawar yang lembut dapat mencegah kerusakan kulit saat membersihkan wajah setiap hari.[]

tugas 60

Public Class Form60_36109015

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pw_36109015.Click
        Dim RIDHA As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        RIDHA = x.AturDatabase(New CrystalReport59_36109015, Application.StartupPath, "data report.accdb")
        Form53_36109015.HONDA.SelectionFormula = "{mastertransaksi.notrans} = '" & nt_36109015.Text & "'"
        Form53_36109015.HONDA.ReportSource = RIDHA
        RIDHA.SetParameterValue("RIDHA", nk_36109015.Text)

        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If
    End Sub
End Class

tugas 58

Public Class Form58_36109015

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ridha As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim y As New ByIskandar.MengaturDataBaseCrystalReport
        ridha = y.AturDatabase(New CrystalReport50_36109015, Application.StartupPath, "DATA REPORT.accdb")
        Form53_36109015.HONDA.ReportSource = ridha
        Form53_36109015.HONDA.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & aa_36109015.Value.Month & "/" & aa_36109015.Value.Day & "/" & aa_36109015.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & aa_36109015.Value.Month & "/" & aa_36109015.Value.Day & "/" & aa_36109015.Value.Year & "#"
        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If
    End Sub
End Class

tugas 57

Public Class Form57_31609015

    Private Sub VIEW_015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_015.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "DATA REPORT.accdb")

        laporan = New CrystalReport45_36109015
        Form53_36109015.HONDA.ReportSource = laporan
        Form53_36109015.HONDA.SelectionFormula = "{detailtransaksi.harga} <=" & TextBox1.Text & ""
        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If
    End Sub
End Class

tugas 56

Public Class Form56_36109015

    Private Sub VIEW_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_36109015.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = New CrystalReport45_36109015
        Laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "Data Report.accdb")

        Form53_36109015.HONDA.ReportSource = Laporan

        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If

        Form53_36109015.HONDA.SelectionFormula = "{barang.kodebarang} ='" & TB_015.Text & "'"
    End Sub
End Class

tugas 55

Public Class Form55_36109015

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim x As New ByIskandar.MengaturDataBaseCrystalReport
        laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "DATA REPORT.accdb")

        laporan = New CrystalReport45_36109015

        Form53_36109015.HONDA.ReportSource = laporan

        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If

    End Sub
End Class

tugas 54

tugas 54

Public Class Form54_36109015


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New CrystalReport45_36109015

        Form53_36109015.HONDA.ReportSource = laporan

        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If

    End Sub
End Class