Membuat Absensi Nilai (Visual Basic)

Objek	Caption
Label  1	DATA NILAI MAHASISWA
Label 2	Nama
Label 3	Kehadiran (10%)
Label 4	Tugas (20%)
Label 5	UTS (30%)
Label 6	UAS (40%)
Label 7	Nilai Akhir
Label 8	Grade
Label 9	Keterangan
Frame 1	-
Frame 2	Absensi
Frame 3	Nilai Akhir
Frame 4	Proses
Text 1	Text 1
Text 2	Text 2
Text 3	Text 3
Text 4	Text 4
Text 5	Text 5
Text 6	Text 6
Text 7	Text 7
Text 8	Text 8
Command 1	Hitung
Command 2	Delete
Command 3	Exit

Coding : 

Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" End Sub Private Sub Command2_Click() p = MsgBox("Yakin ingin keluar", vbYesNo + vbQuestion, "warning") If p = vbYes Then End End If End Sub Private Sub command3_click() Text6.Text = Val(Text2.Text) * 0.1 + Val(Text3.Text) * 0.2 + Val(Text4.Text) * 0.3 + Val(Text5.Text) * 0.4 If Text6.Text >= 80 Then Text7.Text = "A" Text8.Text = "sangat baik" Else If Text6.Text >= 65 Then Text7.Text = "B" Text8.Text = "Baik" Else If Text6.Text >= 55 Then Text7.Text = "C" Text8.Text = "Cukup" Else If Text6.Text >= 45 Then Text7.Text = "D" Text8.Text = "kurang" Else Text7.Text = "E" Text8.Text = "sangat kurang" End If End If End If End If End Sub 

Salam Sahabat,