Contoh Penggunaan If Jamak VB Net 2008

Pada postingan artikel ini akan membahas sedikit tentang contoh pengunaan if jamak pada VB Net 2008

Desain Form :
 

Source Code :

Public Class Jamak

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        If Val(angka.Text >= 80 And angka.Text <= 100) Then

            huruf.Text = "A"

        ElseIf Val(angka.Text >= 75) Then

            huruf.Text = "B+"

        ElseIf Val(angka.Text >= 70) Then

            huruf.Text = "B"

        ElseIf Val(angka.Text >= 65) Then

            huruf.Text = "C+"

        ElseIf Val(angka.Text >= 60) Then

            huruf.Text = "C"

        ElseIf Val(angka.Text >= 50) Then

            huruf.Text = "D"

        Else

            huruf.Text = "E"

        End If

        If huruf.Text = "E" Then

            ket.Text = "Gagal"

        Else

            ket.Text = "Lulus"

        End If

    End Sub

End Class

Ketika dijalankan, maka akan seperti berikut :
  

Sekian pembahasan tentang pengunaan if jamak pada VB Net 2008
Semoga bermanfaat..!! :)