Pemograman Nilai Mahasiswa dengan Visual Studio

Hai semua ,,kali ini saya akan membahas tentang Pemograman Mahasiswa ,yang meliputi Nama,NPM,Nama Dosen,,Nilai dan lainya. Sebenernya ini merupakan tugas admin ,tapi bagi sahabat D-dragon yang pengen tau juga silahkan dilihat  :) .

Pertama kita buat desain form  nya seperti gambar di bawah ini

Lalu double klik form nya ,,setelah itu isikan code  dibawah ini:


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("11120483")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")


        Dim i As Integer
        For i = 10 To 100
            nk.Items.Add(i)
        Next i

        Dim j As Integer
        For j = 10 To 100
            nt.Items.Add(j)
        Next j

        Dim k As Integer
        For k = 10 To 100
            uts.Items.Add(k)
        Next k

        Dim l As Integer
        For l = 10 To 100
            uas.Items.Add(l)
        Next l

    End Sub



Jika sudah,,double klik pada combobox " NPM",isi seperti dibawah ini:

Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110485"
                nama.Text = "Dezy Wandrio"
            Case "12110020"
                nama.Text = " Invandri Lubis"
            Case "12020483"
                nama.Text = " Firda auli"
            Case "12030478"
                nama.Text = "Park cu Yoon"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        If i = "12" Then
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        ElseIf i = "10" Then
            jenjang.Text = "D1"
            jurusan.Text = "Jaringan Komunikasi"
        End If
    End Sub



Setelah itu double klik combobox " kode dosen",,lalu isikan source code berikut:

 Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KKTI01"
                nmdosen.Text = "Mesran,M.Kom"
            Case "KKTI02"
                nmdosen.Text = "Ahmad Zakir,St,M.Kom"
            Case "KKTI03"
                nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
            Case "KKTI04"
                nmdosen.Text = "Maranata,ST,M.Kom"
        End Select
    End Sub



setelah itu doble klik lagi combobox" Kode mata kuliah",,, lalu  isikan  code berikut:

Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
        Select Case kdmatakuliah.Text
            Case "MT01"
                matakuliah.Text = "struktur data"
            Case "MT02"
                matakuliah.Text = "Pemograman Visual"
            Case "MT03"
                matakuliah.Text = "Komunikasi Data"
            Case "MT04"
                matakuliah.Text = "Arsitektur Dan Organissi"
        End Select
    End Sub


setelah itu double klik button " proses" ,,,,lalu isikan code berikut:

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.3 * uts.Text + 0.45 * uas.Text
        If na.Text >= 80 Then
            nh.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
            keterangan.Text = "Gagal"
        Else
            nh.Text = "E"
            keterangan.Text = "Gagal"

        End If
    End Sub 


jangan lupa pada button " hapus dan keluar " isi seperti di bawah ini:

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

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

    End Sub
End Class


hasilnya::

link download soyrce code :  Pemograman Nilai mahasiswa dengan Vb.net

 sekian sahabat d dragon ,sampai disini postingan tugas admin  ,,,,

 semoga bemanfaat   :)