Pembelian Barang

Berikut ini ialah Program Visual Basic nya

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KB.Items.Add("TS0001")
        KB.Items.Add("TS0002")
        KB.Items.Add("VG0001")
        KB.Items.Add("VG0002")

        Call BuatTabel()

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("No. Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 180, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = NP.Text
        Lst.SubItems.Add(KB.Text)
        Lst.SubItems.Add(NB.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JB.Text)
        Lst.SubItems.Add(TH.Text)

        LV.Items.Add(Lst)
    End Sub

        Private Sub SkL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkL.Click
        Call isitabel()
    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KB.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(KB.Text, 3)
        If x = "001" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "TS" Then
            NB.Text = "Flashdisk 2 GB"
        ElseIf x = "VG" Then
            NB.Text = "Flashdisk 4 GB"
        ElseIf x = "VG" Then
            merk.Text = "Flashdisk 2 GB"
        End If
    End Sub

    Private Sub TH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TH.KeyPress
        TH.Text = Harga.Text * JB.Text

    End Sub

      Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        NP.Text = ""
        KB.Text = ""
        NB.Text = ""
        merk.Text = ""
        Harga.Text = ""
        JB.Text = ""
        TH.Text = ""

    End Sub

    Private Sub HSD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HSD.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub HDP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HDP.Click
        LV.Items.Clear()
    End Sub
End Class

Tugas Belajar Bahasa Pemrograman

Program Penilaian Mahasiswa dalam Microsoft Visual Basic

Form design :

Form Program :

Public Class Form1

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

        NPM.Items.Add("12110900")

        NPM.Items.Add("12110880")

        NPM.Items.Add("12110918")

        NPM.Items.Add("12110770")

        KD.Items.Add("ME512AN")

        KD.Items.Add("NE11Y")

        KD.Items.Add("Ya5112")

        KD.Items.Add("GU113IO")

        KDM.Items.Add("KKTI4303")

        KDM.Items.Add("KBTI4306")

        KDM.Items.Add("KBTI4303")

        KDM.Items.Add("KBTI4305")

        Dim i As Integer

        For i = 1 To 100

            NH.Items.Add(i)

            NT.Items.Add(i)

            NU.Items.Add(i)

            NUA.Items.Add(i)

        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110900"

                Nama.Text = "Rio Fritz Salomo"

                Jenjang.Text = "S1"

                Jur.Text = "Teknik Informatika"

            Case "12110880"

                Nama.Text = "Hendri"

                Jenjang.Text = "S1"

                Jur.Text = "Sistem Informasi"

            Case "12110918"

                Nama.Text = "Ivana Jovita Butar-butar"

                Jenjang.Text = "S1"

                Jur.Text = "Manajemen Informatika"

            Case "12110770"

                Nama.Text = "Afrizal Syahputra"

                Jenjang.Text = "S1"

                Jur.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged

        Select Case KD.Text

            Case "ME512AN"

                ND.Text = "Mesran M.Kom"

            Case "NE11Y"

                ND.Text = "Nelly Astuti"

            Case "Ya5112"

                ND.Text = "Yasir Hasan"

            Case "GU113IO"

                ND.Text = "Guidio Ginting"

        End Select

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDM.SelectedIndexChanged

        Select Case KDM.Text

            Case "KKTI4303"

                MK.Text = "Struktur Data"

            Case "KBTI4306"

                MK.Text = "Sistem Operasi"

            Case "KBTI4303"

                MK.Text = "Sistem Basis Data"

            Case "KBTI4305"

                MK.Text = "Pemograman Visual Basic"

        End Select

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        KD.Text = ""

        ND.Text = ""

        KDM.Text = ""

        MK.Text = ""

        NH.Text = ""

        NT.Text = ""

        NU.Text = ""

        NUA.Text = ""

        NAK.Text = ""

        NHUr.Text = ""

        Ket.Text = ""

        Jur.Text = ""

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        NAK.Text = 0.1 * NH.Text + 0.3 * NT.Text + 0.15 * NU.Text + 0.45 * NUA.Text

        If NAK.Text >= 88 Then

            NHUr.Text = "A"

        ElseIf NAK.Text >= 79 Then

            NHUr.Text = "B+"

        ElseIf NAK.Text >= 69 Then

            NHUr.Text = "B"

        ElseIf NAK.Text >= 59 Then

            NHUr.Text = "C+"

        ElseIf NAK.Text >= 49 Then

            NHUr.Text = "C"

        ElseIf NAK.Text >= 39 Then

            NHUr.Text = "D"

        ElseIf NAK.Text >= 29 Then

            NHUr.Text = "E"

        End If

        If NAK.Text >= 65 Then

            Ket.Text = "Lulus"

        ElseIf NAK.Text <= 65 Then

            Ket.Text = "Gagal"

        End If

    End Sub

End Class

Hasil Output :