Quis no 1

Public Class Quiz1

    Sub BuatTabel()
        Storage.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Jumlah Pembelian", 80, HorizontalAlignment.Center)
        Storage.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Storage.View = View.Details
        Storage.GridLines = True
        Storage.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = No_Pembelian.Text
        Lst.SubItems.Add(Kd_Barang.Text)
        Lst.SubItems.Add(Nm_Barang.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        Storage.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kd_Barang.Items.Add("TS001")
        Kd_Barang.Items.Add("TS002")
        Kd_Barang.Items.Add("VG001")
        Kd_Barang.Items.Add("VG002")

        Call BuatTabel()

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kd_Barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kd_Barang.Text, 3)
        If x = "001" Then
            Nm_Barang.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nm_Barang.Text = "Flashdisk 2GB"
        End If

        Select Case Kd_Barang.Text
            Case "TS001"
                Harga.Text = "105000"
            Case "TS002"
                Harga.Text = "75000"
            Case "VG001"
                Harga.Text = "90000"
            Case "VG002"
                Harga.Text = "60000"
        End Select
    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Tambah.Click
        IsiTabel()
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress
        Total.Text = Harga.Text * Val(Jumlah.Text)
    End Sub

    Private Sub Btn_Hapus_yg_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_yg_Dipilih.Click
        Storage.Items.Remove(Storage.SelectedItems(0))
    End Sub

    Private Sub Btn_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus_Semua.Click
        Storage.Items.Clear()
    End Sub

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

    Private Sub Btn_Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
        No_Pembelian.Text = ""
        Kd_Barang.Text = ""
        Nm_Barang.Text = ""
        Harga.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
End Class

Postingan Nilai Mahasiswa

Ini postingan saya untuk memenuhi tugas saya mata kuliah Pemograman visual

baik inilah program nya

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        End

    End Sub

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

        NPM.Items.Add("12110377")

        NPM.Items.Add("12110404")

        NPM.Items.Add("12110400")

        NPM.Items.Add("12110597")

        NPM.Items.Add("12110321")

        KD.Items.Add("301")

        KD.Items.Add("302")

        KD.Items.Add("303")

        KD.Items.Add("304")

        KD.Items.Add("305")

        KMK.Items.Add("301")

        KMK.Items.Add("302")

        KMK.Items.Add("303")

        KMK.Items.Add("304")

        KMK.Items.Add("305")

        Dim x As Integer

        For x = 100 To 1 Step -3

            NK.Items.Add(x)

        Next (x)

        x = 100

        Do While x >= 1

            NT.Items.Add(x)

            x = x - 3

        Loop

        For x = 100 To 1 Step -3

            UTS.Items.Add(x)

        Next (x)

        For x = 100 To 1 Step -3

            UAS.Items.Add(x)

        Next (x)

    End Sub

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

        Select Case NPM.Text

            Case "12110377"

                NM.Text = "Meitri Widya Pradipta"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110404"

                NM.Text = "Kristina Nancy LumbanGaol"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110400"

                NM.Text = "Steven Leo Talenta Ginting"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110597"

                NM.Text = "Doni Armando"

                Jenjang.Text = "S1"

                Jurusan.Text = "Teknik Informatika"

            Case "12110321"

                NM.Text = "Cahyo Shobirin"

                Jenjang.Text = "S1"

                Jurusan.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 "301"

                ND.Text = "Toni Limbong,S.Kom,M.Kom"

            Case "302"

                ND.Text = "Sinar Sinurat,ST,M.Kom"

            Case "303"

                ND.Text = "Mesran,S.Kom,M.Kom"

            Case "304"

                ND.Text = "Kennedi Tampubolon,S.Si"

            Case "305"

                ND.Text = "Kristian Siregar,S.Kom"

        End Select

    End Sub

    Private Sub KMK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMK.SelectedIndexChanged

        Select Case KMK.Text

            Case "301"

                MK.Text = "Sistem Basis Data"

            Case "302"

                MK.Text = "Matematika Diskrit"

            Case "303"

                MK.Text = "Pemrogaman Visual Basic"

            Case "304"

                MK.Text = "Kalkulus II"

            Case "305"

                MK.Text = "HTML"

        End Select

    End Sub

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

        NA.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * NT.Text + 0.1 * NK.Text()

        If NA.Text >= 50 Then

            KET.Text = "Lulus"

        Else

            KET.Text = "Gagal"

        End If

        If NA.Text >= 80 Then

            NH.Text = "A"

        ElseIf (NA.Text >= 70) And (NA.Text < 80) Then

            NH.Text = "B"

        ElseIf (NA.Text >= 60) And (NA.Text < 70) Then

            NH.Text = "C"

        ElseIf (NA.Text >= 50) And (NA.Text < 60) Then

            NH.Text = "D"

        Else

            NH.Text = "E"

        End If

    End Sub

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

        NPM.Text = ("")

        NM.Text = ("")

        Jenjang.Text = ("")

        Jurusan.Text = ("")

        KD.Text = ("")

        ND.Text = ("")

        KMK.Text = ("")

        MK.Text = ("")

        NK.Text = ("")

        NT.Text = ("")

        UTS.Text = ("")

        UAS.Text = ("")

        NA.Text = ("")

        NH.Text = ("")

        KET.Text = ("")

    End Sub

End Class

Dan hasilnya. .