Text Only | Text with Attachments

QB64.org Forum

QB64 Team Software => InForm Discussion => Topic started by: DDBE on June 09, 2020, 04:47:48 pm

Title: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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 (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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 09, 2020, 06:17:04 pm
Quote
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.

Simply use a ListBox to replace your Display Subroutine. The ListBox takes an array and displays the entire contents with scrollers PLUS you can select items on the list if you want.

Use Text Boxes and Labels to display one or two liners.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 09, 2020, 08:45:54 pm
Quote from: DDBE 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.

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 but...

Having seen you app, you are probably going to want the whole array stored as a giant text string into the clipboard that would likely be done by clicking a button whose subroutine will join the array into a giant text string probably using CRLF to mark end of lines, piece of cake.

Your alternate code for display looks great!

Quote
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.

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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 09, 2020, 10:15:13 pm
There should be cases for every clickable "id" in the bas file created by InForm.

Code: QB64: [Select]
  1. SUB __UI_Click (id AS LONG)
  2.     SELECT CASE id
  3.         CASE Cryptogram
  4.  
  5.         CASE lbMessage
  6.  
  7.         CASE tbMessage
  8.  
  9.         CASE btCode
  10.             Caption(lbCodeMessage) = encrypt$(Text(tbMessage))
  11.  
  12.         CASE lbCoded
  13.  
  14.         CASE tbCode
  15.  
  16.         CASE btDecode
  17.             Caption(lbDecodedMessage) = decode$(Text(tbCode))
  18.             'SetFocus tbMessage  works
  19.  
  20.     END SELECT
  22.  
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 09, 2020, 10:33:46 pm
You can just write it in I think. This is really Fellippe's domain of expertise.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: FellippeHeitor on June 09, 2020, 10:40:38 pm
As I explained to you in the discord chatroom, InForm won't add new controls to existing select case blocks. It'll add the definition at the top but you should cater for new controls in the events yourself.

It is by design. InForm has no way of knowing  how much you may have customized the code it originally generated and avoids data loss by not attempting to do it.

What it will do is add the DIM SHARED line, as you've outlined, and a warning that says:

Code: QB64: [Select]
  1. REM NOTICE: THIS FORM HAS BEEN RECENTLY EDITED
  2. '>> The controls in the list below may have been added or renamed,
  3. '>> and previously existing controls may have been deleted since
  4. '>> this program's structure was first generated.
  5. '>> Make sure to check your code in the events SUBs so that
  6. '>> you can take your recent edits into consideration.
  7.  
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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%).
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: FellippeHeitor on June 09, 2020, 11:22:41 pm
Remove line 117.

You must separate parameters with a comma: AddItem ListBox1, a$(i%)
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 09, 2020, 11:28:15 pm
Quote
All the sorted tables appearing immediately at the bottom of the window, fully selectable and ready to copy.

Is there room even if you could do this below the input parts?

A list box has scrollable access so can fit 500 lines in 5 and scroll through, that is not only reason though I am advocating Listbox.

As we have said, selecting like in a text editor is not possible yet, there is no text editor box.
I did manage to select a block of array items in a list box by selecting the first line of the text and the last line of the text to be selected: In my Text Fetch app
https://www.qb64.org/forum/index.php?topic=1874.msg111060#msg111060
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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. -.-
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: 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.
my suggestion is
1.
Please make a separate SUB into paste your code to calculate the dominance as you have done for Quicksort and Display. You can call it just typing under SELECT CASE iditem of __UI_Click (id item) the call to the SUBroutine
here an example
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.  

2.
please cancel every PRINT statement if you want a more window style output

3.
to give instructions to user you can use the old way to make a splashscreen ( a separate window that gives informations to use the program) or the more suitable Tooltip property of each component of window of your program.
https://github.com/FellippeHeitor/InForm/wiki/Tool-tip (https://github.com/FellippeHeitor/InForm/wiki/Tool-tip)

but
going to your state of developing your project....
1. is your project a simple calculator ?
2. Do you like  the manual entry data  or also a direct input from clipboard or file or string ?
(Here I call Entry data the position of the planets in the astrological chart that you specify Sun in Taurus and 1 house Moon in Gemini and 10 house .....)
3. do you want to bring to clipboard all the informations calculated or just any of them?
 3.1 Do you need of clipboard or you can use a file temporary to pass information in text format?

Is this a step to draw and print on paper or on file image the native astrological chart?
I hope that you have traced a path before starting this adventure and you aren't going on only by attempts  because it is an ambitiouse goal so please
First projecting Second verifying Third typing code... so if a language or your skill in that language is not enough you can port your idea anywhere!  ;)
But moreover you can use the help of this community in constructive manner.

PS statement at line 117 is an absurdum because that is the click event and must be activate when there is a click in the window of program, there is no reason to hack its calling in this manner, to activate that sub _Event simply click on the button!  If it doesn't work it is clear that you have messed the nameId of components so the GOpart1 is not button1. If you know the ID name of your component you must open the box of .FRM file and search into it for the buttons items and write somewhere these names that you must use in SUB event to manage the actions activated by these components.

Good Luck
 in Event Driven Programming

Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 10, 2020, 04:41:56 pm
Quote
Guys, I'm sorry for how grumpy I've been before I went to bed due to how tired and frustrated I was.

Man I've been there many times, but nice how you forget all that when it finally works the way you imagined.

When you said 27 hours straight, yikes! Kind of shamed me into making 2nd effort on my Gin Rummy variations and maybe had break through today, we'll see. ;-))

Hang in there, you've got a rather ambitious project for a first InForm attempt. Maybe not 27 hours again, but I know when you stop and start and stop ... you waste time getting up to speed to where you left off. I am big fan of one day projects :)
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: TempodiBasic on June 10, 2020, 06:33:58 pm
oh friend don't mind up, step by step you'll reach the goal! What I's saying you  is be aware to make a path to arrive at your goal so you'll know that each step made is in the right direction.

If you post the .frm file we can get out the ID of each component.

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.

Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: TempodiBasic on June 10, 2020, 08:20:53 pm
@DDBE
I'll take a look into your files tomorrow.

for now about this your question

Quote
As said in my last post, assigning the MC$ value doesn't seem to be working yet.
I think that you are wrongly using VAL because you are using VAL to get the number of the house in which the planet is, but as you have explain to me
Quote
One only needs to remember that ascendant and MC themselves don't add to a specific house, because unlike with celestial bodies, their position within the house sytem is fixed by being the boundary between the 12th and the 1st house (the ascendant, always located at roughly 9 o'clock on the circular chart) and between the 9th and the 10th house (the MC, always located at roughly 12 o'clock).
So like for ascendant$ in the same manner for MC$ you must get the data .
No this
Code: QB64: [Select]
  1.             ascendent$ = GetItem$(DropdownList_ascendantSign, Control(DropdownList_ascendantSign).Value)
  2.             'MC$ = VAL(GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value))

but this one
Code: QB64: [Select]
  1.             ascendent$ = GetItem$(DropdownList_ascendantSign, Control(DropdownList_ascendantSign).Value)
  2.             MC$ = GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value)
let me know.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 11, 2020, 11:19:41 am
@DDBE

Tried your InForm files but missing the InForm sub-folder.

I have older InForm but there appears to be a version error, my Inform sub-folder is wrong version , so I need the whole inForm package or something to translate the .frm file correctly.

@FellippeHeitor  left some notes somewhere about distributing InForm app packages into one handy zip. That might be a post to pin up. I can see this problem popping up often.

Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: FellippeHeitor on June 11, 2020, 11:23:12 am
Here https://www.qb64.org/forum/index.php?topic=1878.0

It's pinned at the top of the 'InForm-based programs' board, should you guys need to refer back to it.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 11, 2020, 11:25:14 am
Oh it's pinned up under InForm Programs Child-Board good! Thanks Fellippe
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE on June 11, 2020, 01:44:55 pm
Okay, second try at uploading.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 11, 2020, 02:32:53 pm
Hi @DDBE,

Ah good! Everything loads properly no errors from IDE after load.

Had to remove END on line 117 to see Form otherwise nothing happens when run it.

Wow! That's one big Input Form!!!

Good the GO button does load the array into the List box, fortunately it's at the bottom of screen that is higher than my laptop screen but I can scroll through items in list box.

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 it looks like not all the information is getting passed to the array from the looks of the List box, allot of 0's.
I've got to review how to get contents out of textbox. Maybe I have to add info to textboxes, is there a default set of info already in there?

Ehh, can't access bottom scroller so can't see bottom of list.

OK I did Tempodi's suggested fix for MC$ and just plugged in a bunch of random data and the 0's go away, so it functions... yeah?
Code: QB64: [Select]
  1.  MC$ = GetItem$(DropdownList_MCSign, Control(DropdownList_MCSign).Value) '                                  fix as per TempodiBasic

Looking good so far, right?

OK reminder, you can't multi-select from Listbox as I recall, but you can select a top item and then select a bottom item save those indexes and then create a block of text from top to bottom that you can paste into Clipboard as I have demo'd in link to Text Fetch, my app with tiny Navigator to clip text out of text files from anywhere on hard drive.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: 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)
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 11, 2020, 04:07:21 pm
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)

Yeah that's easy, but I get impression DDBE wanted to do parts of the whole text block like we can do with mouse selecting from code here at forum for example.

I am saying you can get selections of a whole, a text block at a time by selecting top line from list box and then bottom line then tie those lines together and get another block if wanted...

Or hey, just select a line at a time and string all those selections together for clipboard, just keep adding them on... until you have want you want in clipboard.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: jack on June 11, 2020, 06:41:50 pm
couldn't you do a double-click on the list-item?
no need for a button, simply double-click on the items you want to copy, perhaps you could have text-box where the double-clicked items would be placed for further processing.
[edit]
or a single-click
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: TempodiBasic on June 11, 2020, 06:51:25 pm
Hi
@DDBE
I have tried you form (.frm + .bas) and I can confirm the issues exposed by Bplus over.
1. why the END instruction at line 117 where it was the hacker call to __UI_Click? Cancelling it the program runs.

2. Why do you use a so expanded window?  It goes out of my aspireone netbook! I cannot see all the window of the program. It is difficult to say if it works well or bad.

3. why are yet there the PRINT statements ? Inform generates a 32bit window so the instructions COLOR 8 and COLOR 0  are of no value.

4. if you do a double-click or a sigle click on the listbox void you get an Error divide for 0 and it crashes.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 11, 2020, 07:17:55 pm
Oh hey! Fellippe has a MessageBox Function for InForm. You might use that to check the contents of the Clipboard since we are out or room with the Form.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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...


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.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 12, 2020, 01:40:18 am
What was different about Pisces that caused the space?

How did you addItem the blank PRINT lines?

This could have been simply appended to code for GO
_CLIPBOARD$ = Text(ListBox1)
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 12, 2020, 02:16:43 am
I left Pisces alone, used this:
Code: QB64: [Select]
  1. AddItem ListBox1, " "
for blank lines because "" might cause problems, it does printing to files.
Just added this:
Code: QB64: [Select]
  1. _CLIPBOARD$ = Text(ListBox1)
to the end of the GO button code

Totally Random filling out Form
From the Clipboard pasted into text file:
Code: QB64: [Select]
  1. Additional astrological calculations based upon the natal chart of
  2.  
  3. born ,,
  4.  
  5.  
  6. Elements:
  7.  
  8. The sum of the fire signs in this birth chart is 24. Thus, its owner is determined by the element of fire by 32.43%.
  9. The sum of the air signs in this birth chart is 22. Thus, its owner is determined by the element of air by 29.73%.
  10. The sum of the water signs in this birth chart is 14. Thus, its owner is determined by the element of water by 18.92%.
  11. The sum of the earth signs in this birth chart is 14. Thus, its owner is determined by the element of earth by 18.92%.
  12.  
  13. Dominance of the signs:
  14.  
  15. Strength of Leo: 18 ( 24.32%)
  16. Strength of Virgo: 14 ( 18.92%)
  17. Strength of Cancer: 12 ( 16.22%)
  18. Strength of Gemini: 12 ( 16.22%)
  19. Strength of Libra: 6 ( 8.11%)
  20. Strength of Aries: 5 ( 6.76%)
  21. Strength of Aquarius: 4 ( 5.41%)
  22. Strength of Scorpio: 2 ( 2.7%)
  23. Strength of Sagittarius: 1 ( 1.35%)
  24. Strength of Pisces: 0 ( 0%)
  25. Strength of Taurus: 0 ( 0%)
  26. Strength of Capricorn: 0 ( 0%)
  27.  
  28. At a strength of 18( 24.32% ), Leo is the dominant sign.
  29.  
  30. Qualities:
  31.  
  32. The sum of the mutable signs in this birth chart is 27. Thus, its owner is characterized by mutable qualities at 36.49%.
  33. The sum of the fixed signs in this birth chart is 24. Thus, its owner is characterized by fixed qualities at 32.43%.
  34. The sum of the cardinal signs in this birth chart is 23. Thus, its owner is characterized by cardinal qualities at 31.08%.
  35.  
  36. Polarities:
  37.  
  38. The sum of the passive signs in this birth chart is 36. Thus, its owner is characterized by passive polarities at 48.65%.
  39. The sum of the active signs in this birth chart is 38. Thus, its owner is characterized by active polarities at 51.35%.
  40.  
  41. Dominance of the houses:
  42.  
  43. Strength of the 6th house:  19 ( 33.33%)
  44. Strength of the 7th house:  14 ( 24.56%)
  45. Strength of the 8th house:  12 ( 21.05%)
  46. Strength of the 10th house:  6 ( 10.53%)
  47. Strength of the 5th house:  4 ( 7.02%)
  48. Strength of the 9th house:  2 ( 3.51%)
  49. Strength of the 12th house:  0 ( 0%)
  50. Strength of the 11th house:  0 ( 0%)
  51. Strength of the 4th house:  0 ( 0%)
  52. Strength of the 3rd house:  0 ( 0%)
  53. Strength of the 2nd house:  0 ( 0%)
  54. Strength of the 1st house:  0 ( 0%)
  55.  
  56. The dominant house in this birth chart is house no. 6( 33.33% ).
  57.  
  58. Dominance of the quadrants:
  59.  
  60. Strength of the 3rd quadrant:  28 ( 49.12%)
  61. Strength of the 2nd quadrant:  23 ( 40.35%)
  62. Strength of the 4th quadrant:  6 ( 10.53%)
  63. Strength of the 1st quadrant:  0 ( 0%)
  64.  
  65. The dominant quadrant is the 3rd aka Air or intellectual quadrant at  49.12%.
  66.  
  67. 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'.
  68.  
  69.  


Update: I have removed the .zip here and reduced the new smaller zip by eliminating 2 exe files.
I have redone the mod fixing the .frm file for "Pisces" by removing all that had spaces.
B+ current best .zip attachment here: https://www.qb64.org/forum/index.php?topic=2696.msg119138#msg119138
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 12, 2020, 02:32:26 am
Testing download of zip, I tried a pattern for filling out form.

From clipboard to text editor:
Code: QB64: [Select]
  1. Additional astrological calculations based upon the natal chart of
  2.  
  3. born ,,
  4.  
  5.  
  6. Elements:
  7.  
  8. The sum of the earth signs in this birth chart is 32. Thus, its owner is determined by the element of earth by 43.24%.
  9. The sum of the fire signs in this birth chart is 23. Thus, its owner is determined by the element of fire by 31.08%.
  10. The sum of the air signs in this birth chart is 19. Thus, its owner is determined by the element of air by 25.68%.
  11. The sum of the water signs in this birth chart is 0. Thus, its owner is determined by the element of water by 0%.
  12.  
  13. Dominance of the signs:
  14.  
  15. Strength of Virgo: 32 ( 43.24%)
  16. Strength of Sagittarius: 23 ( 31.08%)
  17. Strength of Gemini: 19 ( 25.68%)
  18. Strength of Scorpio: 0 ( 0%)
  19. Strength of Capricorn: 0 ( 0%)
  20. Strength of Pisces: 0 ( 0%)
  21. Strength of Aquarius: 0 ( 0%)
  22. Strength of Cancer: 0 ( 0%)
  23. Strength of Taurus: 0 ( 0%)
  24. Strength of Leo: 0 ( 0%)
  25. Strength of Libra: 0 ( 0%)
  26. Strength of Aries: 0 ( 0%)
  27.  
  28. At a strength of 32( 43.24% ), Virgo is the dominant sign.
  29.  
  30. Qualities:
  31.  
  32. The sum of the mutable signs in this birth chart is 74. Thus, its owner is characterized by mutable qualities at 100%.
  33. The sum of the fixed signs in this birth chart is 0. Thus, its owner is characterized by fixed qualities at 0%.
  34. The sum of the cardinal signs in this birth chart is 0. Thus, its owner is characterized by cardinal qualities at 0%.
  35.  
  36. Polarities:
  37.  
  38. The sum of the passive signs in this birth chart is 19. Thus, its owner is characterized by passive polarities at 25.68%.
  39. The sum of the active signs in this birth chart is 55. Thus, its owner is characterized by active polarities at 74.32%.
  40.  
  41. Dominance of the houses:
  42.  
  43. Strength of the 3rd house:  22 ( 38.6%)
  44. Strength of the 6th house:  18 ( 31.58%)
  45. Strength of the 7th house:  12 ( 21.05%)
  46. Strength of the 9th house:  5 ( 8.77%)
  47. Strength of the 10th house:  0 ( 0%)
  48. Strength of the 12th house:  0 ( 0%)
  49. Strength of the 11th house:  0 ( 0%)
  50. Strength of the 8th house:  0 ( 0%)
  51. Strength of the 5th house:  0 ( 0%)
  52. Strength of the 4th house:  0 ( 0%)
  53. Strength of the 2nd house:  0 ( 0%)
  54. Strength of the 1st house:  0 ( 0%)
  55.  
  56. The dominant house in this birth chart is house no. 3( 38.6% ).
  57.  
  58. Dominance of the quadrants:
  59.  
  60. Strength of the 1st quadrant:  22 ( 38.6%)
  61. Strength of the 2nd quadrant:  18 ( 31.58%)
  62. Strength of the 3rd quadrant:  17 ( 29.82%)
  63. Strength of the 4th quadrant:  0 ( 0%)
  64.  
  65. The dominant quadrant is the 1st aka Fire or energy quadrant at  38.6%.
  66.  
  67. 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'.
  68.  
  69.  

Is it unusual in any way? Oh hey fire and energy, I was using Tesla's favorite numbers! cool!
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: DDBE 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
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: TempodiBasic on June 12, 2020, 07:41:05 am
about
Quote
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.
or in other words the use of string as valute to test
this is the first issue that let me choose , every time that is possible, the tecnique to write CONST numerical with the name of the string... using numerical value for testing let do many tests on it and it is difficult write 13 at the place of 20 , moreover you cannot type " Pisces" at the place of "Pisces" and not recognize the typo error.
Code: QB64: [Select]
  1. CONST  Aries = 1, Taurus = 2,...., Pisces = 12
  2.  
  4.    CASE Aries TO Cancer
  5.       ' the first quadrant
  6.    CASE Taurus, Virgo, Capricorn
  7.         ' the earth signs
  8. ....
  11.  
  12.  

about Camelcase tecnique is great... yes you DIM or CONST a name with a specific letter in uppercase and after in typing code you type always in lowercase, this let you see as soon as a typo error for the name defined first.

Good Coding brings to God's Coding
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 12, 2020, 12:01:06 pm
Oh Pisces with the space is in the .frm file!

OK changed all those and tested Form by using Pisces where ever it was available along with Tesla's numbers again:
Testing the Download .zip file again, Output to clipboard pasted into Text Editor
Code: QB64: [Select]
  1. Additional astrological calculations based upon the natal chart of
  2.  
  3. born ,,
  4.  
  5.  
  6. Elements:
  7.  
  8. The sum of the water signs in this birth chart is 74. Thus, its owner is determined by the element of water by 92.5%.
  9. The sum of the air signs in this birth chart is 6. Thus, its owner is determined by the element of air by 7.5%.
  10. The sum of the earth signs in this birth chart is 0. Thus, its owner is determined by the element of earth by 0%.
  11. The sum of the fire signs in this birth chart is 0. Thus, its owner is determined by the element of fire by 0%.
  12.  
  13. Dominance of the signs:
  14.  
  15. Strength of Pisces: 74 ( 92.5%)
  16. Strength of Gemini: 6 ( 7.5%)
  17. Strength of Sagittarius: 0 ( 0%)
  18. Strength of Scorpio: 0 ( 0%)
  19. Strength of Aquarius: 0 ( 0%)
  20. Strength of Capricorn: 0 ( 0%)
  21. Strength of Libra: 0 ( 0%)
  22. Strength of Taurus: 0 ( 0%)
  23. Strength of Aries: 0 ( 0%)
  24. Strength of Cancer: 0 ( 0%)
  25. Strength of Virgo: 0 ( 0%)
  26. Strength of Leo: 0 ( 0%)
  27.  
  28. At a strength of 74( 92.5% ), Pisces is the dominant sign.
  29.  
  30. Qualities:
  31.  
  32. The sum of the mutable signs in this birth chart is 74. Thus, its owner is characterized by mutable qualities at 100%.
  33. The sum of the fixed signs in this birth chart is 0. Thus, its owner is characterized by fixed qualities at 0%.
  34. The sum of the cardinal signs in this birth chart is 0. Thus, its owner is characterized by cardinal qualities at 0%.
  35.  
  36. Polarities:
  37.  
  38. The sum of the passive signs in this birth chart is 80. Thus, its owner is characterized by passive polarities at 100%.
  39. The sum of the active signs in this birth chart is 0. Thus, its owner is characterized by active polarities at 0%.
  40.  
  41. Dominance of the houses:
  42.  
  43. Strength of the 3rd house:  35 ( 61.4%)
  44. Strength of the 6th house:  14 ( 24.56%)
  45. Strength of the 9th house:  8 ( 14.04%)
  46. Strength of the 8th house:  0 ( 0%)
  47. Strength of the 10th house:  0 ( 0%)
  48. Strength of the 12th house:  0 ( 0%)
  49. Strength of the 11th house:  0 ( 0%)
  50. Strength of the 4th house:  0 ( 0%)
  51. Strength of the 2nd house:  0 ( 0%)
  52. Strength of the 5th house:  0 ( 0%)
  53. Strength of the 7th house:  0 ( 0%)
  54. Strength of the 1st house:  0 ( 0%)
  55.  
  56. The dominant house in this birth chart is house no. 3( 61.4% ).
  57.  
  58. Dominance of the quadrants:
  59.  
  60. Strength of the 1st quadrant:  35 ( 61.4%)
  61. Strength of the 2nd quadrant:  14 ( 24.56%)
  62. Strength of the 3rd quadrant:  8 ( 14.04%)
  63. Strength of the 4th quadrant:  0 ( 0%)
  64.  
  65. The dominant quadrant is the 1st aka Fire or energy quadrant at  61.4%.
  66.  
  67. 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'.
  68.  
  69.  

Looks like Pisces is getting counted (but not 100% ? I don't know if this correct as I don't know horoscope functions) and I am learning how to spell Pisces ;-))
Here is updated .zip with all the .frm changes
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: TempodiBasic on June 13, 2020, 06:34:15 am
@bplus
I have had no time to verify calculation but it is simple, we must compare the result of this program with the result of the other thread tha wa solved.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: SpriggsySpriggs on June 15, 2020, 11:05:02 am
If you wish to copy and paste items from the listbox, just add code to the program to accept a CTRL+C, CTRL+V set of key combos so that when you press CTRL+C AND there is an item selected in the listbox that the item in the listbox is copied to the CLIPBOARD$. Do the opposite for the CTRL+V scenario. Just have it add an item to the listbox from the CLIPBOARD$. I'll post an example here later so you can see what I'm talking about.
Title: Re: How to work with dynamic, Excel-style $tring tables in InForm?
Post by: bplus on June 15, 2020, 04:37:34 pm
Quote from: SpriggsySpriggs on June 15, 2020, 11:05:02 am
If you wish to copy and paste items from the listbox, just add code to the program to accept a CTRL+C, CTRL+V set of key combos so that when you press CTRL+C AND there is an item selected in the listbox that the item in the listbox is copied to the CLIPBOARD$. Do the opposite for the CTRL+V scenario. Just have it add an item to the listbox from the CLIPBOARD$. I'll post an example here later so you can see what I'm talking about.

Yes that is what I was saying to DDBE, you could do item by item or select a block by selecting top and bottom of it and string all in between in a loop.

I think ListBox is as close as you can get to Text Editor if you don't have one. You can do multiple command buttons and / or textboxes  ie list(1) = "label1 = text value1", ...  (Update) well for that, you do need one TextBox for editing / adding line items in ListBox and a Command button.
Text Only | Text with Attachments