[Fork] IFs_1 | C# Online Compiler

[Fork] IFs_1 by Vasu Bhatia

Imports System
				
Public Module Module1
	
	'Public Variables are available everywhere in the same module
	Private n1 as integer
	Private n2 as integer
	
	Public Sub Main()
		n1 = 7
		n2 = 6
		Print("Start")
		IFNOTORAND()
		Print("End")
	End Sub
	
	
	Private Sub IFSimple()
		if(n1 = 12) then
			Print("n1 is 12")
		end if
		if(n1 > 12) then
			Print("n1 is greater than 12")
		end if
		if(n1 < 12) then
			Print("n1 is less than 12")
		end if		
	
	end sub
	

	Private Sub IFELSESimple()
		if(n1 = 12) then
			Print("n1 is 12")
		elseif(n1 > 12) then
			Print("n1 is greater than 12")
		elseif(n1 < 12) then
			Print("n1 is less than 12")
		else
			'should never need the else all 3 cases are caught above)
		end if		
	
	end sub
	

	Private Sub IFANDSimple()
		if(n1 = 12) AND (n2 = 12) then
			Print("n1 AND 12")
		end if
		if(n1 > 12) AND (n2 > 12)  then
			Print("n1 AND n2 are greater than 12")
		end if
		if(n1 < 12) AND (n2 < 12) then
			Print("n1 and n2 are  less than 12")
		end if		
		'may not print anything
	end sub
	
	Private Sub IFELSEANDSimple()
		'modify code to use If and elseif and a final else
		if(n1 = 12) AND (n2 = 12) then
			Print("n1 AND n2 are 12")
		end if
		if(n1 > 12) AND (n2 > 12)  then
			Print("n1 AND n2 are greater than 12")
		end if
		if(n1 < 12) AND (n2 < 12) then
			Print("n1 and n2 are  less than 12")
		end if		
		'may not print anything as above conditions do not catch all cases
	end sub	
	
	Private Sub IFORSimple()
		if(n1 = 12) OR (n2 = 12) then
			Print("(n1 OR n2) OR both are 12")
		end if
		if(n1 > 12) AND (n2 > 12)  then
			Print("n1 OR n2 OR both are greater than 12")
		end if
		if(n1 < 12) AND (n2 < 12) then
			Print("n1 and n2 are both less than 12")
		end if		
		'may not print anything
	end sub
	

	Private Sub IFXORSimple()
		if(n1 = 12) OR (n2 = 12) then
			Print("(n1 OR n2) but not both are 12")
		end if
		if(n1 > 12) XOR (n2 > 12)  then
			Print("n1 OR n2 but not are greater than 12")
		end if
		if(n1 < 12) XOR (n2 < 12) then
			Print("n1 OR n2 but not both are less than 12")
		end if		
		'may not print anything
	end sub
	
	
	Private Sub IFNOTSimple()
		If not (n1 = 12) then
			Print("n1 not greater than 12")
		End if
	End sub	
	
	Private Sub IFNOTORAND()
		'all these clauses can be replaced with the XOR operator.
		if (n1 > 12) And (n2 < 12) OR ((n2 > 12) AND(n1 < 12)) AND NOT ((n1 > 12) And (n2 > 12)) then
			Print("Either n1 or n2 is greater than 12 but not both")
		else
			Print("Either they are both greater than 12 or neither are greater than 12")
		end if
	End Sub

	Public Sub Print(sText as string)
		Console.WriteLine(sText)
	End Sub	
	'loop through. use if to select max value
End Module

​x
 
Imports System
                
Public Module Module1
    
    'Public Variables are available everywhere in the same module
    Private n1 as integer
    Private n2 as integer
    
    Public Sub Main()
        n1 = 7
        n2 = 6
        Print("Start")
        IFNOTORAND()
        Print("End")
    End Sub
    
    
    Private Sub IFSimple()
        if(n1 = 12) then
            Print("n1 is 12")
        end if
        if(n1 > 12) then
            Print("n1 is greater than 12")
        end if
        if(n1 < 12) then
            Print("n1 is less than 12")
        end if      
    
    end sub
    
​
    Private Sub IFELSESimple()
        if(n1 = 12) then
            Print("n1 is 12")
        elseif(n1 > 12) then
            Print("n1 is greater than 12")
        elseif(n1 < 12) then
            Print("n1 is less than 12")
        else
            'should never need the else all 3 cases are caught above)
        end if      
    
    end sub
    
​
    Private Sub IFANDSimple()
        if(n1 = 12) AND (n2 = 12) then
            Print("n1 AND 12")
        end if
        if(n1 > 12) AND (n2 > 12)  then
            Print("n1 AND n2 are greater than 12")
        end if
        if(n1 < 12) AND (n2 < 12) then
            Print("n1 and n2 are  less than 12")
        end if      
        'may not print anything
    end sub
    
    Private Sub IFELSEANDSimple()
        'modify code to use If and elseif and a final else
        if(n1 = 12) AND (n2 = 12) then
            Print("n1 AND n2 are 12")
        end if
        if(n1 > 12) AND (n2 > 12)  then
            Print("n1 AND n2 are greater than 12")
        end if
        if(n1 < 12) AND (n2 < 12) then
            Print("n1 and n2 are  less than 12")
        end if      
        'may not print anything as above conditions do not catch all cases
    end sub 
    
    Private Sub IFORSimple()
        if(n1 = 12) OR (n2 = 12) then
            Print("(n1 OR n2) OR both are 12")
        end if
        if(n1 > 12) AND (n2 > 12)  then
            Print("n1 OR n2 OR both are greater than 12")
        end if
        if(n1 < 12) AND (n2 < 12) then
            Print("n1 and n2 are both less than 12")
        end if      
        'may not print anything
    end sub
    
​
    Private Sub IFXORSimple()
        if(n1 = 12) OR (n2 = 12) then
            Print("(n1 OR n2) but not both are 12")
        end if
        if(n1 > 12) XOR (n2 > 12)  then
            Print("n1 OR n2 but not are greater than 12")
        end if
        if(n1 < 12) XOR (n2 < 12) then
            Print("n1 OR n2 but not both are less than 12")
        end if      
        'may not print anything
    end sub
    
    
    Private Sub IFNOTSimple()
        If not (n1 = 12) then
            Print("n1 not greater than 12")
        End if
    End sub 
    
    Private Sub IFNOTORAND()
        'all these clauses can be replaced with the XOR operator.
        if (n1 > 12) And (n2 < 12) OR ((n2 > 12) AND(n1 < 12)) AND NOT ((n1 > 12) And (n2 > 12)) then
            Print("Either n1 or n2 is greater than 12 but not both")
        else
            Print("Either they are both greater than 12 or neither are greater than 12")
        end if
    End Sub
​
    Public Sub Print(sText as string)
        Console.WriteLine(sText)
    End Sub 
    'loop through. use if to select max value
End Module

Unhandled exception. System.Text.Json.JsonException: The input does not contain any JSON tokens. Expected the input to start with a valid JSON token, when isFinalBlock is true. Path: $ | LineNumber: 0 | BytePositionInLine: 0.
---> System.Text.Json.JsonReaderException: The input does not contain any JSON tokens. Expected the input to start with a valid JSON token, when isFinalBlock is true. LineNumber: 0 | BytePositionInLine: 0.
   at System.Text.Json.ThrowHelper.ThrowJsonReaderException(Utf8JsonReader& json, ExceptionResource resource, Byte nextByte, ReadOnlySpan`1 bytes)
   at System.Text.Json.Utf8JsonReader.Read()
   at System.Text.Json.Serialization.JsonConverter`1.ReadCore(Utf8JsonReader& reader, T& value, JsonSerializerOptions options, ReadStack& state)
   --- End of inner exception stack trace ---
   at System.Text.Json.ThrowHelper.ReThrowWithPath(ReadStack& state, JsonReaderException ex)
   at System.Text.Json.Serialization.JsonConverter`1.ReadCore(Utf8JsonReader& reader, T& value, JsonSerializerOptions options, ReadStack& state)
   at System.Text.Json.Serialization.Metadata.JsonTypeInfo`1.Deserialize(Utf8JsonReader& reader, ReadStack& state)
   at System.Text.Json.JsonSerializer.ReadFromSpan[TValue](ReadOnlySpan`1 utf8Json, JsonTypeInfo`1 jsonTypeInfo, Nullable`1 actualByteCount)
   at System.Text.Json.JsonSerializer.ReadFromSpan[TValue](ReadOnlySpan`1 json, JsonTypeInfo`1 jsonTypeInfo)
   at Program.Main()
Command terminated by signal 6

Last Run:	3:02:13 am
Compile:	0.01s
Execute:	0.2s
Memory:	11.22Mb
CPU:	0.21s

View IL Code