Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 100 To 1 Step -5
NILAIMID.Items.Add(i)
NILAISMESTER.Items.Add(i)
Next i
NPM.Items.Add("13110498")
MATAKULIAH.Items.Add("KOMUNIKASI DATA")
MATAKULIAH.Items.Add("STRUKTUR DATA")
MATAKULIAH.Items.Add("SISTEM BASIS DATA")
End Sub
Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
NILAIAKHIR.Text = 0.4 * NILAIMID.Text + 0.6 * NILAISMESTER.Text
If NILAIAKHIR.Text >= 80 Then
NILAIHURUF.Text = "A"
ElseIf NILAIAKHIR.Text >= 70 Then
NILAIHURUF.Text = "B"
ElseIf NILAIAKHIR.Text >= 60 Then
NILAIHURUF.Text = "C"
ElseIf NILAIAKHIR.Text >= 50 Then
NILAIHURUF.Text = "D"
ElseIf NILAIHURUF.Text = "E" Then
End If
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = (13110498) Then
NAMA.Text = "ILMI ALFINA AULIA SARI"
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 = ""
MATAKULIAH.Text = ""
NILAIMID.Text = ""
NILAISMESTER.Text = ""
NILAIAKHIR.Text = ""
NILAIHURUF.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
Hasil pemograman :
