Source Kode :
Private Sub Command1_Click()
txtNilaiAkhir.Text =
Val(txtTugas.Text) * (10 / 100) + Val(txtKuis.Text) * (20 / 100) +
Val(txtUTS.Text) * (30 / 100) + Val(txtUAS.Text) * (40 / 100)
End Sub
Private Sub Command2_Click()
Dim txt As String
txt = txtHurufMutu.Text
If 100 >= txtNilaiAkhir >=
85 Then
txtHurufMutu.Text = "A"
Else
If 85 > txtNilaiAkhir >= 70
Then
txtHurufMutu.Text = "B"
Else
If 70 > txtNilaiAkhir >= 60
Then
txtHurufMutu.Text = "C"
Else
If 60 > txtNilaiAkhir >= 50
Then
txtHurufMutu.Text = "D"
Else
If 50 > txtNilaiAkhir >= 0
Then
txtHurufMutu.Text = "E"
End If
End If
End If
End If
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Print Preview