SOAL 1 :  Modifikasi kasus program berikut ini

 

design program :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13110000")
        npm.Items.Add("13110011")
        npm.Items.Add("13112011")
        kdosen.Items.Add("2011001")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13110000"
                nama.Text = "doni m"
            Case "13111011"
                nama.Text = "hendra s"
            Case Else
                nama.Text = "annikmah"
        End Select
    End Sub
End Class

 

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari total pembayaran tv
PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

 listing  view :
Public Class Form1

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nama.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        dis.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("TV Sony 14 Inch")
        nama.Items.Add("TV Sony 21 Inch")
        nama.Items.Add("TV Sony 32 Inch")
        nama.Items.Add("TV Sony 40 Inch")
        nama.Items.Add("TV Sony 80 Inch")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case "TV Sony 14 Inch"
                harga.Text = "1200000"
            Case "TV Sony 21 Inch"
                harga.Text = "2300000"
            Case "TV Sony 32 Inch"
                harga.Text = "3300000"
            Case "TV Sony 40 Inch"
                harga.Text = "5000000"
            Case "TV Sony 80 Inch"
                harga.Text = "10000000"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class

TUGAS VB

Public Class Form1

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

        npm.Items.Add("13110000")

        npm.Items.Add("13120001")

        npm.Items.Add("13130002")

        Kd_dosen.Items.Add("2010001")

        Kd_dosen.Items.Add("2010002")

        Kd_dosen.Items.Add("2010003")

        kd_makul.Items.Add("kd1211")

        kd_makul.Items.Add("kd1312")

        kd_makul.Items.Add("kd1415")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "13110000"

                nama.Text = "saprida"

            Case "13110001"

                nama.Text = "ratna"

            Case Else

                nama.Text = "julia"

        End Select

    End Sub

    Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged

        Select Case Kd_dosen.Text

            Case "2010001"

                nama_dosen.Text = "togar s.kom"

            Case "2010002"

                nama_dosen.Text = "tuji m.kom"

            Case "2010003"

                nama_dosen.Text = "ijah s.kom"

        End Select

    End Sub

    Private Sub kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_makul.SelectedIndexChanged

        Select Case kd_makul.Text

            Case "kd1211"

                makul.Text = "pemrograman visual"

            Case "kd1312"

                makul.Text = "arsitektur komputer"

            Case "kd1415"

                makul.Text = "Struktur Data"

        End Select

    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 = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        akhir.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

        Microsoft.VisualBasic.Right(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "S1"

        ElseIf x = "2" Then

            jenjang.Text = "D3"

        ElseIf x = "3" Then

            jenjang.Text = "S1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik informatika"

        End If

    End Sub

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

        End

    End Sub

End Class