Contoh Sederhana Penggunaan Fungsi If pada VB Net 2008

Pada postingan artikel kali ini, akan membahas tentang Penggunaan Fungsi If pada VB Net 2008

Desain form :

 
Source Code :

Public Class Form1

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

        If nilai.Text > 100 Then

            MsgBox("Nilai tidak boleh lebih dari 100", MsgBoxStyle.Exclamation, "Perhatian")

        ElseIf nilai.Text >= 60 Then

            ket.Text = "LULUS"

        Else

            ket.Text = "GAGAL"

        End If

    End Sub

End Class

 

Ketika dijalankan, maka akan seperti ini :

 
 
 

Sekian artikel tentang VB Net 2008
Semoga bermanfaat..!! :)