Mari kita belajar VB/Data nilai

 Tugas VB

Data Nilai Mahasiswa
1.Pertama-tama desain dan atur propertisnya seperti pada gambar di bawah ini:


2. Kemudian ketiklah listing program seperti dibawah ini :


Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110075")
        npm.Items.Add("12110092")
        npm.Items.Add("12110559")

        kode_dosen.Items.Add("MS")
        kode_dosen.Items.Add("YH")
        kode_dosen.Items.Add("sS")

        kode_matakuliah.Items.Add("KBTI4306")
        kode_matakuliah.Items.Add("KKTI4303")
        kode_matakuliah.Items.Add("KBTI4305")

        Dim N As Integer
        For N = 1 To 100
            nilai_kehadiran.Items.Add(N)
            nilai_tugas.Items.Add(N)
            nilai_uts.Items.Add(N)
            nilai_uas.Items.Add(N)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "12110075" Then
            nama.Text = "Ayu anggraini"
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf npm.Text = "12110092" Then
            nama.Text = "elvara"
            jenjang.Text = "DIII"
            jurusan.Text = "manajemen informasi"
        Else
            nama.Text = "adelina"
            jenjang.Text = "DI"
            jurusan.Text = "Desain Grafis"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        If kode_dosen.Text = "MS" Then
            nama_dosen.Text = "Mesran M.Kom"
        ElseIf kode_dosen.Text = "YH" Then
            nama_dosen.Text = "Yasir Hasan,S.Kom"
        Else
            nama_dosen.Text = "Sinar Sinurat,ST,M.Kom"
        End If

    End Sub

    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        If kode_matakuliah.Text = "KBTI4306" Then
            mata_kuliah.Text = "Pemograman Visual"
        ElseIf kode_matakuliah.Text = "KKTI4303" Then
            mata_kuliah.Text = "Sistem Operasi"
        Else
            mata_kuliah.Text = "Struktur data"
        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If nilai_akhir.Text = "" Then
            nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
            nilai_akhir.Focus()
        End If
        If nilai_akhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
        If nilai_akhir.Text >= 80 Then
            nilai_huruf.Text = "A"
        ElseIf nilai_akhir.Text >= 70 Then
            nilai_huruf.Text = "B"
        ElseIf nilai_akhir.Text >= 60 Then
            nilai_huruf.Text = "C"
        ElseIf nilai_akhir.Text >= 50 Then
            nilai_huruf.Text = "D"
        Else
            nilai_huruf.Text = "E"
        End If

    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 = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_kehadiran.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If

    End Sub
End Class

3.Lalu jalan kan progamnya atau tekan F5,Dan hasilnya seperti pada gambar di bawah ini.