Latihan Listview Perhitungan Penjualan Barang

                                                 Latihan Listview Perhitungan Penjualan Barang

Public Class Form1

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

        BuatTabel()

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Merk", 85, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Total", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Kode.Text

        Lst.SubItems.Add(Nama.Text)

        Lst.SubItems.Add(Merk.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim X As String

        Dim A As String

        Dim H As String

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

        A = Microsoft.VisualBasic.Right(Kode.Text, 3)

        H = Microsoft.VisualBasic.Right(Kode.Text, 5)

        Select Case X

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

            Case "VG" : Merk.Text = "V-Gen"

        End Select

        Select Case A

            Case "001" : Nama.Text = "Flashdisk 4Gb"

            Case "002" : Nama.Text = "Flashdisk 2Gb"

        End Select

        Select Case H

            Case "TS001" : Harga.Text = "105000"

            Case "TS002" : Harga.Text = "75000"

            Case "VG001" : Harga.Text = "90000"

            Case "VG002" : Harga.Text = "60000"

        End Select

    End Sub

    Private Sub Btn_HapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusPilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btn_HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HapusSemua.Click

        LV.Items.Clear()

    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

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click

        IsiTabel()

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        Dim Tombol As Integer = Asc(e.KeyChar)

        If Tombol = 13 Then

            Jumlah_TextChanged(sender, e)

            Total.Text = Jumlah.Text * Harga.Text

        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

End Class

 

 

 

Demikilahlah postingan saya  Nama : YENNY ROSA DAMAYANTI  NPM : (13110146)
Selamat Belajar Pemrograman VB NET

 

 

 

 

 

 

 

TIPS CARA MENGHILANGKAN JERAWAT SECARA ALAMI

Tips Cara Menghilangkan Jerawat Secara Alami

1.Cara Mengobati Jerawat Dengan Putih Telur
Caranya yaitu, pisahkan kuning telur dan ambil putih telurnya saja. Kocok sebentar lalu oleskan ke wajah dan diamkan selama 15 menit. Putih telur ini akan membantu mengurangi minyak di wajah yang seringkali menyebabkan timbulnya jerawat.

2.Cara Mengobati Jerawat Dengan Pasta Gigi
Satu hal yang perlu diingat disini pasta gigi yang digunakan adalah yang bentuknya pasta(seperti Pepsodent) bukan yang bentuknya gel(seperti Close Up). Caranya hampir sama denga kedua cara di atas. Oleskan pasta gigi ke jerawat dan bagian lain di sekitar jerawat tersebut sebelum tidur. Biarkan semalaman/sampai pagi kemudian bilas dengan air bersih.

3.Cara Mengobati Jerawat Dengan Tomat
Buah yang satu ini selain bagus untuk kesehatan mata juga cukup efektif menghilangkan komedo hitam(blackheads). Yang pertama harus dilakukan adalah mengiris tomat menjadi dua lalu oleskan ke seluruh wajah yang berjerawat dan biarkan selama 15 menit – 1 jam kemudian bilas. dan makanlah untuk perawatan dari dalam.

4.Cara Mengobati Jerawat Dengan Lidah buaya
Perhatian jangan gunakan lidah yang asli dari mulut buaya ya, he,, Ambil satu daun lidah buaya, potong beberapa bagian, kelupas kulit luarnya, oleskan di bagian yang muncul jerawat, dan ulangi melakukan cara ini tiap pagi dan sore. Jika kalian cukup telaten, jerawat mungkin akan dapat mongering dan mengelupas selama 3 hari. Selain itu lidah buaya juga mampu menghilangkan bekas jerawat yang membandel. Sekali lagi kuncinya hanya satu, telaten.!!

5.Cara Mengobati Jerawat Dengan Bawang Putih
Ada dua pilihan dalam menggunakan bawang putih untuk menghilangkan jerawat. Pertama dengan menumbuk dua atau lebih bawang putih hingga cukup halus lalu dioleskan ke bagian wajah yang berjerawat. Diamkan selama 10 menit lalu bilas. Sedangkan cara kedua adalah dengan memakan satu atau lebih bawang putih setiap hari.
Banyak yang mengatakan kedua cara ini cukup efekktif, namun bagi kalian yang tidak menyukai bau bawang putih mungkin lebih baik menempuh cara yang lain. Jangan khawatir masih banyak cara alami lainnya yang akan saya jelaskan di bawah ini.

6.Cara Mengobati Jerawat Dengan Selalu Bersihkan Wajah
Selalu rawat kebersihan wajah setiap hari dari kotoran dan debu dijalan. Untuk kita yang selalu aktif dan berurusan dengan debu dijalan, maka rajin-rajinlah membersihkan muka sebelum atau sesudah beraktifitas. Sebagai konsumsi dari dalam, maka perbanyaklah makan sayuran dan minum air putih. Buat yang gak suka sayur.!, maka buah yang mengandung air dapat menjadi alternatif dalam merawat wajah dari dalam. Karena kandungan yang terdapat dalam buah dan sayuran sangat diyakini bisa menjadikan wajah kita lebih bersih dan berseri.

Nah banyak Bukan Caranya, sebenarnya banyak sih cara untuk menghilangkan jerawat ini, asal kita rajin untuk mencari tau aja, apa lagi sekarang udah mudah banget untuk mencari Info kan, tinggal buka Internet, pencet tu BB Atau Androidnya, dan Dapet deh infonya, termasuk kamu nyampe ke blog ini,hehe
Ya udah selamat mencoba ya, Jangan lupa tinggalkan komentar di bawah ya, buat Sensasi,hahah.

sepertinya pertempuran hampir dimulai . semoga bisa !!!

Soal Pemrograman pemakaian listrik

Soal Pemrograman pemakaian listrik

Public Class Form1

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

        buattabel()

    End Sub

    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As 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 As System.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 As System.EventArgs) Handles Button2.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.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 As System.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 As System.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

 

 Demikilahlah postingan saya  Nama : (YENNY ROSA DAMAYANTI)  NPM : (13110146)
Selamat Belajar Pemrograman VB NET