VB.Net/Language Basics/OrElse

Or and OrElse

<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass

  Shared Sub Main()
       Dim testvar As New A()
       Console.WriteLine("Before IsTrue Or IsTrue")
       If testvar.IsTrue Or testvar.IsTrue Then
       End If
       Console.WriteLine("Before IsTrue OrElse IsTrue")
       If testvar.IsTrue OrElse testvar.IsTrue Then
       End If
  End Sub

End Class

   Class A
       Public ReadOnly Property IsTrue() As Boolean
           Get
               Console.WriteLine("IsTrue was called")
               Return True
           End Get
       End Property
       Public ReadOnly Property IsFalse() As Boolean
           Get
               Console.WriteLine("IsFalse was called")
               Return False
           End Get
       End Property
   End Class

      </source>

Truth table for OrElse

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     " create truth table for OrElse
     Console.Write("OrElse" & vbCrLf & "False OrElse False: " & _
        (False OrElse False) & vbCrLf & "False OrElse True: " & _
        (False OrElse True) & vbCrLf & "True OrElse False: " & _
        (True OrElse False) & vbCrLf & "True OrElse True: " & _
        (True OrElse True) & vbCrLf & vbCrLf)

   End Sub

End Class

      </source>