VB.NET: Operator Logika

Operator	Keterangan	Contoh
And	Bernilai True jika kedua pembanding bernilai True (benar).	A = True, B = False Maka (A And B) bernilai  False A = True, B = True Maka (A And B) bernilai  True  A = False, B = False Maka (A And B) bernilai  False
Or	Bernilai True jika kedua pembanding bernilai true, juga akan bernilai true jika salah satu pembanding bernilai True.	A = True, B = False Maka (A Or B) bernilai  True. A = True, B = True Maka (A Or B) bernilai  True. A = False, B = False Maka (A Or B) bernilai  False.
Not	Merupakan nilai kebalikan dari kondisi yang dinyatakan.	A = True, B = False Maka Not(A And B) bernilai  True.
Xor	Akan bernilai True hanya jika salah satu pembanding saja bernilai True. Dan akan bernilai False jika kedua pembanding bernilai True.	A = True, B = False Maka A Xor B bernilai  True. A = True, B = True Maka A Xor B bernilai  False. A = False, B = False Maka A Xor B bernilai  False.
AndAlso	Operator logika AND yang hanya akan bekerja pada tipe data boolean.	A = True, B = False Maka (A AndAlso B) bernilai  False.
OrElse	Operator logika OR yang hanya akan bekerja pada tipe data boolean.	A = True, B = False Maka (A OrElse B) bernilai  True.

Contoh penggunaan:
UI:

Code:
Public Class Form1

 Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
    CheckBox1.Text = "A Value"
    CheckBox2.Text = "B Value"
    Button1.Text = "Result!"
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
    Dim A As Boolean = Me.CheckBox1.Checked
    Dim B As Boolean = Me.CheckBox2.Checked
    Dim sResult As String = ""
    sResult &= "A And B : " & (A And B) & vbCrLf
    sResult &= "A Or B : " & (A Or B) & vbCrLf
    sResult &= "Not (A And B): " & CStr(Not (A And B)) & vbCrLf
    sResult &= "A XOr B : " & (A Xor B) & vbCrLf
    sResult &= "A AndAlso B : " & (A AndAlso B) & vbCrLf
    sResult &= "A OrElse B : " & (A OrElse B) & vbCrLf

    Label1.Text = sResult
 End Sub

End Class

Runtime:

Click here if you like this article.