Imports System

'Logan Reisbord

'Horoscope Program 

'11/17/21

Public Module Module1

    Public Sub Main()

        Dim bMonth as Integer

        Dim bDay as Integer

        Dim horoscope as String                                 'declare variables

        Dim sign as String

        console.WriteLine("Enter month of birth: ")

        bMonth = console.ReadLine()

        console.WriteLine("Enter number day of birth: ")                    'user input

        bDay = console.ReadLine()

        If (bMonth = 3 and bDay >= 21 and bDay <= 31) or (bMonth = 4 and bDay <= 19) Then 

            horoscope = "Find a peaceful spot to manage shifting circumstances. Another's emergency can be your windfall. Stay in communication, and play the ace you've been holding."

            sign = "Aries"

        ElseIf (bMonth = 4 and bDay >= 20 and bDay <= 30) or (bMonth = 5 and bDay <= 20) Then 

            horoscope = "Invest in a shared dream. Community collaborations create value and beauty. Together, you have the connections and resources to make things happen. Patiently plan."

            sign = "Taurus"

        ElseIf (bMonth = 5 and bDay >= 21 and bDay <= 31) or (bMonth = 6 and bDay <= 20) Then

            horoscope = "Team up with a genius, and discuss future options and career opportunities. Let yourself be persuaded to take greater leadership. Hide out and strategize."

            sign = "Gemini"

        ElseIf (bMonth = 6 and bDay >= 21 and bDay <= 30) or (bMonth = 7 and bDay <= 22) Then

            horoscope = "Discover new passions this month, with Venus in Pisces. Investigate and plot your itinerary. You must choose your path carefully. Put your talent to work."

            sign = "Cancer"

        ElseIf (bMonth = 7 and bDay >= 23 and bDay <= 31) or (bMonth = 8 and bDay <= 22) Then

            horoscope = "Creative collaboration profits. Use your imagination, plus the latest technology. Work together to find ways to grow your nest egg. Take a gamble on love."

            sign = "Leo"

        ElseIf (bMonth = 8 and bDay >=23 and bDay <= 31) or (bMonth = 9 and bDay <= 22) Then

            horoscope = "Give in to the urge to craft something beautiful. Learn what you need. Express your feminine side. Discover renewed passion with someone special. Get creative."

            sign = "Virgo"

        ElseIf (bMonth = 9 and bDay >=23 and bDay <= 30) or (bMonth = 10 and bDay <= 22) Then                                                                                                           'calculations

            horoscope = " Nurture health, harmony and happiness this month, with Venus in Pisces. Move your body and feed it well for energy. Express your love to grow it."

            sign = "Libra"

        ElseIf (bMonth = 10 and bDay >= 23 and bDay <= 31) or (bMonth = 11 and bDay <= 21) Then 

            horoscope = "Love blossoms naturally over the next month. Play games with people you love and admire. Kindle some romance, with someone particularly wonderful. Share your heart."

            sign = "Scorpio"

        ElseIf (bMonth = 11 and bDay >= 22 and bDay <= 30) or (bMonth = 12 and bDay <= 21) Then

            horoscope = "It's amazing what a little paint can do. Beautify your home with attention to line, form, texture and color. Wrap your family in love and comfort."

            sign = "Sagittarius" 

        ElseIf (bMonth = 12 and bDay >= 22 and bDay <= 31) or (bMonth = 1 and bDay <= 19) Then

            horoscope = "Venture out intellectually. Money follows the messaging. Talk about love, and you're especially persuasive. Friends ask your advice; contribute from your experience and heart."

            sign = "Capricorn"

        ElseIf (bMonth = 1 and bDay >= 20 and bDay <= 31) or (bMonth = 2 and bDay <= 18) Then

            horoscope = "Cash flow increases over this month, with Venus in Pisces. Keep communications channels open, as opportunities fly in. Buy, sell and make deals. Keep good track."

            sign = "Aquarius"

        ElseIf (bMonth = 2 and bDay >= 19 and bDay <= 29) or (bMonth = 3 and bDay <= 20) Then

            horoscope = "Follow your heart, with Venus in your sign this month. Invest in a style upgrade. Consider what you like, to discover what you love."

            sign = "Pisces"

        Else

            horoscope = "or don't; the stars dont have any effect on your life"

            sign = "Enter a valid birth day..."

        End If

        Console.WriteLine(sign)

        console.writeLine(horoscope)                            'output

​

    End Sub

End Module