Program Pengimputan Nilai Mahasiswa Dengan VB.Net

Dafta komponen	Name
Combobox1	NPM
Textbox1	Nama
Textbox2	Jenjang
Textbox3	Jurusan
Combobox2	Kode_Dosen
Textbox4	Nama_Dosen
Combobox3	Kode_Matakuliah
Textbox5	Mata_Kuliah
Combobox4	Kehadiran
Combobox5	Tugas
Combobox6	UTS
Combobox7	UAS
Textbox6	Akhir
Textbox7	Huruf
Textbox8	Keterangan
Button1	Btn_Nama
Button2	Btn_Hapus
Button3	Btn_Keluar

                                                  Perintah dalam Pemginputan Nilai Mahasiswa:

Public Class Form1

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim d As Integer
        For d = 1 To 5
            NPM.Items.Add("12110400" & d)
        Next d
        For d = 1 To 5
            Kode_Dosen.Items.Add("30" & d)
        Next d
        For d = 1 To 5
            Kode_MataKuliah.Items.Add("30" & d)
        Next
        Dim x As Integer
        For x = 100 To 1 Step -3
            Kehadiran.Items.Add(x)
        Next (x)
        x = 100
        Do While x >= 1
            Tugas.Items.Add(x)
            x = x - 3
        Loop
        For x = 100 To 1 Step -3
            UTS.Items.Add(x)
        Next (x)
        For x = 100 To 1 Step -3
            UAS.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 "12110401"
                Nama.Text = "Mulia Hamdani"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
            Case "12110402"
                Nama.Text = "Cahyo Shobirin"
                Jenjang.Text = "S1"
                Jurusan.Text = "SI"
            Case "12110403"
                Nama.Text = "Dasner Ramon Butar-butar"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
            Case "12110404"
                Nama.Text = "Doni Armando"
                Jenjang.Text = "S1"
                Jurusan.Text = "MI"
            Case "12110405"
                Nama.Text = "Yuyun Purnomo"
                Jenjang.Text = "S1"
                Jurusan.Text = "MI"
        End Select
    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged
        Select Case Kode_Dosen.Text
            Case "301"
                Nama_Dosen.Text = "Toni Limbong,S.Kom,M.Kom"
            Case "302"
                Nama_Dosen.Text = "Sinar Sinurat,ST,M.Kom"
            Case "303"
                Nama_Dosen.Text = "Mesran,S.Kom,M.Kom"
            Case "304"
                Nama_Dosen.Text = "Kennedi Tampubolon,S.Si"
            Case "305"
                Nama_Dosen.Text = "Kristian Siregar,S.Kom"
        End Select
    End Sub

    Private Sub Kode_MataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_MataKuliah.SelectedIndexChanged
        Select Case Kode_MataKuliah.Text
            Case "301"
                Mata_Kuliah.Text = "Sistem Basis Data"
            Case "301"
                Mata_Kuliah.Text = "Matematika Diskrit"
            Case "303"
                Mata_Kuliah.Text = "Pemrogaman Visual Basic"
            Case "304"
                Mata_Kuliah.Text = "Kalkulus II"
            Case "305"
                Mata_Kuliah.Text = "HTML"
        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 = ("")
        Jurusan.Text = ("")
        Kode_Dosen.Text = ("")
        Nama_Dosen.Text = ("")
        Kode_MataKuliah.Text = ("")
        Mata_Kuliah.Text = ("")
        Kehadiran.Text = ("")
        Tugas.Text = ("")
        UTS.Text = ("")
        UAS.Text = ("")
        Akhir.Text = ("")
        Huruf.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 Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Akhir.Text = 0.45 * UAS.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Kehadiran.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) And (Akhir.Text < 80) Then
            Huruf.Text = "B"
        ElseIf (Akhir.Text >= 60) And (Akhir.Text < 70) Then
            Huruf.Text = "C"
        ElseIf (Akhir.Text >= 50) And (Akhir.Text < 60) Then
            Huruf.Text = "D"
        Else
            Huruf.Text = "E"
        End If
    End Sub



End Class 

mesran.blogspot.com
Belajar Bahasa Pemrograman