Tugas Visual Basic

Pemrograman Visual Basic.

Berikut desainnya:

 

Listing programnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110467")
        NPM.Items.Add("12110677")
        NPM.Items.Add("12110434")
        NPM.Items.Add("12111012")
        NPM.Items.Add("12110460")

        KDosen.Items.Add("432")
        KDosen.Items.Add("433")
        KDosen.Items.Add("434")
        KDosen.Items.Add("435")
        KDosen.Items.Add("436")

        Kdemtkul.Items.Add("KKTI4303")
        Kdemtkul.Items.Add("KBTI4306")
        Kdemtkul.Items.Add("KBTI4303")
        Kdemtkul.Items.Add("KBTI4305")
        Kdemtkul.Items.Add("KBTI4301")

        Dim x As Integer
        For x = 1 To 100
            Nhadir.Items.Add(x)
            Ntugas.Items.Add(x)
            Nuts.Items.Add(x)
            Nuas.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 "12110467"
                Nama.Text = "Agustinus Gunawan Siregar"
            Case "12110677"
                Nama.Text = "Evi Rida Maha"
            Case "12110434"
                Nama.Text = "Devie Puspita"
            Case "12111012"
                Nama.Text = "Rizky Mawarni"
            Case "12110460"
                Nama.Text = "Vermina Marbun"
        End Select
        Jenjang.Text = "SI"
        jurusan.Text = "Teknik Informatika"
    End Sub

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "432"
                NmDosen.Text = "Tonny Limbong,S.Kom,M.Kom"
            Case "433"
                NmDosen.Text = "Alex Rikki,S.Kom,M.Kom"
            Case "434"
                NmDosen.Text = "Yasir Hasan,S.Kom"
            Case "435"
                NmDosen.Text = "Mesran,M.Kom"
            Case "436"
                NmDosen.Text = "Pristiwanto,S.Kom"
        End Select
    End Sub

    Private Sub Kdemtkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdemtkul.SelectedIndexChanged
        Select Case Kdemtkul.Text
            Case "KBTI4303"
                Mkul.Text = "Sistem Basis Data"
            Case "KKTI4303"
                Mkul.Text = "Struktur Data"
            Case "KBTI4306"
                Mkul.Text = "Sistem Operasi"
            Case "KBTI4305"
                Mkul.Text = "Pemograman Visual"
            Case "KBTI4302"
                Mkul.Text = "Komunikasi Data"
        End Select
    End Sub

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

    Private Sub Nhadir_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nhadir.SelectedIndexChanged

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Nakhir.Text = 0.1 * Nhadir.Text + 0.15 * Ntugas.Text + 0.35 * Nuts.Text + 0.45 * Nuas.Text

        If Nakhir.Text >= 80 Then
            Nhuruf.Text = "A"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 70 Then
            Nhuruf.Text = "B"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 60 Then
            Nhuruf.Text = "C"
            Keterangan.Text = "LULUS"
        ElseIf Nakhir.Text >= 50 Then
            Nhuruf.Text = "D"
            Keterangan.Text = "GAGAL"
        Else
            Nhuruf.Text = "E"
            Keterangan.Text = "GAGAL"
        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 = ""
        KDosen.Text = ""
        NmDosen.Text = ""
        Kdemtkul.Text = ""
        Mkul.Text = ""
        Nhadir.Text = ""
        Ntugas.Text = ""
        Nuts.Text = ""
        Nuas.Text = ""
        Nakhir.Text = ""
        Nhuruf.Text = ""
        Keterangan.Text = ""
    End Sub

End Class
 

Setelah kita jalankan, maka hasilnya adalah: