Form Transkrip Kelulusan
Input
- Nilai Tugas
- Nilai Quiz
- Nilai UTS
- Nilai UAS
Output
- Nilai Akhir
- Keterangan
- Grade
Coding
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a, b, c, d As Integer
a = TextBoxTugas.Text
b = TextBoxQuiz.Text
c = TextBoxUTS.Text
d = TextBoxUAS.Text
TextBoxNilaiAkhir.Text = (a * 0.2) + (b * 0.2) + (c * 0.3) + (d * 0.3)
Dim f As Integer
f = TextBoxNilaiAkhir.Text
If f >= 55 Then
textboxketerangan.text = "Lulus"
ElseIf f < 55 Then
textboxketerangan.text = "Gagal"
End If
Dim g As Integer
g = TextBoxNilaiAkhir.Text
If g >= 85 Then
TextBoxGrade.Text = "A"
ElseIf g >= 75 Then
TextBoxGrade.Text = "B"
ElseIf g >= 65 Then
TextBoxGrade.Text = "C"
ElseIf g >= 55 Then
TextBoxGrade.Text = "D"
ElseIf g < 55 Then
TextBoxGrade.Text = "E"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBoxGrade.Text = ""
TextBoxketerangan.Text = ""
TextBoxNilaiAkhir.Text = ""
TextBoxQuiz.Text = ""
TextBoxTugas.Text = ""
TextBoxUAS.Text = ""
TextBoxUTS.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
