Program VB Nilai

Program menghitung nilai pada VB (100%) working karna sudah admin coba.

Contoh Pict :

Codingnya :

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!npm = Text1
Adodc1.Recordset!nama = Text2
Adodc1.Recordset!kelas = Text3
Adodc1.Recordset!uts = Text4
Adodc1.Recordset!uas = Text5
Adodc1.Recordset!pratikum = Text6
Adodc1.Recordset!na = Text7
Adodc1.Recordset.Update
Adodc1.Refresh
Text1 = " "
Text2 = " "
Text3 = " "
Text4 = " "
Text5 = " "
Text6 = " "
Text7 = " "
Text8 = " "
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7 = (Text4 * 0.5) + (Text5 * 0.4) + (Text6 * 0.1)
Select Case Text7
Case Is > 80: Text8 = "A"
Case 70 To 80: Text8 = "B"
Case 60 To 70: Text8 = "C"
Case 50 To 60: Text8 = "D"
Case Is < 50: Text8 = "E"
End Select
End If
End Sub