Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - DDBE

Pages: [1] 2
1
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 12, 2020, 05:39:05 am »
Quote from: bplus on June 12, 2020, 01:40:18 am
What was different about Pisces that caused the space?

When I'd originally typed the sign names into the InForm field for the dropdowns, I tried to separate them by means of semicolons, whereby InForm automatically added a blank between every single sign, but thought of all the signs as one single item. Then Felippe told me that I have to use \n instead to separate the signs and I tried to remove the many blanks, and that's when Inform started to realize that they were 12 items per drowndown, not a single, veeeeeeery long item.

But while trying to remove all those blanks, I forgot to remove those in front of Pisces at the end of the line, so "Pisces" became " Pisces" instead. As my internal calculator checks for "Pisces" instead of " Pisces", it couldn't find any "Pisces", and thus just ignored all the points that were supposed to be added to Pisces.

Quote from: bplus on June 12, 2020, 01:40:18 am
How did you addItem the blank PRINT lines?

I originally tried to replace the blank PRINT lines with
Code: QB64: [Select]
  1. AddItem Textbox1, ""

When after that change (as part of the other changes in one go mentioned in my last post), the program only crashed when I hit the GO! button, I thought those lines could be responsible and REM'd them out, but it didn't help.

Quote from: bplus on June 12, 2020, 01:40:18 am
This could have been simply appended to code for GO

I think you're thinking about the program's display output. No, it was inside the drowpdowns where Pisces was borked.

Quote from: bplus on June 12, 2020, 02:16:43 am
Just added this:
Code: QB64: [Select]
  1. _CLIPBOARD$ = Text(ListBox1)
to the end of the GO button code
_CLIPBOARD$ = Text(ListBox1)

Wow, that's clever! :o

2
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 12, 2020, 01:08:05 am »
Okay, so I've removed the END and fixed the asisgnment of MC$, tried running the program and even though I hadn't made a single change since I'd gotten lots of error msgs on the original .frm (outside of removing the END), it magically fired up. But I found there was a blank in front of every Pisces in the dropdowns, effectively making the program ignore every single point meant to go to Pisces, although printing everything just fine (except for the headline for each table, which still were PRINT commands which InForm simply ignored).

So then I went and...

  • removed that blank in front of every Pisces,
  • added a second button for copying,
  • changed all the PRINT commands to AddItem ListBox1 commands,
  • added the _CLIPBOARD$ = Text(ListBox1) command inside the CASE Button_copy event (which in turn is inside SELECT CASE id, which in itself is inside __UI_Click),

then I ran the program again, and...

...ever since then, the program crashes whenever I hit the GO! button! ;.; New .zip with the files at the bottom.

3
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 11, 2020, 05:28:15 pm »
Quote from: bplus on June 11, 2020, 02:32:53 pm
Is there any other controls under the list box? Or am I seeing all I need at the bottom of my laptop screen? (Again I can't see the bottom of the form.)

So far, there are no other controls besides the one GO! button.

Quote from: FellippeHeitor on June 11, 2020, 03:29:47 pm
ListBox controls store items in the Text() array, separated by CHR$(10). Want to copy all the contents of a list called ListBox1 to the clipboard, just do:

Code: QB64: [Select]
  1. _CLIPBOARD$ = Text(ListBox1)

Well, if that's the easiest way, we can simply shrink the GO! button again and put a simple Copy button below it. I priorly preferred to do it by means of selecting by mouse as I can directly see what I'm copying via the selection color, but as said, if it's easier coding-wise, we can also use a Copy button to copy the entire list to the clipboard.

4
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 11, 2020, 01:44:55 pm »
Okay, second try at uploading.

5
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 10, 2020, 08:43:59 pm »
D'oh! It's what you get for simply copying the first two lines of that block and then pasting them over and over, only changing the addressed dropdown.

6
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 10, 2020, 07:46:34 pm »
Quote from: TempodiBasic on June 10, 2020, 06:33:58 pm
Please say me, because I haven't understood this: Why do you put 2 buttons GO? In your SCREEN0 program there is one massive calculation.

Oh, those two buttons are no longer part of the form anymore. They originally came about when Felippe told me to use a multi-line, but non-scrollable label for the output. The space available for that label would not have been enough for *ALL* of the program's output, so I decided to use two buttons to first output the first half, then output the second half.

But then bplus said I could be using a ListBox instead of a label for the output, as a ListBox is scrollable (and I thought he'd also meant that the output could be copy-pasted, but now it seems that's not possible, albeit I haven't been able to click on that one button yet to see what's true about a ListBox and what is not).

Quote from: TempodiBasic on June 10, 2020, 06:33:58 pm
If you post the .frm file we can get out the ID of each component.

Okay, I'm attaching the current .bas and .frm at the bottom of this post. As you can see, I've been a little sneaky and tried to fix the fact that I forgot to remove the caption *INSIDE* of the textboxes at the top of the window, by means of then using SETCAPTION inside the .bas to remove the caption.

As said in my last post, assigning the MC$ value doesn't seem to be working yet.

7
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 10, 2020, 12:28:08 pm »
Guys, I'm sorry for how grumpy I've been before I went to bed due to how tired and frustrated I was.

Quote from: TempodiBasic on June 10, 2020, 04:47:52 am
Hi DDBE
sorry for my raw question...
Do you have any experience of event driven programming?
As you said the VB course has give to you very few informations.
Inform need to think in this kind of programming.

As said, I still have a hard time wrapping my mind around event-based programming. I've already told Fellippe in a PM over on Discord that that's why I don't seem to be able to call up sub-routines in this new InForm-generated code. Whenever I tried, I only got syntax errors.

Quote from: TempodiBasic on June 10, 2020, 04:47:52 am
Code: QB64: [Select]
  1. SUB __UI_Click (id AS LONG)
  2.  
  4.   CASE button1
  5.        Calculation
  6.  
  8. ....
  10.  
  11. SUB Calculation
  12.  
  13.  
  14.  sun$ = GetItem$(DropdownList_sunSign, Control(DropdownList_sunSign).Value)
  15.             sun_House = VAL(GetItem$(DropdownList_sunHouse, Control(DropdownList_sunHouse).Value))
  16.             moon$ = GetItem$(DropdownList_moonSign, Control(DropdownList_moonSign).Value)
  17.             moon_House = VAL(GetItem$(DropdownList_moonHouse, Control(DropdownList_moonHouse).Value))
  18.             ascendent$ = GetItem$(DropdownList_ascendantSign, Control(DropdownList_ascendantSign).Value)
  19.             'MC$ = VAL(GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value))
  20.             mercury$ = GetItem$(DropdownList_mercuryHouse, Control(DropdownList_mercuryHouse).Value)
  21.  
  22. ....
  24.  

Oh, one thing I forgot to mention before I went to bed. As you can see I've kinda REM'd out the line for the MC for the time being, as that was also giving me an error for some reason.

Quote from: TempodiBasic on June 10, 2020, 04:47:52 am
please cancel every PRINT statement if you want a more window style output

Oh, duh! I was so stupid!

Quote from: TempodiBasic on June 10, 2020, 04:47:52 am
going to your state of developing your project....
1. is your project a simple calculator ?

Um...I guess it is.

Quote from: TempodiBasic on June 10, 2020, 04:47:52 am
Is this a step to draw and print on paper or on file image the native astrological chart?

Oh, no, no! The basic idea is that you already have received a chart from elsewhere, a website such as www.astro.com or www.astroschmid.ch. Thing is, as I've written in my very first pastebins before I joined the forums, those websites don't tell you *EVERYTHING* that can be interpreted or calculated from that chart. Thus, the user would take a chart they've received from a place such as www.astro.com and www.astroschmid.ch to calculate some additional stuff by inputting the positions of the planets from the pre-existing chart into my program that will calculate six different dominances for them. Those dominances mean additional things in astrology that the user can then look up.

For example, if the 4th house is somebody's dominant house, you can look up external websites to see that it means they are a homely person who like their family, have few, but very close friends, and they like to retreat into their own house or apartment. If their dominant element is water, you can look up other websites and see that it means they are passive, emotional, and sensitive.

That's the idea behind this calculator: Take a chart that you have received from elsewhere and use my program to calculate dominances of various categories or factors to look up elsewhere what these dominances mean. Most of all, I want to be able to copy the program's output to write up other people's birth horoscope in Open Office.

8
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 11:49:03 pm »
Quote from: bplus on June 09, 2020, 11:28:15 pm
As we have said, selecting like in a text editor is not possible yet, there is no text editor box.

No, that's what you've said:

Quote
I would be extremely surprised if an item could not be selected from a List box after all isn't that what a List box is supposed to do

From that, I gathered that a ListBox *EXISTS* so that you can select and copy-paste from it.

Quote from: FellippeHeitor on June 09, 2020, 11:22:41 pm
Remove line 117.

You must separate parameters with a comma: AddItem ListBox1, a$(i%)

I've done that, and now it's giving me lots of syntax errors not in the code, but in the .frm. Because there are no syntax errors in the code anymore, I can actually run the code, but nothing happens. No GUI opening, no error message, no nothing.

I've been working on this for 27 hours now without a single break. I think I'll give up for today and go to bed. -.-

9
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 11:18:15 pm »
Okay, so this is my code now:

Code: QB64: [Select]
  1. ': This program uses
  2. ': InForm - GUI library for QB64 - v1.1
  3. ': Fellippe Heitor, 2016-2019 - fellippe@qb64.org - [member=2]FellippeHeitor[/member]
  4. ': https://github.com/FellippeHeitor/InForm
  5. '-----------------------------------------------------------
  6.  
  7. ': Controls' IDs: ------------------------------------------------------------------
  8. REM NOTICE: THIS FORM HAS BEEN RECENTLY EDITED
  9. '>> The controls in the list below may have been added or renamed,
  10. '>> and previously existing controls may have been deleted since
  11. '>> this program's structure was first generated.
  12. '>> Make sure to check your code in the events SUBs so that
  13. '>> you can take your recent edits into consideration.
  14. ': ---------------------------------------------------------------------------------
  16. DIM SHARED Chartowner AS LONG
  19. DIM SHARED AscendantMC AS LONG
  20. DIM SHARED mercury AS LONG
  23. DIM SHARED jupiter AS LONG
  24. DIM SHARED saturn AS LONG
  25. DIM SHARED chiron AS LONG
  26. DIM SHARED uranus AS LONG
  27. DIM SHARED neptune AS LONG
  29. DIM SHARED moon_node AS LONG
  30. DIM SHARED lilith AS LONG
  31. DIM SHARED TextBox1 AS LONG
  32. DIM SHARED __name AS LONG
  33. DIM SHARED TextBox2 AS LONG
  34. DIM SHARED birthdate AS LONG
  35. DIM SHARED TextBox3 AS LONG
  36. DIM SHARED birthtime AS LONG
  37. DIM SHARED TextBox4 AS LONG
  38. DIM SHARED birthplace AS LONG
  39. DIM SHARED DropdownList_sunHouse AS LONG
  40. DIM SHARED sun_House AS LONG
  41. DIM SHARED DropdownList_sunSign AS LONG
  42. DIM SHARED sun_Sign AS LONG
  43. DIM SHARED DropdownList_moonHouse AS LONG
  44. DIM SHARED moon_House AS LONG
  45. DIM SHARED moon_Sign AS LONG
  46. DIM SHARED DropdownList_moonSign AS LONG
  47. DIM SHARED DropdownList_ascendantSign AS LONG
  48. DIM SHARED ascendant_Sign AS LONG
  49. DIM SHARED mc_Sign AS LONG
  50. DIM SHARED DropdownList_MCSign AS LONG
  51. DIM SHARED DropdownList_mercuryHouse AS LONG
  52. DIM SHARED mercury_House AS LONG
  53. DIM SHARED DropdownList_mercurySign AS LONG
  54. DIM SHARED mercury_Sign AS LONG
  55. DIM SHARED DropdownList_venusHouse AS LONG
  56. DIM SHARED venus_House AS LONG
  57. DIM SHARED venus_Sign AS LONG
  58. DIM SHARED DropdownList_venusSign AS LONG
  59. DIM SHARED DropdownList_marsHouse AS LONG
  60. DIM SHARED mars_House AS LONG
  61. DIM SHARED mars_Sign AS LONG
  62. DIM SHARED DropdownList_marsSign AS LONG
  63. DIM SHARED DropdownList_jupiterHouse AS LONG
  64. DIM SHARED jupiter_House AS LONG
  65. DIM SHARED DropdownList_jupiterSign AS LONG
  66. DIM SHARED jupiter_Sign AS LONG
  67. DIM SHARED DropdownList_saturnHouse AS LONG
  68. DIM SHARED saturn_House AS LONG
  69. DIM SHARED saturn_Sign AS LONG
  70. DIM SHARED DropdownList_saturnSign AS LONG
  71. DIM SHARED DropdownList_chironHouse AS LONG
  72. DIM SHARED chiron_House AS LONG
  73. DIM SHARED chiron_Sign AS LONG
  74. DIM SHARED DropdownList_chironSign AS LONG
  75. DIM SHARED DropdownList_uranusHouse AS LONG
  76. DIM SHARED uranus_House AS LONG
  77. DIM SHARED DropdownList_uranusSign AS LONG
  78. DIM SHARED uranus_Sign AS LONG
  79. DIM SHARED DropdownList_neptuneHouse AS LONG
  80. DIM SHARED neptune_House AS LONG
  81. DIM SHARED neptune_Sign AS LONG
  82. DIM SHARED DropdownList_neptuneSign AS LONG
  83. DIM SHARED DropdownList_plutoHouse AS LONG
  84. DIM SHARED pluto_House AS LONG
  85. DIM SHARED pluto_Sign AS LONG
  86. DIM SHARED DropdownList_plutoSign AS LONG
  87. DIM SHARED DropdownList_moonnodeHouse AS LONG
  88. DIM SHARED moonnode_House AS LONG
  89. DIM SHARED moonnode_Sign AS LONG
  90. DIM SHARED DropdownList_moonnodeSign AS LONG
  91. DIM SHARED DropdownList_lilithHouse AS LONG
  92. DIM SHARED lilith_House AS LONG
  93. DIM SHARED lilith_Sign AS LONG
  94. DIM SHARED DropdownList_lilithSign AS LONG
  95. DIM SHARED Button1 AS LONG
  96. DIM SHARED PictureBox1 AS LONG
  97. DIM SHARED Label33 AS LONG
  98. DIM SHARED PictureBox2 AS LONG
  99. DIM SHARED PictureBox3 AS LONG
  100. DIM SHARED Label34 AS LONG
  101. DIM SHARED Label35 AS LONG
  102. DIM SHARED Label36 AS LONG
  103. DIM SHARED Label37 AS LONG
  104. DIM SHARED Label38 AS LONG
  105. DIM SHARED Label39 AS LONG
  106. DIM SHARED Label40 AS LONG
  107. DIM SHARED Label41 AS LONG
  108. DIM SHARED ListBox1 AS LONG
  109.  
  110. DIM SHARED elements_Table$(3), elements_table_Values(3)
  111. DIM SHARED signs_Table$(11), signs_table_Values(11)
  112. DIM SHARED qualities_Table$(2), qualities_table_Values(2)
  113. DIM SHARED polarities_Table$(1), polarities_table_Values(1)
  114. DIM SHARED houses_Table$(11), houses_table_Values(11)
  115. DIM SHARED quadrants_Table$(3), quadrants_table_Values(3)
  116.  
  117. __UI_Click
  118.  
  120.  
  121.  
  122. ': External modules: ---------------------------------------------------------------
  123. '$INCLUDE:'InForm\InForm.ui'
  124. '$INCLUDE:'InForm\xp.uitheme'
  125. '$INCLUDE:'Horoscope calculator.frm'
  126.  
  127. ': Event procedures: ---------------------------------------------------------------
  128. SUB __UI_BeforeInit
  129.  
  131.  
  132. SUB __UI_OnLoad
  133.  
  135.  
  136. SUB __UI_BeforeUpdateDisplay
  137.     'This event occurs at approximately 30 frames per second.
  138.     'You can change the update frequency by calling SetFrameRate DesiredRate%
  139.  
  141.  
  142. SUB __UI_BeforeUnload
  143.     'If you set __UI_UnloadSignal = False here you can
  144.     'cancel the user's request to close.
  145.  
  147.  
  148. SUB __UI_Click (id AS LONG)
  149.     SELECT CASE id
  150.         CASE Button1
  151.             sun$ = GetItem$(DropdownList_sunSign, Control(DropdownList_sunSign).Value)
  152.             sun_House = VAL(GetItem$(DropdownList_sunHouse, Control(DropdownList_sunHouse).Value))
  153.             moon$ = GetItem$(DropdownList_moonSign, Control(DropdownList_moonSign).Value)
  154.             moon_House = VAL(GetItem$(DropdownList_moonHouse, Control(DropdownList_moonHouse).Value))
  155.             ascendent$ = GetItem$(DropdownList_ascendantSign, Control(DropdownList_ascendantSign).Value)
  156.             'MC$ = VAL(GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value))
  157.             mercury$ = GetItem$(DropdownList_mercuryHouse, Control(DropdownList_mercuryHouse).Value)
  158.             mercury_House = VAL(GetItem$(DropdownList_mercurySign, Control(DropdownList_mercurySign).Value))
  159.             Venus$ = GetItem$(DropdownList_venusSign, Control(DropdownList_venusSign).Value)
  160.             venus_House = VAL(GetItem$(DropdownList_venusHouse, Control(DropdownList_venusHouse).Value))
  161.             mars$ = GetItem$(DropdownList_marsSign, Control(DropdownList_marsSign).Value)
  162.             mars_House = VAL(GetItem$(DropdownList_marsHouse, Control(DropdownList_marsHouse).Value))
  163.             Jupiter$ = GetItem$(DropdownList_jupiterSign, Control(DropdownList_jupiterSign).Value)
  164.             jupiter_House = VAL(GetItem$(DropdownList_jupiterHouse, Control(DropdownList_jupiterHouse).Value))
  165.             Saturn$ = GetItem$(DropdownList_saturnSign, Control(DropdownList_saturnSign).Value)
  166.             saturn_House = VAL(GetItem$(DropdownList_saturnHouse, Control(DropdownList_saturnHouse).Value))
  167.             Chiron$ = GetItem$(DropdownList_chironSign, Control(DropdownList_chironSign).Value)
  168.             chiron_House = VAL(GetItem$(DropdownList_chironHouse, Control(DropdownList_chironHouse).Value))
  169.             Uranus$ = GetItem$(DropdownList_uranusSign, Control(DropdownList_uranusSign).Value)
  170.             uranus_House = VAL(GetItem$(DropdownList_uranusHouse, Control(DropdownList_uranusHouse).Value))
  171.             neptune$ = GetItem$(DropdownList_neptuneSign, Control(DropdownList_neptuneSign).Value)
  172.             neptune_House = VAL(GetItem$(DropdownList_uranusHouse, Control(DropdownList_uranusHouse).Value))
  173.             Pluto$ = GetItem$(DropdownList_plutoSign, Control(DropdownList_plutoSign).Value)
  174.             pluto_House = VAL(GetItem$(DropdownList_plutoHouse, Control(DropdownList_plutoHouse).Value))
  175.             moon_Node$ = GetItem$(DropdownList_moonnodeSign, Control(DropdownList_moonnodeSign).Value)
  176.             moon_node_House = VAL(GetItem$(DropdownList_moonnodeHouse, Control(DropdownList_moonnodeHouse).Value))
  177.             Lilith$ = GetItem$(DropdownList_lilithSign, Control(DropdownList_lilithSign).Value)
  178.             lilith_House = VAL(GetItem$(DropdownList_lilithHouse, Control(DropdownList_lilithHouse).Value))
  179.             DIM house(12) AS INTEGER 'Defining 12 houses that numerical values can be added to which can be subjected to mathematical operations.
  180.             house(sun_House) = house(sun_House) + 12 'Adds 12 points to the house that has the Sun in it.
  181.             house(moon_House) = house(moon_House) + 12 'Adds 12 points to the house that has the Moon in it.
  182.             house(mercury_House) = house(mercury_House) + 6 'Adds 6 points to the house that has Mercury in it.
  183.             house(venus_House) = house(venus_House) + 6 'Adds 6 points to the house that has Venus in it.
  184.             house(mars_House) = house(mars_House) + 6 'Adds 6 points to the house that has Mars in it.
  185.             house(jupiter_House) = house(jupiter_House) + 5 'Adds 5 points to the house that has Jupiter in it.
  186.             house(saturn_House) = house(saturn_House) + 5 'Adds 5 points to the house that has Saturn in it.
  187.             house(chiron_House) = house(chiron_House) + 2 'Adds 2 points to the house that has Chiron in it.
  188.             house(uranus_House) = house(uranus_House) + 2 'Adds 2 points to the house that has Uranus in it.
  189.             house(neptune_House) = house(neptune_House) + 2 'Adds 2 points to the house that has neptune in it.
  190.             house(pluto_House) = house(pluto_House) + 2 'Adds 2 points to the house that has Pluto in it.
  191.             house(moon_node_House) = house(moon_node_House) + 2 'Adds 2 points to the house that has the Moon Node in it.
  192.             house(lilith_House) = house(lilith_House) + 1 'Adds 1 point to the house that has Lilith in it.
  193.  
  194.             SELECT CASE sun$
  195.                 CASE "Aries"
  196.                     fire = fire + 12
  197.                     aries_Value = aries_Value + 12
  198.                     cardinals = cardinals + 12
  199.                 CASE "Taurus"
  200.                     earth = earth + 12
  201.                     taurus_Value = taurus_Value + 12
  202.                     fixed = fixed + 12
  203.                 CASE "Gemini"
  204.                     air = air + 12
  205.                     gemini_Value = gemini_Value + 12
  206.                     mutable = mutable + 12
  207.                 CASE "Cancer"
  208.                     water = water + 12
  209.                     cancer_Value = cancer_Value + 12
  210.                     cardinals = cardinals + 12
  211.                 CASE "Leo"
  212.                     fire = fire + 12
  213.                     leo_Value = leo_Value + 12
  214.                     fixed = fixed + 12
  215.                 CASE "Virgo"
  216.                     earth = earth + 12
  217.                     virgo_Value = virgo_Value + 12
  218.                     mutable = mutable + 12
  219.                 CASE "Libra"
  220.                     air = air + 12
  221.                     libra_Value = libra_Value + 12
  222.                     cardinals = cardinals + 12
  223.                 CASE "Scorpio"
  224.                     water = water + 12
  225.                     scorpio_Value = scorpio_Value + 12
  226.                     fixed = fixed + 12
  227.                 CASE "Sagittarius"
  228.                     fire = fire + 12
  229.                     sagittarius_Value = sagittarius_Value + 12
  230.                     mutable = mutable + 12
  231.                 CASE "Capricorn"
  232.                     earth = earth + 12
  233.                     capricorn_Value = capricorn_Value + 12
  234.                     cardinals = cardinals + 12
  235.                 CASE "Aquarius"
  236.                     air = air + 12
  237.                     Aquarius_Value = Aquarius_Value + 12
  238.                     fixed = fixed + 12
  239.                 CASE "Pisces"
  240.                     water = water + 12
  241.                     pisces_Value = pisces_Value + 12
  242.                     mutable = mutable + 12
  243.             END SELECT
  244.  
  245.             SELECT CASE moon$
  246.                 CASE "Aries"
  247.                     fire = fire + 12
  248.                     aries_Value = aries_Value + 12
  249.                     cardinals = cardinals + 12
  250.                 CASE "Taurus"
  251.                     earth = earth + 12
  252.                     taurus_Value = taurus_Value + 12
  253.                     fixed = fixed + 12
  254.                 CASE "Gemini"
  255.                     air = air + 12
  256.                     gemini_Value = gemini_Value + 12
  257.                     mutable = mutable + 12
  258.                 CASE "Cancer"
  259.                     water = water + 12
  260.                     cancer_Value = cancer_Value + 12
  261.                     cardinals = cardinals + 12
  262.                 CASE "Leo"
  263.                     fire = fire + 12
  264.                     leo_Value = leo_Value + 12
  265.                     fixed = fixed + 12
  266.                 CASE "Virgo"
  267.                     earth = earth + 12
  268.                     virgo_Value = virgo_Value + 12
  269.                     mutable = mutable + 12
  270.                 CASE "Libra"
  271.                     air = air + 12
  272.                     libra_Value = libra_Value + 12
  273.                     cardinals = cardinals + 12
  274.                 CASE "Scorpio"
  275.                     water = water + 12
  276.                     scorpio_Value = scorpio_Value + 12
  277.                     fixed = fixed + 12
  278.                 CASE "Sagittarius"
  279.                     fire = fire + 12
  280.                     sagittarius_Value = sagittarius_Value + 12
  281.                     mutable = mutable + 12
  282.                 CASE "Capricorn"
  283.                     earth = earth + 12
  284.                     capricorn_Value = capricorn_Value + 12
  285.                     cardinals = cardinals + 12
  286.                 CASE "Aquarius"
  287.                     air = air + 12
  288.                     Aquarius_Value = Aquarius_Value + 12
  289.                     fixed = fixed + 12
  290.                 CASE "Pisces"
  291.                     water = water + 12
  292.                     pisces_Value = pisces_Value + 12
  293.                     mutable = mutable + 12
  294.             END SELECT
  295.  
  296.             SELECT CASE ascendent$
  297.                 CASE "Aries"
  298.                     fire = fire + 12
  299.                     aries_Value = aries_Value + 12
  300.                     cardinals = cardinals + 12
  301.                     IF mars_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  302.                     IF mars_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  303.                     IF mars_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  304.                     IF mars_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  305.                     IF mars_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  306.                     IF mars_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  307.                     IF mars_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  308.                     IF mars_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  309.                     IF mars_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  310.                     IF mars_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  311.                     IF mars_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  312.                     IF mars_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  313.                 CASE "Taurus"
  314.                     earth = earth + 12
  315.                     taurus_Value = taurus_Value + 12
  316.                     fixed = fixed + 12
  317.                     IF chiron_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  318.                     IF chiron_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  319.                     IF chiron_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  320.                     IF chiron_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  321.                     IF chiron_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  322.                     IF chiron_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  323.                     IF chiron_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  324.                     IF chiron_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  325.                     IF chiron_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  326.                     IF chiron_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  327.                     IF chiron_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  328.                     IF chiron_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  329.                 CASE "Gemini"
  330.                     air = air + 12
  331.                     gemini_Value = gemini_Value + 12
  332.                     mutable = mutable + 12
  333.                     IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  334.                     IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  335.                     IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  336.                     IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  337.                     IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  338.                     IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  339.                     IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  340.                     IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  341.                     IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  342.                     IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  343.                     IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  344.                     IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  345.                 CASE "Cancer"
  346.                     water = water + 12
  347.                     cancer_Value = cancer_Value + 12
  348.                     cardinals = cardinals + 12
  349.                     IF moon_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  350.                     IF moon_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  351.                     IF moon_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  352.                     IF moon_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  353.                     IF moon_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  354.                     IF moon_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  355.                     IF moon_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  356.                     IF moon_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  357.                     IF moon_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  358.                     IF moon_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  359.                     IF moon_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  360.                     IF moon_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  361.                 CASE "Leo"
  362.                     fire = fire + 12
  363.                     leo_Value = leo_Value + 12
  364.                     fixed = fixed + 12
  365.                     IF sun_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  366.                     IF sun_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  367.                     IF sun_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  368.                     IF sun_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  369.                     IF sun_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  370.                     IF sun_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  371.                     IF sun_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  372.                     IF sun_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  373.                     IF sun_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  374.                     IF sun_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  375.                     IF sun_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  376.                     IF sun_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  377.                 CASE "Virgo"
  378.                     earth = earth + 12
  379.                     virgo_Value = virgo_Value + 12
  380.                     mutable = mutable + 12
  381.                     IF mercury_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  382.                     IF mercury_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  383.                     IF mercury_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  384.                     IF mercury_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  385.                     IF mercury_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  386.                     IF mercury_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  387.                     IF mercury_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  388.                     IF mercury_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  389.                     IF mercury_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  390.                     IF mercury_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  391.                     IF mercury_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  392.                     IF mercury_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  393.                 CASE "Libra"
  394.                     air = air + 12
  395.                     libra_Value = libra_Value + 12
  396.                     cardinals = cardinals + 12
  397.                     IF venus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  398.                     IF venus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  399.                     IF venus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  400.                     IF venus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  401.                     IF venus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  402.                     IF venus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  403.                     IF venus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  404.                     IF venus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  405.                     IF venus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  406.                     IF venus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  407.                     IF venus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  408.                     IF venus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  409.                 CASE "Scorpio"
  410.                     water = water + 12
  411.                     scorpio_Value = scorpio_Value + 12
  412.                     fixed = fixed + 12
  413.                     IF pluto_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  414.                     IF pluto_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  415.                     IF pluto_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  416.                     IF pluto_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  417.                     IF pluto_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  418.                     IF pluto_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  419.                     IF pluto_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  420.                     IF pluto_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  421.                     IF pluto_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  422.                     IF pluto_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  423.                     IF pluto_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  424.                     IF pluto_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  425.                 CASE "Sagittarius"
  426.                     fire = fire + 12
  427.                     sagittarius_Value = sagittarius_Value + 12
  428.                     mutable = mutable + 12
  429.                     IF jupiter_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  430.                     IF jupiter_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  431.                     IF jupiter_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  432.                     IF jupiter_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  433.                     IF jupiter_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  434.                     IF jupiter_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  435.                     IF jupiter_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  436.                     IF jupiter_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  437.                     IF jupiter_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  438.                     IF jupiter_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  439.                     IF jupiter_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  440.                     IF jupiter_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  441.                 CASE "Capricorn"
  442.                     earth = earth + 12
  443.                     capricorn_Value = capricorn_Value + 12
  444.                     cardinals = cardinals + 12
  445.                     IF saturn_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  446.                     IF saturn_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  447.                     IF saturn_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  448.                     IF saturn_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  449.                     IF saturn_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  450.                     IF saturn_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  451.                     IF saturn_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  452.                     IF saturn_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  453.                     IF saturn_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  454.                     IF saturn_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  455.                     IF saturn_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  456.                     IF saturn_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  457.                 CASE "Aquarius"
  458.                     air = air + 12
  459.                     Aquarius_Value = Aquarius_Value + 12
  460.                     fixed = fixed + 12
  461.                     IF uranus_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  462.                     IF uranus_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  463.                     IF uranus_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  464.                     IF uranus_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  465.                     IF uranus_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  466.                     IF uranus_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  467.                     IF uranus_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  468.                     IF uranus_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  469.                     IF uranus_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  470.                     IF uranus_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  471.                     IF uranus_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  472.                     IF uranus_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  473.                 CASE "Pisces"
  474.                     water = water + 12
  475.                     pisces_Value = pisces_Value + 12
  476.                     mutable = mutable + 12
  477.                     IF neptune_House = 1 THEN fire = fire + 6: aries_Value = aries_Value + 6
  478.                     IF neptune_House = 2 THEN earth = earth + 6: taurus_Value = taurus_Value + 6
  479.                     IF neptune_House = 3 THEN air = air + 6: gemini_Value = gemini_Value + 6
  480.                     IF neptune_House = 4 THEN water = water + 6: cancer_Value = cancer_Value + 6
  481.                     IF neptune_House = 5 THEN fire = fire + 6: leo_Value = leo_Value + 6
  482.                     IF neptune_House = 6 THEN earth = earth + 6: virgo_Value = virgo_Value + 6
  483.                     IF neptune_House = 7 THEN air = air + 6: libra_Value = libra_Value + 6
  484.                     IF neptune_House = 8 THEN water = water + 6: scorpio_Value = scorpio_Value + 6
  485.                     IF neptune_House = 9 THEN fire = fire + 6: sagittarius_Value = sagittarius_Value + 6
  486.                     IF neptune_House = 10 THEN earth = earth + 6: capricorn_Value = capricorn_Value + 6
  487.                     IF neptune_House = 11 THEN air = air + 6: Aquarius_Value = Aquarius_Value + 6
  488.                     IF neptune_House = 12 THEN water = water + 6: pisces_Value = pisces_Value + 6
  489.             END SELECT
  490.  
  491.             SELECT CASE mercury$
  492.                 CASE "Aries"
  493.                     fire = fire + 6
  494.                     aries_Value = aries_Value + 6
  495.                     cardinals = cardinals + 6
  496.                 CASE "Taurus"
  497.                     earth = earth + 6
  498.                     taurus_Value = taurus_Value + 6
  499.                     fixed = fixed + 6
  500.                 CASE "Gemini"
  501.                     air = air + 6
  502.                     gemini_Value = gemini_Value + 6
  503.                     mutable = mutable + 6
  504.                 CASE "Cancer"
  505.                     water = water + 6
  506.                     cancer_Value = cancer_Value + 6
  507.                     cardinals = cardinals + 6
  508.                 CASE "Leo"
  509.                     fire = fire + 6
  510.                     leo_Value = leo_Value + 6
  511.                     fixed = fixed + 6
  512.                 CASE "Virgo"
  513.                     earth = earth + 6
  514.                     virgo_Value = virgo_Value + 6
  515.                     mutable = mutable + 6
  516.                 CASE "Libra"
  517.                     air = air + 6
  518.                     libra_Value = libra_Value + 6
  519.                     cardinals = cardinals + 6
  520.                 CASE "Scorpio"
  521.                     water = water + 6
  522.                     scorpio_Value = scorpio_Value + 6
  523.                     fixed = fixed + 6
  524.                 CASE "Sagittarius"
  525.                     fire = fire + 6
  526.                     sagittarius_Value = sagittarius_Value + 6
  527.                     mutable = mutable + 6
  528.                 CASE "Capricorn"
  529.                     earth = earth + 6
  530.                     capricorn_Value = capricorn_Value + 6
  531.                     cardinals = cardinals + 6
  532.                 CASE "Aquarius"
  533.                     air = air + 6
  534.                     Aquarius_Value = Aquarius_Value + 6
  535.                     fixed = fixed + 6
  536.                 CASE "Pisces"
  537.                     water = water + 6
  538.                     pisces_Value = pisces_Value + 6
  539.                     mutable = mutable + 6
  540.             END SELECT
  541.  
  542.             SELECT CASE Venus$
  543.                 CASE "Aries"
  544.                     fire = fire + 6
  545.                     aries_Value = aries_Value + 6
  546.                     cardinals = cardinals + 6
  547.                 CASE "Taurus"
  548.                     earth = earth + 6
  549.                     taurus_Value = taurus_Value + 6
  550.                     fixed = fixed + 6
  551.                 CASE "Gemini"
  552.                     air = air + 6
  553.                     gemini_Value = gemini_Value + 6
  554.                     mutable = mutable + 6
  555.                 CASE "Cancer"
  556.                     water = water + 6
  557.                     cancer_Value = cancer_Value + 6
  558.                     cardinals = cardinals + 6
  559.                 CASE "Leo"
  560.                     fire = fire + 6
  561.                     leo_Value = leo_Value + 6
  562.                     fixed = fixed + 6
  563.                 CASE "Virgo"
  564.                     earth = earth + 6
  565.                     virgo_Value = virgo_Value + 6
  566.                     mutable = mutable + 6
  567.                 CASE "Libra"
  568.                     air = air + 6
  569.                     libra_Value = libra_Value + 6
  570.                     cardinals = cardinals + 6
  571.                 CASE "Scorpio"
  572.                     water = water + 6
  573.                     scorpio_Value = scorpio_Value + 6
  574.                     fixed = fixed + 5
  575.                 CASE "Sagittarius"
  576.                     fire = fire + 6
  577.                     sagittarius_Value = sagittarius_Value + 6
  578.                     mutable = mutable + 6
  579.                 CASE "Capricorn"
  580.                     earth = earth + 6
  581.                     capricorn_Value = capricorn_Value + 6
  582.                     cardinals = cardinals + 6
  583.                 CASE "Aquarius"
  584.                     air = air + 6
  585.                     Aquarius_Value = Aquarius_Value + 6
  586.                     fixed = fixed + 6
  587.                 CASE "Pisces"
  588.                     water = water + 6
  589.                     pisces_Value = pisces_Value + 6
  590.                     mutable = mutable + 6
  591.             END SELECT
  592.  
  593.             SELECT CASE mars$
  594.                 CASE "Aries"
  595.                     fire = fire + 6
  596.                     aries_Value = aries_Value + 6
  597.                     cardinals = cardinals + 6
  598.                 CASE "Taurus"
  599.                     earth = earth + 6
  600.                     taurus_Value = taurus_Value + 6
  601.                     fixed = fixed + 6
  602.                 CASE "Gemini"
  603.                     air = air + 6
  604.                     gemini_Value = gemini_Value + 6
  605.                     mutable = mutable + 6
  606.                 CASE "Cancer"
  607.                     water = water + 6
  608.                     cancer_Value = cancer_Value + 6
  609.                     cardinals = cardinals + 6
  610.                 CASE "Leo"
  611.                     fire = fire + 6
  612.                     leo_Value = leo_Value + 6
  613.                     fixed = fixed + 6
  614.                 CASE "Virgo"
  615.                     earth = earth + 6
  616.                     virgo_Value = virgo_Value + 6
  617.                     mutable = mutable + 6
  618.                 CASE "Libra"
  619.                     air = air + 6
  620.                     libra_Value = libra_Value + 6
  621.                     cardinals = cardinals + 6
  622.                 CASE "Scorpio"
  623.                     water = water + 6
  624.                     scorpio_Value = scorpio_Value + 6
  625.                     fixed = fixed + 6
  626.                 CASE "Sagittarius"
  627.                     fire = fire + 6
  628.                     sagittarius_Value = sagittarius_Value + 6
  629.                     mutable = mutable + 6
  630.                 CASE "Capricorn"
  631.                     earth = earth + 6
  632.                     capricorn_Value = capricorn_Value + 6
  633.                     cardinals = cardinals + 6
  634.                 CASE "Aquarius"
  635.                     air = air + 6
  636.                     Aquarius_Value = Aquarius_Value + 6
  637.                     fixed = fixed + 6
  638.                 CASE "Pisces"
  639.                     water = water + 6
  640.                     pisces_Value = pisces_Value + 6
  641.                     mutable = mutable + 6
  642.             END SELECT
  643.  
  644.             SELECT CASE Jupiter$
  645.                 CASE "Aries"
  646.                     fire = fire + 5
  647.                     aries_Value = aries_Value + 5
  648.                     cardinals = cardinals + 5
  649.                 CASE "Taurus"
  650.                     earth = earth + 5
  651.                     taurus_Value = taurus_Value + 5
  652.                     fixed = fixed + 5
  653.                 CASE "Gemini"
  654.                     air = air + 5
  655.                     gemini_Value = gemini_Value + 5
  656.                     mutable = mutable + 5
  657.                 CASE "Cancer"
  658.                     water = water + 5
  659.                     cancer_Value = cancer_Value + 5
  660.                     cardinals = cardinals + 5
  661.                 CASE "Leo"
  662.                     fire = fire + 5
  663.                     leo_Value = leo_Value + 5
  664.                     fixed = fixed + 5
  665.                 CASE "Virgo"
  666.                     earth = earth + 5
  667.                     virgo_Value = virgo_Value + 5
  668.                     mutable = mutable + 5
  669.                 CASE "Libra"
  670.                     air = air + 5
  671.                     libra_Value = libra_Value + 5
  672.                     cardinals = cardinals + 5
  673.                 CASE "Scorpio"
  674.                     water = water + 5
  675.                     scorpio_Value = scorpio_Value + 5
  676.                     fixed = fixed + 5
  677.                 CASE "Sagittarius"
  678.                     fire = fire + 5
  679.                     sagittarius_Value = sagittarius_Value + 5
  680.                     mutable = mutable + 5
  681.                 CASE "Capricorn"
  682.                     earth = earth + 5
  683.                     capricorn_Value = capricorn_Value + 5
  684.                     cardinals = cardinals + 5
  685.                 CASE "Aquarius"
  686.                     air = air + 5
  687.                     Aquarius_Value = Aquarius_Value + 5
  688.                     fixed = fixed + 5
  689.                 CASE "Pisces"
  690.                     water = water + 5
  691.                     pisces_Value = pisces_Value + 5
  692.                     mutable = mutable + 5
  693.             END SELECT
  694.  
  695.             SELECT CASE Saturn$
  696.                 CASE "Aries"
  697.                     fire = fire + 5
  698.                     aries_Value = aries_Value + 5
  699.                     cardinals = cardinals + 5
  700.                 CASE "Taurus"
  701.                     earth = earth + 5
  702.                     taurus_Value = taurus_Value + 5
  703.                     fixed = fixed + 5
  704.                 CASE "Gemini"
  705.                     air = air + 5
  706.                     gemini_Value = gemini_Value + 5
  707.                     mutable = mutable + 5
  708.                 CASE "Cancer"
  709.                     water = water + 5
  710.                     cancer_Value = cancer_Value + 5
  711.                     cardinals = cardinals + 5
  712.                 CASE "Leo"
  713.                     fire = fire + 5
  714.                     leo_Value = leo_Value + 5
  715.                     fixed = fixed + 5
  716.                 CASE "Virgo"
  717.                     earth = earth + 5
  718.                     virgo_Value = virgo_Value + 5
  719.                     mutable = mutable + 5
  720.                 CASE "Libra"
  721.                     air = air + 5
  722.                     libra_Value = libra_Value + 5
  723.                     cardinals = cardinals + 5
  724.                 CASE "Scorpio"
  725.                     water = water + 5
  726.                     scorpio_Value = scorpio_Value + 5
  727.                     fixed = fixed + 5
  728.                 CASE "Sagittarius"
  729.                     fire = fire + 5
  730.                     sagittarius_Value = sagittarius_Value + 5
  731.                     mutable = mutable + 5
  732.                 CASE "Capricorn"
  733.                     earth = earth + 5
  734.                     capricorn_Value = capricorn_Value + 5
  735.                     cardinals = cardinals + 5
  736.                 CASE "Aquarius"
  737.                     air = air + 5
  738.                     Aquarius_Value = Aquarius_Value + 5
  739.                     fixed = fixed + 5
  740.                 CASE "Pisces"
  741.                     water = water + 5
  742.                     pisces_Value = pisces_Value + 5
  743.                     mutable = mutable + 5
  744.             END SELECT
  745.  
  746.             SELECT CASE MC$
  747.                 CASE "Aries"
  748.                     fire = fire + 5
  749.                     aries_Value = aries_Value + 5
  750.                     cardinals = cardinals + 5
  751.                 CASE "Taurus"
  752.                     earth = earth + 5
  753.                     taurus_Value = taurus_Value + 5
  754.                     fixed = fixed + 5
  755.                 CASE "Gemini"
  756.                     air = air + 5
  757.                     gemini_Value = gemini_Value + 5
  758.                     mutable = mutable + 5
  759.                 CASE "Cancer"
  760.                     water = water + 5
  761.                     cancer_Value = cancer_Value + 5
  762.                     cardinals = cardinals + 5
  763.                 CASE "Leo"
  764.                     fire = fire + 5
  765.                     leo_Value = leo_Value + 5
  766.                     fixed = fixed + 5
  767.                 CASE "Virgo"
  768.                     earth = earth + 5
  769.                     virgo_Value = virgo_Value + 5
  770.                     mutable = mutable + 5
  771.                 CASE "Libra"
  772.                     air = air + 5
  773.                     libra_Value = libra_Value + 5
  774.                     cardinals = cardinals + 5
  775.                 CASE "Scorpio"
  776.                     water = water + 5
  777.                     scorpio_Value = scorpio_Value + 5
  778.                     fixed = fixed + 5
  779.                 CASE "Sagittarius"
  780.                     fire = fire + 5
  781.                     sagittarius_Value = sagittarius_Value + 5
  782.                     mutable = mutable + 5
  783.                 CASE "Capricorn"
  784.                     earth = earth + 5
  785.                     capricorn_Value = capricorn_Value + 5
  786.                     cardinals = cardinals + 5
  787.                 CASE "Aquarius"
  788.                     air = air + 5
  789.                     Aquarius_Value = Aquarius_Value + 5
  790.                     fixed = fixed + 5
  791.                 CASE "Pisces"
  792.                     water = water + 5
  793.                     pisces_Value = pisces_Value + 5
  794.                     mutable = mutable + 5
  795.             END SELECT
  796.  
  797.             SELECT CASE Chiron$
  798.                 CASE "Aries"
  799.                     fire = fire + 2
  800.                     aries_Value = aries_Value + 2
  801.                     cardinals = cardinals + 2
  802.                 CASE "Taurus"
  803.                     earth = earth + 2
  804.                     taurus_Value = taurus_Value + 2
  805.                     fixed = fixed + 2
  806.                 CASE "Gemini"
  807.                     air = air + 2
  808.                     gemini_Value = gemini_Value + 2
  809.                     mutable = mutable + 2
  810.                 CASE "Cancer"
  811.                     water = water + 2
  812.                     cancer_Value = cancer_Value + 2
  813.                     cardinals = cardinals + 2
  814.                 CASE "Leo"
  815.                     fire = fire + 2
  816.                     leo_Value = leo_Value + 2
  817.                     fixed = fixed + 2
  818.                 CASE "Virgo"
  819.                     earth = earth + 2
  820.                     virgo_Value = virgo_Value + 2
  821.                     mutable = mutable + 2
  822.                 CASE "Libra"
  823.                     air = air + 2
  824.                     libra_Value = libra_Value + 2
  825.                     cardinals = cardinals + 2
  826.                 CASE "Scorpio"
  827.                     water = water + 2
  828.                     scorpio_Value = scorpio_Value + 2
  829.                     fixed = fixed + 2
  830.                 CASE "Sagittarius"
  831.                     fire = fire + 2
  832.                     sagittarius_Value = sagittarius_Value + 2
  833.                     mutable = mutable + 2
  834.                 CASE "Capricorn"
  835.                     earth = earth + 2
  836.                     capricorn_Value = capricorn_Value + 2
  837.                     cardinals = cardinals + 2
  838.                 CASE "Aquarius"
  839.                     air = air + 2
  840.                     Aquarius_Value = Aquarius_Value + 2
  841.                     fixed = fixed + 2
  842.                 CASE "Pisces"
  843.                     water = water + 2
  844.                     pisces_Value = pisces_Value + 2
  845.                     mutable = mutable + 2
  846.             END SELECT
  847.  
  848.             SELECT CASE Uranus$
  849.                 CASE "Aries"
  850.                     fire = fire + 2
  851.                     aries_Value = aries_Value + 2
  852.                     cardinals = cardinals + 2
  853.                 CASE "Taurus"
  854.                     earth = earth + 2
  855.                     taurus_Value = taurus_Value + 2
  856.                     fixed = fixed + 2
  857.                 CASE "Gemini"
  858.                     air = air + 2
  859.                     gemini_Value = gemini_Value + 2
  860.                     mutable = mutable + 2
  861.                 CASE "Cancer"
  862.                     water = water + 2
  863.                     cancer_Value = cancer_Value + 2
  864.                     cardinals = cardinals + 2
  865.                 CASE "Leo"
  866.                     fire = fire + 2
  867.                     leo_Value = leo_Value + 2
  868.                     fixed = fixed + 2
  869.                 CASE "Virgo"
  870.                     earth = earth + 2
  871.                     virgo_Value = virgo_Value + 2
  872.                     mutable = mutable + 2
  873.                 CASE "Libra"
  874.                     air = air + 2
  875.                     libra_Value = libra_Value + 2
  876.                     cardinals = cardinals + 2
  877.                 CASE "Scorpio"
  878.                     water = water + 2
  879.                     scorpio_Value = scorpio_Value + 2
  880.                     fixed = fixed + 2
  881.                 CASE "Sagittarius"
  882.                     fire = fire + 2
  883.                     sagittarius_Value = sagittarius_Value + 2
  884.                     mutable = mutable + 2
  885.                 CASE "Capricorn"
  886.                     earth = earth + 2
  887.                     capricorn_Value = capricorn_Value + 2
  888.                     cardinals = cardinals + 2
  889.                 CASE "Aquarius"
  890.                     air = air + 2
  891.                     Aquarius_Value = Aquarius_Value + 2
  892.                     fixed = fixed + 2
  893.                 CASE "Pisces"
  894.                     water = water + 2
  895.                     pisces_Value = pisces_Value + 2
  896.                     mutable = mutable + 2
  897.             END SELECT
  898.  
  899.             SELECT CASE neptune$
  900.                 CASE "Aries"
  901.                     fire = fire + 2
  902.                     aries_Value = aries_Value + 2
  903.                     cardinals = cardinals + 2
  904.                 CASE "Taurus"
  905.                     earth = earth + 2
  906.                     taurus_Value = taurus_Value + 2
  907.                     fixed = fixed + 2
  908.                 CASE "Gemini"
  909.                     air = air + 2
  910.                     gemini_Value = gemini_Value + 2
  911.                     mutable = mutable + 2
  912.                 CASE "Cancer"
  913.                     water = water + 2
  914.                     cancer_Value = cancer_Value + 2
  915.                     cardinals = cardinals + 2
  916.                 CASE "Leo"
  917.                     fire = fire + 2
  918.                     leo_Value = leo_Value + 2
  919.                     fixed = fixed + 2
  920.                 CASE "Virgo"
  921.                     earth = earth + 2
  922.                     virgo_Value = virgo_Value + 2
  923.                     mutable = mutable + 2
  924.                 CASE "Libra"
  925.                     air = air + 2
  926.                     libra_Value = libra_Value + 2
  927.                     cardinals = cardinals + 2
  928.                 CASE "Scorpio"
  929.                     water = water + 2
  930.                     scorpio_Value = scorpio_Value + 2
  931.                     fixed = fixed + 2
  932.                 CASE "Sagittarius"
  933.                     fire = fire + 2
  934.                     sagittarius_Value = sagittarius_Value + 2
  935.                     mutable = mutable + 2
  936.                 CASE "Capricorn"
  937.                     earth = earth + 2
  938.                     capricorn_Value = capricorn_Value + 2
  939.                     cardinals = cardinals + 2
  940.                 CASE "Aquarius"
  941.                     air = air + 2
  942.                     Aquarius_Value = Aquarius_Value + 2
  943.                     fixed = fixed + 2
  944.                 CASE "Pisces"
  945.                     water = water + 2
  946.                     pisces_Value = pisces_Value + 2
  947.                     mutable = mutable + 2
  948.             END SELECT
  949.  
  950.             SELECT CASE Pluto$
  951.                 CASE "Aries"
  952.                     fire = fire + 2
  953.                     aries_Value = aries_Value + 2
  954.                     cardinals = cardinals + 2
  955.                 CASE "Taurus"
  956.                     earth = earth + 2
  957.                     taurus_Value = taurus_Value + 2
  958.                     fixed = fixed + 2
  959.                 CASE "Gemini"
  960.                     air = air + 2
  961.                     gemini_Value = gemini_Value + 2
  962.                     mutable = mutable + 2
  963.                 CASE "Cancer"
  964.                     water = water + 2
  965.                     cancer_Value = cancer_Value + 2
  966.                     cardinals = cardinals + 2
  967.                 CASE "Leo"
  968.                     fire = fire + 2
  969.                     leo_Value = leo_Value + 2
  970.                     fixed = fixed + 2
  971.                 CASE "Virgo"
  972.                     earth = earth + 2
  973.                     virgo_Value = virgo_Value + 2
  974.                     mutable = mutable + 2
  975.                 CASE "Libra"
  976.                     air = air + 2
  977.                     libra_Value = libra_Value + 2
  978.                     cardinals = cardinals + 2
  979.                 CASE "Scorpio"
  980.                     water = water + 2
  981.                     scorpio_Value = scorpio_Value + 2
  982.                     fixed = fixed + 2
  983.                 CASE "Sagittarius"
  984.                     fire = fire + 2
  985.                     sagittarius_Value = sagittarius_Value + 2
  986.                     mutable = mutable + 2
  987.                 CASE "Capricorn"
  988.                     earth = earth + 2
  989.                     capricorn_Value = capricorn_Value + 2
  990.                     cardinals = cardinals + 2
  991.                 CASE "Aquarius"
  992.                     air = air + 2
  993.                     Aquarius_Value = Aquarius_Value + 2
  994.                     fixed = fixed + 2
  995.                 CASE "Pisces"
  996.                     water = water + 2
  997.                     pisces_Value = pisces_Value + 2
  998.                     mutable = mutable + 2
  999.             END SELECT
  1000.  
  1001.             SELECT CASE moon_Node$
  1002.                 CASE "Aries"
  1003.                     fire = fire + 2
  1004.                     aries_Value = aries_Value + 2
  1005.                     cardinals = cardinals + 2
  1006.                 CASE "Taurus"
  1007.                     earth = earth + 2
  1008.                     taurus_Value = taurus_Value + 2
  1009.                     fixed = fixed + 2
  1010.                 CASE "Gemini"
  1011.                     air = air + 2
  1012.                     gemini_Value = gemini_Value + 2
  1013.                     mutable = mutable + 2
  1014.                 CASE "Cancer"
  1015.                     water = water + 2
  1016.                     cancer_Value = cancer_Value + 2
  1017.                     cardinals = cardinals + 2
  1018.                 CASE "Leo"
  1019.                     fire = fire + 2
  1020.                     leo_Value = leo_Value + 2
  1021.                     fixed = fixed + 2
  1022.                 CASE "Virgo"
  1023.                     earth = earth + 2
  1024.                     virgo_Value = virgo_Value + 2
  1025.                     mutable = mutable + 2
  1026.                 CASE "Libra"
  1027.                     air = air + 2
  1028.                     libra_Value = libra_Value + 2
  1029.                     cardinals = cardinals + 2
  1030.                 CASE "Scorpio"
  1031.                     water = water + 2
  1032.                     scorpio_Value = scorpio_Value + 2
  1033.                     fixed = fixed + 2
  1034.                 CASE "Sagittarius"
  1035.                     fire = fire + 2
  1036.                     sagittarius_Value = sagittarius_Value + 2
  1037.                     mutable = mutable + 2
  1038.                 CASE "Capricorn"
  1039.                     earth = earth + 2
  1040.                     capricorn_Value = capricorn_Value + 2
  1041.                     cardinals = cardinals + 2
  1042.                 CASE "Aquarius"
  1043.                     air = air + 2
  1044.                     Aquarius_Value = Aquarius_Value + 2
  1045.                     fixed = fixed + 2
  1046.                 CASE "Pisces"
  1047.                     water = water + 2
  1048.                     pisces_Value = pisces_Value + 2
  1049.                     mutable = mutable + 2
  1050.             END SELECT
  1051.  
  1052.             SELECT CASE Lilith$
  1053.                 CASE "Aries"
  1054.                     fire = fire + 1
  1055.                     aries_Value = aries_Value + 1
  1056.                     cardinals = cardinals + 1
  1057.                 CASE "Taurus"
  1058.                     earth = earth + 1
  1059.                     taurus_Value = taurus_Value + 1
  1060.                     fixed = fixed + 1
  1061.                 CASE "Gemini"
  1062.                     air = air + 1
  1063.                     gemini_Value = gemini_Value + 1
  1064.                     mutable = mutable + 1
  1065.                 CASE "Cancer"
  1066.                     water = water + 1
  1067.                     cancer_Value = cancer_Value + 1
  1068.                     cardinals = cardinals + 1
  1069.                 CASE "Leo"
  1070.                     fire = fire + 1
  1071.                     leo_Value = leo_Value + 1
  1072.                     fixed = fixed + 1
  1073.                 CASE "Virgo"
  1074.                     earth = earth + 1
  1075.                     virgo_Value = virgo_Value + 1
  1076.                     mutable = mutable + 1
  1077.                 CASE "Libra"
  1078.                     air = air + 1
  1079.                     libra_Value = libra_Value + 1
  1080.                     cardinals = cardinals + 1
  1081.                 CASE "Scorpio"
  1082.                     water = water + 1
  1083.                     scorpio_Value = scorpio_Value + 1
  1084.                     fixed = fixed + 1
  1085.                 CASE "Sagittarius"
  1086.                     fire = fire + 1
  1087.                     sagittarius_Value = sagittarius_Value + 1
  1088.                     mutable = mutable + 1
  1089.                 CASE "Capricorn"
  1090.                     earth = earth + 1
  1091.                     capricorn_Value = capricorn_Value + 1
  1092.                     cardinals = cardinals + 1
  1093.                 CASE "Aquarius"
  1094.                     air = air + 1
  1095.                     Aquarius_Value = Aquarius_Value + 1
  1096.                     fixed = fixed + 1
  1097.                 CASE "Pisces"
  1098.                     water = water + 1
  1099.                     pisces_Value = pisces_Value + 1
  1100.                     mutable = mutable + 1
  1101.             END SELECT
  1102.  
  1103.             elements = earth + fire + water + air
  1104.             Earth_Percentage = 100 / elements * earth
  1105.             Fire_Percentage# = 100 / elements * fire
  1106.             Water_Percentage# = 100 / elements * water
  1107.             Air_Percentage# = 100 / elements * air
  1108.  
  1109.             Earth_percentage_Rounded# = INT(Earth_Percentage * 10 ^ 2 + .5): Earth_percentage_Rounded# = Earth_percentage_Rounded# / 100
  1110.             Fire_percentage_Rounded# = INT(Fire_Percentage# * 10 ^ 2 + .5): Fire_percentage_Rounded# = Fire_percentage_Rounded# / 100
  1111.             Water_percentage_Rounded# = INT(Water_Percentage# * 10 ^ 2 + .5): Water_percentage_Rounded# = Water_percentage_Rounded# / 100
  1112.             Air_percentage_Rounded# = INT(Air_Percentage# * 10 ^ 2 + .5): Air_percentage_Rounded# = Air_percentage_Rounded# / 100
  1113.  
  1114.             qualities = cardinals + fixed + mutable
  1115.             cardinal_Percentage# = 100 / qualities * cardinals
  1116.             fixed_Percentage# = 100 / qualities * fixed
  1117.             mutable_Percentage# = 100 / qualities * mutable
  1118.  
  1119.             cardinal_percentage_Rounded# = INT(cardinal_Percentage# * 10 ^ 2 + .5): cardinal_percentage_Rounded# = cardinal_percentage_Rounded# / 100
  1120.             fixed_percentage_Rounded# = INT(fixed_Percentage# * 10 ^ 2 + .5): fixed_percentage_Rounded# = fixed_percentage_Rounded# / 100
  1121.             mutable_percentage_Rounded# = INT(mutable_Percentage# * 10 ^ 2 + .5): mutable_percentage_Rounded# = mutable_percentage_Rounded# / 100
  1122.  
  1123.             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
  1124.             Aries_Percentage = 100 / all_Signs * aries_Value
  1125.             Taurus_Percentage = 100 / all_Signs * taurus_Value
  1126.             Gemini_Percentage = 100 / all_Signs * gemini_Value
  1127.             Cancer_Percentage = 100 / all_Signs * cancer_Value
  1128.             Leo_Percentage = 100 / all_Signs * leo_Value
  1129.             Virgo_Percentage = 100 / all_Signs * virgo_Value
  1130.             Libra_Percentage = 100 / all_Signs * libra_Value
  1131.             Scorpio_Percentage = 100 / all_Signs * scorpio_Value
  1132.             Sagittarius_Percentage = 100 / all_Signs * sagittarius_Value
  1133.             Capricorn_Percentage = 100 / all_Signs * capricorn_Value
  1134.             Aquarius_Percentage = 100 / all_Signs * Aquarius_Value
  1135.             Pisces_Percentage = 100 / all_Signs * pisces_Value
  1136.  
  1137.             Aries_percentage_Rounded# = INT(Aries_Percentage * 10 ^ 2 + .5): Aries_percentage_Rounded# = Aries_percentage_Rounded# / 100
  1138.             Taurus_percentage_Rounded# = INT(Taurus_Percentage * 10 ^ 2 + .5): Taurus_percentage_Rounded# = Taurus_percentage_Rounded# / 100
  1139.             Gemini_percentage_Rounded# = INT(Gemini_Percentage * 10 ^ 2 + .5): Gemini_percentage_Rounded# = Gemini_percentage_Rounded# / 100
  1140.             Cancer_percentage_Rounded# = INT(Cancer_Percentage * 10 ^ 2 + .5): Cancer_percentage_Rounded# = Cancer_percentage_Rounded# / 100
  1141.             Leo_percentage_Rounded# = INT(Leo_Percentage * 10 ^ 2 + .5): Leo_percentage_Rounded# = Leo_percentage_Rounded# / 100
  1142.             Virgo_percentage_Rounded# = INT(Virgo_Percentage * 10 ^ 2 + .5): Virgo_percentage_Rounded# = Virgo_percentage_Rounded# / 100
  1143.             Libra_percentage_Rounded# = INT(Libra_Percentage * 10 ^ 2 + .5): Libra_percentage_Rounded# = Libra_percentage_Rounded# / 100
  1144.             Scorpio_percentage_Rounded# = INT(Scorpio_Percentage * 10 ^ 2 + .5): Scorpio_percentage_Rounded# = Scorpio_percentage_Rounded# / 100
  1145.             Sagittarius_percentage_Rounded# = INT(Sagittarius_Percentage * 10 ^ 2 + .5): Sagittarius_percentage_Rounded# = Sagittarius_percentage_Rounded# / 100
  1146.             Capricorn_percentage_Rounded# = INT(Capricorn_Percentage * 10 ^ 2 + .5): Capricorn_percentage_Rounded# = Capricorn_percentage_Rounded# / 100
  1147.             Aquarius_percentage_Rounded# = INT(Aquarius_Percentage * 10 ^ 2 + .5): Aquarius_percentage_Rounded# = Aquarius_percentage_Rounded# / 100
  1148.             Pisces_percentage_Rounded# = INT(Pisces_Percentage * 10 ^ 2 + .5): Pisces_percentage_Rounded# = Pisces_percentage_Rounded# / 100
  1149.  
  1150.             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)
  1151.             house1_Percentage = 100 / all_Houses * house(1)
  1152.             house2_Percentage = 100 / all_Houses * house(2)
  1153.             house3_Percentage = 100 / all_Houses * house(3)
  1154.             house4_Percentage = 100 / all_Houses * house(4)
  1155.             house5_Percentage = 100 / all_Houses * house(5)
  1156.             house6_Percentage = 100 / all_Houses * house(6)
  1157.             house7_Percentage = 100 / all_Houses * house(7)
  1158.             house8_Percentage = 100 / all_Houses * house(8)
  1159.             house9_Percentage = 100 / all_Houses * house(9)
  1160.             house10_Percentage = 100 / all_Houses * house(10)
  1161.             house11_Percentage = 100 / all_Houses * house(11)
  1162.             house12_Percentage = 100 / all_Houses * house(12)
  1163.  
  1164.             house1_percentage_Rounded# = INT(house1_Percentage * 10 ^ 2 + .5): house1_percentage_Rounded# = house1_percentage_Rounded# / 100
  1165.             house2_percentage_Rounded# = INT(house2_Percentage * 10 ^ 2 + .5): house2_percentage_Rounded# = house2_percentage_Rounded# / 100
  1166.             house3_percentage_Rounded# = INT(house3_Percentage * 10 ^ 2 + .5): house3_percentage_Rounded# = house3_percentage_Rounded# / 100
  1167.             house4_percentage_Rounded# = INT(house4_Percentage * 10 ^ 2 + .5): house4_percentage_Rounded# = house4_percentage_Rounded# / 100
  1168.             house5_percentage_Rounded# = INT(house5_Percentage * 10 ^ 2 + .5): house5_percentage_Rounded# = house5_percentage_Rounded# / 100
  1169.             house6_percentage_Rounded# = INT(house6_Percentage * 10 ^ 2 + .5): house6_percentage_Rounded# = house6_percentage_Rounded# / 100
  1170.             house7_percentage_Rounded# = INT(house7_Percentage * 10 ^ 2 + .5): house7_percentage_Rounded# = house7_percentage_Rounded# / 100
  1171.             house8_percentage_Rounded# = INT(house8_Percentage * 10 ^ 2 + .5): house8_percentage_Rounded# = house8_percentage_Rounded# / 100
  1172.             house9_percentage_Rounded# = INT(house9_Percentage * 10 ^ 2 + .5): house9_percentage_Rounded# = house9_percentage_Rounded# / 100
  1173.             house10_percentage_Rounded# = INT(house10_Percentage * 10 ^ 2 + .5): house10_percentage_Rounded# = house10_percentage_Rounded# / 100
  1174.             house11_percentage_Rounded# = INT(house11_Percentage * 10 ^ 2 + .5): house11_percentage_Rounded# = house11_percentage_Rounded# / 100
  1175.             house12_percentage_Rounded# = INT(house12_Percentage * 10 ^ 2 + .5): house12_percentage_Rounded# = house12_percentage_Rounded# / 100
  1176.  
  1177.             largest = 0
  1178.             IF aries_Value > largest THEN largest = aries_Value: dom_Sign$ = "Aries"
  1179.             IF taurus_Value > largest THEN largest = taurus_Value: dom_Sign$ = "Taurus"
  1180.             IF gemini_Value > largest THEN largest = gemini_Value: dom_Sign$ = "Gemini"
  1181.             IF cancer_Value > largest THEN largest = cancer_Value: dom_Sign$ = "Cancer"
  1182.             IF leo_Value > largest THEN largest = leo_Value: dom_Sign$ = "Leo"
  1183.             IF virgo_Value > largest THEN largest = virgo_Value: dom_Sign$ = "Virgo"
  1184.             IF libra_Value > largest THEN largest = libra_Value: dom_Sign$ = "Libra"
  1185.             IF scorpio_Value > largest THEN largest = scorpio_Value: dom_Sign$ = "Scorpio"
  1186.             IF sagittarius_Value > largest THEN largest = sagittarius_Value: dom_Sign$ = "Sagittarius"
  1187.             IF capricorn_Value > largest THEN largest = capricorn_Value: dom_Sign$ = "Capricorn"
  1188.             IF Aquarius_Value > largest THEN largest = Aquarius_Value: dom_Sign$ = "Aquarius"
  1189.             IF pisces_Value > largest THEN largest = pisces_Value: dom_Sign$ = "Pisces"
  1190.             signs_percentage = 100 / all_Signs * largest
  1191.             signs_percentage_Rounded# = INT(signs_percentage * 10 ^ 2 + .5): signs_percentage_Rounded# = signs_percentage_Rounded# / 100
  1192.  
  1193.             largesthouse = 0
  1194.             IF house(1) > largesthouse THEN largesthouse = house(1): dom_House = 1
  1195.             IF house(2) > largesthouse THEN largesthouse = house(2): dom_House = 2
  1196.             IF house(3) > largesthouse THEN largesthouse = house(3): dom_House = 3
  1197.             IF house(4) > largesthouse THEN largesthouse = house(4): dom_House = 4
  1198.             IF house(5) > largesthouse THEN largesthouse = house(5): dom_House = 5
  1199.             IF house(6) > largesthouse THEN largesthouse = house(6): dom_House = 6
  1200.             IF house(7) > largesthouse THEN largesthouse = house(7): dom_House = 7
  1201.             IF house(8) > largesthouse THEN largesthouse = house(8): dom_House = 8
  1202.             IF house(9) > largesthouse THEN largesthouse = house(9): dom_House = 9
  1203.             IF house(10) > largesthouse THEN largesthouse = house(10): dom_House = 10
  1204.             IF house(11) > largesthouse THEN largesthouse = house(11): dom_House = 11
  1205.             IF house(12) > largesthouse THEN largesthouse = house(12): dom_House = 12
  1206.             largesthouse_percentage = 100 / all_Houses * largesthouse
  1207.             largesthouse_percentage_Rounded# = INT(largesthouse_percentage * 10 ^ 2 + .5): largesthouse_percentage_Rounded# = largesthouse_percentage_Rounded# / 100
  1208.  
  1209.             Quad1 = house(1) + house(2) + house(3)
  1210.             Quad2 = house(4) + house(5) + house(6)
  1211.             Quad3 = house(7) + house(8) + house(9)
  1212.             Quad4 = house(10) + house(11) + house(12)
  1213.             all_Quads = Quad1 + Quad2 + Quad3 + Quad4
  1214.  
  1215.             largedom_Quad = 0
  1216.             IF Quad1 > largedom_Quad THEN largedom_Quad = Quad1: dom_Quad$ = "1st aka Fire or energy quadrant"
  1217.             IF Quad2 > largedom_Quad THEN largedom_Quad = Quad2: dom_Quad$ = "2nd aka Water or emotional quadrant"
  1218.             IF Quad3 > largedom_Quad THEN largedom_Quad = Quad3: dom_Quad$ = "3rd aka Air or intellectual quadrant"
  1219.             IF Quad4 > largedom_Quad THEN largedom_Quad = Quad4: dom_Quad$ = "4th aka Earth or reality quadrant"
  1220.             large_dom_Quad_percentage = 100 / all_Quads * largedom_Quad
  1221.             large_dom_Quad_percentage_Rounded# = INT(large_dom_Quad_percentage * 10 ^ 2 + .5): large_dom_Quad_percentage_Rounded# = large_dom_Quad_percentage_Rounded# / 100
  1222.  
  1223.             quad1_Percentage = 100 / all_Quads * Quad1
  1224.             quad2_Percentage = 100 / all_Quads * Quad2
  1225.             quad3_Percentage = 100 / all_Quads * Quad3
  1226.             quad4_Percentage = 100 / all_Quads * Quad4
  1227.  
  1228.             quad1_percentage_Rounded# = INT(quad1_Percentage * 10 ^ 2 + .5): quad1_percentage_Rounded# = quad1_percentage_Rounded# / 100
  1229.             quad2_percentage_Rounded# = INT(quad2_Percentage * 10 ^ 2 + .5): quad2_percentage_Rounded# = quad2_percentage_Rounded# / 100
  1230.             quad3_percentage_Rounded# = INT(quad3_Percentage * 10 ^ 2 + .5): quad3_percentage_Rounded# = quad3_percentage_Rounded# / 100
  1231.             quad4_percentage_Rounded# = INT(quad4_Percentage * 10 ^ 2 + .5): quad4_percentage_Rounded# = quad4_percentage_Rounded# / 100
  1232.  
  1233.             earth_String$ = "The sum of the earth signs in this birth chart is" + STR$(earth) + ". Thus, its owner is determined by the element of earth by" + STR$(Earth_percentage_Rounded#) + "%."
  1234.             fire_String$ = "The sum of the fire signs in this birth chart is" + STR$(fire) + ". Thus, its owner is determined by the element of fire by" + STR$(Fire_percentage_Rounded#) + "%."
  1235.             water_String$ = "The sum of the water signs in this birth chart is" + STR$(water) + ". Thus, its owner is determined by the element of water by" + STR$(Water_percentage_Rounded#) + "%."
  1236.             air_String$ = "The sum of the air signs in this birth chart is" + STR$(air) + ". Thus, its owner is determined by the element of air by" + STR$(Air_percentage_Rounded#) + "%."
  1237.  
  1238.             active_Signs = fire + earth
  1239.             passive_Signs = water + air
  1240.             polarity_Percentage = active_Signs + passive_Signs
  1241.  
  1242.             active_Percentage = 100 / polarity_Percentage * active_Signs
  1243.             passive_Percentage = 100 / polarity_Percentage * passive_Signs
  1244.  
  1245.             active_percentage_Rounded# = INT(active_Percentage * 10 ^ 2 + .5): active_percentage_Rounded# = active_percentage_Rounded# / 100
  1246.             passive_percentage_Rounded# = INT(passive_Percentage * 10 ^ 2 + .5): passive_percentage_Rounded# = passive_percentage_Rounded# / 100
  1247.  
  1248.             active_String$ = "The sum of the active signs in this birth chart is" + STR$(active_Signs) + ". Thus, its owner is characterized by active polarities at" + STR$(active_percentage_Rounded#) + "%."
  1249.             passive_String$ = "The sum of the passive signs in this birth chart is" + STR$(passive_Signs) + ". Thus, its owner is characterized by passive polarities at" + STR$(passive_percentage_Rounded#) + "%."
  1250.  
  1251.             aries_String$ = "Strength of Aries:" + STR$(aries_Value) + " (" + STR$(Aries_percentage_Rounded#) + "%)"
  1252.             taurus_String$ = "Strength of Taurus:" + STR$(taurus_Value) + " (" + STR$(Taurus_percentage_Rounded#) + "%)"
  1253.             gemini_String$ = "Strength of Gemini:" + STR$(gemini_Value) + " (" + STR$(Gemini_percentage_Rounded#) + "%)"
  1254.             cancer_String$ = "Strength of Cancer:" + STR$(cancer_Value) + " (" + STR$(Cancer_percentage_Rounded#) + "%)"
  1255.             leo_String$ = "Strength of Leo:" + STR$(leo_Value) + " (" + STR$(Leo_percentage_Rounded#) + "%)"
  1256.             virgo_String$ = "Strength of Virgo:" + STR$(virgo_Value) + " (" + STR$(Virgo_percentage_Rounded#) + "%)"
  1257.             libra_String$ = "Strength of Libra:" + STR$(libra_Value) + " (" + STR$(Libra_percentage_Rounded#) + "%)"
  1258.             scorpio_String$ = "Strength of Scorpio:" + STR$(scorpio_Value) + " (" + STR$(Scorpio_percentage_Rounded#) + "%)"
  1259.             sagittarius_String$ = "Strength of Sagittarius:" + STR$(sagittarius_Value) + " (" + STR$(Sagittarius_percentage_Rounded#) + "%)"
  1260.             capricorn_String$ = "Strength of Capricorn:" + STR$(capricorn_Value) + " (" + STR$(Capricorn_percentage_Rounded#) + "%)"
  1261.             Aquarius_String$ = "Strength of Aquarius:" + STR$(Aquarius_Value) + " (" + STR$(Aquarius_percentage_Rounded#) + "%)"
  1262.             pisces_String$ = "Strength of Pisces:" + STR$(pisces_Value) + " (" + STR$(Pisces_percentage_Rounded#) + "%)"
  1263.  
  1264.             cardinal_String$ = "The sum of the cardinal signs in this birth chart is" + STR$(cardinals) + ". Thus, its owner is characterized by cardinal qualities at" + STR$(cardinal_percentage_Rounded#) + "%."
  1265.             fixed_String$ = "The sum of the fixed signs in this birth chart is" + STR$(fixed) + ". Thus, its owner is characterized by fixed qualities at" + STR$(fixed_percentage_Rounded#) + "%."
  1266.             mutable_String$ = "The sum of the mutable signs in this birth chart is" + STR$(mutable) + ". Thus, its owner is characterized by mutable qualities at" + STR$(mutable_percentage_Rounded#) + "%."
  1267.  
  1268.             house1_String$ = "Strength of the 1st house: " + STR$(house(1)) + " (" + STR$(house1_percentage_Rounded#) + "%)"
  1269.             house2_String$ = "Strength of the 2nd house: " + STR$(house(2)) + " (" + STR$(house2_percentage_Rounded#) + "%)"
  1270.             house3_String$ = "Strength of the 3rd house: " + STR$(house(3)) + " (" + STR$(house3_percentage_Rounded#) + "%)"
  1271.             house4_String$ = "Strength of the 4th house: " + STR$(house(4)) + " (" + STR$(house4_percentage_Rounded#) + "%)"
  1272.             house5_String$ = "Strength of the 5th house: " + STR$(house(5)) + " (" + STR$(house5_percentage_Rounded#) + "%)"
  1273.             house6_String$ = "Strength of the 6th house: " + STR$(house(6)) + " (" + STR$(house6_percentage_Rounded#) + "%)"
  1274.             house7_String$ = "Strength of the 7th house: " + STR$(house(7)) + " (" + STR$(house7_percentage_Rounded#) + "%)"
  1275.             house8_String$ = "Strength of the 8th house: " + STR$(house(8)) + " (" + STR$(house8_percentage_Rounded#) + "%)"
  1276.             house9_String$ = "Strength of the 9th house: " + STR$(house(9)) + " (" + STR$(house9_percentage_Rounded#) + "%)"
  1277.             house10_String$ = "Strength of the 10th house: " + STR$(house(10)) + " (" + STR$(house10_percentage_Rounded#) + "%)"
  1278.             house11_String$ = "Strength of the 11th house: " + STR$(house(11)) + " (" + STR$(house11_percentage_Rounded#) + "%)"
  1279.             house12_String$ = "Strength of the 12th house: " + STR$(house(12)) + " (" + STR$(house12_percentage_Rounded#) + "%)"
  1280.  
  1281.             Quad1string$ = "Strength of the 1st quadrant: " + STR$(Quad1) + " (" + STR$(quad1_percentage_Rounded#) + "%)"
  1282.             Quad2string$ = "Strength of the 2nd quadrant: " + STR$(Quad2) + " (" + STR$(quad2_percentage_Rounded#) + "%)"
  1283.             Quad3string$ = "Strength of the 3rd quadrant: " + STR$(Quad3) + " (" + STR$(quad3_percentage_Rounded#) + "%)"
  1284.             Quad4string$ = "Strength of the 4th quadrant: " + STR$(Quad4) + " (" + STR$(quad4_percentage_Rounded#) + "%)"
  1285.  
  1286.             DECLARE SUB quicksort (min%, max%)
  1287.             DECLARE SUB display ()
  1288.  
  1289.             elements_Table$(0) = earth_String$
  1290.             elements_table_Values(0) = earth
  1291.             elements_Table$(1) = fire_String$
  1292.             elements_table_Values(1) = fire
  1293.             elements_Table$(2) = water_String$
  1294.             elements_table_Values(2) = water
  1295.             elements_Table$(3) = air_String$
  1296.             elements_table_Values(3) = air
  1297.  
  1298.             signs_Table$(0) = aries_String$
  1299.             signs_table_Values(0) = aries_Value
  1300.             signs_Table$(1) = taurus_String$
  1301.             signs_table_Values(1) = taurus_Value
  1302.             signs_Table$(2) = gemini_String$
  1303.             signs_table_Values(2) = gemini_Value
  1304.             signs_Table$(3) = cancer_String$
  1305.             signs_table_Values(3) = cancer_Value
  1306.             signs_Table$(4) = leo_String$
  1307.             signs_table_Values(4) = leo_Value
  1308.             signs_Table$(5) = virgo_String$
  1309.             signs_table_Values(5) = virgo_Value
  1310.             signs_Table$(6) = libra_String$
  1311.             signs_table_Values(6) = libra_Value
  1312.             signs_Table$(7) = scorpio_String$
  1313.             signs_table_Values(7) = scorpio_Value
  1314.             signs_Table$(8) = sagittarius_String$
  1315.             signs_table_Values(8) = sagittarius_Value
  1316.             signs_Table$(9) = capricorn_String$
  1317.             signs_table_Values(9) = capricorn_Value
  1318.             signs_Table$(10) = Aquarius_String$
  1319.             signs_table_Values(10) = Aquarius_Value
  1320.             signs_Table$(11) = pisces_String$
  1321.             signs_table_Values(11) = pisces_Value
  1322.  
  1323.             qualities_Table$(0) = cardinal_String$
  1324.             qualities_table_Values(0) = cardinals
  1325.             qualities_Table$(1) = fixed_String$
  1326.             qualities_table_Values(1) = fixed
  1327.             qualities_Table$(2) = mutable_String$
  1328.             qualities_table_Values(2) = mutable
  1329.  
  1330.             polarities_Table$(0) = active_String$
  1331.             polarities_table_Value(0) = active_Signs
  1332.             polarities_Table$(1) = passive_String$
  1333.             polarities_table_Value(1) = passive_Signs
  1334.  
  1335.             houses_Table$(0) = house1_String$
  1336.             houses_table_Values(0) = house(1)
  1337.             houses_Table$(1) = house2_String$
  1338.             houses_table_Values(1) = house(2)
  1339.             houses_Table$(2) = house3_String$
  1340.             houses_table_Values(2) = house(3)
  1341.             houses_Table$(3) = house4_String$
  1342.             houses_table_Values(3) = house(4)
  1343.             houses_Table$(4) = house5_String$
  1344.             houses_table_Values(4) = house(5)
  1345.             houses_Table$(5) = house6_String$
  1346.             houses_table_Values(5) = house(6)
  1347.             houses_Table$(6) = house7_String$
  1348.             houses_table_Values(6) = house(7)
  1349.             houses_Table$(7) = house8_String$
  1350.             houses_table_Values(7) = house(8)
  1351.             houses_Table$(8) = house9_String$
  1352.             houses_table_Values(8) = house(9)
  1353.             houses_Table$(9) = house10_String$
  1354.             houses_table_Values(9) = house(10)
  1355.             houses_Table$(10) = house11_String$
  1356.             houses_table_Values(10) = house(11)
  1357.             houses_Table$(11) = house12_String$
  1358.             houses_table_Values(11) = house(12)
  1359.  
  1360.             quadrants_Table$(0) = Quad1string$
  1361.             quadrants_table_Values(0) = Quad1
  1362.             quadrants_Table$(1) = Quad2string$
  1363.             quadrants_table_Values(1) = Quad2
  1364.             quadrants_Table$(2) = Quad3string$
  1365.             quadrants_table_Values(2) = Quad3
  1366.             quadrants_Table$(3) = Quad4string$
  1367.             quadrants_table_Values(3) = Quad4
  1368.  
  1369.             PRINT
  1370.             COLOR 8
  1371.             PRINT "Elements:"
  1372.             PRINT
  1373.             COLOR 0
  1374.             quicksort 0, 3, elements_Table$(), elements_table_Values()
  1375.             display elements_Table$()
  1376.             PRINT
  1377.             COLOR 8
  1378.             PRINT "Dominance of the signs:"
  1379.             PRINT
  1380.             COLOR 0
  1381.             quicksort 0, 11, signs_Table$(), signs_table_Values()
  1382.             display signs_Table$()
  1383.             PRINT
  1384.             PRINT "At a strength of"; largest; "("; signs_percentage_Rounded#; "% ), "; dom_Sign$; " is the dominant sign."
  1385.             PRINT
  1386.             COLOR 8
  1387.             PRINT "Qualities:"
  1388.             PRINT
  1389.             COLOR 0
  1390.             quicksort 0, 2, qualities_Table$(), qualities_table_Values()
  1391.             display qualities_Table$()
  1392.             PRINT
  1393.             COLOR 8
  1394.             PRINT "Polarities:"
  1395.             PRINT
  1396.             COLOR 0
  1397.             quicksort 0, 1, polarities_Table$(), polarities_table_Values()
  1398.             display polarities_Table$()
  1399.             PRINT
  1400.             COLOR 8
  1401.             PRINT "Dominance of the houses:"
  1402.             PRINT
  1403.             COLOR 0
  1404.             quicksort 0, 11, houses_Table$(), houses_table_Values()
  1405.             display houses_Table$()
  1406.             PRINT
  1407.             PRINT "The dominant house in this birth chart is house no."; dom_House; "("; largesthouse_percentage_Rounded#; "% )."
  1408.             PRINT
  1409.             COLOR 8
  1410.             PRINT "Dominance of the quadrants:"
  1411.             COLOR 0
  1412.             PRINT
  1413.             quicksort 0, 3, quadrants_Table$(), quadrants_table_Values()
  1414.             display quadrants_Table$()
  1415.             PRINT
  1416.             PRINT "The dominant quadrant is the "; dom_Quad$; " at "; large_dom_Quad_percentage_Rounded#; "%."
  1417.             PRINT
  1418.             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'."
  1419.     END SELECT
  1421.  
  1422. SUB display (a$())
  1423.     FOR i% = 0 TO UBOUND(a$)
  1424.         AddItem ListBox1 a$(i%)
  1425.     NEXT
  1427.  
  1428. SUB quicksort (min%, max%, a$(), b())
  1429.     IF min% < max% THEN
  1430.         p1% = min%
  1431.         p2% = max%
  1432.         mid = b((min% + max%) \ 2) '**
  1433.         DO UNTIL p1% > p2%
  1434.             DO WHILE b(p1%) > mid '**<<invert this unequality to sort ascending
  1435.                 p1% = p1% + 1
  1436.             LOOP
  1437.             DO WHILE mid > b(p2%) '**<<this one too
  1438.                 p2% = p2% - 1
  1439.             LOOP
  1440.             IF p1% <= p2% THEN
  1441.                 SWAP a$(p1%), a$(p2%) '**
  1442.                 SWAP b(p1%), b(p2%) '**
  1443.                 p1% = p1% + 1
  1444.                 p2% = p2% - 1
  1445.             END IF
  1446.         LOOP
  1447.         IF min% < p2% THEN quicksort min%, p2%, a$(), b()
  1448.         IF p1% < max% THEN quicksort p1%, max%, a$(), b()
  1449.     END IF
  1451.  
  1452.  
  1453. SUB __UI_MouseEnter (id AS LONG)
  1454.     SELECT CASE id
  1455.         CASE Form1
  1456.  
  1457.         CASE Chartowner
  1458.  
  1459.         CASE TextBox1
  1460.  
  1461.         CASE __name
  1462.  
  1463.         CASE TextBox2
  1464.  
  1465.         CASE birthdate
  1466.  
  1467.         CASE TextBox3
  1468.  
  1469.         CASE birthtime
  1470.  
  1471.         CASE TextBox4
  1472.  
  1473.         CASE birthplace
  1474.  
  1475.     END SELECT
  1477.  
  1478. SUB __UI_MouseLeave (id AS LONG)
  1479.     SELECT CASE id
  1480.         CASE Form1
  1481.  
  1482.         CASE Chartowner
  1483.  
  1484.         CASE TextBox1
  1485.  
  1486.         CASE __name
  1487.  
  1488.         CASE TextBox2
  1489.  
  1490.         CASE birthdate
  1491.  
  1492.         CASE TextBox3
  1493.  
  1494.         CASE birthtime
  1495.  
  1496.         CASE TextBox4
  1497.  
  1498.         CASE birthplace
  1499.  
  1500.     END SELECT
  1502.  
  1503. SUB __UI_FocusIn (id AS LONG)
  1504.     SELECT CASE id
  1505.         CASE TextBox1
  1506.  
  1507.         CASE TextBox2
  1508.  
  1509.         CASE TextBox3
  1510.  
  1511.         CASE TextBox4
  1512.  
  1513.     END SELECT
  1515.  
  1516. SUB __UI_FocusOut (id AS LONG)
  1517.     'This event occurs right before a control loses focus.
  1518.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
  1519.     SELECT CASE id
  1520.         CASE TextBox1
  1521.  
  1522.         CASE TextBox2
  1523.  
  1524.         CASE TextBox3
  1525.  
  1526.         CASE TextBox4
  1527.  
  1528.     END SELECT
  1530.  
  1531. SUB __UI_MouseDown (id AS LONG)
  1532.     SELECT CASE id
  1533.         CASE Form1
  1534.  
  1535.         CASE Chartowner
  1536.  
  1537.         CASE TextBox1
  1538.  
  1539.         CASE __name
  1540.  
  1541.         CASE TextBox2
  1542.  
  1543.         CASE birthdate
  1544.  
  1545.         CASE TextBox3
  1546.  
  1547.         CASE birthtime
  1548.  
  1549.         CASE TextBox4
  1550.  
  1551.         CASE birthplace
  1552.  
  1553.     END SELECT
  1555.  
  1556. SUB __UI_MouseUp (id AS LONG)
  1557.     SELECT CASE id
  1558.         CASE Form1
  1559.  
  1560.         CASE Chartowner
  1561.  
  1562.         CASE TextBox1
  1563.  
  1564.         CASE __name
  1565.  
  1566.         CASE TextBox2
  1567.  
  1568.         CASE birthdate
  1569.  
  1570.         CASE TextBox3
  1571.  
  1572.         CASE birthtime
  1573.  
  1574.         CASE TextBox4
  1575.  
  1576.         CASE birthplace
  1577.  
  1578.     END SELECT
  1580.  
  1581. SUB __UI_KeyPress (id AS LONG)
  1582.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
  1583.     'You can change it and even cancel it by making it = 0
  1584.     SELECT CASE id
  1585.         CASE TextBox1
  1586.  
  1587.         CASE TextBox2
  1588.  
  1589.         CASE TextBox3
  1590.  
  1591.         CASE TextBox4
  1592.  
  1593.     END SELECT
  1595.  
  1596. SUB __UI_TextChanged (id AS LONG)
  1597.     SELECT CASE id
  1598.         CASE TextBox1
  1599.  
  1600.         CASE TextBox2
  1601.  
  1602.         CASE TextBox3
  1603.  
  1604.         CASE TextBox4
  1605.  
  1606.     END SELECT
  1608.  
  1609. SUB __UI_ValueChanged (id AS LONG)
  1610.     SELECT CASE id
  1611.     END SELECT
  1613.  
  1614. SUB __UI_FormResized
  1615.  

It's giving me syntax errors on line 117 (trying to call an existing sub-routine) and 1424 (trying to use AddItem ListBox1 a$(i%).

10
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 10:20:16 pm »
There's no Button1 whatsoever inside that SELECT CASE. Button1 only exists at the top of the code as:

Code: QB64: [Select]
  1. DIM SHARED Button1 AS LONG

All that's inside that SELECT CASE for the Click event is this:

Code: QB64: [Select]
  1. SUB __UI_Click (id AS LONG)
  2.     SELECT CASE id
  3.         CASE Form1
  4.  
  5.         CASE Chartowner
  6.  
  7.         CASE TextBox1
  8.  
  9.         CASE __name
  10.  
  11.         CASE TextBox2
  12.  
  13.         CASE birthdate
  14.  
  15.         CASE TextBox3
  16.  
  17.         CASE birthtime
  18.  
  19.         CASE TextBox4
  20.  
  21.         CASE birthplace
  22.  
  23.     END SELECT

11
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 10:06:30 pm »
Okay, so I've tried to make InForm generate code from the thoroughly re-worked form. But I can't seem to find where I can define the event when the one single button is clicked. There's a sub-routine event called Click, but don't I have to adress Button1 with that inside the brackets somehow? No matter in which way I've tried to do that, it only gave me syntax errors.

I guess I need to write "Button1" somewhere in this line:

Code: QB64: [Select]
  1. SUB __UI_Click (id AS LONG)

But as said, I can't seem to make it work without QB64 complaining even just because I'm trying to adress Button1.

12
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 09:48:10 pm »
Quote from: bplus on June 09, 2020, 08:45:54 pm
Having seen you app, you are probably going to want the whole array stored as a giant text string

It doesn't need to be. I just want it all to be visible on the screen at the same time, just like it was in the QB64-only program without InForm before. I only want the user to be able to use the mouse and select the resulting text and do copy-paste, just like they would be able to with text on a website in a browser, for instance.

Quote from: bplus on June 09, 2020, 08:45:54 pm
This too would be done with a button click which leads to code that does the sorting mostly the same code you have worked out already.

I am thinking InForm would make a Data Entry screen and then Click a button and presto-chango the output display is shown in a list box with all the data processing including the sorts done behind the scenes in mostly the routines you have already.

Yes, that's pretty much the idea here. First you enter all the data by means of the dropdowns, then just one button click, and BING! All the sorted tables appearing immediately at the bottom of the window, fully selectable and ready to copy.

13
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 07:27:57 pm »
Okay, I've looked at the InForm Wiki. Seems like when we take this section from our original code...

Code: QB64: [Select]
  1. SUB display (a$())
  2.     FOR i% = 0 TO UBOUND(a$)
  3.         PRINT a$(i%)
  4.     NEXT

...it simply turns into the following with InForm?

Code: QB64: [Select]
  1. SUB display (a$())
  2.     FOR i% = 0 TO UBOUND(a$)
  3.         AddItem ListBox1 a$(i%)
  4.     NEXT

Remember, I still wanna sort all six tables in descending order each. That's why I guess I'd prefer to stick to our two sub-routines for sorting and printing.

14
InForm Discussion / Re: How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 07:16:36 pm »
Huh, Fillippe said the content of a ListBox would not be selectable by the user to copy-paste it.

15
InForm Discussion / How to work with dynamic, Excel-style $tring tables in InForm?
« on: June 09, 2020, 04:47:48 pm »
This in relation to this code that especially bplus, Luke, and Tempo helped me work out: https://www.qb64.org/forum/index.php?topic=2673.msg118943#msg118943

This is the InForm window that it's supposed to work with: https://abload.de/img/windowlmkf5.jpg The final results of all the calculations, about 60 lines or so (already had to break that up into two parts of about 30 lines each! see the two buttons for part 1 and part 2), are supposed to be displayed or printed out on the huge label at the bottom which currently reads "Please hit GO! buttons (one at a time)". The user is supposed to be able to use their mouse to manually select the resulting text and tables at the bottom and copy them to the clipboard, so they will be able to copy-paste it into Windows text editor or Word or any other text processor.

Okay, so it seems InForm has no equivalent to the simple PRINT command, which is very unfortunate because a large part of my above code is dependent upon PRINT, especially the sorting/displaying of the Excel-style $tring tables. It's those dynamically-sorted $tring tables that I can't see how to make them work with InForm.

Is there a simple InForm equivalent to PRINT that I can simply insert into the DISPLAY sub-routine?

If not, it seems I need a way (that would still work with my sorting sub-routine somehow) on how to feed a number of dynamically-sorted tables, each consisting of several lines, into a single $tring, lots of line breaks by means of /n included.

Pages: [1] 2