Membuat data Mahasiswa

Tugas Pemograman visual basic
berikut desain nya

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
        GroupBox1.BackColor = Color.BlueViolet
        npm.Items.Add("12110437")
        npm.Items.Add("12110438")
        npm.Items.Add("121110439")

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

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")

        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")

        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")


        nuts.Items.Add("50")
        nuts.Items.Add("60")
        nuts.Items.Add("70")
        nuts.Items.Add("80")
        nuts.Items.Add("90")

        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110437"
                nama.Text = "Joko Syahputra"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
            Case "12110438"
                nama.Text = "Yoga"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
            Case Else
                nama.Text = "Danu"
                jenjang.Text = "D1"
                jurusan.Text = "teknik komputer"
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Toni Limbong"
        ElseIf kdosen.Text = "03" Then
            ndosen.Text = "Sinar Sinurat"
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nuts.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nu.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

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

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "kalkulus"
            Case Else
                mkuliah.Text = "Matriks"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nu.Text
        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
            keterangan.Text = "sangat memuaskan"

        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
            keterangan.Text = "memuaskan"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
            keterangan.Text = "cukup memuaskan"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
            keterangan.Text = " buruk"
        Else
            nhuruf.Text = "E"
            keterangan.Text = "sangat buruk"


        End If
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class

Hasil dari penyelesaiaan di atas :

 

Tugas : mesran.net