Minggu, 03 Februari 2013

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..!! :) 

Tidak ada komentar:
Write komentar