Cara Memutihkan Kulit Dengan Masker Teh

Daun teh mengandung antioksidan yang sangat bagus untuk merawat kulit dan juga dapat mencegah terjadinya kanker. Agar masker teh ini lebih berkhasiat, Anda dapat mengkombinasikan daun teh tersebut dengan madu. Daun teh ini dapat mengikis noda-noda hitam pada wajah secara perlahan sehingga kulit wajah Anda semakin terlihat bersih dan cerah. Sedangkan madu terbukti ampuh dan efektif untuk mengatasi jerawat yang meradang, jerawat yang memerah, sekaligus melembabkan kulit secara maksimal. Tertarik untuk mencobanya? Langsung saja persiapkan bahan berikut ini.

Bahan:

• 100 ml air teh (dinginkan terlebih dahulu)
• 2 sendok teh tepung beras
• 1/2 sendok makan madu

Cara membuat dan memakainya:

• Pertama, campurkan semua bahan diatas sampai merata. 
• Setelah itu, oleskan masker tersebut pada wajah Anda dan diamkan kurang lebih selama 20 menit sampai kering.
• Setelah kering, bersihkan wajah Anda dengan menggunakan sponge khusus untuk wajah. Sesekali pijat lembut wajah Anda dengan gerakan melingkar sehingga sel-sel kulit mati dapat ikut terbuang dan terkelupas.
• Terakhir, basuh wajah Anda dengan air dingin untuk membersihkannya.

Anda dapat melakukan cara tersebut 1-2 kali seminggu agar kulit wajah lebih putih dan cerah. Anda juga bisa mencoba cara memutihkan kulit dengan lidah buaya sebagai alternatif lain memutihkan kulit menggunakan bahan alami. Selamat mencoba cara memutihkan kulit dengan masker teh!

Latihan listview perhitungan penjualan barang

Buat Tamoilannya seperti ini :

Lalu masukkan Listing Programnya :)

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = pembeli.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jmlbeli.Text)

        lst.SubItems.Add(harga.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()

        kdbrg.Items.Add("TS001")

        kdbrg.Items.Add("TS002")

        kdbrg.Items.Add("VG001")

        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskdbrg.SelectedIndexChanged

        Dim X As String

        Dim y As String

        X = Microsoft.VisualBasic.Left(kdbrg.Text, 2)

        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)

        Select Case X

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        Select Case y

            Case "001" : nmbrg.Text = "Flashdisk 4GB"

            Case "002" : nmbrg.Text = "Flashdisk 2GB"

        End Select

        If X = "TS" And y = "001" Then

            harga.Text = 105000

        ElseIf X = "TS" And y = "002" Then

            harga.Text = 75000

        ElseIf X = "VG" And y = "001" Then

            harga.Text = 50000

        ElseIf X = "VG" And y = "002" Then

            harga.Text = 80000

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnhapus.Click

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

End Class

Maka tampilannya akan seperti ini : 

 Jawaban Kuis No.1 di Mesran.net Belajar Pemrograman

FITRI GIRSANG : TOPVIEW SIMULATOR

FITRI GIRSANG : TOPVIEW SIMULATOR: MENAMPILKAN NAMA NMP DAN DETIK TAMPILANNYA Langkah Pertama : -       Buka TopView Simulator Anda -       Select Device à Atm...

JARINGAN KOMPUTER

Macam-macam Jaringan Komputer

1. LAN (Local Area Network)
LAN yaitu suatu sistem jaringan dimana setiap komputer atau perangkat keras dan perangkat lunak digabungkan agar dapat saling berkomunikasi (terintegrasi dalam area kerja tertentu dengan menggunakan data dan program yang sama juga mempunyai kecepatan transfer data lebih cepat). LAN mempunyai jangkauan maksimal 100 meter.

Mikroprossesor

Mikroprosesor adalah sebuah chip (IC) yang bekerja dengan program. Fungsi Mikroprosesor adalah sebagai pengontrol atau pengolah utama dalam suatu rangkaian elektronik. Mikroprosesor biasa disebut juga CPU (Central Processing Unit).

Cara kerja sebuah Mikroprosesor diarahkan oleh suatu program dalam kode-kode bahasa mesin yang telah dimasukkan terlebih dahulu ke dalam sebuah memori. Di dalam Mikroprosesor minimal terdiri dari rangkaian digital, register, pengolah logika aritmatika, rangkaian sekuensial.

WELCOME