Menghitung IPK Mahasiswa Mengunakan Microsoft Visual Basic 6.0

Postingan kali ini tugas dari dosen, tentang Menghitung IPK Mahasiswa Mengunakan Microsoft Visual Basic 6.0.

kode ditulis di tombol proses ya ...

Private Sub Cmd_proses_Click()

ipk1 = Val(Text1.Text)

ipk2 = Val(Text2.Text)

ipk3 = Val(Text3.Text)

ipk4 = Val(Text4.Text)

ipk5 = Val(Text5.Text)

ipk6 = Val(Text6.Text)

ipk7 = Val(Text7.Text)

ipk8 = Val(Text8.Text)

Text9.Text = (ipk1 + ipk2 + ipk3 + ipk4 + ipk5 + ipk6 + ipk7 + ipk8) / 8

If Text9.Text >= 3.51 Then

Text10.Text = "CUMLODE"

ElseIf 3 <= Text9.Text <= 3.5 Then

Text10.Text = "SANGAT MEMUASKAN"

ElseIf 2.5 <= Text9.Text < 3 Then

Text10.Text = "MEMUASKAN"

Else

Text10.Text = "COBA LAGI"

End If

End Sub

Tampilan Programnya :