Ini adalah desain awal perhitungan nilai mahasiswa :
Public Class formnilai
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110198")
npm.Items.Add("11024456")
npm.Items.Add("10032251")
npm.Items.Add("12115568")
koded.Items.Add("4A4")
koded.Items.Add("5A5")
koded.Items.Add("6A6")
koded.Items.Add("7A7")
kodem.Items.Add("A2C")
kodem.Items.Add("A2B")
kodem.Items.Add("A2D")
kodem.Items.Add("A2E")
Dim I As Integer
For I = 1 To 100
nk.Items.Add(I)
nt.Items.Add(I)
nuts.Items.Add(I)
Next I
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(npm.Text, 2)
If x = "12" Then
jenjang.Text = "S1"
ElseIf x = "11" Then
jenjang.Text = "D3"
ElseIf x = "10" Then
jenjang.Text = "D1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = "11" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "02" Then
jurusan.Text = "Manajemen Komputer"
ElseIf x = "03" Then
jurusan.Text = "Komputerisasi Akuntansi"
End If
x = Microsoft.VisualBasic.Right(npm.Text, 4)
If x = "0198" Then
nama.Text = "Aisyah Harahap"
ElseIf x = "4456" Then
nama.Text = "Khaniza Haffafaa"
ElseIf x = "2251" Then
nama.Text = "Daviano Khaezain"
ElseIf x = "5568" Then
nama.Text = "Zahwa Nadya"
End If
End Sub
Private Sub koded_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles koded.SelectedIndexChanged
Select Case koded.Text
Case "4A4"
namados.Text = "Kristian Siregar S.Kom, M.kom"
Case "5A5'"
namados.Text = "Pilipus Tarigan ST,M.Kom"
Case "6A6"
namados.Text = "Sinar Sinurat ST,M.Kom"
Case "7A7"
namados.Text = "Azanuddin s.Kpm, M.Kom"
End Select
End Sub
Private Sub kodem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodem.SelectedIndexChanged
Select Case kodem.Text
Case "A2C"
matkul.Text = "HTML"
Case "A2B"
matkul.Text = "Arsitektur dan Organisasi Komputer"
Case "A2D"
matkul.Text = "Struktur Data"
Case "A2E"
matkul.Text = "Interaksi Manusia Dan Komputer"
End Select
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 = ""
koded.Text = ""
namados.Text = ""
kodem.Text = ""
matkul.Text = ""
nt.Text = ""
nk.Text = ""
nuts.Text = ""
na.Text = ""
huruf.Text = ""
ket.Text = ""
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
na.Text = 0.2 * nk.Text + 0.4 * nt.Text + 0.4 * nuts.Text
If na.Text >= 80 Then
huruf.Text = "A"
ElseIf na.Text >= 70 Then
huruf.Text = "B"
ElseIf na.Text >= 60 Then
huruf.Text = "C"
ElseIf na.Text >= 50 Then
huruf.Text = "D"
Else
huruf.Text = "E"
End If
If na.Text >= 50 Then
ket.Text = "LULUS"
Else
huruf.Text = "GAGAL"
End If
End Sub
End Class
Ini adalah hasil dari desain diatas: