Post by: DDBE on June 05, 2020, 03:07:25 am
First off, I'd like to thank Felippe for his warm welcome on Discord, and I think [banned user] was also helpful with this program so far. Even while he's probably the grumpiest person on the Discord server, the most coding magic help came from Luke.
I still maintain that in case you guys haven't yet, you ought really document this form of MS Excel-style table sorting for QB64 in a simple form that Luke came up with. There's next to nothing googleable to tell people how to sort tables in QB *OR* old BASIC, at the very least nothing I could remotely understand, and when you google for something like this, many results come up telling you it would be just impossible to do in QB, but Luke did make it work.
Okay, without any further ado, this is what it looks like by now:
Code: QB64: [Select]
- sun$ = "Aquarius"
- sun_House = 4
- moon$ = "Aries"
- moon_House = 6
- ascendent$ = "Scorpio"
- MC$ = "Leo"
- mercury$ = "Aquarius"
- mercury_House = 3
- Venus$ = "Pisces"
- venus_House = 5
- Mars$ = "Pisces"
- mars_House = 5
- Jupiter$ = "Sagittarius"
- jupiter_House = 2
- Saturn$ = "Scorpio"
- saturn_House = 1
- Chiron$ = "Taurus"
- chiron_House = 7
- Uranus$ = "Sagittarius"
- uranus_House = 2
- neptune$ = "Sagittarius"
- neptunee_House = 2
- Pluto$ = "Libra"
- pluto_House = 12
- moon_Node$ = "Capricorn"
- moon_node_House = 3
- Lilith$ = "Aquarius"
- lilith_House = 4
- house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
- house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
- house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
- house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
- house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
- house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
- house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
- house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
- house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
- house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
- house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
- house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
- house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 1
- aries_Value = aries_Value + 1
- cardinals = cardinals + 1
- CASE "Taurus"
- earth = earth + 1
- taurus_Value = taurus_Value + 1
- fixed = fixed + 1
- CASE "Gemini"
- air = air + 1
- gemini_Value = gemini_Value + 1
- mutable = mutable + 1
- CASE "Cancer"
- water = water + 1
- cancer_Value = cancer_Value + 1
- cardinals = cardinals + 1
- CASE "Leo"
- fire = fire + 1
- leo_Value = leo_Value + 1
- fixed = fixed + 1
- CASE "Virgo"
- earth = earth + 1
- virgo_Value = virgo_Value + 1
- mutable = mutable + 1
- CASE "Libra"
- air = air + 1
- libra_Value = libra_Value + 1
- cardinals = cardinals + 1
- CASE "Scorpio"
- water = water + 1
- scorpio_Value = scorpio_Value + 1
- fixed = fixed + 1
- CASE "Sagittarius"
- fire = fire + 1
- sagittarius_Value = sagittarius_Value + 1
- mutable = mutable + 1
- CASE "Capricorn"
- earth = earth + 1
- capricorn_Value = capricorn_Value + 1
- cardinals = cardinals + 1
- CASE "Aquarius"
- air = air + 1
- Aquarius_Value = Aquarius_Value + 1
- fixed = fixed + 1
- CASE "Pisces"
- water = water + 1
- pisces_Value = pisces_Value + 1
- mutable = mutable + 1
- elements = earth + fire + water + air
- Earth_Percentage = 100 / elements * earth
- Fire_Percentage# = 100 / elements * fire
- Water_Percentage# = 100 / elements * water
- Air_Percentage# = 100 / elements * air
- Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
- Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
- Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
- Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
- qualities = cardinals + fixed + mutable
- cardinal_Percentage# = 100 / qualities * cardinals
- fixed_Percentage# = 100 / qualities * fixed
- mutable_Percentage# = 100 / qualities * mutable
- cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
- fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
- mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
- all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
- Aries_Percentage = 100 / all_Signs * aries_Value
- Taurus_Percentage = 100 / all_Signs * taurus_Value
- Gemini_Percentage = 100 / all_Signs * gemini_Value
- Cancer_Percentage = 100 / all_Signs * cancer_Value
- Leo_Percentage = 100 / all_Signs * leo_Value
- Virgo_Percentage = 100 / all_Signs * virgo_Value
- Libra_Percentage = 100 / all_Signs * libra_Value
- Scorpio_Percentage = 100 / all_Signs * scorpio_Value
- Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
- Capricorn_Percentage = 100 / all_Signs * capricorn_Value
- Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
- Pisces_Percentage = 100 / all_Signs * pisces_Value
- Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
- Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
- Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
- Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
- Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
- Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
- Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
- Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
- Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
- Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
- Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
- Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
- all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
- house1_Percentage = 100 / all_Houses * house(1)
- house2_Percentage = 100 / all_Houses * house(2)
- house3_Percentage = 100 / all_Houses * house(3)
- house4_Percentage = 100 / all_Houses * house(4)
- house5_Percentage = 100 / all_Houses * house(5)
- house6_Percentage = 100 / all_Houses * house(6)
- house7_Percentage = 100 / all_Houses * house(7)
- house8_Percentage = 100 / all_Houses * house(8)
- house9_Percentage = 100 / all_Houses * house(9)
- house10_Percentage = 100 / all_Houses * house(10)
- house11_Percentage = 100 / all_Houses * house(11)
- house12_Percentage = 100 / all_Houses * house(12)
- house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
- house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
- house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
- house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
- house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
- house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
- house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
- house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
- house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
- house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
- house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
- house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
- largest = 0
- signs_percentage = 100 / all_Signs * largest
- signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
- largesthouse = 0
- largesthouse_percentage = 100 / all_Houses * largesthouse
- largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
- Quad1 = house(1) + house(2) + house(3)
- Quad2 = house(4) + house(5) + house(6)
- Quad3 = house(7) + house(8) + house(9)
- Quad4 = house(10) + house(11) + house(12)
- all_Quads = Quad1 + Quad2 + Quad3 + Quad4
- largedom_Quad = 0
- large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
- large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
- quad1_Percentage = 100 / all_Quads * Quad1
- quad2_Percentage = 100 / all_Quads * Quad2
- quad3_Percentage = 100 / all_Quads * Quad3
- quad4_Percentage = 100 / all_Quads * Quad4
- quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
- quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
- quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
- quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
- active_Signs = fire + earth
- passive_Signs = water + air
- polarity_Percentage = active_Signs + passive_Signs
- active_Percentage = 100 / polarity_Percentage * active_Signs
- passive_Percentage = 100 / polarity_Percentage * passive_Signs
- active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
- passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
- elements_Table$(0) = earth_String$
- elements_table_Values(0) = earth
- elements_Table$(1) = fire_String$
- elements_table_Values(1) = fire
- elements_Table$(2) = water_String$
- elements_table_Values(2) = water
- elements_Table$(3) = air_String$
- elements_table_Values(3) = air
- signs_Table$(0) = aries_String$
- signs_table_Values(0) = aries_Value
- signs_Table$(1) = taurus_String$
- signs_table_Values(1) = taurus_Value
- signs_Table$(2) = gemini_String$
- signs_table_Values(2) = gemini_Value
- signs_Table$(3) = cancer_String$
- signs_table_Values(3) = cancer_Value
- signs_Table$(4) = leo_String$
- signs_table_Values(4) = leo_Value
- signs_Table$(5) = virgo_String$
- signs_table_Values(5) = virgo_Value
- signs_Table$(6) = libra_String$
- signs_table_Values(6) = libra_Value
- signs_Table$(7) = Skoprionstring$
- signs_table_Values(7) = scorpio_Value
- signs_Table$(8) = sagittarius_String$
- signs_table_Values(8) = sagittarius_Value
- signs_Table$(9) = capricorn_String$
- signs_table_Values(9) = capricorn_Value
- signs_Table$(10) = Aquarius_String$
- signs_table_Values(10) = Aquarius_Value
- signs_Table$(11) = pisces_String$
- signs_table_Values(11) = pisces_Value
- PRINT "Elements:"
- COLOR 15
- quicksort 0, 3, elements_Table$(), elements_table_Values()
- display elements_Table$(), elements_table_Values()
- COLOR 7
- PRINT "Dominance of the signs:"
- COLOR 15
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$(), signs_table_Values()
- PRINT aries_String$
- PRINT taurus_String$
- PRINT gemini_String$
- PRINT cancer_String$
- PRINT leo_String$
- PRINT virgo_String$
- PRINT libra_String$
- PRINT scorpio_String$
- PRINT sagittarius_String$
- PRINT capricorn_String$
- PRINT Aquarius_String$
- PRINT pisces_String$
- PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
- COLOR 7
- PRINT "Qualities:"
- COLOR 15
- PRINT cardinal_String$
- PRINT fixed_String$
- PRINT mutable_String$
- COLOR 7
- PRINT "Polarities:"
- COLOR 15
- PRINT active_String$
- PRINT passive_String$
- COLOR 7
- PRINT "Dominance of the houses:"
- COLOR 15
- PRINT house1_String$
- PRINT house2_String$
- PRINT house3_String$
- PRINT house4_String$
- PRINT house5_String$
- PRINT house6_String$
- PRINT house7_String$
- PRINT house8_String$
- PRINT house9_String$
- PRINT house10_String$
- PRINT house11_String$
- PRINT house12_String$
- PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
- COLOR 7
- PRINT "Dominance of the quadrants:"
- COLOR 15
- PRINT Quad1string$
- PRINT Quad2string$
- PRINT Quad3string$
- PRINT Quad4string$
- PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
Problems still with the code:
a.) Why does it print the values again at the end of each line?
b.) How to fix the fact that it seems to try printing the signs table twice, aborting the first attempt after the first three lines before starting again?
c.) How to sort not only the elements, but also the rest of the tables? Does each table need its own sorting sub-routine? I've tried both that as well as arbitrarily assigning sorting values (corresponding to the amount of lines/entries in each table) weeks ago, but neither seemed to work.
d.) I remember Luke said weeks ago that the sorting sub-routine needs to be changed for tables where different fields/lines have the same value. This is the case at least once with this example horoscope here, and many more instances of this occurance are possible with other horoscopes.
e.) I priorily tried to make all the letters in each of the four printed elements result lines to be colored in the according color (Water = blue, Earth = green, Fire = red, Air = yellow) by means of making IF seek for specific letter combinations in the $tring to be printed, but so far, it seems to have created more problems than actually work.
Remember, this code is only an intermediary step. Finally, I want chunks of this program to be under the hood of an InForm program where I've already designed the window with buttons and drop-down menues where I can easily click through and enter all the variables that are still a chunk of arbitrary assignments at the start of this program.
Post by: bplus on June 05, 2020, 09:30:12 am
This might take a little time to go through being 1280 Lines Of Code, but I will give it a shot later today if no one (or you) haven't found things first.
Welcome to the forum!
Post by: Qwerkey on June 05, 2020, 09:46:39 am
Post by: TempodiBasic on June 05, 2020, 10:56:32 am
1. welcome to the forum
2. fine subject for a program
3. why do you use a so large SCREEN 0, I cannot see all the output to the screen... and do you? What kind of monitor are you using? However I can suggest you to use a raw SLEEP or a more suitable DO:LOOP UNTIL INKEY$ at the end of each section so you let to the user to read the output and then go on.
4. why don't you try to shrink you code? I see that more actions are repetitive.
5. to solve the repetition of number in the first 2 sections of output you must simply REM out the second parameter of the SUB in the line 1254 of PRINT
so changing from
Code: QB64: [Select]
[ This attachment cannot be displayed inline in 'Print Page' view ]
to
Code: QB64: [Select]
Good Coding
Post by: bplus on June 05, 2020, 11:23:19 am
Code: QB64: [Select]
Post by: Pete on June 05, 2020, 01:12:58 pm
Sorry, but I can't let Richard have all the fun. BTW - Is Tempo tall and dark?
Pete
Post by: Richard Frost on June 05, 2020, 06:12:50 pm
Post by: TempodiBasic on June 05, 2020, 07:06:45 pm
about your issue b) it depends from your call of display sub at 1191 line of code, if you REM out it
this output
[ This attachment cannot be displayed inline in 'Print Page' view ]
changes in this
[ This attachment cannot be displayed inline in 'Print Page' view ]
here a little example about how to make flexible the display sub
Code: QB64: [Select]
Good Coding
Post by: TempodiBasic on June 05, 2020, 07:17:59 pm
you let me remember that I don't believe astrology, in fact astrology says that Gemini don't believe astrology and I am Gemini.
:-))
Post by: DDBE on June 06, 2020, 03:04:48 am
Quote
Horoscope? I foresee a tall dark stranger helping you with this.
Funny, but divination astrology, aka the foretelling of events, is not what I'm interested in (or take much seriously). This is to be used for psychological astrology in the tradition of Liz Greene, where your birth chart indicates your personality. For example, most celestial bodies above the "horizon" of the horizontal AC-DC axis indicates extroversion, most of them below this "horizon" indicates introversion, most of them on the right side of the vertical IC-MC axis indicates mental processes mostly oriented towards the community/society, most of them on the left side indicate mental processes mostly focussed on ego themes, etc...
Quote
4. why don't you try to shrink you code? I see that more actions are repetitive.
Maybe I should've directly stated right beforehand that I haven't used QB, or *ANY* programming language, since the 90s (except for a two-week course on VisualBASIC c. during the early 2000s that I've never had any use for). And even back in the 90s, I hardly did anything more complicated than trying to find prime numbers on a Commodore64 and later in QB64.
Quite a lot of my horoscope program above are direct copy-pastes from Luke giving me a hand over at Discord, where he gave me small patches for this and that. I can savely say that I have no idea what Luke's table-sorting algorithm does or why it works. All I know is that it makes fields switch from left to right and from right to left, but for the life of me I can't wrap my mind around how he's managed to turn *THAT* into an Excel-style table-sorting algorithm. All I dimly remember is that I came up with the idea of assigning the absolute numerical value of each variable to its related text $tring.
But, yeah...the above program is how far I've gotten since about early-mid March this year up until now, mainly by help from the Discord server. I've gotten stuck too often with the program and found Discord is not really efficient a way of communication to iron out the kinks with such a big program.
Quote
3. why do you use a so large SCREEN 0, I cannot see all the output to the screen... and do you? What kind of monitor are you using?
I've made the screen as large as my monitor can display. My monitor has a resolution of 1920*1080 pixels.
Quote
However I can suggest you to use a raw SLEEP or a more suitable DO:LOOP UNTIL INKEY$ at the end of each section so you let to the user to read the output and then go on.
As said, this is all just a way to make the basic code work. The final version will be behind an InForm window, where the function of the first 32 lines here will be fulfilled by drop-down menues instead.
Quote
5. to solve the repetition of number in the first 2 sections of output you must simply REM out the second parameter of the SUB in the line 1254 of PRINT
I've tried that, but then QB told me to do the same on line 1252, and then it gave me a syntax error from that on line 1185.
Quote
WIDTH 150, 70
right under SCREEN line makes everything fit, I think it's everything.
Ew, that makes everything very hard to read. As if the font is still the same width, but only 1/4 as high or so.
Quote
about your issue b) it depends from your call of display sub at 1191 line of code, if you REM out it
Okay, that was simple enough I could make it work for a change.
Quote
here a little example about how to make flexible the display sub
Same problem as when trying to REM out part of line 1254: It only ends up giving me a syntax error on line 1185.
Post by: TempodiBasic on June 07, 2020, 01:51:47 pm
1. here your code MODded with my two suggestions and working well
REM the second variable printed out in the SUB display
REM the manual output of the 12 astrological signs
make adaptable the FOR NEXT loop into SUB display using as upper limit of the FOR the UBOUND(array)
(as you can see I am not able to count well until 3 :-)) )
Code: QB64: [Select]
- sun$ = "Aquarius"
- sun_House = 4
- moon$ = "Aries"
- moon_House = 6
- ascendent$ = "Scorpio"
- MC$ = "Leo"
- mercury$ = "Aquarius"
- mercury_House = 3
- Venus$ = "Pisces"
- venus_House = 5
- Mars$ = "Pisces"
- mars_House = 5
- Jupiter$ = "Sagittarius"
- jupiter_House = 2
- Saturn$ = "Scorpio"
- saturn_House = 1
- Chiron$ = "Taurus"
- chiron_House = 7
- Uranus$ = "Sagittarius"
- uranus_House = 2
- neptune$ = "Sagittarius"
- neptunee_House = 2
- Pluto$ = "Libra"
- pluto_House = 12
- moon_Node$ = "Capricorn"
- moon_node_House = 3
- Lilith$ = "Aquarius"
- lilith_House = 4
- house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
- house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
- house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
- house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
- house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
- house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
- house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
- house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
- house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
- house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
- house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
- house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
- house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 1
- aries_Value = aries_Value + 1
- cardinals = cardinals + 1
- CASE "Taurus"
- earth = earth + 1
- taurus_Value = taurus_Value + 1
- fixed = fixed + 1
- CASE "Gemini"
- air = air + 1
- gemini_Value = gemini_Value + 1
- mutable = mutable + 1
- CASE "Cancer"
- water = water + 1
- cancer_Value = cancer_Value + 1
- cardinals = cardinals + 1
- CASE "Leo"
- fire = fire + 1
- leo_Value = leo_Value + 1
- fixed = fixed + 1
- CASE "Virgo"
- earth = earth + 1
- virgo_Value = virgo_Value + 1
- mutable = mutable + 1
- CASE "Libra"
- air = air + 1
- libra_Value = libra_Value + 1
- cardinals = cardinals + 1
- CASE "Scorpio"
- water = water + 1
- scorpio_Value = scorpio_Value + 1
- fixed = fixed + 1
- CASE "Sagittarius"
- fire = fire + 1
- sagittarius_Value = sagittarius_Value + 1
- mutable = mutable + 1
- CASE "Capricorn"
- earth = earth + 1
- capricorn_Value = capricorn_Value + 1
- cardinals = cardinals + 1
- CASE "Aquarius"
- air = air + 1
- Aquarius_Value = Aquarius_Value + 1
- fixed = fixed + 1
- CASE "Pisces"
- water = water + 1
- pisces_Value = pisces_Value + 1
- mutable = mutable + 1
- elements = earth + fire + water + air
- Earth_Percentage = 100 / elements * earth
- Fire_Percentage# = 100 / elements * fire
- Water_Percentage# = 100 / elements * water
- Air_Percentage# = 100 / elements * air
- Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
- Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
- Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
- Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
- qualities = cardinals + fixed + mutable
- cardinal_Percentage# = 100 / qualities * cardinals
- fixed_Percentage# = 100 / qualities * fixed
- mutable_Percentage# = 100 / qualities * mutable
- cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
- fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
- mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
- all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
- Aries_Percentage = 100 / all_Signs * aries_Value
- Taurus_Percentage = 100 / all_Signs * taurus_Value
- Gemini_Percentage = 100 / all_Signs * gemini_Value
- Cancer_Percentage = 100 / all_Signs * cancer_Value
- Leo_Percentage = 100 / all_Signs * leo_Value
- Virgo_Percentage = 100 / all_Signs * virgo_Value
- Libra_Percentage = 100 / all_Signs * libra_Value
- Scorpio_Percentage = 100 / all_Signs * scorpio_Value
- Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
- Capricorn_Percentage = 100 / all_Signs * capricorn_Value
- Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
- Pisces_Percentage = 100 / all_Signs * pisces_Value
- Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
- Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
- Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
- Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
- Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
- Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
- Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
- Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
- Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
- Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
- Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
- Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
- all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
- house1_Percentage = 100 / all_Houses * house(1)
- house2_Percentage = 100 / all_Houses * house(2)
- house3_Percentage = 100 / all_Houses * house(3)
- house4_Percentage = 100 / all_Houses * house(4)
- house5_Percentage = 100 / all_Houses * house(5)
- house6_Percentage = 100 / all_Houses * house(6)
- house7_Percentage = 100 / all_Houses * house(7)
- house8_Percentage = 100 / all_Houses * house(8)
- house9_Percentage = 100 / all_Houses * house(9)
- house10_Percentage = 100 / all_Houses * house(10)
- house11_Percentage = 100 / all_Houses * house(11)
- house12_Percentage = 100 / all_Houses * house(12)
- house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
- house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
- house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
- house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
- house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
- house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
- house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
- house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
- house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
- house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
- house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
- house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
- largest = 0
- signs_percentage = 100 / all_Signs * largest
- signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
- largesthouse = 0
- largesthouse_percentage = 100 / all_Houses * largesthouse
- largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
- Quad1 = house(1) + house(2) + house(3)
- Quad2 = house(4) + house(5) + house(6)
- Quad3 = house(7) + house(8) + house(9)
- Quad4 = house(10) + house(11) + house(12)
- all_Quads = Quad1 + Quad2 + Quad3 + Quad4
- largedom_Quad = 0
- large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
- large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
- quad1_Percentage = 100 / all_Quads * Quad1
- quad2_Percentage = 100 / all_Quads * Quad2
- quad3_Percentage = 100 / all_Quads * Quad3
- quad4_Percentage = 100 / all_Quads * Quad4
- quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
- quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
- quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
- quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
- active_Signs = fire + earth
- passive_Signs = water + air
- polarity_Percentage = active_Signs + passive_Signs
- active_Percentage = 100 / polarity_Percentage * active_Signs
- passive_Percentage = 100 / polarity_Percentage * passive_Signs
- active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
- passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
- elements_Table$(0) = earth_String$
- elements_table_Values(0) = earth
- elements_Table$(1) = fire_String$
- elements_table_Values(1) = fire
- elements_Table$(2) = water_String$
- elements_table_Values(2) = water
- elements_Table$(3) = air_String$
- elements_table_Values(3) = air
- signs_Table$(0) = aries_String$
- signs_table_Values(0) = aries_Value
- signs_Table$(1) = taurus_String$
- signs_table_Values(1) = taurus_Value
- signs_Table$(2) = gemini_String$
- signs_table_Values(2) = gemini_Value
- signs_Table$(3) = cancer_String$
- signs_table_Values(3) = cancer_Value
- signs_Table$(4) = leo_String$
- signs_table_Values(4) = leo_Value
- signs_Table$(5) = virgo_String$
- signs_table_Values(5) = virgo_Value
- signs_Table$(6) = libra_String$
- signs_table_Values(6) = libra_Value
- signs_Table$(7) = Skoprionstring$
- signs_table_Values(7) = scorpio_Value
- signs_Table$(8) = sagittarius_String$
- signs_table_Values(8) = sagittarius_Value
- signs_Table$(9) = capricorn_String$
- signs_table_Values(9) = capricorn_Value
- signs_Table$(10) = Aquarius_String$
- signs_table_Values(10) = Aquarius_Value
- signs_Table$(11) = pisces_String$
- signs_table_Values(11) = pisces_Value
- PRINT "Elements:"
- COLOR 15
- quicksort 0, 3, elements_Table$(), elements_table_Values()
- display elements_Table$(), elements_table_Values()
- COLOR 7
- PRINT "Dominance of the signs:"
- COLOR 15
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$(), signs_table_Values()
- 'PRINT aries_String$
- 'PRINT taurus_String$
- 'PRINT gemini_String$
- 'PRINT cancer_String$
- 'PRINT leo_String$
- 'PRINT virgo_String$
- 'PRINT libra_String$
- 'PRINT scorpio_String$
- 'PRINT sagittarius_String$
- 'PRINT capricorn_String$
- 'PRINT Aquarius_String$
- 'PRINT pisces_String$
- PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
- COLOR 7
- PRINT "Qualities:"
- COLOR 15
- PRINT cardinal_String$
- PRINT fixed_String$
- PRINT mutable_String$
- COLOR 7
- PRINT "Polarities:"
- COLOR 15
- PRINT active_String$
- PRINT passive_String$
- COLOR 7
- PRINT "Dominance of the houses:"
- COLOR 15
- PRINT house1_String$
- PRINT house2_String$
- PRINT house3_String$
- PRINT house4_String$
- PRINT house5_String$
- PRINT house6_String$
- PRINT house7_String$
- PRINT house8_String$
- PRINT house9_String$
- PRINT house10_String$
- PRINT house11_String$
- PRINT house12_String$
- PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
- COLOR 7
- PRINT "Dominance of the quadrants:"
- COLOR 15
- PRINT Quad1string$
- PRINT Quad2string$
- PRINT Quad3string$
- PRINT Quad4string$
- PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
2.
the
Code: QB64: [Select]
3. You have a previous smart experience with VisualBasic. What version of VisualBasic? I knew VB 3.0 for windows as first, then VB4.0. Then I left the world of programming for about 8 years, in the coming back VB was at 6.0 and it was becoming VB.net.... and I got in the web and found RapidQ, when its community was at the last years of activity. My luck was that I had had enough experience with Qbasic and QB45 of DOS to not loose myself in so many informations useful only for single component of VB and not for being able to program. About VB it seems that Microsoft release free VBexpress 2008 for private personal use. So also if you make a program for free for a friend you are outlaw. :-) Great marketing.
Yes Inform is an excellent interface that emulates very well the VB in the event driven programming .
4.
Quote
Quotethis is fun!
5. to solve the repetition of number in the first 2 sections of output you must simply REM out the second parameter of the SUB in the line 1254 of PRINT
I've tried that, but then QB told me to do the same on line 1252, and then it gave me a syntax error from that on line 1185.
Why? Because in your original code
this is the line 1252
Code: QB64: [Select]
this is line 1254
Code: QB64: [Select]
this is the line 1185
Code: QB64: [Select]
- display elements_Table$(), elements_table_Values()
so if you simply REM out the second variable from line 1254
Code: QB64: [Select]
Otherwise if you use the new SUB display posted by me you must adjust all calling to it because it has one (and not 2) parameter
at lines 1191 and 1185
moreover you must REM or cancel the lines from 1193 to 1204
------------------
I hope that my feedbacks are clear and useful.
Good Coding
PS have you already done a flowchart or a pseudocode of the final program ?
It can be useful to understand programming with no matter what language and tool do you want to use!
See here to know more https://en.wikipedia.org/wiki/Pseudocode (https://en.wikipedia.org/wiki/Pseudocode)
Post by: TempodiBasic on June 07, 2020, 02:11:51 pm
[ This attachment cannot be displayed inline in 'Print Page' view ]
the 2nd highest value is blank....
so I have tested it in a suitable mode
Code: QB64: [Select]
- initialize a$(), b()
- quicksort 0, 11, a$(), b()
- display a$(), b()
- NEXT z
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
but I have no issue into the test!
.... who wants to repeat the quicksort algorythm?
Post by: bplus on June 07, 2020, 02:29:16 pm
Quote
.... who wants to repeat the quicksort algorythm?
@TempodiBasic
(referring to the code below) You will have to adjust your Quick Sort code to the Type array to sort.
If you have multiple fields, I would build a string array with fields concatenated in the order you want to sort by.
Make number fields right justified strings, string fields left justified and allow no variable width field (except maybe the last).
Quick and simple demo of Quick Sort:
Code: QB64: [Select]
- 'Quick Sort test.bas
- n = 10
- 'load test array
- 'sort the array with sub copied from wiki (insert CR or LF as needed)
- 'have a look at array
- Hi = finish: Lo = start
- Middle = array((Lo + Hi) / 2) 'find middle of array
- Lo = Lo + 1: Hi = Hi - 1
For string array change Middle to Middle$ and of course the array() parameter.
Post by: DDBE on June 07, 2020, 03:46:48 pm
Quote
3. You have a previous smart experience with VisualBasic. What version of VisualBasic?
I have no idea. It was just a one or two-weeks public evening course, where we were literally copying the instructor's code word-by-word, just so we could make a tiny clipart airplane fly on a pre-defined path across a background BMP map, touching 5 cities or so. All 2D. At the end of that course, I figured I could do the same within CorelMOVE or Premiere Pro within five minutes, rather than taking one or two weeks for it as in VBasic, and I found that VBasic was just unnessarily hugely overcomplicating things. Have never used VBasic again after that course roughly 15-20 years ago.
The only thing I'd taken home from that course that had nothing to do with CoreMOVE or Premiere Pro was that a VBasic program is basically one huge IF (or SELECT CASE) loop waiting for specific events to occur and is capable of doing severeal different things at once, which is a *WAY* different philosophy than Commodore64 BASIC or QBasic. I guess I really prefer the simplicity of good ol' linearity and just a few loops or GOTOs here and there. Couldn't make much sense of VBasic for that reason.
BTW...
Quote
I see that more actions are repetitive. [...] PS have you already done a flowchart or a pseudocode of the final program ?
Where exactly do you see unnecessary repetitions in my original program above? Somnething like a verbal flowchart following below:
Lines 1-956:
I wouldn't know how to further streamline especially the first 956 lines of my original program. The basic idea for those first 956 lines is that every celestial body (as well as ascendant and MC) has a specific fixed numerical value attached to it.
To further desribe the concept: Each birth chart is round like a clock, divided into 12 sections numbered counter-clockwise, beginning at roughly 9 o'clock (where the ascendant is located). These 12 sections are the 12 houses. The 2D chart representation of 3D space works as such that the 12 houses and the 12 signs are visualized basically as two concentric rings, with the houses ring inside the signs ring, and where the outer signs ring can be rotated independently from the houses ring. The rotation of the outer signs ring represents the earth's daily rotation around its own axis in relation to the stars within a 3D space (including a horizon line, formed by the AC-DC axis), so that the moment (as well as location) of birth defines not only the position of the planets, but also how the outer signs ring is rotated or positioned in relation to the inner houses ring, making signs individually end up in specific houses.
Random chart for clarification about the houses and the two concentric rings (houses and signs):
https://www.astro.com/tmpd/cplnfileetj1pG-u1581285156/astro_2atw_richard_nixon.71036.28570.png?33796 (https://www.astro.com/tmpd/cplnfileetj1pG-u1581285156/astro_2atw_richard_nixon.71036.28570.png?33796)
Now, each of the 12 houses in the circular house system is like a box, and each of those house boxes can hold:
a.) Celestial bodies (not all houses do),
b.) one out of the 12 signs (all houses have a sign inside of them),
c.) based upon the sign they're in, each celestial body also adds its numerical value to the sign's specific attributes. Each sign has three different attributes:
- Element (there are 4 different elements a sign can belong to: Earth, water, fire, or air),
- Quality (there are 3 different qualities a sign can belong to: Cardinal, fixed, or mutable),
- Polarity (there are 2 different polarities a sign can belong to: Active or passive).
Now, based upon where every single celestial body (as well as ascendant and MC) is located inside the spherical house system, you add up the figures of all celestial bodies for each one of the 12 houses and each one of the 12 signs, as well as for the sign's three attributes (element, quality, and polarity).
One only needs to remember that ascendant and MC themselves don't add to a specific house, because unlike with celestial bodies, their position within the house sytem is fixed by being the boundary between the 12th and the 1st house (the ascendant, always located at roughly 9 o'clock on the circular chart) and between the 9th and the 10th house (the MC, always located at roughly 12 o'clock).
However, the planetary ruler of the ascendant sign does add to a house, to a sign, and to the three attributes of that sign. Only not to the sign that is directly in that house where the planetary ruler is in; here, the system works a bit differently as such that when it comes to the house position of an ascendant's planetary ruler, each house has a specific "natural" sign attributed to/associated with it, as opposed to the sign that is actually in that house.
Lines 957-1139:
Following that, lines 957-1139 of my original program deal with:
a.) calculating percentages of strengths within each category (houses, signs, elements, qualities, polarities),
b.) defining the four quadrants (each made out of three consecutive houses) and calculating their percentages,
c.) rounding all the percentages to two decimal places (neither rounding up nor rounding down indiscriminately, but rounding them either up *OR* down based upon what is the closest value) (where I found those operations don't really work exactly like QB64 documentation says, so I had to add one further operation every time by means of a colon in that same line),
d.) and assigning the alphanumerical $trings to print at the end that have resulted from all of the operations above.
Lines 1141-1179:
Lines 1141-1179 define the two-column tables for each category, where one column holds the sortable numerical value, the other holds the $tring to be printed attached to it, so we'll have tables that can be sorted further down.
Lines 1181-1280:
Now, it's the lines 1181 to the very end of my original program (particularly the sub-routines and their calls) that are a total mystery to me and came from Luke, intended to sort every single category table in descending order once this program is finished (where each table can hold two or more tables lines of identical numerical value).
Quote
please try [my new code].
Okay, I'll now screenshot the results of my old code (to still have the numerical results to compare), then I'll try your new code in a clean new program. Thank you so much so far! I guess right now, Bplus's further tweaks are a bit over my head even just how to implement them into your new code.
Post by: bplus on June 07, 2020, 04:49:50 pm
Quote
Bplus's further tweaks are a bit over my head even just how to implement them into your new code.
@DDBE Sorry, Bplus is thinking data-basing but when I see your last post, now thinking complex mult-variable function that requires sub function assembly of data to solve the main function.
I posted the Quick Sort as requested by TempodiBasic only to discover he had a perfectly fine one posted for sorting an array by a field. Again sorry to complicate matters.
Post by: TempodiBasic on June 07, 2020, 09:16:25 pm
The quicksort isn't one of mine, it is the original that had posted DDBE .
I have only checked it in a simpler code than original post. In this last it seems to loose an element that has the same value of another. But in my littler example I never got the glitch!
So my question was : is really there something wrong? Why does it disappear Scorpio from the list printed out after sorting the array of signes?
@DDBE
your code is very huge and works. IMHO it is possible to understand what are the fundamental data to create an UDT (User Defined Data) to manage so many variables all together....
thinking raw about your program
you use:
12 houses
12 signs
14 planets
4 elements
3 quality
2 polarity
and your goal is to calculate:
1 dominance of elements
2 dominance of signs
3 dominance of houses
4 dominance of qualities
5 dominance of polarities
6 dominance of quadrants
I'll take a look into the forest of sum...
Please gimme a feedback about Mars (that is the only one planet to show 2 different values into different sections of calculations)
into House calculation it gives 6 to its house, while into signs it gives 5 to element, quality and polarity. Is this correct for your calculations?
Thanks for read
Post by: DDBE on June 07, 2020, 10:22:08 pm
@bplus Please gimme a feedback about Mars (that is the only one planet to show 2 different values into different sections of calculations)
into House calculation it gives 6 to its house, while into signs it gives 5 to element, quality and polarity. Is this correct for your calculations?
Oh shit, you're right! It should always be 6 instead of 5 points added within the SELECT CASE Mars$ loop!
Post by: bplus on June 07, 2020, 11:20:28 pm
Quote
@bplus
The quicksort isn't one of mine, it is the original that had posted DDBE .
I have only checked it in a simpler code than original post. In this last it seems to loose an element that has the same value of another. But in my littler example I never got the glitch!
So my question was : is really there something wrong? Why does it disappear Scorpio from the list printed out after sorting the array of signes?
Hi TempodiBasic,
I looked over your simplified quicksort and looks good. Is the missing item in the array(s) before quicksort is called?
Is it a top or bottom item in an array list? (There could be a problem if an array assumed to start at 1 starts at 0 or vice versa).
Intuitively I sense that UDT might organize and reduce code lines also, but maybe not.
Man! I admire how you are getting into the details here!
Post by: TempodiBasic on June 08, 2020, 08:22:27 am
@bplus the missed value is the 2nd highest after quicksort and yes the array DIMmed by DDBE is 0-11 and quicksort is called with min%,Max% as 0,11
Code: QB64: [Select]
- PRINT "Dominance of the signs:"
- COLOR 15
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$(), signs_table_Values()
- 'PRINT aries_String$
- 'PRINT taurus_String$
- 'PRINT gemini_String$
- 'PRINT cancer_String$
- 'PRINT leo_String$
- 'PRINT virgo_String$
- 'PRINT libra_String$
- 'PRINT sagittarius_String$
- 'PRINT capricorn_String$
- 'PRINT Aquarius_String$
- 'PRINT pisces_String$
if you run my code unREMming the Scorpio line of code you'll get its value
[ This attachment cannot be displayed inline in 'Print Page' view ]
any idea?
Post by: bplus on June 08, 2020, 12:20:12 pm
Quote
@bplus the missed value is the 2nd highest after quicksort and yes the array DIMmed by DDBE is 0-11 and quicksort is called with min%,Max% as 0,11
@TempodiBasic, taking your code from reply #11 I made these changes:
at top, for readablility and screen fit
Code: QB64: [Select]
- 'WIDTH 150, 70 ' Bplus fixes fit in screen
focus in on the code around 1190 the call to quicksort, check the arrays before and after and then quit program:
Code: QB64: [Select]
and a little change to display sub to see both arrays and format a little better
Code: QB64: [Select]
- 'PRINT a$(i%) REM, b(i%) 'reply #11 code
Here is the result:
You can plainly see that Scorpio was missing from signs_Table$() even before the call to quicksort (but signs_table_Values() array did have it and so sorted properly as key to the sort algo).
I have now I think proved quicksort is not the problem. I suspect some typo or other mistake when assigning the Scorpio value to the signs_Table$() array.
Post by: TempodiBasic on June 08, 2020, 04:28:51 pm
EXCELLENT session of debug!
Yes your research puts light on the mistery! And Yes you're right about the nature of the error that is before quicksort SUB!
here is the genesis of the issue!
Quote
1170 signs_Table$(7) = Skoprionstring$it is clearly a mystype error!
Thanks to solve the issue Bplus.
Post by: bplus on June 08, 2020, 07:23:53 pm
@bplus
EXCELLENT session of debug!
Yes your research puts light on the mistery! And Yes you're right about the nature of the error that is before quicksort SUB!
here is the genesis of the issue! it is clearly a mystype error!
Thanks to solve the issue Bplus.
Aha! @TempodiBasic you found it!
Post by: DDBE on June 08, 2020, 11:14:48 pm
Code: QB64: [Select]
- sun$ = "Aquarius"
- sun_House = 4
- moon$ = "Aries"
- moon_House = 6
- ascendent$ = "Scorpio"
- MC$ = "Leo"
- mercury$ = "Aquarius"
- mercury_House = 3
- Venus$ = "Pisces"
- venus_House = 5
- Mars$ = "Pisces"
- mars_House = 5
- Jupiter$ = "Sagittarius"
- jupiter_House = 2
- Saturn$ = "Scorpio"
- saturn_House = 1
- Chiron$ = "Taurus"
- chiron_House = 7
- Uranus$ = "Sagittarius"
- uranus_House = 2
- neptune$ = "Sagittarius"
- neptunee_House = 2
- Pluto$ = "Libra"
- pluto_House = 12
- moon_Node$ = "Capricorn"
- moon_node_House = 3
- Lilith$ = "Aquarius"
- lilith_House = 4
- house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
- house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
- house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
- house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
- house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
- house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
- house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
- house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
- house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
- house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
- house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
- house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
- house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 1
- aries_Value = aries_Value + 1
- cardinals = cardinals + 1
- CASE "Taurus"
- earth = earth + 1
- taurus_Value = taurus_Value + 1
- fixed = fixed + 1
- CASE "Gemini"
- air = air + 1
- gemini_Value = gemini_Value + 1
- mutable = mutable + 1
- CASE "Cancer"
- water = water + 1
- cancer_Value = cancer_Value + 1
- cardinals = cardinals + 1
- CASE "Leo"
- fire = fire + 1
- leo_Value = leo_Value + 1
- fixed = fixed + 1
- CASE "Virgo"
- earth = earth + 1
- virgo_Value = virgo_Value + 1
- mutable = mutable + 1
- CASE "Libra"
- air = air + 1
- libra_Value = libra_Value + 1
- cardinals = cardinals + 1
- CASE "Scorpio"
- water = water + 1
- scorpio_Value = scorpio_Value + 1
- fixed = fixed + 1
- CASE "Sagittarius"
- fire = fire + 1
- sagittarius_Value = sagittarius_Value + 1
- mutable = mutable + 1
- CASE "Capricorn"
- earth = earth + 1
- capricorn_Value = capricorn_Value + 1
- cardinals = cardinals + 1
- CASE "Aquarius"
- air = air + 1
- Aquarius_Value = Aquarius_Value + 1
- fixed = fixed + 1
- CASE "Pisces"
- water = water + 1
- pisces_Value = pisces_Value + 1
- mutable = mutable + 1
- elements = earth + fire + water + air
- Earth_Percentage = 100 / elements * earth
- Fire_Percentage# = 100 / elements * fire
- Water_Percentage# = 100 / elements * water
- Air_Percentage# = 100 / elements * air
- Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
- Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
- Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
- Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
- qualities = cardinals + fixed + mutable
- cardinal_Percentage# = 100 / qualities * cardinals
- fixed_Percentage# = 100 / qualities * fixed
- mutable_Percentage# = 100 / qualities * mutable
- cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
- fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
- mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
- all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
- Aries_Percentage = 100 / all_Signs * aries_Value
- Taurus_Percentage = 100 / all_Signs * taurus_Value
- Gemini_Percentage = 100 / all_Signs * gemini_Value
- Cancer_Percentage = 100 / all_Signs * cancer_Value
- Leo_Percentage = 100 / all_Signs * leo_Value
- Virgo_Percentage = 100 / all_Signs * virgo_Value
- Libra_Percentage = 100 / all_Signs * libra_Value
- Scorpio_Percentage = 100 / all_Signs * scorpio_Value
- Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
- Capricorn_Percentage = 100 / all_Signs * capricorn_Value
- Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
- Pisces_Percentage = 100 / all_Signs * pisces_Value
- Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
- Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
- Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
- Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
- Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
- Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
- Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
- Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
- Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
- Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
- Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
- Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
- all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
- house1_Percentage = 100 / all_Houses * house(1)
- house2_Percentage = 100 / all_Houses * house(2)
- house3_Percentage = 100 / all_Houses * house(3)
- house4_Percentage = 100 / all_Houses * house(4)
- house5_Percentage = 100 / all_Houses * house(5)
- house6_Percentage = 100 / all_Houses * house(6)
- house7_Percentage = 100 / all_Houses * house(7)
- house8_Percentage = 100 / all_Houses * house(8)
- house9_Percentage = 100 / all_Houses * house(9)
- house10_Percentage = 100 / all_Houses * house(10)
- house11_Percentage = 100 / all_Houses * house(11)
- house12_Percentage = 100 / all_Houses * house(12)
- house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
- house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
- house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
- house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
- house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
- house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
- house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
- house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
- house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
- house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
- house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
- house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
- largest = 0
- signs_percentage = 100 / all_Signs * largest
- signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
- largesthouse = 0
- largesthouse_percentage = 100 / all_Houses * largesthouse
- largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
- Quad1 = house(1) + house(2) + house(3)
- Quad2 = house(4) + house(5) + house(6)
- Quad3 = house(7) + house(8) + house(9)
- Quad4 = house(10) + house(11) + house(12)
- all_Quads = Quad1 + Quad2 + Quad3 + Quad4
- largedom_Quad = 0
- large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
- large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
- quad1_Percentage = 100 / all_Quads * Quad1
- quad2_Percentage = 100 / all_Quads * Quad2
- quad3_Percentage = 100 / all_Quads * Quad3
- quad4_Percentage = 100 / all_Quads * Quad4
- quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
- quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
- quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
- quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
- active_Signs = fire + earth
- passive_Signs = water + air
- polarity_Percentage = active_Signs + passive_Signs
- active_Percentage = 100 / polarity_Percentage * active_Signs
- passive_Percentage = 100 / polarity_Percentage * passive_Signs
- active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
- passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
- elements_Table$(0) = earth_String$
- elements_table_Values(0) = earth
- elements_Table$(1) = fire_String$
- elements_table_Values(1) = fire
- elements_Table$(2) = water_String$
- elements_table_Values(2) = water
- elements_Table$(3) = air_String$
- elements_table_Values(3) = air
- signs_Table$(0) = aries_String$
- signs_table_Values(0) = aries_Value
- signs_Table$(1) = taurus_String$
- signs_table_Values(1) = taurus_Value
- signs_Table$(2) = gemini_String$
- signs_table_Values(2) = gemini_Value
- signs_Table$(3) = cancer_String$
- signs_table_Values(3) = cancer_Value
- signs_Table$(4) = leo_String$
- signs_table_Values(4) = leo_Value
- signs_Table$(5) = virgo_String$
- signs_table_Values(5) = virgo_Value
- signs_Table$(6) = libra_String$
- signs_table_Values(6) = libra_Value
- signs_Table$(7) = scorpio_String$
- signs_table_Values(7) = scorpio_Value
- signs_Table$(8) = sagittarius_String$
- signs_table_Values(8) = sagittarius_Value
- signs_Table$(9) = capricorn_String$
- signs_table_Values(9) = capricorn_Value
- signs_Table$(10) = Aquarius_String$
- signs_table_Values(10) = Aquarius_Value
- signs_Table$(11) = pisces_String$
- signs_table_Values(11) = pisces_Value
- qualities_Table$(0) = cardinal_String$
- qualities_table_Values(0) = cardinals
- qualities_Table$(1) = fixed_String$
- qualities_table_Values(1) = fixed
- qualities_Table$(2) = mutable_String$
- qualities_table_Values(2) = mutable
- polarities_Table$(0) = active_String$
- polarities_table_Value(0) = active_Signs
- polarities_Table$(1) = passive_String$
- polarities_table_Value(1) = passive_Signs
- houses_Table$(0) = house1_String$
- houses_table_Values(0) = house(1)
- houses_Table$(1) = house2_String$
- houses_table_Values(1) = house(2)
- houses_Table$(2) = house3_String$
- houses_table_Values(2) = house(3)
- houses_Table$(3) = house4_String$
- houses_table_Values(3) = house(4)
- houses_Table$(4) = house5_String$
- houses_table_Values(4) = house(5)
- houses_Table$(5) = house6_String$
- houses_table_Values(5) = house(6)
- houses_Table$(6) = house7_String$
- houses_table_Values(6) = house(7)
- houses_Table$(7) = house8_String$
- houses_table_Values(7) = house(8)
- houses_Table$(8) = house9_String$
- houses_table_Values(8) = house(9)
- houses_Table$(9) = house10_String$
- houses_table_Values(9) = house(10)
- houses_Table$(10) = house11_String$
- houses_table_Values(10) = house(11)
- houses_Table$(11) = house12_String$
- houses_table_Values(11) = house(12)
- quadrants_Table$(0) = Quad1string$
- quadrants_table_Values(0) = Quad1
- quadrants_Table$(1) = Quad2string$
- quadrants_table_Values(1) = Quad2
- quadrants_Table$(2) = Quad3string$
- quadrants_table_Values(2) = Quad3
- quadrants_Table$(3) = Quad4string$
- quadrants_table_Values(3) = Quad4
- COLOR 8
- PRINT "Elements:"
- COLOR 0
- quicksort 0, 3, elements_Table$(), elements_table_Values()
- display elements_Table$(), elements_table_Values()
- COLOR 8
- PRINT "Dominance of the signs:"
- COLOR 0
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$(), signs_table_Values()
- PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
- COLOR 8
- PRINT "Qualities:"
- COLOR 0
- quicksort 0, 2, qualities_Table$(), qualities_table_Values()
- display qualities_Table$(), qualities_table_Values()
- COLOR 8
- PRINT "Polarities:"
- COLOR 0
- quicksort 0, 1, polarities_Table$(), polarities_table_Values()
- display polarities_Table$(), polarities_table_Values()
- COLOR 8
- PRINT "Dominance of the houses:"
- COLOR 0
- quicksort 0, 11, houses_Table$(), houses_table_Values()
- display houses_Table$(), houses_table_Values()
- PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
- COLOR 8
- PRINT "Dominance of the quadrants:"
- COLOR 0
- quicksort 0, 3, quadrants_Table$(), quadrants_table_Values()
- display quadrants_Table$(), quadrants_table_Values()
- PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
BTW, I've now tried to change the background color to white, as that will be the background color of the final output field in InForm.
As you can see, thanks to you I've been able to create an own table for every one of the 6 categories (elements, signs, qualities, polarities, houses, and quadrants) and sort them in descending order by means of just one versatile sub-routine!
Again, I do believe somebody should write an own article or tutorital on how to create and sort such Excel-style tables over at the QB64 wiki:
- First by using DIM SHARED,
- then assigning every single field of the table with an own column each value(s) according to which one wishes to sort the table,
- and finally an own versatile descending or ascending sorting sub-routine, which can be directly copy-pasted from that tutorial.
Anyways, the execution of my above code now works absolutely fine, but the status field at the bottom of QB64 still gives me a warning about an "unused variable" at line 1286. Do you know what's wrong there?
Post by: bplus on June 08, 2020, 11:31:12 pm
Code: QB64: [Select]
- sun$ = "Aquarius"
- sun_House = 4
- moon$ = "Aries"
- moon_House = 6
- ascendent$ = "Scorpio"
- MC$ = "Leo"
- mercury$ = "Aquarius"
- mercury_House = 3
- Venus$ = "Pisces"
- venus_House = 5
- Mars$ = "Pisces"
- mars_House = 5
- Jupiter$ = "Sagittarius"
- jupiter_House = 2
- Saturn$ = "Scorpio"
- saturn_House = 1
- Chiron$ = "Taurus"
- chiron_House = 7
- Uranus$ = "Sagittarius"
- uranus_House = 2
- neptune$ = "Sagittarius"
- neptunee_House = 2
- Pluto$ = "Libra"
- pluto_House = 12
- moon_Node$ = "Capricorn"
- moon_node_House = 3
- Lilith$ = "Aquarius"
- lilith_House = 4
- house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
- house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
- house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
- house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
- house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
- house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
- house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
- house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
- house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
- house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
- house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
- house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
- house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 1
- aries_Value = aries_Value + 1
- cardinals = cardinals + 1
- CASE "Taurus"
- earth = earth + 1
- taurus_Value = taurus_Value + 1
- fixed = fixed + 1
- CASE "Gemini"
- air = air + 1
- gemini_Value = gemini_Value + 1
- mutable = mutable + 1
- CASE "Cancer"
- water = water + 1
- cancer_Value = cancer_Value + 1
- cardinals = cardinals + 1
- CASE "Leo"
- fire = fire + 1
- leo_Value = leo_Value + 1
- fixed = fixed + 1
- CASE "Virgo"
- earth = earth + 1
- virgo_Value = virgo_Value + 1
- mutable = mutable + 1
- CASE "Libra"
- air = air + 1
- libra_Value = libra_Value + 1
- cardinals = cardinals + 1
- CASE "Scorpio"
- water = water + 1
- scorpio_Value = scorpio_Value + 1
- fixed = fixed + 1
- CASE "Sagittarius"
- fire = fire + 1
- sagittarius_Value = sagittarius_Value + 1
- mutable = mutable + 1
- CASE "Capricorn"
- earth = earth + 1
- capricorn_Value = capricorn_Value + 1
- cardinals = cardinals + 1
- CASE "Aquarius"
- air = air + 1
- Aquarius_Value = Aquarius_Value + 1
- fixed = fixed + 1
- CASE "Pisces"
- water = water + 1
- pisces_Value = pisces_Value + 1
- mutable = mutable + 1
- elements = earth + fire + water + air
- Earth_Percentage = 100 / elements * earth
- Fire_Percentage# = 100 / elements * fire
- Water_Percentage# = 100 / elements * water
- Air_Percentage# = 100 / elements * air
- Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
- Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
- Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
- Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
- qualities = cardinals + fixed + mutable
- cardinal_Percentage# = 100 / qualities * cardinals
- fixed_Percentage# = 100 / qualities * fixed
- mutable_Percentage# = 100 / qualities * mutable
- cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
- fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
- mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
- all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
- Aries_Percentage = 100 / all_Signs * aries_Value
- Taurus_Percentage = 100 / all_Signs * taurus_Value
- Gemini_Percentage = 100 / all_Signs * gemini_Value
- Cancer_Percentage = 100 / all_Signs * cancer_Value
- Leo_Percentage = 100 / all_Signs * leo_Value
- Virgo_Percentage = 100 / all_Signs * virgo_Value
- Libra_Percentage = 100 / all_Signs * libra_Value
- Scorpio_Percentage = 100 / all_Signs * scorpio_Value
- Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
- Capricorn_Percentage = 100 / all_Signs * capricorn_Value
- Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
- Pisces_Percentage = 100 / all_Signs * pisces_Value
- Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
- Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
- Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
- Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
- Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
- Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
- Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
- Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
- Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
- Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
- Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
- Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
- all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
- house1_Percentage = 100 / all_Houses * house(1)
- house2_Percentage = 100 / all_Houses * house(2)
- house3_Percentage = 100 / all_Houses * house(3)
- house4_Percentage = 100 / all_Houses * house(4)
- house5_Percentage = 100 / all_Houses * house(5)
- house6_Percentage = 100 / all_Houses * house(6)
- house7_Percentage = 100 / all_Houses * house(7)
- house8_Percentage = 100 / all_Houses * house(8)
- house9_Percentage = 100 / all_Houses * house(9)
- house10_Percentage = 100 / all_Houses * house(10)
- house11_Percentage = 100 / all_Houses * house(11)
- house12_Percentage = 100 / all_Houses * house(12)
- house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
- house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
- house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
- house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
- house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
- house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
- house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
- house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
- house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
- house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
- house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
- house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
- largest = 0
- signs_percentage = 100 / all_Signs * largest
- signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
- largesthouse = 0
- largesthouse_percentage = 100 / all_Houses * largesthouse
- largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
- Quad1 = house(1) + house(2) + house(3)
- Quad2 = house(4) + house(5) + house(6)
- Quad3 = house(7) + house(8) + house(9)
- Quad4 = house(10) + house(11) + house(12)
- all_Quads = Quad1 + Quad2 + Quad3 + Quad4
- largedom_Quad = 0
- large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
- large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
- quad1_Percentage = 100 / all_Quads * Quad1
- quad2_Percentage = 100 / all_Quads * Quad2
- quad3_Percentage = 100 / all_Quads * Quad3
- quad4_Percentage = 100 / all_Quads * Quad4
- quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
- quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
- quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
- quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
- active_Signs = fire + earth
- passive_Signs = water + air
- polarity_Percentage = active_Signs + passive_Signs
- active_Percentage = 100 / polarity_Percentage * active_Signs
- passive_Percentage = 100 / polarity_Percentage * passive_Signs
- active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
- passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
- elements_Table$(0) = earth_String$
- elements_table_Values(0) = earth
- elements_Table$(1) = fire_String$
- elements_table_Values(1) = fire
- elements_Table$(2) = water_String$
- elements_table_Values(2) = water
- elements_Table$(3) = air_String$
- elements_table_Values(3) = air
- signs_Table$(0) = aries_String$
- signs_table_Values(0) = aries_Value
- signs_Table$(1) = taurus_String$
- signs_table_Values(1) = taurus_Value
- signs_Table$(2) = gemini_String$
- signs_table_Values(2) = gemini_Value
- signs_Table$(3) = cancer_String$
- signs_table_Values(3) = cancer_Value
- signs_Table$(4) = leo_String$
- signs_table_Values(4) = leo_Value
- signs_Table$(5) = virgo_String$
- signs_table_Values(5) = virgo_Value
- signs_Table$(6) = libra_String$
- signs_table_Values(6) = libra_Value
- signs_Table$(7) = scorpio_String$
- signs_table_Values(7) = scorpio_Value
- signs_Table$(8) = sagittarius_String$
- signs_table_Values(8) = sagittarius_Value
- signs_Table$(9) = capricorn_String$
- signs_table_Values(9) = capricorn_Value
- signs_Table$(10) = Aquarius_String$
- signs_table_Values(10) = Aquarius_Value
- signs_Table$(11) = pisces_String$
- signs_table_Values(11) = pisces_Value
- qualities_Table$(0) = cardinal_String$
- qualities_table_Values(0) = cardinals
- qualities_Table$(1) = fixed_String$
- qualities_table_Values(1) = fixed
- qualities_Table$(2) = mutable_String$
- qualities_table_Values(2) = mutable
- polarities_Table$(0) = active_String$
- polarities_table_Value(0) = active_Signs
- polarities_Table$(1) = passive_String$
- polarities_table_Value(1) = passive_Signs
- houses_Table$(0) = house1_String$
- houses_table_Values(0) = house(1)
- houses_Table$(1) = house2_String$
- houses_table_Values(1) = house(2)
- houses_Table$(2) = house3_String$
- houses_table_Values(2) = house(3)
- houses_Table$(3) = house4_String$
- houses_table_Values(3) = house(4)
- houses_Table$(4) = house5_String$
- houses_table_Values(4) = house(5)
- houses_Table$(5) = house6_String$
- houses_table_Values(5) = house(6)
- houses_Table$(6) = house7_String$
- houses_table_Values(6) = house(7)
- houses_Table$(7) = house8_String$
- houses_table_Values(7) = house(8)
- houses_Table$(8) = house9_String$
- houses_table_Values(8) = house(9)
- houses_Table$(9) = house10_String$
- houses_table_Values(9) = house(10)
- houses_Table$(10) = house11_String$
- houses_table_Values(10) = house(11)
- houses_Table$(11) = house12_String$
- houses_table_Values(11) = house(12)
- quadrants_Table$(0) = Quad1string$
- quadrants_table_Values(0) = Quad1
- quadrants_Table$(1) = Quad2string$
- quadrants_table_Values(1) = Quad2
- quadrants_Table$(2) = Quad3string$
- quadrants_table_Values(2) = Quad3
- quadrants_Table$(3) = Quad4string$
- quadrants_table_Values(3) = Quad4
- COLOR 8
- PRINT "Elements:"
- COLOR 0
- quicksort 0, 3, elements_Table$(), elements_table_Values()
- display elements_Table$()
- COLOR 8
- PRINT "Dominance of the signs:"
- COLOR 0
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$()
- PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
- COLOR 8
- PRINT "Qualities:"
- COLOR 0
- quicksort 0, 2, qualities_Table$(), qualities_table_Values()
- display qualities_Table$()
- COLOR 8
- PRINT "Polarities:"
- COLOR 0
- quicksort 0, 1, polarities_Table$(), polarities_table_Values()
- display polarities_Table$()
- COLOR 8
- PRINT "Dominance of the houses:"
- COLOR 0
- quicksort 0, 11, houses_Table$(), houses_table_Values()
- display houses_Table$()
- PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
- COLOR 8
- PRINT "Dominance of the quadrants:"
- COLOR 0
- quicksort 0, 3, quadrants_Table$(), quadrants_table_Values()
- display quadrants_Table$()
- PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
Should not effect anything else, are we still good?
Post by: DDBE on June 08, 2020, 11:44:32 pm
Post by: bplus on June 08, 2020, 11:51:12 pm
I will try again.
Post by: bplus on June 09, 2020, 12:00:16 am
That immediately gives me a syntax error on line 1240 again. :(
What does your error say, I am getting nothing, a blink and then nothing.
Post by: bplus on June 09, 2020, 12:02:21 am
Code: QB64: [Select]
- sun$ = "Aquarius"
- sun_House = 4
- moon$ = "Aries"
- moon_House = 6
- ascendent$ = "Scorpio"
- MC$ = "Leo"
- mercury$ = "Aquarius"
- mercury_House = 3
- Venus$ = "Pisces"
- venus_House = 5
- Mars$ = "Pisces"
- mars_House = 5
- Jupiter$ = "Sagittarius"
- jupiter_House = 2
- Saturn$ = "Scorpio"
- saturn_House = 1
- Chiron$ = "Taurus"
- chiron_House = 7
- Uranus$ = "Sagittarius"
- uranus_House = 2
- neptune$ = "Sagittarius"
- neptunee_House = 2
- Pluto$ = "Libra"
- pluto_House = 12
- moon_Node$ = "Capricorn"
- moon_node_House = 3
- Lilith$ = "Aquarius"
- lilith_House = 4
- house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
- house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
- house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
- house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
- house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
- house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
- house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
- house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
- house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
- house(neptunee_House) = house(neptunee_House) + 2 'Adds 2 points to the house that has neptunee in it.
- house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
- house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
- house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 12
- aries_Value = aries_Value + 12
- cardinals = cardinals + 12
- CASE "Taurus"
- earth = earth + 12
- taurus_Value = taurus_Value + 12
- fixed = fixed + 12
- CASE "Gemini"
- air = air + 12
- gemini_Value = gemini_Value + 12
- mutable = mutable + 12
- CASE "Cancer"
- water = water + 12
- cancer_Value = cancer_Value + 12
- cardinals = cardinals + 12
- CASE "Leo"
- fire = fire + 12
- leo_Value = leo_Value + 12
- fixed = fixed + 12
- CASE "Virgo"
- earth = earth + 12
- virgo_Value = virgo_Value + 12
- mutable = mutable + 12
- CASE "Libra"
- air = air + 12
- libra_Value = libra_Value + 12
- cardinals = cardinals + 12
- CASE "Scorpio"
- water = water + 12
- scorpio_Value = scorpio_Value + 12
- fixed = fixed + 12
- CASE "Sagittarius"
- fire = fire + 12
- sagittarius_Value = sagittarius_Value + 12
- mutable = mutable + 12
- CASE "Capricorn"
- earth = earth + 12
- capricorn_Value = capricorn_Value + 12
- cardinals = cardinals + 12
- CASE "Aquarius"
- air = air + 12
- Aquarius_Value = Aquarius_Value + 12
- fixed = fixed + 12
- CASE "Pisces"
- water = water + 12
- pisces_Value = pisces_Value + 12
- mutable = mutable + 12
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 6
- aries_Value = aries_Value + 6
- cardinals = cardinals + 6
- CASE "Taurus"
- earth = earth + 6
- taurus_Value = taurus_Value + 6
- fixed = fixed + 6
- CASE "Gemini"
- air = air + 6
- gemini_Value = gemini_Value + 6
- mutable = mutable + 6
- CASE "Cancer"
- water = water + 6
- cancer_Value = cancer_Value + 6
- cardinals = cardinals + 6
- CASE "Leo"
- fire = fire + 6
- leo_Value = leo_Value + 6
- fixed = fixed + 6
- CASE "Virgo"
- earth = earth + 6
- virgo_Value = virgo_Value + 6
- mutable = mutable + 6
- CASE "Libra"
- air = air + 6
- libra_Value = libra_Value + 6
- cardinals = cardinals + 6
- CASE "Scorpio"
- water = water + 6
- scorpio_Value = scorpio_Value + 6
- fixed = fixed + 6
- CASE "Sagittarius"
- fire = fire + 6
- sagittarius_Value = sagittarius_Value + 6
- mutable = mutable + 6
- CASE "Capricorn"
- earth = earth + 6
- capricorn_Value = capricorn_Value + 6
- cardinals = cardinals + 6
- CASE "Aquarius"
- air = air + 6
- Aquarius_Value = Aquarius_Value + 6
- fixed = fixed + 6
- CASE "Pisces"
- water = water + 6
- pisces_Value = pisces_Value + 6
- mutable = mutable + 6
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 5
- aries_Value = aries_Value + 5
- cardinals = cardinals + 5
- CASE "Taurus"
- earth = earth + 5
- taurus_Value = taurus_Value + 5
- fixed = fixed + 5
- CASE "Gemini"
- air = air + 5
- gemini_Value = gemini_Value + 5
- mutable = mutable + 5
- CASE "Cancer"
- water = water + 5
- cancer_Value = cancer_Value + 5
- cardinals = cardinals + 5
- CASE "Leo"
- fire = fire + 5
- leo_Value = leo_Value + 5
- fixed = fixed + 5
- CASE "Virgo"
- earth = earth + 5
- virgo_Value = virgo_Value + 5
- mutable = mutable + 5
- CASE "Libra"
- air = air + 5
- libra_Value = libra_Value + 5
- cardinals = cardinals + 5
- CASE "Scorpio"
- water = water + 5
- scorpio_Value = scorpio_Value + 5
- fixed = fixed + 5
- CASE "Sagittarius"
- fire = fire + 5
- sagittarius_Value = sagittarius_Value + 5
- mutable = mutable + 5
- CASE "Capricorn"
- earth = earth + 5
- capricorn_Value = capricorn_Value + 5
- cardinals = cardinals + 5
- CASE "Aquarius"
- air = air + 5
- Aquarius_Value = Aquarius_Value + 5
- fixed = fixed + 5
- CASE "Pisces"
- water = water + 5
- pisces_Value = pisces_Value + 5
- mutable = mutable + 5
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 2
- aries_Value = aries_Value + 2
- cardinals = cardinals + 2
- CASE "Taurus"
- earth = earth + 2
- taurus_Value = taurus_Value + 2
- fixed = fixed + 2
- CASE "Gemini"
- air = air + 2
- gemini_Value = gemini_Value + 2
- mutable = mutable + 2
- CASE "Cancer"
- water = water + 2
- cancer_Value = cancer_Value + 2
- cardinals = cardinals + 2
- CASE "Leo"
- fire = fire + 2
- leo_Value = leo_Value + 2
- fixed = fixed + 2
- CASE "Virgo"
- earth = earth + 2
- virgo_Value = virgo_Value + 2
- mutable = mutable + 2
- CASE "Libra"
- air = air + 2
- libra_Value = libra_Value + 2
- cardinals = cardinals + 2
- CASE "Scorpio"
- water = water + 2
- scorpio_Value = scorpio_Value + 2
- fixed = fixed + 2
- CASE "Sagittarius"
- fire = fire + 2
- sagittarius_Value = sagittarius_Value + 2
- mutable = mutable + 2
- CASE "Capricorn"
- earth = earth + 2
- capricorn_Value = capricorn_Value + 2
- cardinals = cardinals + 2
- CASE "Aquarius"
- air = air + 2
- Aquarius_Value = Aquarius_Value + 2
- fixed = fixed + 2
- CASE "Pisces"
- water = water + 2
- pisces_Value = pisces_Value + 2
- mutable = mutable + 2
- CASE "Aries"
- fire = fire + 1
- aries_Value = aries_Value + 1
- cardinals = cardinals + 1
- CASE "Taurus"
- earth = earth + 1
- taurus_Value = taurus_Value + 1
- fixed = fixed + 1
- CASE "Gemini"
- air = air + 1
- gemini_Value = gemini_Value + 1
- mutable = mutable + 1
- CASE "Cancer"
- water = water + 1
- cancer_Value = cancer_Value + 1
- cardinals = cardinals + 1
- CASE "Leo"
- fire = fire + 1
- leo_Value = leo_Value + 1
- fixed = fixed + 1
- CASE "Virgo"
- earth = earth + 1
- virgo_Value = virgo_Value + 1
- mutable = mutable + 1
- CASE "Libra"
- air = air + 1
- libra_Value = libra_Value + 1
- cardinals = cardinals + 1
- CASE "Scorpio"
- water = water + 1
- scorpio_Value = scorpio_Value + 1
- fixed = fixed + 1
- CASE "Sagittarius"
- fire = fire + 1
- sagittarius_Value = sagittarius_Value + 1
- mutable = mutable + 1
- CASE "Capricorn"
- earth = earth + 1
- capricorn_Value = capricorn_Value + 1
- cardinals = cardinals + 1
- CASE "Aquarius"
- air = air + 1
- Aquarius_Value = Aquarius_Value + 1
- fixed = fixed + 1
- CASE "Pisces"
- water = water + 1
- pisces_Value = pisces_Value + 1
- mutable = mutable + 1
- elements = earth + fire + water + air
- Earth_Percentage = 100 / elements * earth
- Fire_Percentage# = 100 / elements * fire
- Water_Percentage# = 100 / elements * water
- Air_Percentage# = 100 / elements * air
- Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
- Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
- Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
- Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
- qualities = cardinals + fixed + mutable
- cardinal_Percentage# = 100 / qualities * cardinals
- fixed_Percentage# = 100 / qualities * fixed
- mutable_Percentage# = 100 / qualities * mutable
- cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
- fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
- mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
- all_Signs = aries_Value + taurus_Value + gemini_Value + cancer_Value + leo_Value + virgo_Value + libra_Value + scorpio_Value + sagittarius_Value + capricorn_Value + Aquarius_Value + pisces_Value
- Aries_Percentage = 100 / all_Signs * aries_Value
- Taurus_Percentage = 100 / all_Signs * taurus_Value
- Gemini_Percentage = 100 / all_Signs * gemini_Value
- Cancer_Percentage = 100 / all_Signs * cancer_Value
- Leo_Percentage = 100 / all_Signs * leo_Value
- Virgo_Percentage = 100 / all_Signs * virgo_Value
- Libra_Percentage = 100 / all_Signs * libra_Value
- Scorpio_Percentage = 100 / all_Signs * scorpio_Value
- Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
- Capricorn_Percentage = 100 / all_Signs * capricorn_Value
- Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
- Pisces_Percentage = 100 / all_Signs * pisces_Value
- Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
- Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
- Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
- Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
- Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
- Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
- Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
- Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
- Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
- Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
- Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
- Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
- all_Houses = house(1) + house(2) + house(3) + house(4) + house(5) + house(6) + house(7) + house(8) + house(9) + house(10) + house(11) + house(12)
- house1_Percentage = 100 / all_Houses * house(1)
- house2_Percentage = 100 / all_Houses * house(2)
- house3_Percentage = 100 / all_Houses * house(3)
- house4_Percentage = 100 / all_Houses * house(4)
- house5_Percentage = 100 / all_Houses * house(5)
- house6_Percentage = 100 / all_Houses * house(6)
- house7_Percentage = 100 / all_Houses * house(7)
- house8_Percentage = 100 / all_Houses * house(8)
- house9_Percentage = 100 / all_Houses * house(9)
- house10_Percentage = 100 / all_Houses * house(10)
- house11_Percentage = 100 / all_Houses * house(11)
- house12_Percentage = 100 / all_Houses * house(12)
- house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
- house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
- house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
- house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
- house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
- house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
- house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
- house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
- house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
- house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
- house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
- house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
- largest = 0
- signs_percentage = 100 / all_Signs * largest
- signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
- largesthouse = 0
- largesthouse_percentage = 100 / all_Houses * largesthouse
- largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
- Quad1 = house(1) + house(2) + house(3)
- Quad2 = house(4) + house(5) + house(6)
- Quad3 = house(7) + house(8) + house(9)
- Quad4 = house(10) + house(11) + house(12)
- all_Quads = Quad1 + Quad2 + Quad3 + Quad4
- largedom_Quad = 0
- large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
- large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
- quad1_Percentage = 100 / all_Quads * Quad1
- quad2_Percentage = 100 / all_Quads * Quad2
- quad3_Percentage = 100 / all_Quads * Quad3
- quad4_Percentage = 100 / all_Quads * Quad4
- quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
- quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
- quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
- quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
- active_Signs = fire + earth
- passive_Signs = water + air
- polarity_Percentage = active_Signs + passive_Signs
- active_Percentage = 100 / polarity_Percentage * active_Signs
- passive_Percentage = 100 / polarity_Percentage * passive_Signs
- active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
- passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
- elements_Table$(0) = earth_String$
- elements_table_Values(0) = earth
- elements_Table$(1) = fire_String$
- elements_table_Values(1) = fire
- elements_Table$(2) = water_String$
- elements_table_Values(2) = water
- elements_Table$(3) = air_String$
- elements_table_Values(3) = air
- signs_Table$(0) = aries_String$
- signs_table_Values(0) = aries_Value
- signs_Table$(1) = taurus_String$
- signs_table_Values(1) = taurus_Value
- signs_Table$(2) = gemini_String$
- signs_table_Values(2) = gemini_Value
- signs_Table$(3) = cancer_String$
- signs_table_Values(3) = cancer_Value
- signs_Table$(4) = leo_String$
- signs_table_Values(4) = leo_Value
- signs_Table$(5) = virgo_String$
- signs_table_Values(5) = virgo_Value
- signs_Table$(6) = libra_String$
- signs_table_Values(6) = libra_Value
- signs_Table$(7) = scorpio_String$
- signs_table_Values(7) = scorpio_Value
- signs_Table$(8) = sagittarius_String$
- signs_table_Values(8) = sagittarius_Value
- signs_Table$(9) = capricorn_String$
- signs_table_Values(9) = capricorn_Value
- signs_Table$(10) = Aquarius_String$
- signs_table_Values(10) = Aquarius_Value
- signs_Table$(11) = pisces_String$
- signs_table_Values(11) = pisces_Value
- qualities_Table$(0) = cardinal_String$
- qualities_table_Values(0) = cardinals
- qualities_Table$(1) = fixed_String$
- qualities_table_Values(1) = fixed
- qualities_Table$(2) = mutable_String$
- qualities_table_Values(2) = mutable
- polarities_Table$(0) = active_String$
- polarities_table_Value(0) = active_Signs
- polarities_Table$(1) = passive_String$
- polarities_table_Value(1) = passive_Signs
- houses_Table$(0) = house1_String$
- houses_table_Values(0) = house(1)
- houses_Table$(1) = house2_String$
- houses_table_Values(1) = house(2)
- houses_Table$(2) = house3_String$
- houses_table_Values(2) = house(3)
- houses_Table$(3) = house4_String$
- houses_table_Values(3) = house(4)
- houses_Table$(4) = house5_String$
- houses_table_Values(4) = house(5)
- houses_Table$(5) = house6_String$
- houses_table_Values(5) = house(6)
- houses_Table$(6) = house7_String$
- houses_table_Values(6) = house(7)
- houses_Table$(7) = house8_String$
- houses_table_Values(7) = house(8)
- houses_Table$(8) = house9_String$
- houses_table_Values(8) = house(9)
- houses_Table$(9) = house10_String$
- houses_table_Values(9) = house(10)
- houses_Table$(10) = house11_String$
- houses_table_Values(10) = house(11)
- houses_Table$(11) = house12_String$
- houses_table_Values(11) = house(12)
- quadrants_Table$(0) = Quad1string$
- quadrants_table_Values(0) = Quad1
- quadrants_Table$(1) = Quad2string$
- quadrants_table_Values(1) = Quad2
- quadrants_Table$(2) = Quad3string$
- quadrants_table_Values(2) = Quad3
- quadrants_Table$(3) = Quad4string$
- quadrants_table_Values(3) = Quad4
- COLOR 8
- PRINT "Elements:"
- COLOR 0
- quicksort 0, 3, elements_Table$(), elements_table_Values()
- display elements_Table$(), elements_table_Values()
- COLOR 8
- PRINT "Dominance of the signs:"
- COLOR 0
- quicksort 0, 11, signs_Table$(), signs_table_Values()
- display signs_Table$(), signs_table_Values()
- PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
- COLOR 8
- PRINT "Qualities:"
- COLOR 0
- quicksort 0, 2, qualities_Table$(), qualities_table_Values()
- display qualities_Table$(), qualities_table_Values()
- COLOR 8
- PRINT "Polarities:"
- COLOR 0
- quicksort 0, 1, polarities_Table$(), polarities_table_Values()
- display polarities_Table$(), polarities_table_Values()
- COLOR 8
- PRINT "Dominance of the houses:"
- COLOR 0
- quicksort 0, 11, houses_Table$(), houses_table_Values()
- display houses_Table$(), houses_table_Values()
- PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
- COLOR 8
- PRINT "Dominance of the quadrants:"
- COLOR 0
- quicksort 0, 3, quadrants_Table$(), quadrants_table_Values()
- display quadrants_Table$(), quadrants_table_Values()
- PRINT "For the dominant celestial body in this birth chart, enter its birth place and birth time at www.astro.com and then select the 'Color Oracle'."
- dummy = b(1) 'dummy line
- p1% = min%
- p2% = max%
- mid = b((min% + max%) \ 2) '**
- p1% = p1% + 1
- p2% = p2% - 1
- p1% = p1% + 1
- p2% = p2% - 1
OK that works from copy/paste from forum.
Post by: bplus on June 09, 2020, 12:10:27 am
Post by: DDBE on June 09, 2020, 12:17:40 am
Post by: bplus on June 09, 2020, 12:22:59 am
I copy pasted the whole program (from #23) back into QB64 ran it and it did fine. If you do get an error message could you tell me what it is?
#23 is the better fix, code wise, eliminating b() for the display sub because it's not used.
Post by: DDBE on June 09, 2020, 12:36:37 am
Post by: bplus on June 09, 2020, 12:46:32 am
Post by: DDBE on June 09, 2020, 12:52:56 am
Post by: TempodiBasic on June 10, 2020, 03:03:04 am
I must say to Bplus and DDBE great work of debugging!
Now I'm waiting the Inform version if the stars let you go on this project. ;)
Post by: bplus on June 10, 2020, 10:01:54 am
Hi Guys
I must say to Bplus and DDBE great work of debugging!
Now I'm waiting the Inform version if the stars let you go on this project. ;)
I must say @TempodiBasic you were key to getting ball rolling with me. Really cool to solve a puzzle with teamwork. :)