Langkah-Langkah Dalam Membuat Program NPM Mahasiswa

Berikut adalah langkah-langkah dalam membuat Program NPM mahasiswa

1. Buat dahulu design form

 

gambar dari design form

2. Kemudian Buat Listing Program NPM  Tersebut:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12111000")
        npm.Items.Add("12111001")
        npm.Items.Add("12111011")

        kdosen.Items.Add("01")
        kdosen.Items.Add("02")
        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")

        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")

        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")


        nuts.Items.Add("50")
        nuts.Items.Add("60")
        nuts.Items.Add("70")
        nuts.Items.Add("80")
        nuts.Items.Add("90")

        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12111000"
                nama.Text = "Philip"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
            Case "12111001"
                nama.Text = "Andi"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
            Case Else
                nama.Text = "Budi"
                jenjang.Text = "D1"
                jurusan.Text = "teknik komputer"
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran,M.Kom"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Tonny Limbong,S.Kom,M.Kom"
        ElseIf kdosen.Text = "03" Then
            ndosen.Text = "Sinar Sinurat,ST,M.Kom"
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nuts.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nu.Text = ""
        nakhir.Text = ""
        nhuruf.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 kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "Kalkulus"
            Case "003"
                mkuliah.Text = "Matriks"
        End Select
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nu.Text
        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
            keterangan.Text = "sangat memuaskan"

        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
            keterangan.Text = "memuaskan"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
            keterangan.Text = "cukup memuaskan"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
            keterangan.Text = " buruk"
        Else
            nhuruf.Text = "E"
            keterangan.Text = "sangat buruk"
        End If
    End Sub

End Class

Setelah Listing Program selesai dan Design Program Visual Basic 2008 atau VB Net 

Maka Hasil nya akan seperti berikut :

 

Gambar Hasil dari Program Tersebut

Itu adalah Langkah - Langkah dalam membuat Program NPM Mahasiswa tersebut.

Sekian dan Terima Kasih...