Quiz no 1 Latihan Listview Perhitungan Penjualan Barang

Public Class Form1

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

        If Asc(e.KeyChar) = 13 Then
            THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

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

        kbarang.Items.Add("TS001")
        kbarang.Items.Add("TS002")
        kbarang.Items.Add("VG001")
        kbarang.Items.Add("VG002")
    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : Nbarang.Text = "Flashdisk 4GB"
            Case "002" : Nbarang.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            Harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            Harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            Harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            Harga.Text = 80000

        End If

    End Sub


    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""
    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        lv.Items.Clear()
    End Sub

    Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

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

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""

    End Sub

    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nomor.Text
        lst.SubItems.Add(kbarang.Text)
        lst.SubItems.Add(Nbarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(THarga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
        THarga.Text = (Harga.Text) * (jumlahbeli.Text)
    End Sub
End Class

Tugas pembahasan bahasa pemograman

Belajar Bahasa Pemograman 

     

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111001")
        NPM.Items.Add("12111002")
        NPM.Items.Add("13110737")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12111001"
                Nama.Text = "Bayu Walanda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12111002"
                Nama.Text = "Candro S"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem informasi"
            Case "13110737"
                Nama.Text = "Sherin Dhini"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class

Belajar Pemograman mesran.blogspot.com

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12111001")
        NPM.Items.Add("12111002")
        NPM.Items.Add("12111003")

        KodeDosen.Items.Add("300")
        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")

        KodeMatakuliah.Items.Add("A11")
        KodeMatakuliah.Items.Add("A12")
        KodeMatakuliah.Items.Add("A13")

        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12111001"
                Nama.Text = "Bayu Walanda"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik informatika"
            Case "12111002"
                Nama.Text = "Candro S"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem informasi"
            Case "12111003"
                Nama.Text = "Eko juliansayah"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Nama.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "300"
                NamaDosen.Text = "Abdul sani sembiring M.kom"
            Case "301"
                NamaDosen.Text = "Sinar sinurat ST, Mkom"
            Case "302"
                NamaDosen.Text = "Mesran S.kom, M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A11"
                NamaMatakuliah.Text = "Sistem operasi"
            Case "A12"
                NamaMatakuliah.Text = "Struktur Data"
            Case "A13"
                NamaMatakuliah.Text = "Programan visual"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
End Class