' Saeed Ahmad 10-D

' Different logic gates vb basic code

Imports System

Public Module Module1

    Public Sub Main()

        dim gate as string

        dim num1,num2 as integer

        gate= console.ReadLine()

        select case gate

        case "AND"

            Console.WriteLine("Enter Number 1")

        num1 = console.ReadLine()

        console.WriteLine("enter number 2")

        num2 = console.ReadLine()

        if num1 = 1 and num2 = 1 THEN 

            console.WriteLine("1")

        else

            console.WriteLine("0")

            end if 

        case "OR"

            Console.WriteLine("Enter Number 1")

        num1 = console.ReadLine()

        console.WriteLine("enter number 2")

        num2 = console.ReadLine()

        if num1 = 1 and num2 = 1 THEN 

            console.WriteLine("1")

        else

            console.WriteLine("0")

            end if 

        case "not"

            num1 = console.readline()

            num2 = console.readline()

            if num1 = 1 then 

                console.WriteLine(0)

            else

                console.WriteLine(1)

            end if

        case else

        end select

    End Sub

End Module