11 August 2014

VB.NET: Operator Logika


OperatorKeteranganContoh
AndBernilai 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
OrBernilai 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.
NotMerupakan nilai kebalikan dari kondisi yang dinyatakan.A = True, B = False
Maka Not(A And B) bernilai  True.
XorAkan 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.
AndAlsoOperator logika AND yang hanya akan bekerja pada tipe data boolean.A = True, B = False
Maka (A AndAlso B) bernilai  False.
OrElseOperator 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.


0 comments: