Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

 

SOAL NO 1

.

LISTING PROGRAM:

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("No Pembelian", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)

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

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

        LV.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = No_pembelian.Text

        Lst.SubItems.Add(kode_barang.Text)

        Lst.SubItems.Add(nama_barang.Text)

        Lst.SubItems.Add(merk.Text)

        Lst.SubItems.Add(harga.Text)

        Lst.SubItems.Add(jumlah_beli.Text)

        Lst.SubItems.Add(total_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()

        kode_barang.Items.Add("TS001")

        kode_barang.Items.Add("TS002")

        kode_barang.Items.Add("VG001")

        kode_barang.Items.Add("VG002")

        Me.Text = "SAMLYOT HUTASOIT"

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        MsgBox("APAKAH ANDA YAKIN MENPROSES?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        total_harga.Text = harga.Text * jumlah_beli.Text

    End Sub

    Private Sub btn_simpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpankelistview.Click

        MsgBox("APAKAH ANDA YAKIN MENYIMPAN KE LISVIEW?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        IsiTabel()

    End Sub

    Private Sub btn_hapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusdatayangdipilih.Click

        MsgBox("APAKAH ANDA YAKIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

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

    End Sub

    Private Sub btn_hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemuadata.Click

        MsgBox("APAKAH ANDA YAKIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        LV.Items.Clear()

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)

        Select Case x

            Case "TS" : nama_barang.Text = "Flashdisk 4GB"

            Case "VG" : nama_barang.Text = "Flashdisk 2GB"

        End Select

        Dim y As String

        y = Microsoft.VisualBasic.Mid(kode_barang.Text, 3)

        Select Case y

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

            Case "002" : merk.Text = "V-Gen"

        End Select

        If kode_barang.Text = "TS001" Then

            harga.Text = "105000"

        ElseIf kode_barang.Text = "TS002" Then

            harga.Text = "75000"

        ElseIf kode_barang.Text = "VG001" Then

            harga.Text = "90000"

        ElseIf kode_barang.Text = "VG002" Then

            harga.Text = "60000"

        End If

    End Sub

    Private Sub btn_baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_baru.Click

        MsgBox("APAKAH ANDA YAKIN MEMBUATBARU?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        No_pembelian.Text = ""

        kode_barang.Text = ""

        nama_barang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah_beli.Text = ""

        total_harga.Text = ""

    End Sub

    Private Sub No_pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No_pembelian.TextChanged

        If No_pembelian.Text = "1" Then

            kode_barang.Text = "TS001"

        ElseIf No_pembelian.Text = "2" Then

        kode_barang.Text = "TS002"

        ElseIf No_pembelian.Text = "3" Then

        kode_barang.Text = "VG001"

        ElseIf No_pembelian.Text = "4" Then

        End If

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        MsgBox("APAKAH ANDA YAKIN KELUAR?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        Me.Close()

    End Sub

End Class

SOAL NO 2

.

LISTING PROGRAM

Public Class penjualan_TV

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

        nama_barang.items.add("POLYTRON")

        nama_barang.Items.Add("SONY")

        nama_barang.Items.Add("LUCYSTAR")

        Me.Text = "SAMLYOT HUTASOIT"

    End Sub

    Private Sub nama_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama_barang.SelectedIndexChanged

        If nama_barang.Text = "POLYTRON" Then

            harga.Text = "1500000"

        ElseIf nama_barang.Text = "SONY" Then

            harga.Text = "2000000"

        ElseIf nama_barang.Text = "LUCYSTAR" Then

            harga.Text = "1000000"

        End If

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        total_harga.Text = harga.Text * jumlah_jual.Text

        If total_harga.Text < 1500000 Then

            discount.Text = 0.1 * total_harga.Text

        ElseIf total_harga.Text > 2000000 Then

            discount.Text = 0.2 * total_harga.Text

        ElseIf total_harga.Text > 1000000 Then

            discount.Text = 0.3 * total_harga.Text

        Else

            total_harga.Text = Val(discount.Text) * Val(total_harga.Text)

        End If

        total_pembayaran.Text = total_harga.Text - discount.Text

    End Sub

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

        nama_barang.Text = ""

        harga.Text = ""

        jumlah_jual.Text = ""

        total_harga.Text = ""

        discount.Text = ""

        total_pembayaran.Text = ""

    End Sub

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

        MsgBox("APAKAH ANDA YAKIN KELUAR?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        Me.Close()

    End Sub

End Class

NAMA: SAMLYOT HUTASOIT

NPM : 1111155

selamat : http://mesran.net/quiz.html

Pemrograman VB NET ( MESRAN.NET)

Yoo!! belajar program dan cari informasi di Mesran.net

Yoo!! belajar program dan cari informasi di Mesran.Net-hai... semua sobat samlyot hutasoit gimana kabarnya? semoga sehat semua ya!!!!!!
sekarang saya akan memberitahu situs web untuk belajar program dan cari informasi yaitu Mesran.net

contoh program yang di bahas di Mesran.net yaitu vb.net,pascal,java,dan database dan masih banyak lagi bahasa pemograman yang lain.
Bagi sobat-sobat yang suka dengan program,mesran.net bisa membantu anda untuk belajar dan mengenal
lebih dalam lagi apa itu bahasa pemograman.

Dan sudah terbukti sama saya, dulu saya agak ga nerti apa itu bahasa program dan setelah saya sering belajar program dan nengok informasi dari Mesran.net  sekarang saya sudah lebih mengerti apa itu bahasa pemograman.

okayy kawan sekarang samlyot hutasoit sekian dulu bagi info tentang mesran.net semoga info ini bermanfaat bagi kalian semua..
AMENN!!!!

.

Tugas Program VB

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "FROM GAJI"
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("KEPALA BAGIAN")
        JABATAN.Items.Add("STAFF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("TIDAK MENIKAH")

        For I = 1 To 4
            JUMLAH_ANAK.Items.Add(I)
        Next I
        For I = 1 To 10
            JAM_LEMBUR.Items.Add(I)
        Next I
        BUATTABEL()
    End Sub

    Sub BUATTABEL()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI", 180, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJ ISTRI", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TUNJ ANAK", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JAM LEMBUR", 80, HorizontalAlignment.Center)
        LV.Columns.Add("HONOR LEMBUR", 180, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NIK.Text
        LST.SubItems.Add(Nama.Text)
        LST.SubItems.Add(JABATAN.Text)
        LST.SubItems.Add(Gaji.Text)
        LST.SubItems.Add(STATUS.Text)
        LST.SubItems.Add(Tistri.Text)
        LST.SubItems.Add(JUMLAH_ANAK.Text)
        LST.SubItems.Add(TUNJ_ANAK.Text)
        LST.SubItems.Add(JAM_LEMBUR.Text)
        LST.SubItems.Add(Ulembur.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TOTAL.Text)
        LV.Items.Add(LST)
    End Sub

    Sub bunga(ByVal t As Form)
        NIK.Text = ""
        Nama.Text = ""
        JABATAN.Text = ""
        Gaji.Text = ""
        STATUS.Text = ""
        Tistri.Text = ""
        JUMLAH_ANAK.Text = ""
        TUNJ_ANAK.Text = ""
        JAM_LEMBUR.Text = ""
        Ulembur.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        Select Case JABATAN.Text
            Case "MANDOR" : Gaji.Text = 1750000
            Case "KEPALA BAGIAN" : Gaji.Text = 2500000
            Case "STAFF" : Gaji.Text = 1250000
        End Select
        PAJAK.Text = 0.015 * Gaji.Text
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        Select Case STATUS.Text
            Case "MENIKAH" : Tistri.Text = 0.09 * Gaji.Text
            Case "TIDAK MENIKAH" : Tistri.Text = 0
        End Select
    End Sub

    Private Sub JUMLAH_ANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH_ANAK.SelectedIndexChanged
        If JUMLAH_ANAK.Text >= 2 And STATUS.Text = "MENIKAH" Then
            TUNJ_ANAK.Text = 0.07 * Gaji.Text
        ElseIf JUMLAH_ANAK.Text = 1 And STATUS.Text = "MENIKAH" Then
            TUNJ_ANAK.Text = 0.03 * Gaji.Text
        Else
            TUNJ_ANAK.Text = 0
        End If
    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        If JABATAN.Text = "MANDOR" Then
            Ulembur.Text = 7500
        ElseIf JABATAN.Text = "KEPALA BAGIAN" Then
            Ulembur.Text = 10000
        ElseIf JABATAN.Text = "STAFF" Then
            Ulembur.Text = 5000
        Else
            Ulembur.Text = 0
        End If
        TOTAL.Text = Val(Ulembur.Text * JAM_LEMBUR.Text) + Val(Gaji.Text) + Val(Tistri.Text) + Val(TUNJ_ANAK.Text) - Val(PAJAK.Text)
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : Nama.Text = "SAMLYOT HUTASOIT"
            Case "002" : Nama.Text = "ANDI"
            Case "003" : Nama.Text = "DIAN"
        End Select
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENYIMPAN?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        ISITABEL()
        bunga(Me)
    End Sub

    Private Sub HAPUS_ITEMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_ITEMS.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub HAPUS_SEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_SEMUA.Click
        MsgBox("APAKAH ANDA YAKIN INGIN MENGHAPUS?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        LV.Items.Clear()
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        MsgBox("APAKAH ANDA YAKIN INGIN KELUAR?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        Me.Close()
    End Sub
End Class

Gambar Hasil Program

Tugas Bahasa Pemrograman