VB.Net/Language Basics/Boolean

(CBool(5) And CBool(8)) with (5 And 8)

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

  Shared Sub Main()
       Console.WriteLine("5 And 8: " + (CBool(5) And CBool(8)).ToString)
       Console.WriteLine("5 And 8: " + (5 And 8).ToString())
  End Sub

End Class

      </source>

Convert boolean to int value

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

  Shared Sub Main()
       Dim A As Boolean
       Dim I As Integer
       A = True
       I = CInt(A)
       Console.WriteLine("True Value of Boolean in Integer is: " + I.ToString())
       A = False
       I = CInt(A)
       Console.WriteLine("False Value of Boolean in Integer is: " + I.ToString())
  End Sub

End Class

      </source>

Convert int value to Boolean value

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

  Shared Sub Main()
       Dim A As Boolean
       Dim I As Integer
       I = 5
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from 5 is : " + A.ToString())
       I = 0
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from 0 is : " + A.ToString())
       I = -1
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from -1 is : " + A.ToString())
       I = -5
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from -5 is : " + A.ToString())
  End Sub

End Class

      </source>

Convert to int back and forth

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

  Shared Sub Main()
       Dim A As Boolean
       Dim I As Integer
       I = 5
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from 5 is : " + A.ToString())
       I = CInt(A)
       Console.WriteLine("And converted back to Integer: " + I.ToString())
  End Sub

End Class

      </source>