Menentukan Predikat/Status bagi Mahasiswa

Dalam program ini kita akan menginpu IPK dari semester 1 smpai dengan smester 8, nah baru kita akan kalkulisasikan IPK itu apakah si Mahasiswa mendapatkan predikat Coumlaude atau Tidak...
mari lihat lising coding nya :)))

lising code
Public Class Form2

    Private Sub LabelX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX1.Click

    End Sub

    Private Sub LabelX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX4.Click

    End Sub

    Private Sub LabelX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX8.Click

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim ipk As Integer
        ipk = (Val(TextBoxX1.Text) + Val(TextBoxX2.Text) + Val(TextBoxX3.Text) + Val(TextBoxX4.Text) + Val(TextBoxX5.Text) + Val(TextBoxX6.Text) + Val(TextBoxX7.Text) + Val(TextBoxX8.Text)) / 8
        TextBoxX10.Text = ipk

        If ipk > 3.5 Then
            TextBoxX9.Text = "Comlude"
        End If
        If ipk < 3.5 Then
            TextBoxX9.Text = "Sangat Memuaskan"
        End If
        If ipk < 3.0 Then
            TextBoxX9.Text = "kurang memuaskan"
        End If
        If ipk < 2.0 Then
            TextBoxX9.Text = "silahkan mengulang"
        End If
    End Sub

    Private Sub TextBoxX10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX10.TextChanged

    End Sub
End Class

dan ini adalah tampilan Programnya :)

Penjelasanya adalah,kita deklrasikan dlo nama IPK itu dengan sintak dim IPK as integer krna nilai IPK itu adalah angka / integer..

lalu kita masukan satu persatu nilai IPK itu baru kita hitung dan bagi dengan 8, dalam sistematika penghitung maka VB mempunyai bahasa yang nama val  jadi kita hars menambahkan val dlo dalam penghitungna... seperti gambar  code ini

ipk = (Val(TextBoxX1.Text) + Val(TextBoxX2.Text) + Val(TextBoxX3.Text) + Val(TextBoxX4.Text) + Val(TextBoxX5.Text) + Val(TextBoxX6.Text) + Val(TextBoxX7.Text) + Val(TextBoxX8.Text)) / 8

lalu kita masukan hasil itu kedalam textbox nilai baru kita bisa tau apakah kita comlaude apa tidak...
jika nilai > 3.50 itu coumlaude
jika nilai <3.5 dan nilai > 3.0 maka itu sangat memuaskan
jika nilai < 3.0 itu kurang memaskan
dan jika nilai <2.0 maka silahkan mengulang... hehhee...
ok cukup ngerti kan... Oke lanjut ke tutorial berikutnya ...... :)