VB.Net/Language Basics/OrElse

Материал из VB Эксперт
Версия от 12:42, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Or and OrElse

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


Truth table for OrElse

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