'error codes for checking

'error 001 means that the loop around 45 is not fully working meaning registation wont fully work!!!!!!!

​

​

​

​

​

​

​

Imports System          

Public Module Module1

    Public Sub Main()

                console.writeline("would you like debug mode on?")

        dim DebugActivation as integer

        dim inputofdebug as string

        DebugActivation = 0

        inputofdebug = console.readline()

        if inputofdebug = "yes" then

            DebugActivation = 1

        end if 

        console.writeline("Hello my name is Victor and I am here to help you with your vectors")        

        console.writeline("What is your name")

        Dim UserName as string 

        dim MagnitudeActivation as integer

        dim VectorActivation as integer 

        dim x1 as integer

        dim x2 as integer 

        dim y1 as integer

        dim y2 as integer

        dim z1 as integer

        dim perspective as String 

        dim answer as decimal  

        UserName = console.readline()

        console.writeline("Hello " & UserName & " How are you?")

        console.writeline("put B for bad or G for Good")

        dim Felling as char

        dim Choice as Char

        VectorActivation = 0

        MagnitudeActivation = 0

        Felling = console.readline()

        Select case Felling

        case is = "B"

            console.writeline("I hope you feel better soon " & UserName)

        case is = "G"

            console.writeline("Thats good " & UserName)

        case else 

            console.writeline("Im sorry I don't understand that " & Username)

        End select

        Dim Final as integer

        Final = 0

        Dim final1 as char

        DO While Final = 0

        DO 

                Console.writeline("Do you want to do only one more put B")

                Final1 = console.readline()

                if Final1 = "B" then

                    Final = Final + 1

                end if 

                    console.writeline("Would You like to calculate a vector (V) or magnitude (M)")

                    Choice = console.readline()

        loop until Choice = "M" or Choice = "V"

                    If Choice = "V" Then

                        VectorActivation = VectorActivation + 1

                        Elseif Choice = "M" Then 

                            MagnitudeActivation = MagnitudeActivation + 1

                    Else 

                            console.writeline("Error 001")

                    ENd if 

            if DebugActivation =1 then

console.writeline("MagnitudeActivation = " & MagnitudeActivation)

console.writeline("VectorActivation = " & VectorActivation)

            end if 

            If MagnitudeActivation = 1 Then

                console.writeline("Is this 2D or 3D vetor")

                perspective = console.readline()

                if perspective = "2D" Then

                    console.writeline("enter the X value")

                    x1 = console.readline()

                    Console.writeline("enter the Y value")

                    y1 = console.readline()

                    console.writeline("calculating the magnitude know")

                    console.writeline("^1/2" & x1 & "^2 + " & y1 & "^2")

                    answer =(x1^2) + (y1^2)

                    answer = answer ^0.5 

                    answer = Math.Round(answer,2)

                    console.writeline("the answer is " & answer & " to 2 decimal place")

                else if perspective = "3D" then 

                    console.writeline("enter the X value")

                    x1 = console.readline()

                    Console.writeline("enter the Y value")

                    y1 = console.readline()

                        console.writeline("Enter the Z value")

                        z1 = console.readline()

                    console.writeline("calculating the magnitude know")

                    console.writeline("^1/2" & x1 & "^2 + " & y1 &"^2 + " & z1 &" ^2^" )

                    answer =(x1^2) + (y1^2) + (z1^2)

                    answer = answer ^0.5

                    answer = Math.Round(answer,2)

                    console.writeline("the answer is " & answer & " to 2 decimal place")

                end if 

                else if VectorActivation = 1 

                console.writeline("Is this 2D or 3D vetor")

                perspective = console.readline()

                if perspective = "2D" Then

                    console.writeline("enter the X1 value")

                    x1 = console.readline()

                    Console.writeline("enter the Y1 value")

                    y1 = console.readline() 

                    console.writeline("enter the X value")

                    x2 = console.readline()

                    Console.writeline("enter the Y2 value")

                    y2 = console.readline()

                        answer = (y2-y1) / (x2-x1)

                        answer = Math.Round(answer,2)

                        console.writeline("the answer is " & answer & " to 2 decimal place")

                    else if perspective = "3D" then 

                    console.writeline("enter the X value")

                    x1 = console.readline()

                    Console.writeline("enter the Y value")

                    y1 = console.readline()

                        console.writeline("Enter the Z value")

                        z1 = console.readline()

                    console.writeline("calculating the magnitude know")

                    console.writeline("^1/2" & x1 & "^2 + " & y1 &"^2 + " & z1 &" ^2^" )

                    answer =(x1^2) + (y1^2) + (z1^2)

                    answer = answer ^0.5

                    answer = Math.Round(answer,2)

                    console.writeline("the answer is " & answer & " to 2 decimal place")

                end if 

                        end if 

                Loop 

    End Sub

End Module