Menentukan IPK mahasiswa (Predikat)

Visual Programming

kali ini vhyvie akan berbagi cara menentukan IPK Mahasiswa (Predikat) dengan Visual Basic.
langsung aja yaa...

Private Sub 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

Capture Program