Imports System

Public Module Module1

    Public Sub Main()

        'Multiple choice of questions that have a specific number associated with them that will determine their carbon footrint and relate it to the avergae and etc

        Dim diet, travel as char

        dim travelfootprint, footprint, traveldomestic, traveltime, totalemissions, planefootprint, loopdiet, travelemissions, looptravel, dietfootprint, travel1250, travel2500, travel5500, travel9000, trave117500 as decimal    

        dim repeat as char = "y"

do while repeat = "y"

            'introduction to the program

        Console.writeline("Our planet is in an absolute state of emergency. Ranging from the climate crisis to the ecological crisi, we are running out of time to crush this enviromental catastrophe. (Press enter to continue).")

        console.readline()

        Console.writeline("The UN has given us a deadline less than 12 years away to save the world from this climate emergency.")

        console.readline()

        Console.writeline("Take your first steps! Discover the part you currently play in the deteriation of our planet and how you can help and be the part of the solution!")

        console.readline()

        console.writeline("Let's see how big your enviromental footprint is! please press enter")

        console.readline()

            'Question based on the users diet

            'The more meat consumed the higher the average carbon dioxide emission (in tonnes) per day

        do 

            Console.writeline("How would you describe your dietry lifestyle? a) Vegan b) Vegitarian c) No beef d) Meat very rarely e) Meat in some meals f) Meat in every meal, please enter the letter associated with your answer")

            diet = console.readline()

            dietfootprint = 0

            Select case diet

            case is = "a"

                loopdiet = 0

                dietfootprint = 1.5

            case is = "b"

                loopdiet = 1

                dietfootprint = 1.7

            case is = "c"

                loopdiet = 2

                dietfootprint = 1.9

            case is = "d"

                loopdiet = 3

                dietfootprint = 2.2

            case is = "e"

                loopdiet = 4

                dietfootprint = 2.5

            case is = "f"

                loopdiet = 5

                dietfootprint = 3.3

            case else

                footprint = 6

            Console.writeline("Please type in the lower-case letter associated with the answer i.e if vegan, enter a (press enter to return to the question)")

            console.readline()

            end select 

        loop until loopdiet <6

            '"loopdiet" is the loop counter

            'If any value that wasn't of the options is inputed then the line of code is repeated

            'Carbon dioxide emissions based on trasnportation in average emissions per km

            'Public transport has emissions spread out by the users; therefore, it's not taken into account

        do

            console.writeline("What is your main form of transport for daily travel? a) foot/bike/public transport b) motorbike c) car")

            travel = console.readline()

            travelfootprint = 0

                if travel = "a" then

                    travelfootprint = 0

                    looptravel = 1

                    if travel = "b" then

                        looptravel = 2

                        travelfootprint = 0.12

                        if travel = "c" then

                            looptravel = 3

                            travelfootprint = 0.30

                            else

                                looptravel = 3

                                console.writeline("Please type in the lower-case letter associated with the answer i.e motorbike, enter b (press enter to return to the quesion)")

                                console.readline()

                        end if

                    end if 

                end if

        loop until looptravel < 3

            'looptravel is the loopcounter to make sure the correct values are inputed

            'this next bit of code determines how much CO2 is emitted based on how many km they travel since the above bit of code only gives the CO2 emissions per km

        do

            console.writeline("How far do you travel with your main mode of trasnport (in km)?")

            traveltime = console.readline()

            travelemissions = traveltime*travelfootprint

        loop until travelemissions >=0

            'It cannot be a negative number 

            'It can be any positive including zero becasue it's dependent on the user's input

            'question to determine carbon dioxide emissions based on frequency of distance traveled 

            'This is a main factor of the CO2 level increase and should be taken into account for

            Console.writeline("How many one way flights have you made to these certain distances from the united kingdom? Please enter a number for each distance, if 10 or more, smiply put '10+'")

            console.writeline("If you've traveled to China for example, the return flight counts as a second flight; therefore, you'd enter '2' for going there and back")

            'Distances range from domestic (United Kingdom) to about Australia 

            'The distance traveled by plane has an associated CO2 emission level; however, the amount actually emitted is based on the frequency of travel there

​

            planefootprint = 0

        do

            console.writeline("a) domestic uk/ireland")

            traveldomestic = console.readline()

        loop until  traveldomestic > -1

            'traveldomestic > -1 just incase a value such as a negative number is inputed

            planefootprint = planefootprint + 0.05*traveldomestic

        do

            console.writeline("b) up to 1250 km away")

            travel1250 = console.readline()

        loop until  travel1250 > -1

            planefootprint = planefootprint + 1.36*travel1250

        do

            console.writeline("c) up 2500 km away")

            travel2500 = console.readline()

        loop until  travel2500 > -1

            planefootprint = planefootprint + 1.51*travel2500

        do

            console.writeline("d) up to 5500 km away")

            travel5500 = console.readline()

        loop until  travel5500 > -1

            planefootprint = planefootprint + 1.88*travel2500

        do

            console.writeline("e)up to 9000 km away")

            travel9000 = console.readline()

        loop until  travel9000 > -1

                    planefootprint = planefootprint + 2.30*travel9000

​

        do

            console.writeline("f) up to 17500 km away")

            trave117500 = console.readline()

        loop until  trave117500 > -1

            planefootprint = planefootprint + 14.23*trave117500

            'calculating the average total emisisons to compare 

        totalemissions = planefootprint + dietfootprint + travelemissions 

            'identifying where the emissions surpase the average emissions

            select case dietfootprint

                    case  > 2.4

                        console.writeline("from your dietary question results you seem to like meat. Try reducing your meat intake as much as you can. The meat industry is one of the main polluters of CO2, by eating meat, you're supporting them to emit more...")

                        console.readline()

            end select

            select case travel 

                case = "c"

                    console.writeline("from your commute question results you seem to drive a car... Try to switch to electrical cars or even better... public transport!")

                    console.readline()

            end select

            select case planefootprint 

                case > 3 

                    console.writeline("from your plane travel results you seem to travel quite a bit by plane... try switching from plane to train for domestic commute and perhaps taking multiple short distance flights with train commute inbetween!")

                    console.readline()      

            end select

        console.writeline("now... for your results...")

        console.readline()  

        select case totalemissions

        case > 5.7

                console.writeline("Your average carbon footprint is " & totalemissions & ". This has surpassed the avergae CO2 emissions per capita of 5.7 tonnes in the United Kingdom....")

            console.writeline("that is not not very good.")

            console.readline()

            console.writeline("do you want to re-do this test? if so enter y, if not enter any other key")

            repeat = console.readline()

        case < 5.7

            console.writeline("Your average carbon footprint is " & totalemissions & " which is below the United Kingdom's average CO2 emissions per capita of 5.7 tonnes!")

                console.writeline("Keep it up, your help lifestyle is saving the planet! Now, spread awarness, share this program to friends and family and get them aware! (press enter)")

            console.readline()

            console.writeline("do you want to re-do this test? if so enter y, if not enter any other key")

            repeat = console.readline()

                'repeating the entire program with a do while loop

        end select

loop

    End Sub

End Module