Cara Membuat Form Nilai Mahasiswa !!! Kereenn

Bagi teman-teman yang ingin membuat Form nilai mahasiswa, silahkan mengikuti koding yang saya bagikan. pertama saya akan memulainya dari koding list program dulu, supaya teman-teman bisa mengikutinya dengan gampang.

Listing Program :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110982")
        NPM.Items.Add("12110040")
        NPM.Items.Add("12113456")
        NPM.Items.Add("12118890")
        NPM.Items.Add("12113435")

        KDosen.Items.Add("D001")
        KDosen.Items.Add("D002")
        KDosen.Items.Add("D003")
        KDosen.Items.Add("D004")
        KDosen.Items.Add("D005")

        Kodematkul.Items.Add("M001")
        Kodematkul.Items.Add("M002")
        Kodematkul.Items.Add("M003")
        Kodematkul.Items.Add("M004")
        Kodematkul.Items.Add("M005")

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

Nah, selanjutnya silahkan anda masuk ke tahap nama yang akan di ikutsertakan, boleh nama teman anda, sahabat pacar dan keluarga atau siapalah terserah sama anda saja.

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text

            Case "12110982"
                Nama.Text = "Rahmad Dedi"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnik Informatika"
            Case "12110040"
                Nama.Text = "Sri Agustina"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12113456"
                Nama.Text = "Sahli Fadli"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case "12118890"
                Nama.Text = "Nur Fika"
                Jenjang.Text = "D3"
                Jurusan.Text = "Akutansi Informatika"
            Case "12113435"
                Nama.Text = "Tumpak s"
                Jenjang.Text = "D1"
                Jurusan.Text = "Tekhnisi"
            Case Else
                Nama.Text = "-"
        End Select

    End Sub

Berikutnya anda masuk ke koding selanjutnya yaitu koding Case nama, Koding case name itu adalah dimana anda disuruh untuk membuat nama pihak selanjutnya berupa nama lain. Contoh nya adalah nama Dosen, Guru dan atau apa yang teman" perlukan. 

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "D001"
                NmDosen.Text = "Mesran"
            Case "D002"
                NmDosen.Text = "Sinar Sinurat"
            Case "D003"
                NmDosen.Text = "Toni Limbong"
            Case "D004"
                NmDosen.Text = "Harvei"
            Case "D005"
                NmDosen.Text = "Syahrizal"
            Case Else
                NmDosen.Text = "-"

        End Select
    End Sub

Buuatlah nama form ny sebanyak yang anda inginkan, dan selanjutnya koding untuk nama selanjutnya adalah berikut ini teman-teman ...

    Private Sub Kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematkul.SelectedIndexChanged
        Select Case Kodematkul.Text
            Case "M001"
                Nmatkul.Text = "Pemrograman Visual"
            Case "M002"
                Nmatkul.Text = "Sistem Operasi"
            Case "M003"
                Nmatkul.Text = "Komunikasi Data"
            Case "M004"
                Nmatkul.Text = "Arsitektur dan Organisasi Komputer"
            Case "M005"
                Nmatkul.Text = "Sistem Basis Data"
            Case Else
                Nmatkul.Text = "-"
        End Select
    End Sub

Uktum masalah ini silahkan dicopas kodingnya dan anda pastekan di lit program anda sendiri

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Close()
    End Sub

    Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
        NA.Text = 0.1 * Nhadir.Text + 0.15 * NT.Text + 0.3 * NU.Text + 0.45 * NUS.Text
        If NA.Text >= 50 Then
            Ket.Text = "LULUS"
        Else
            Ket.Text = "GAGAL"

        End If

        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        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 = ""
        Kodematkul.Text = ""
        Nmatkul.Text = ""
        Nhadir.Text = ""
        NT.Text = ""
        NU.Text = ""
        NUS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

End Class

Nah, jika kodingnya sudah benar maka tampilannya untuk koding tersebut adalah dibawah ini, Jika ada yang belum berhasil silahkan cek koding anda kembali dan jika sudah berhasil maka akan muncul form nilai mahasiswa seperti dibawah ini, form ini bisa diklik untuk membuat pilihan, anda akan diarahkan untuk memilih tanda panah yang ada pada form, setelah itu sudah diisi makan ikutin langkah proses supaya bisa dijadikan hasil.
Sekian postingans saya ini, semoga anda berhasil dalam membuat form nilai siswa yang anda kerjakan. Semoga bermanfaat sekian dan terimakasih . 

www.caramembuatformnilaimahasiswa.co.id
Hasil Program setelah dijalankan