QUIS ONLINE

Public Class Form1

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

        Kode_pelanggan.Items.Add("MED")
        Kode_pelanggan.Items.Add("BEL")
        Kode_pelanggan.Items.Add("TEM")
        Kode_pelanggan.Items.Add("MAR")
        Kode_pelanggan.Items.Add("BIN")
        Kode_pelanggan.Items.Add("PAK")

        Tipe_pelanggan.Items.Add("TOK")
        Tipe_pelanggan.Items.Add("RUM")
        Tipe_pelanggan.Items.Add("SWA")
        Tipe_pelanggan.Items.Add("PAB")
    End Sub

    Private Sub Kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case ("MED")
                Daerah.Text = "MEDAN"
                pajak.Text = 0.015
            Case ("BEL")
                Daerah.Text = "BELAWAN"
                pajak.Text = 0.015
            Case ("TEM")
                Daerah.Text = "AKSARA"
                pajak.Text = 0.015
            Case ("MAR")
                Daerah.Text = "MARENDAL"
                pajak.Text = 0.015
            Case ("BIN")
                Daerah.Text = "BINJAI"
                pajak.Text = 0.015
            Case ("PAK")
                Daerah.Text = "LUBUK PAKAM"
                pajak.Text = 0.015
        End Select
    End Sub

    Private Sub Tipel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe_pelanggan.SelectedIndexChanged
        Select Case Tipe_pelanggan.Text
            Case ("TOK")
                Tipoe_toko.Text = "TOKO"
                BiayaBeban.Text = 150000
                harga.Text = 500
            Case ("RUM")
                Tipoe_toko.Text = "RUMAH"
                BiayaBeban.Text = 50000
                harga.Text = 200
            Case ("SWA")
                Tipoe_toko.Text = "SWALAYAN"
                BiayaBeban.Text = 400000
                harga.Text = 1500
            Case ("PAB")
                Tipoe_toko.Text = "PABRIK"
                BiayaBeban.Text = 1000000
                harga.Text = 10000
        End Select
    End Sub
    Sub tabel()
        ListView1.Columns.Add("Kode pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Daerah", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Toko", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Biaya Beban", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Lalu", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Ini", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga Per KWH", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Besar Pemakaian", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tagihan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Bayar", 50, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = Kode_pelanggan.Text
            .SubItems.Add(Daerah.Text)
            .SubItems.Add(Tipe_pelanggan.Text)
            .SubItems.Add(Tipoe_toko.Text)
            .SubItems.Add(BiayaBeban.Text)
            .SubItems.Add(meteran_lalu.Text)
            .SubItems.Add(meteran_ini.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(besar_pemakaian.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(tagihan.Text)
            .SubItems.Add(total_bayar.Text)
            ListView1.Items.Add(x)
        End With
    End Sub

    Private Sub Tobay_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total_bayar.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_bayar.Text = Val(BiayaBeban.Text) + Val(harga.Text) + Val(besar_pemakaian.Text)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        besar_pemakaian.Text = meteran_lalu.Text - meteran_ini.Text
        tagihan.Text = BiayaBeban.Text + (harga.Text * besar_pemakaian.Text)
        total_bayar.Text = tagihan.Text * pajak.Text
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        bersih()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        bersih()
    End Sub
    Sub bersih()
        Kode_pelanggan.Text = ""
        Tipe_pelanggan.Text = ""
        Tipoe_toko.Text = ""
        BiayaBeban.Text = ""
        meteran_ini.Text = ""
        meteran_lalu.Text = ""
        harga.Text = ""
        Daerah.Text = ""
        besar_pemakaian.Text = ""
        pajak.Text = ""
        tagihan.Text = ""
        total_bayar.Text = ""
    End Sub
Private Sub btnhpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpslist.Click
        ListView1.Items.Remove(ListView1.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

Manfaat Daun Sirih Merah

Gambar Sirih Merah

Selain bersifat antiseptic, sirih merah juga bisa dipakai untuk mengobati penyakit diabetes, dengan meminum air rebusan sirih merah setiap hari akan menurunkan kadar gula darah sampai pada tingkat yang normal.

Selain itu tanaman sirih merah mempunyai manfaat menyembuhkan penyakit ambeien, keputihan dan bisa digunakan sebagai obat kumur, karena alkaloid di dalam sirih merah inilah yang berfungsi sebagai anti mikroba.

1. Mengatasi Keputihan

Khasiat daun sirih merah ini digunakan untuk mengurangi keputihan dan menjaga organ kewanitaan, karena salah satu khasiat dari daun sirih merah adalah sebagai antiseptic. Yaitu dengan merebus 7-10 lembar daun sirih merah, lalu menggunakan air rebusan untuk membilas organ kewanitaan.

2. Menghilangkan bau badan

Ambil daun sirih 2-3 lembar direndam dalam air panas 1/2gelas.ditambah satu sendok teh gula putih. Biarkan sampai air suam-suam kuku. Setelah sirihnya diambil, airnya diminum.

3. Menghilangkan Bau Mulut

Satu lembar daun sirih setelah dicuci bersih dikunyah-kunyah, ditahan bebearapa menit dalam mulut lalu diludahkan. Kerjakan hal itu 2-3 kali sehari. Cara lainnya rebus 5-6 lembar daun sirih dengan 2 gelas air sampai mendidih. Dinginkan dan saring dan setelah itu untuk kumur-kumur setiap pagi dan sore.

Mesran.Net

Website Mesran.Net ini adalah salah satu website Dosen STMIK BUDIDARMA MEDAN. Bapak Mesran S.Kom, M.Kom yaitu Mesran.Net



Dalam website Mesran.Net berisi tentang informasi-informasi kampus, tutorial PEMROGRAMAN yang membuat kita bisa sambil belajar bahasa pemrograman. Mahasiswa/i STMIK BUDIDARMA juga dapat login member untuk melihat nilai, tugas, berita terhangat, dll.

Website Mesran.Net ini sangat bermanfaat bagi siapa saja yang ingin belajar bahasa pemrograman komputer. Karna sudah tersedia tutorial tentang pembelajaran bahsa pemrograman. Seperti, Algoritma, PASCAL, C/C++, VB6, Visual Basic.Net, Visual C#, dan lain-lain.

Dan kita juga dapat mendownload E-Book dengan gratis.

Silahkan anda kunjungi langsung website Mesran.Net untuk belajar bahasa pemrograman.