Tugas Praktikum Nilai Mahasiswa
Berikut Desain Program nya:
Berikut coding Program nya:
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("13110324")
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 = (13110324) Then
NAMA.Text = "Dedi widayat"
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
Berikut hasil program nya:
0 komentar:
Posting Komentar