Aplikasi Perhitungan IPK dengan Visual Basic 6.0

Aplikasi ini menggunakan Tool Visual Basic 6.0 untuk menghitung Nilai IPK

dengan ketentuan

Before

After

Private Sub Command1_Click()

uts = Text4.Text

uas = Text5.Text

absen = Text6.Text

tugas = Text7.Text

Text8 = ((30 / 100) * uts) + ((50 / 100) * uas) + ((10 / 100) * absen) + ((10 / 100) * tugas)

If Text8 >= 85 And Text8 <= 100 Then

 Text9 = "A"

ElseIf Text8 >= 75 And Text8 <= 84 Then

 Text9 = "B"

ElseIf Text8 >= 60 And Text8 <= 74 Then

 Text9 = "C"

ElseIf Text8 >= 50 And Text8 <= 59 Then

 Text9 = "D"

 ElseIf Text8 >= 0 And Text8 <= 49 Then

 Text9 = "E"

 

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub