Membuat Predikat kelulusan menggunakan Visual Basic

Blog saya kali ini akan membahas tentang cara membuat Predikat kelulusan menggunakan aplikasi Visual Basic NET. Berikut langkah-langkahnya ;

1. Aktifkan aplikasi Visual Basic NET, jika sudah buat desain seperti dibawah

2. Jika sudah masukkan kodingan seperti dibawah ;

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nil As Integer


        nil = CInt (TextBox1.Text)

        If nil > 4.0 Then
            MessageBox.Show("Input tidak valid", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf nil >= 3.51 Then
            MessageBox.Show("Cumlaude", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ELSEIf nil >= 2.76 Then
            MessageBox.Show("Sangat Memuaskan", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf nil >= 2.0 Then
            MessageBox.Show("Memuaskan", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
       ElseIf nil>= 0.9 Then
            MessageBox.Show("Tidak dapat predikat", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf nil < 0.0 Then
            MessageBox.Show("Input tidak valid", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End If

    End Sub
End Class

3. Lalu RUN program tersebut

Ya sekian blog saya kali ini, semoga bermanfaat bagi para pembaca sekalian. terimakasih ^^