Berikut designnya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110480")
NPM.Items.Add("12110431")
NPM.Items.Add("12110435")
NPM.Items.Add("12110456")
NPM.Items.Add("12110460")
Me.Text = "FORM NILAI"
Me.BackColor = Color.Goldenrod
KD.Items.Add("01")
KD.Items.Add("02")
KD.Items.Add("03")
KM.Items.Add("001")
KM.Items.Add("002")
KM.Items.Add("003")
KM.Items.Add("004")
NK.Items.Add("50")
NK.Items.Add("60")
NK.Items.Add("70")
NT.Items.Add("50")
NT.Items.Add("60")
NT.Items.Add("70")
NUTS.Items.Add("50")
NUTS.Items.Add("60")
NUTS.Items.Add("70")
NUAS.Items.Add("50")
NUAS.Items.Add("60")
NUAS.Items.Add("70")
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110480"
NAMA.Text = "LIA WAROKA"
JENJANG.Text = "S1"
JURUSAN.Text = "TEKNIK INFORMATIKA"
Case "12110431"
NAMA.Text = "OKA"
JENJANG.Text = "D3"
JURUSAN.Text = "MANEJEMEN INFORMATIKA"
Case "12110435"
NAMA.Text = "WIDI"
JENJANG.Text = "D3"
JURUSAN.Text = "MANAJEMEN AKUNTASI"
Case "12110456"
NAMA.Text = "ANDI"
JENJANG.Text = "D1"
JURUSAN.Text = "TEKNIK KOMPUTER"
Case Else
NAMA.Text = "VERA"
JENJANG.Text = "D1"
JURUSAN.Text = "DESAIN GRAFIS"
End Select
End Sub
Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
If KD.Text = "01" Then
NDOSEN.Text = "MESRAN"
ElseIf KD.Text = "02" Then
NDOSEN.Text = "TARONI ZUBER"
ElseIf KD.Text = "03" Then
NDOSEN.Text = "JUNIAWAN GULO"
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 = " "
KD.Text = " "
NDOSEN.Text = " "
KM.Text = " "
MKULIAH.Text = " "
NK.Text = " "
NT.Text = " "
NUTS.Text = " "
NUAS.Text = " "
NA.Text = " "
NHURUF.Text = " "
KETERANGAN.Text = " "
End Sub
Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
Select Case KM.Text
Case "001"
MKULIAH.Text = "VISUAL BASIC"
Case "002"
MKULIAH.Text = "SISTEM OPERASI'"
Case Else
MKULIAH.Text = "STRUKTUR DATA"
End Select
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
Me.Close()
End Sub
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.35 * NUTS.Text + 0.45 * NUAS.Text
If NA.Text >= 80 Then
NHURUF.Text = "A"
KETERANGAN.Text = "LULUS"
ElseIf NA.Text >= 70 Then
NHURUF.Text = "B"
KETERANGAN.Text = "LULUS"
ElseIf NA.Text >= 60 Then
NHURUF.Text = "C"
KETERANGAN.Text = "LULUS"
ElseIf NA.Text >= 50 Then
NHURUF.Text = "D"
KETERANGAN.Text = "GAGAL"
ElseIf NA.Text <= 45 Then
NHURUF.Text = "E"
KETERANGAN.Text = "GAGAL"
End If
End Sub
End Class
hasil dari cara penyelesaiaan diatas :
tugas mesran.net
