light_and_wall_vb | C# Online Compiler

light_and_wall_vb by Xiaofan

Imports System

Public Structure Point

    Public Sub New(ByVal x As Double, ByVal y As Double)
        Me.X = x
        Me.Y = y
    End Sub

    Public X As Double

    Public Y As Double
End Structure

Public Class Program

    Public Shared Function isPointBehindWall(ByVal pt As Point) As Boolean
        If pt.X >= 4 Then Return True Else Return False
    End Function

    Public Shared Function isPointBelowLine(ByVal pt As Point, ByVal lineEnd As Point) As Boolean
        Dim slope As Double = lineEnd.Y / lineEnd.X
        If pt.Y / pt.X < slope Then Return True Else Return False
    End Function

    Public Shared Function isPointLit(ByVal pt As Point) As Boolean
        Dim wallTop As Point = New Point(4, 2)
        Dim wallBottom As Point = New Point(4, -2)
        If pt.X <= 0 Then 
			Return True 
		Else If isPointBelowLine(pt, wallTop) AndAlso (Not isPointBelowLine(pt, wallBottom)) Then
            If isPointBehindWall(pt) Then Return False
        End If

        Return True
    End Function

    Public Shared Sub Main()
        Console.WriteLine("Where do you stand? Enter your coordinates like: 3,4")
        Dim input As String() = Console.ReadLine().Split(","c)
        Dim testPoint As Point = New Point(Convert.ToDouble(input(0)), Convert.ToDouble(input(1)))
        If isPointLit(testPoint) Then Console.WriteLine("You are in the spot light!") Else Console.WriteLine("You are swamped by DARKNESS!")
    End Sub
End Class

​x
 
Imports System
​
Public Structure Point
​
    Public Sub New(ByVal x As Double, ByVal y As Double)
        Me.X = x
        Me.Y = y
    End Sub
​
    Public X As Double
​
    Public Y As Double
End Structure
​
Public Class Program
​
    Public Shared Function isPointBehindWall(ByVal pt As Point) As Boolean
        If pt.X >= 4 Then Return True Else Return False
    End Function
​
    Public Shared Function isPointBelowLine(ByVal pt As Point, ByVal lineEnd As Point) As Boolean
        Dim slope As Double = lineEnd.Y / lineEnd.X
        If pt.Y / pt.X < slope Then Return True Else Return False
    End Function
​
    Public Shared Function isPointLit(ByVal pt As Point) As Boolean
        Dim wallTop As Point = New Point(4, 2)
        Dim wallBottom As Point = New Point(4, -2)
        If pt.X <= 0 Then 
            Return True 
        Else If isPointBelowLine(pt, wallTop) AndAlso (Not isPointBelowLine(pt, wallBottom)) Then
            If isPointBehindWall(pt) Then Return False
        End If
​
        Return True
    End Function
​
    Public Shared Sub Main()
        Console.WriteLine("Where do you stand? Enter your coordinates like: 3,4")
        Dim input As String() = Console.ReadLine().Split(","c)
        Dim testPoint As Point = New Point(Convert.ToDouble(input(0)), Convert.ToDouble(input(1)))
        If isPointLit(testPoint) Then Console.WriteLine("You are in the spot light!") Else Console.WriteLine("You are swamped by DARKNESS!")
    End Sub
End Class
​

Compilation error (line 14, col 69): Too many characters in character literal
Compilation error (line 4, col 29): A namespace cannot directly contain members such as fields or methods
Compilation error (line 8, col 42): { expected
Compilation error (line 9, col 3): Method must have a return type
Compilation error (line 12, col 17): Expected class, delegate, enum, interface, or struct
Compilation error (line 13, col 27): Expected class, delegate, enum, interface, or struct
Compilation error (line 15, col 27): Expected class, delegate, enum, interface, or struct
Compilation error (line 16, col 31): Expected class, delegate, enum, interface, or struct
Compilation error (line 20, col 51): Identifier expected
Compilation error (line 24, col 14): Expected class, delegate, enum, interface, or struct
Compilation error (line 28, col 4): A namespace cannot directly contain members such as fields or methods
Compilation error (line 30, col 15): Expected class, delegate, enum, interface, or struct
Compilation error (line 33, col 4): Type or namespace definition, or end-of-file expected

Last Run:	8:28:51 pm
Compile:	0s
Execute:	0.047s
Memory:	0b
CPU:	0s

View IL Code