Tugas 1

Oke, siang ini lagi bingung mau ngapain, dari pada bingung mendingan saya membuat tutorial tentang PDAM semoga tutorial yang saya buat ini bisa membantu para teman-teman untuk menyelasaikan tugas, atau sebagai latihan para teman-teman sekalian.

Ayo semangat….. sengata……

Berhubung saya sudah semangat, saya akan membuka visual besic.net2008, dan kemudian saya mendesain sbuah from… ya… bentuk fromnya tergantung2 masing2 donk…. Kalau sayasih formnya seperti ini sih…

Karna saya menggunakan combobox, saya ingin ketika dikelik maka ada pilihan didalam combobox, dan inilah perintahnay:

Public Class Fahmi

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

        Call buat_tabel()

        kode.Items.Add("PAB-MED-100")

        kode.Items.Add("TOK-BEL-101")

        kode.Items.Add("SWA-MEl-102")

    End Sub

      Stelah kita melakukan perintah diatas, maka selanjutnya kita menggunakan pungsi CASE… karana saya ingin ketika saya mengkelik dalah satu pilihan dalam combobox keluar nama pelanggan, harga, dan type demikianlah perintah yang harus diketikkan: 

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim fahmi As String

        fahmi = Microsoft.VisualBasic.Right(kode.Text, 3)

        Select Case fahmi

            Case 100

                nama.Text = "fahmi"

            Case 101

                nama.Text = "indra"

            Case 102

                nama.Text = "mela"

        End Select

        fahmi = Microsoft.VisualBasic.Left(kode.Text, 3)

        Select Case fahmi

            Case "PAB"

                harga.Text = " 250"

                tipe.Text = " toko"

                biaya.Text = "14000"

            Case "TOK"

                harga.Text = " 300"

                tipe.Text = "rumah"

                biaya.Text = " 12000"

            Case "SWA"

                harga.Text = " 2500"

                tipe.Text = "swalayan"

                biaya.Text = "6000"

        End Select

        fahmi = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        Select Case f

            Case "MED"

                daerah.Text = "medan"

            Case "BEL"

                daerah.Text = "belawan"

            Case "MEL"

                daerah.Text = "melawai"

        End Select

    End Sub

Setelah melakukan kode embel2 diatas tadi, selanjutnya kita ingin melakukan penjumlahan penggunaan PDAM inilah perintahnya… karna saya disini menggunakan keypress dan botton jadinya ya… ada dua deh programnya…

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

        If Asc(e.KeyChar) = 13 Then

            total.Text = Val(biaya.Text) + Val(harga.Text * jumlah.Text)

            pajak.Text = 0.01 * total.Text

            pembayaran.Text = Val(total.Text) + Val(pajak.Text)

        End If

    End Sub

   

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

        total.Text = Val(biaya.Text) + Val(harga.Text * jumlah.Text)

        pajak.Text = 0.01 * total.Text

        pembayaran.Text = Val(total.Text) + Val(pajak.Text)

    End Sub

Perintah ini untu keluar:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

Perintah ini untuk menghapus smua yang ada pada from PDAM:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        nama.Text = ""

        kode.Text = ""

        tipe.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        pembayaran.Text = ""

        daerah.Text = ""

        biaya.Text = ""

        pajak.Text = ""

    End Sub

Lakukan lah pengetiakan kodeng ini karna ini untuk membuat tabel dan mengisi tabel pada lisviw, ya… bisa dibilang supaya nampak hasil dari yang kita pilih tadi

    Sub buat_tabel()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("kode", 100, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 250, HorizontalAlignment.Left)

        lv.Columns.Add("TIPe", 150, HorizontalAlignment.Left)

        lv.Columns.Add("pajak", 150, HorizontalAlignment.Center)

        lv.Columns.Add("daerah", 150, HorizontalAlignment.Center)

        lv.Columns.Add("bayar", 150, HorizontalAlignment.Center)

    End Sub

    Sub isi_tabel()

        Dim f As New ListViewItem

        f.Text = kode.Text

        lv.Items.Add(f)

        f.SubItems.Add(nama.Text)

        f.SubItems.Add(tipe.Text)

        f.SubItems.Add(pajak.Text)

        f.SubItems.Add(daerah.Text)

        f.SubItems.Add(pembayaran.Text)

    End Sub

Ketikkan pada button agar bisa disimpan dilisviw dengan cara mengkelik tombol botton:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Call isi_tabel()

    End Sub

End Class