Penggunaan IF pada Program VB.NET
Penggunaan IF pada Program VB.NET merupakan suatu kendali yang sangat sering dilakukan, ada beberapa contoh IF pada VB.NET yaitu :
Contoh Penggunaan IF Tunggal pada VB.NET
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
End If
End Sub
End Class
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
npm.Items.Add("13110127")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
ElseIf npm.Text = "13110127" Then
nama.Text = "Asep Marbun"
End If
End Sub
End Class
Contoh Penggunaan IF Jamak pada VB.NET
- IF Tunggal
- IF Ganda
- IF Jamak
Contoh Penggunaan IF Tunggal pada VB.NET
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
End If
End Sub
End Class
Contoh Penggunaan IF Ganda pada VB.NET
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
npm.Items.Add("13110127")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
ElseIf npm.Text = "13110127" Then
nama.Text = "Asep Marbun"
End If
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
npm.Items.Add("13110127")
npm.Items.Add("13110128")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
ElseIf npm.Text = "13110127" Then
nama.Text = "Asep Marbun"
Else
nama.Text = "Lucky Marbun"
End If
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110126")
npm.Items.Add("13110127")
npm.Items.Add("13110128")
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "13110126" Then
nama.Text = "Nasib Marbun"
ElseIf npm.Text = "13110127" Then
nama.Text = "Asep Marbun"
Else
nama.Text = "Lucky Marbun"
End If
End Sub
End Class
Semoga Artikel Penggunaan IF pada Program VB.NET ini Bermanfaat bagimu dan silahkan mempelajarinya !!!