Tugas Kelas TI.P-1205

Tugas Pemograman Visual
Berikut designnya

berikut ini adalah cara penyelesaiaannya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110480")
        NPM.Items.Add("12110431")
        NPM.Items.Add("12110435")
        NPM.Items.Add("12110456")
        NPM.Items.Add("12110460")
        Me.Text = "FORM NILAI"
        Me.BackColor = Color.Goldenrod

        KD.Items.Add("01")
        KD.Items.Add("02")
        KD.Items.Add("03")

        KM.Items.Add("001")
        KM.Items.Add("002")
        KM.Items.Add("003")
        KM.Items.Add("004")

        NK.Items.Add("50")
        NK.Items.Add("60")
        NK.Items.Add("70")

        NT.Items.Add("50")
        NT.Items.Add("60")
        NT.Items.Add("70")

        NUTS.Items.Add("50")
        NUTS.Items.Add("60")
        NUTS.Items.Add("70")

        NUAS.Items.Add("50")
        NUAS.Items.Add("60")
        NUAS.Items.Add("70")

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110480"
                NAMA.Text = "LIA WAROKA"
                JENJANG.Text = "S1"
                JURUSAN.Text = "TEKNIK INFORMATIKA"

            Case "12110431"
                NAMA.Text = "OKA"
                JENJANG.Text = "D3"
                JURUSAN.Text = "MANEJEMEN INFORMATIKA"

            Case "12110435"
                NAMA.Text = "WIDI"
                JENJANG.Text = "D3"
                JURUSAN.Text = "MANAJEMEN AKUNTASI"

            Case "12110456"
                NAMA.Text = "ANDI"
                JENJANG.Text = "D1"
                JURUSAN.Text = "TEKNIK KOMPUTER"

            Case Else
                NAMA.Text = "VERA"
                JENJANG.Text = "D1"
                JURUSAN.Text = "DESAIN GRAFIS"

        End Select
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        If KD.Text = "01" Then
            NDOSEN.Text = "MESRAN"
        ElseIf KD.Text = "02" Then
            NDOSEN.Text = "TARONI ZUBER"
        ElseIf KD.Text = "03" Then
            NDOSEN.Text = "JUNIAWAN GULO"

        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 = " "
        KD.Text = " "
        NDOSEN.Text = " "
        KM.Text = " "
        MKULIAH.Text = " "
        NK.Text = " "
        NT.Text = " "
        NUTS.Text = " "
        NUAS.Text = " "
        NA.Text = " "
        NHURUF.Text = " "
        KETERANGAN.Text = " "



    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
        Select Case KM.Text
            Case "001"
                MKULIAH.Text = "VISUAL BASIC"
            Case "002"
                MKULIAH.Text = "SISTEM OPERASI'"
            Case Else
                MKULIAH.Text = "STRUKTUR DATA"
        End Select
    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 BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        NA.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.35 * NUTS.Text + 0.45 * NUAS.Text

        If NA.Text >= 80 Then
            NHURUF.Text = "A"
            KETERANGAN.Text = "LULUS"
        ElseIf NA.Text >= 70 Then
            NHURUF.Text = "B"
            KETERANGAN.Text = "LULUS"
        ElseIf NA.Text >= 60 Then
            NHURUF.Text = "C"
            KETERANGAN.Text = "LULUS"
        ElseIf NA.Text >= 50 Then
            NHURUF.Text = "D"
            KETERANGAN.Text = "GAGAL"
        ElseIf NA.Text <= 45 Then
            NHURUF.Text = "E"
            KETERANGAN.Text = "GAGAL"
        End If


    End Sub
End Class

hasil dari cara penyelesaiaan diatas :

tugas mesran.net