Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Kiara87 on June 30, 2020, 05:22:57 pm

Title: help my
Post by: Kiara87 on June 30, 2020, 05:22:57 pm

hello
I don't know if this is the right place to ask for the solution
I have a problem to solve my program created in QB64.
reads the .dat file only forward
clicking with the button +
works well scrolls the list inside the file
I need some instruction that when I click the button -   go back to the file list
what instruction should i use?

I leave here the listing and also the .dat file to read
I hope some good soul can help me
Title: Re: help my
Post by: Kiara87 on June 30, 2020, 05:24:31 pm
file .dat
Title: Re: help my
Post by: bplus on June 30, 2020, 09:24:40 pm
To go up and down a file listing, it would be best to load the file lines into an array.

It is allot easier to go up and down the lines of an array, in fact you can jump from one line to any other as easy as going up and down, if you use an array.

Welcome to the forum Kiara87, do you know about arrays?

When you open a file for INPUT you can only read down it, ... wait a second I did this the hard way, like what you are trying. I will try and dig up my code...  maybe we can save lessons on arrays for later! :-))


Oh you are using an array :P this is simple fix... 

oh no, "a" is just a string.

Working....




Title: Re: help my
Post by: bplus on June 30, 2020, 10:18:09 pm
I hope I did this in a way you can follow and I did it without arrays!

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
  4.  
  5. 'count lines in file
  6. OPEN "lotto.dat" FOR INPUT AS #1
  8.     INPUT #1, a
  9.     'PRINT a
  10.     'INPUT " OK enter "; w$
  11.     IF LEN(_TRIM$(a)) THEN count = count + 1
  14. 'CLS: PRINT count '480 lines
  15. 'END
  16. 'CLS
  17.  
  18. LOCATE 1, 1
  19. PRINT "BARI"
  20. LOCATE 3, 1
  21. PRINT "CAGLIARI"
  22. LOCATE 5, 1
  23. PRINT "FIRENZE"
  24. LOCATE 7, 1
  25. PRINT "GENOVA"
  26. LOCATE 9, 1
  27. PRINT "MILANO"
  28. LOCATE 11, 1
  29. PRINT "NAPOLI"
  30. LOCATE 13, 1
  31. PRINT "PALERMO"
  32. LOCATE 15, 1
  33. PRINT "ROMA"
  34. LOCATE 17, 1
  35. PRINT "TORINO"
  36. LOCATE 19, 1
  37. PRINT "VENEZIA"
  38. LOCATE 21, 1
  39. PRINT "NAZIONALE"
  40.  
  41.  
  42. LOCATE 23, 1: COLOR 4
  43. PRINT " + to move on"
  44. LOCATE 23, 16: COLOR 3
  45. PRINT "- to back"
  46.  
  47. lineNum = 1
  48. GOSUB get_a
  49.  
  50.  
  52.  
  53.     Q$ = INKEY$
  54.     IF Q$ = "+" THEN lineNum = lineNum + 1
  55.     IF lineNum > count THEN lineNum = 1
  56.  
  57.     IF Q$ = "-" THEN lineNum = lineNum - 1
  58.     IF lineNum < 1 THEN lineNum = count
  59.  
  60.     GOSUB get_a
  61.  
  62.  
  63.     LOCATE 1, 34
  64.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  65.  
  66.     REM bari
  67.     LOCATE 1, 13
  68.     PRINT VAL(MID$(a, 5, 2))
  69.     LOCATE 1, 16
  70.     PRINT VAL(MID$(a, 7, 2))
  71.     LOCATE 1, 19
  72.     PRINT VAL(MID$(a, 9, 2))
  73.     LOCATE 1, 22
  74.     PRINT VAL(MID$(a, 11, 2))
  75.     LOCATE 1, 25
  76.     PRINT VAL(MID$(a, 13, 2))
  77.  
  78.     REM cagliari
  79.     LOCATE 3, 13
  80.     PRINT VAL(MID$(a, 15, 2))
  81.     LOCATE 3, 16
  82.     PRINT VAL(MID$(a, 17, 2))
  83.     LOCATE 3, 19
  84.     PRINT VAL(MID$(a, 19, 2))
  85.     LOCATE 3, 22
  86.     PRINT VAL(MID$(a, 21, 2))
  87.     LOCATE 3, 25
  88.     PRINT VAL(MID$(a, 23, 2))
  89.  
  90.     REM firenze
  91.     LOCATE 5, 13
  92.     PRINT VAL(MID$(a, 25, 2))
  93.     LOCATE 5, 16
  94.     PRINT VAL(MID$(a, 27, 2))
  95.     LOCATE 5, 19
  96.     PRINT VAL(MID$(a, 29, 2))
  97.     LOCATE 5, 22
  98.     PRINT VAL(MID$(a, 31, 2))
  99.     LOCATE 5, 25
  100.     PRINT VAL(MID$(a, 33, 2))
  101.  
  102.     REM genova
  103.     LOCATE 7, 13
  104.     PRINT VAL(MID$(a, 35, 2))
  105.     LOCATE 7, 16
  106.     PRINT VAL(MID$(a, 37, 2))
  107.     LOCATE 7, 19
  108.     PRINT VAL(MID$(a, 39, 2))
  109.     LOCATE 7, 22
  110.     PRINT VAL(MID$(a, 41, 2))
  111.     LOCATE 7, 25
  112.     PRINT VAL(MID$(a, 43, 2))
  113.  
  114.     REM milano
  115.     LOCATE 9, 13
  116.     PRINT VAL(MID$(a, 45, 2))
  117.     LOCATE 9, 16
  118.     PRINT VAL(MID$(a, 47, 2))
  119.     LOCATE 9, 19
  120.     PRINT VAL(MID$(a, 49, 2))
  121.     LOCATE 9, 22
  122.     PRINT VAL(MID$(a, 51, 2))
  123.     LOCATE 9, 25
  124.     PRINT VAL(MID$(a, 53, 2))
  125.  
  126.     REM napoli
  127.     LOCATE 11, 13
  128.     PRINT VAL(MID$(a, 55, 2))
  129.     LOCATE 11, 16
  130.     PRINT VAL(MID$(a, 57, 2))
  131.     LOCATE 11, 19
  132.     PRINT VAL(MID$(a, 59, 2))
  133.     LOCATE 11, 22
  134.     PRINT VAL(MID$(a, 61, 2))
  135.     LOCATE 11, 25
  136.     PRINT VAL(MID$(a, 63, 2))
  137.  
  138.     REM palermo
  139.     LOCATE 13, 13
  140.     PRINT VAL(MID$(a, 65, 2))
  141.     LOCATE 13, 16
  142.     PRINT VAL(MID$(a, 67, 2))
  143.     LOCATE 13, 19
  144.     PRINT VAL(MID$(a, 69, 2))
  145.     LOCATE 13, 22
  146.     PRINT VAL(MID$(a, 71, 2))
  147.     LOCATE 13, 25
  148.     PRINT VAL(MID$(a, 73, 2))
  149.  
  150.     REM roma
  151.     LOCATE 15, 13
  152.     PRINT VAL(MID$(a, 75, 2))
  153.     LOCATE 15, 16
  154.     PRINT VAL(MID$(a, 77, 2))
  155.     LOCATE 15, 19
  156.     PRINT VAL(MID$(a, 79, 2))
  157.     LOCATE 15, 22
  158.     PRINT VAL(MID$(a, 81, 2))
  159.     LOCATE 15, 25
  160.     PRINT VAL(MID$(a, 83, 2))
  161.  
  162.     REM torino
  163.     LOCATE 17, 13
  164.     PRINT VAL(MID$(a, 85, 2))
  165.     LOCATE 17, 16
  166.     PRINT VAL(MID$(a, 87, 2))
  167.     LOCATE 17, 19
  168.     PRINT VAL(MID$(a, 89, 2))
  169.     LOCATE 17, 22
  170.     PRINT VAL(MID$(a, 91, 2))
  171.     LOCATE 17, 25
  172.     PRINT VAL(MID$(a, 93, 2))
  173.  
  174.     REM venezia
  175.     LOCATE 19, 13
  176.     PRINT VAL(MID$(a, 95, 2))
  177.     LOCATE 19, 16
  178.     PRINT VAL(MID$(a, 97, 2))
  179.     LOCATE 19, 19
  180.     PRINT VAL(MID$(a, 99, 2))
  181.     LOCATE 19, 22
  182.     PRINT VAL(MID$(a, 101, 2))
  183.     LOCATE 19, 25
  184.     PRINT VAL(MID$(a, 103, 2))
  185.  
  186.     REM nazionale
  187.     LOCATE 21, 13
  188.     PRINT VAL(MID$(a, 105, 2))
  189.     LOCATE 21, 16
  190.     PRINT VAL(MID$(a, 107, 2))
  191.     LOCATE 21, 19
  192.     PRINT VAL(MID$(a, 109, 2))
  193.     LOCATE 21, 22
  194.     PRINT VAL(MID$(a, 111, 2))
  195.     LOCATE 21, 25
  196.     PRINT VAL(MID$(a, 113, 2))
  197.  
  198.     _LIMIT 30
  201.  
  202.  
  203. 'this sub retrieves a line number from file  the hard way
  204. get_a:
  205. num = 0
  206. OPEN "lotto.dat" FOR INPUT AS #1
  208.     INPUT #1, a
  209.     IF LEN(_TRIM$(a)) THEN num = num + 1
  210.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  213.  
  215.  
  216.  
Title: Re: help my
Post by: bplus on June 30, 2020, 11:46:35 pm
Code: QB64: [Select]
  1. LP 7, 20, "One of the first SUBs I ever wrote was LP"
  2.  
  3. LP 9, 15, "L is for LOCATE"
  4. LP 10, 15, "P is for PRINT"
  5.  
  6. LP 12, 15, "It saved me all kinds of time typing LOCATE: aRow, aCol"
  7. LP 13, 15, "Then printing: PRINT mystr$."
  8.  
  9. LP 15, 15, "So now I am sharing it with you"
  10. LP 16, 15, "so you can save yourself some typing   and then"
  11. LP 17, 15, "you can share it with someone new."
  12.  
  13. ' L is for LOCATE P is for PRINT together they save you a whole lot of typing!
  14. SUB LP (row, column, Strng$)
  15.     LOCATE row, column: PRINT Strng$
  17.  
  18.  
Title: Re: help my
Post by: SMcNeill on July 01, 2020, 12:05:15 am
Just curious, but can't you use _PRINTSTRING instead of LP?
Title: Re: help my
Post by: bplus on July 01, 2020, 02:15:12 am
Quote from: SMcNeill on July 01, 2020, 12:05:15 am
Just curious, but can't you use _PRINTSTRING instead of LP?

Not in 1991!

Of course I could use it now but then I'd have to explain _NEWIMAGE for graphics. Not sure the OP is ready for that.
Title: Re: help my
Post by: FellippeHeitor on July 01, 2020, 02:18:25 am
Quote from: Kiara87 on June 30, 2020, 05:22:57 pm
I have a problem to solve my program created in QB64.

Learning the syntax for SUB LP vs learning the syntax for _PRINTSTRING... I'm with Steve on this one 😉
Title: Re: help my
Post by: SMcNeill on July 01, 2020, 02:26:39 am
And _PRINTSTRING works in legacy modes.  (Even SCREEN 0.)
Title: Re: help my
Post by: bplus on July 01, 2020, 02:32:45 am
Yeah, OK your blowing my nostalgic moment :P

BTW this is how I learned SUB's back in the day.
Title: Re: help my
Post by: OldMoses on July 01, 2020, 07:02:14 am
In bplus' defense, LP is a lot quicker to type than _PRINTSTRING.
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 07:45:01 am
thank bplus you very kind I am really grateful

thanks also to all of you who answered

bplus I wanted to do with arrays

but still they are beginners

I'm a beginner

thanks to this forum I will try to learn
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 09:25:45 am
bplus thanks
i tried to put with arrays
i'm going crazy you can give me a tip of how i can do it
also to improve it because I have to make it sum the numbers and I think it takes more variables to do this

example of sum would be so?
MID$(a, 5, 2) > 30  MID$(a, 15, 2) then color 4
but the variable a it is of type string it cannot be added up
any suggestions?
Title: Re: help my
Post by: bplus on July 01, 2020, 09:36:04 am
Quote from: Kiara87 on July 01, 2020, 09:25:45 am
bplus thanks
i tried to put with arrays
i'm going crazy you can give me a tip of how i can do it
also to improve it because I have to make it sum the numbers and I think it takes more variables to do this

example of sum would be so?
MID$(a, 5, 2) > 30  MID$(a, 15, 2) then color 4
but the variable a it is of type string it cannot be added up
any suggestions?

2nd thing first :)  assuming you want to add 30 to the 2nd VAL(MID$(a, 5, 2)

IF VAL(MID$(a, 5, 2)) > 30 +  VAL(MID$(a, 5, 2) THEN COLOR 4

VAL() changes string type to number for as far left to right as there are numbers.
eg VAL("123ABC") = 123

For arrays, I am afraid if I do it for you it will take you longer to learn. Can you show me what you've tried?
I would love to rewrite this program with an array :)

You will love how arrays make job easy if you can just get use to them.

PS sometimes when describing what you are having problem with to another person suddenly makes clear what you need to do, sometimes you just plain get stuck!
Title: Re: help my
Post by: bplus on July 01, 2020, 10:56:42 am
BTW there are more advanced ways to access a file that give up and down and all around flexibility for access but that is not a place to start. OPEN FOR INPUT is classic way to start learning file access. There are more flexible arrays that are started with REDIM, but again, that is not classic way to start learning arrays.

Question #1 about arrays, how big?

Because before you can use an array you have to DIM it (exceptions to almost every rule like if array size <=10 you don't have to DIM but I would anyway because you can then change to bigger by just changing number).

Think of DIM as reserving space in the computer memory bank. For variables reservations are easy they are known size but arrays? how many of these variables are wanting or be needing for the array though? You tell it through DIM statement DIM myArray$(100) that reserves space for 101 lines from 0 to 100. Now we can go from myArray$(0) to myArray$(100) without QB64 telling us our "subscript is out of bounds" referring to the number inside the parenthesis. It is usually called the index and it is usually given the variable name i, i for index.

OK so an array for our file, how big is that going to have to be? Most times we don't know and we just count the lines first like I did, so I knew not to go past a certain line number in file.

As usual with QB64 there are other ways to approach loading a file with unknown size into an array but let's stick with classic way from QB upon which QB64 was based, actually from GW BASIC upon which QB was based.

So enough lecture:
Code: QB64: [Select]
  1. 'count lines in file
  2. OPEN "lotto.dat" FOR INPUT AS #1
  4.     INPUT #1, a
  5.     'PRINT a
  6.     'INPUT " OK enter "; w$
  7.     IF LEN(_TRIM$(a)) THEN count = count + 1  'make sure we count real lines with stuff AKA contents

'set the size of the array
Code: QB64: [Select]
  1. DIM myArray$(count) ' we will leave myArray$(0) empty so that the Upper Bound of array matches the number of lines with stuff in them

Is that enough of a hint? Do you have that already?

Can you guess the next step: How to load the array? We practically have the code already! just add copy/paste and add or change one line.





Title: Re: help my
Post by: Kiara87 on July 01, 2020, 11:51:44 am
about the two statements to change the number value in the string
from these types of errors

1  https://imgur.com/0m667QA

2  https://imgur.com/GGBHMsd

my intention is this that you see in the image  --> https://imgur.com/eTR37ei

which finds a distance number 30 and then add it up

and print it

I wanted to do this I'm going crazy

I thank you for helping me six friendly


when he finds the distance 30 he colors the numbers in red the numbers must be vertical
Title: Re: help my
Post by: bplus on July 01, 2020, 12:02:51 pm
First red line:
Code: QB64: [Select]
  1. PRINT VAL("123ABC") 'will output 123 as number type
  2.  
  3. PRINT VAL("123ABC") + VAL(".563") 'should be output 123.563 but who knows what
  4.  
Title: Re: help my
Post by: bplus on July 01, 2020, 12:15:04 pm
After first red line, I think you will find answer in this example:
Code: QB64: [Select]
  2.  
  3. a$ = "12345678901234567890"
  4. FOR i = 3 TO 20 STEP 2
  5.     'ABS() 'makes all positive
  6.     IF ABS(VAL(MID$(a$, 1, 2)) - VAL(MID$(a$, i, 2))) > 30 THEN COLOR 12 ELSE COLOR 15
  7.     PRINT MID$(a$, 1, 2); "+"; MID$(a$, i, 2); "   SUM:"; VAL(MID$(a$, 1, 2)) + VAL(MID$(a$, i, 2))
  9.  

Title: Re: help my
Post by: Kiara87 on July 01, 2020, 12:17:48 pm
I didn't mean to print 123

I wanted to look for a distance of two numbers with distance 30 and color them as in the photo

maybe you need to do it with arrays to do this?

thanks bplus
Title: Re: help my
Post by: bplus on July 01, 2020, 12:19:41 pm
Check post above your last :)

To measure distance use ABS() because distance is not a negative number 10 - 40 = -30 but distance between 10 and 40 is 30 so ABS(10-40) = 30
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 12:36:34 pm
ok I'm testing thanks bplus

Title: Re: help my
Post by: Kiara87 on July 01, 2020, 03:56:05 pm
https://imgur.com/l4J5Qmt

I'm running but I can't understand why the two numbers with distance 30 don't color me red

attached image

anyone to the solution?
Title: Re: help my
Post by: bplus on July 01, 2020, 04:21:21 pm
Hi @Kiara87

The a$ I used in the example for coloring represented the variable "a" you are pulling from the file = 1 row of numbers.

I didn't have a file line so I made one up to show as example.

For you, after you get "a" from the file, you will have a string of numbers that you are accessing with MID$(a, position, lengthOf2) just as you use these MID$ strings to show numbers, you use them to do calculations with VAL() to transform them into numbers to add subtract and use ABS() function.

To calculate the difference in one part of "a" with another part of "a" you have position = p for first number and position + some number for the other section of "a"   or position of first number and position of second number in "a".


You will have to do that for each and every number you want to compare and color red before you print each and every number.


To post code at this forum select all the code in QB64 IDE (editor) Copy it then here at forum Reply press the button with the QB64 icon in this forum editor you will get [ code = qb64 ][ / code ] without spaces in edit window of forum.
paste your code between the two brackets  ][  in the middle of the code tag.

st [ code = qb64 ] is before the start of your code and [ / code ] is after the end of your code. You can just type it in that way only without spaces inside the brackets.

Then maybe I can write in comments on your code for easier understanding. :)

Title: Re: help my
Post by: Kiara87 on July 01, 2020, 05:19:21 pm
I'm still trying
where I am wrong

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
  4.  
  5. 'count lines in file
  6. OPEN "lotto.dat" FOR INPUT AS #1
  8.     INPUT #1, a
  9.     'PRINT a
  10.     'INPUT " OK enter "; w$
  11.     IF LEN(_TRIM$(a)) THEN count = count + 1
  14. 'CLS: PRINT count '480 lines
  15. 'END
  16. 'CLS
  17.  
  18. LOCATE 1, 1
  19. PRINT "BARI"
  20. LOCATE 3, 1
  21. PRINT "CAGLIARI"
  22. LOCATE 5, 1
  23. PRINT "FIRENZE"
  24. LOCATE 7, 1
  25. PRINT "GENOVA"
  26. LOCATE 9, 1
  27. PRINT "MILANO"
  28. LOCATE 11, 1
  29. PRINT "NAPOLI"
  30. LOCATE 13, 1
  31. PRINT "PALERMO"
  32. LOCATE 15, 1
  33. PRINT "ROMA"
  34. LOCATE 17, 1
  35. PRINT "TORINO"
  36. LOCATE 19, 1
  37. PRINT "VENEZIA"
  38. LOCATE 21, 1
  39. PRINT "NAZIONALE"
  40.  
  41. LOCATE 23, 1
  42. PRINT " + to move on"
  43. LOCATE 23, 16
  44. PRINT "- to back"
  45.  
  46.  
  47.  
  48. lineNum = 1
  49. GOSUB get_a
  50.  
  51.  
  53.     a$ = "12345678901234567890"
  54.     Q$ = INKEY$
  55.     IF Q$ = "+" THEN lineNum = lineNum + 1
  56.     IF lineNum > count THEN lineNum = 1
  57.  
  58.     IF Q$ = "-" THEN lineNum = lineNum - 1
  59.     IF lineNum < 1 THEN lineNum = count
  60.  
  61.     IF ABS(VAL(MID$(a$, 15, 2)) - VAL(MID$(a$, 45, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  62.  
  63.     GOSUB get_a
  64.  
  65.  
  66.     LOCATE 1, 34
  67.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  68.  
  69.     REM bari
  70.     LOCATE 1, 13
  71.     PRINT VAL(MID$(a, 5, 2))
  72.     LOCATE 1, 16
  73.     PRINT VAL(MID$(a, 7, 2))
  74.     LOCATE 1, 19
  75.     PRINT VAL(MID$(a, 9, 2))
  76.     LOCATE 1, 22
  77.     PRINT VAL(MID$(a, 11, 2))
  78.     LOCATE 1, 25
  79.     PRINT VAL(MID$(a, 13, 2))
  80.  
  81.     REM cagliari
  82.     LOCATE 3, 13
  83.     PRINT VAL(MID$(a, 15, 2))
  84.     LOCATE 3, 16
  85.     PRINT VAL(MID$(a, 17, 2))
  86.     LOCATE 3, 19
  87.     PRINT VAL(MID$(a, 19, 2))
  88.     LOCATE 3, 22
  89.     PRINT VAL(MID$(a, 21, 2))
  90.     LOCATE 3, 25
  91.     PRINT VAL(MID$(a, 23, 2))
  92.  
  93.     REM firenze
  94.     LOCATE 5, 13
  95.     PRINT VAL(MID$(a, 25, 2))
  96.     LOCATE 5, 16
  97.     PRINT VAL(MID$(a, 27, 2))
  98.     LOCATE 5, 19
  99.     PRINT VAL(MID$(a, 29, 2))
  100.     LOCATE 5, 22
  101.     PRINT VAL(MID$(a, 31, 2))
  102.     LOCATE 5, 25
  103.     PRINT VAL(MID$(a, 33, 2))
  104.  
  105.     REM genova
  106.     LOCATE 7, 13
  107.     PRINT VAL(MID$(a, 35, 2))
  108.     LOCATE 7, 16
  109.     PRINT VAL(MID$(a, 37, 2))
  110.     LOCATE 7, 19
  111.     PRINT VAL(MID$(a, 39, 2))
  112.     LOCATE 7, 22
  113.     PRINT VAL(MID$(a, 41, 2))
  114.     LOCATE 7, 25
  115.     PRINT VAL(MID$(a, 43, 2))
  116.  
  117.     REM milano
  118.     LOCATE 9, 13
  119.     PRINT VAL(MID$(a, 45, 2))
  120.     LOCATE 9, 16
  121.     PRINT VAL(MID$(a, 47, 2))
  122.     LOCATE 9, 19
  123.     PRINT VAL(MID$(a, 49, 2))
  124.     LOCATE 9, 22
  125.     PRINT VAL(MID$(a, 51, 2))
  126.     LOCATE 9, 25
  127.     PRINT VAL(MID$(a, 53, 2))
  128.  
  129.     REM napoli
  130.     LOCATE 11, 13
  131.     PRINT VAL(MID$(a, 55, 2))
  132.     LOCATE 11, 16
  133.     PRINT VAL(MID$(a, 57, 2))
  134.     LOCATE 11, 19
  135.     PRINT VAL(MID$(a, 59, 2))
  136.     LOCATE 11, 22
  137.     PRINT VAL(MID$(a, 61, 2))
  138.     LOCATE 11, 25
  139.     PRINT VAL(MID$(a, 63, 2))
  140.  
  141.     REM palermo
  142.     LOCATE 13, 13
  143.     PRINT VAL(MID$(a, 65, 2))
  144.     LOCATE 13, 16
  145.     PRINT VAL(MID$(a, 67, 2))
  146.     LOCATE 13, 19
  147.     PRINT VAL(MID$(a, 69, 2))
  148.     LOCATE 13, 22
  149.     PRINT VAL(MID$(a, 71, 2))
  150.     LOCATE 13, 25
  151.     PRINT VAL(MID$(a, 73, 2))
  152.  
  153.     REM roma
  154.     LOCATE 15, 13
  155.     PRINT VAL(MID$(a, 75, 2))
  156.     LOCATE 15, 16
  157.     PRINT VAL(MID$(a, 77, 2))
  158.     LOCATE 15, 19
  159.     PRINT VAL(MID$(a, 79, 2))
  160.     LOCATE 15, 22
  161.     PRINT VAL(MID$(a, 81, 2))
  162.     LOCATE 15, 25
  163.     PRINT VAL(MID$(a, 83, 2))
  164.  
  165.     REM torino
  166.     LOCATE 17, 13
  167.     PRINT VAL(MID$(a, 85, 2))
  168.     LOCATE 17, 16
  169.     PRINT VAL(MID$(a, 87, 2))
  170.     LOCATE 17, 19
  171.     PRINT VAL(MID$(a, 89, 2))
  172.     LOCATE 17, 22
  173.     PRINT VAL(MID$(a, 91, 2))
  174.     LOCATE 17, 25
  175.     PRINT VAL(MID$(a, 93, 2))
  176.  
  177.     REM venezia
  178.     LOCATE 19, 13
  179.     PRINT VAL(MID$(a, 95, 2))
  180.     LOCATE 19, 16
  181.     PRINT VAL(MID$(a, 97, 2))
  182.     LOCATE 19, 19
  183.     PRINT VAL(MID$(a, 99, 2))
  184.     LOCATE 19, 22
  185.     PRINT VAL(MID$(a, 101, 2))
  186.     LOCATE 19, 25
  187.     PRINT VAL(MID$(a, 103, 2))
  188.  
  189.     REM nazionale
  190.     LOCATE 21, 13
  191.     PRINT VAL(MID$(a, 105, 2))
  192.     LOCATE 21, 16
  193.     PRINT VAL(MID$(a, 107, 2))
  194.     LOCATE 21, 19
  195.     PRINT VAL(MID$(a, 109, 2))
  196.     LOCATE 21, 22
  197.     PRINT VAL(MID$(a, 111, 2))
  198.     LOCATE 21, 25
  199.     PRINT VAL(MID$(a, 113, 2))
  200.  
  201.     _LIMIT 30
  204.  
  205.  
  206. 'this sub retrieves a line number from file  the hard way
  207. get_a:
  208. num = 0
  209. OPEN "lotto.dat" FOR INPUT AS #1
  211.     INPUT #1, a
  212.     IF LEN(_TRIM$(a)) THEN num = num + 1
  213.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  216.  
  218.  
  219.  
Title: Re: help my
Post by: bplus on July 01, 2020, 05:30:12 pm
Congratulations code has been posted successfully! :)

Take just one thing you are printing for an example:
Code: QB64: [Select]
  1.     REM bari
  2.     LOCATE 1, 13
  3.     PRINT VAL(MID$(a, 5, 2))  '<<< the 5 in here id's the number.  
  4. ' I need to know what id number you want to compare this number to decide if it is red.
  5. ' If all the id's are a set amount from each other, do you want to compare
  6. 'MID$(a, 5, 2) to MID$(a, 35, 2)  and all the other MID$(a, x, 2) to MID$(a, x+30, 2) ????
  7.  
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 05:41:46 pm
Code: QB64: [Select]
  1. REM cagliari
  2.     LOCATE 3, 13
  3.     PRINT VAL(MID$(a, 15, 2))  'I wanted to compare the first of Cagliari with the first of Milano that year the distance 30, and the two with the distance 30 color them red and all other numbers that remain white
  4. MID$(a, 45, 2)   TO MID$
    REM cagliari
    LOCATE 3, 13
    PRINT VAL(MID$(a, 15, 2))  'I wanted to compare the first of Cagliari with the first of Milano that year the distance 30, and the two with the distance 30 color them red and all other numbers that remain white
MID$(a, 45, 2)   TO MID$
Title: Re: help my
Post by: bplus on July 01, 2020, 05:47:50 pm
OK I think I have idea what you want, here is Bari started for you, you will have to do the rest (if it is right).
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
  4.  
  5. 'count lines in file
  6. OPEN "lotto.dat" FOR INPUT AS #1
  8.     INPUT #1, a
  9.     'PRINT a
  10.     'INPUT " OK enter "; w$
  11.     IF LEN(_TRIM$(a)) THEN count = count + 1
  14. 'CLS: PRINT count '480 lines
  15. 'END
  16. 'CLS
  17.  
  18. LOCATE 1, 1
  19. PRINT "BARI"
  20. LOCATE 3, 1
  21. PRINT "CAGLIARI"
  22. LOCATE 5, 1
  23. PRINT "FIRENZE"
  24. LOCATE 7, 1
  25. PRINT "GENOVA"
  26. LOCATE 9, 1
  27. PRINT "MILANO"
  28. LOCATE 11, 1
  29. PRINT "NAPOLI"
  30. LOCATE 13, 1
  31. PRINT "PALERMO"
  32. LOCATE 15, 1
  33. PRINT "ROMA"
  34. LOCATE 17, 1
  35. PRINT "TORINO"
  36. LOCATE 19, 1
  37. PRINT "VENEZIA"
  38. LOCATE 21, 1
  39. PRINT "NAZIONALE"
  40.  
  41. LOCATE 23, 1
  42. PRINT " + to move on"
  43. LOCATE 23, 16
  44. PRINT "- to back"
  45.  
  46.  
  47.  
  48. lineNum = 1
  49. GOSUB get_a
  50.  
  51.  
  53.     a$ = "12345678901234567890"
  54.     Q$ = INKEY$
  55.     IF Q$ = "+" THEN lineNum = lineNum + 1
  56.     IF lineNum > count THEN lineNum = 1
  57.  
  58.     IF Q$ = "-" THEN lineNum = lineNum - 1
  59.     IF lineNum < 1 THEN lineNum = count
  60.  
  61.  
  62.  
  63.     GOSUB get_a
  64.  
  65.  
  66.     LOCATE 1, 34
  67.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  68.  
  69.     REM bari
  70.     LOCATE 1, 13
  71.     IF ABS(VAL(MID$(a, 5, 2)) - VAL(MID$(a, 15, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  72.     PRINT VAL(MID$(a, 5, 2))
  73.     LOCATE 1, 16
  74.     IF ABS(VAL(MID$(a, 7, 2)) - VAL(MID$(a, 17, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  75.     PRINT VAL(MID$(a, 7, 2))
  76.     LOCATE 1, 19
  77.     IF ABS(VAL(MID$(a, 8, 2)) - VAL(MID$(a, 19, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  78.     PRINT VAL(MID$(a, 9, 2))
  79.     LOCATE 1, 22
  80.     IF ABS(VAL(MID$(a, 11, 2)) - VAL(MID$(a, 21, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  81.     PRINT VAL(MID$(a, 11, 2))
  82.     LOCATE 1, 25
  83.     IF ABS(VAL(MID$(a, 13, 2)) - VAL(MID$(a, 23, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
  84.     PRINT VAL(MID$(a, 13, 2))
  85.  
  86.     REM cagliari
  87.     LOCATE 3, 13
  88.     PRINT VAL(MID$(a, 15, 2))
  89.     LOCATE 3, 16
  90.     PRINT VAL(MID$(a, 17, 2))
  91.     LOCATE 3, 19
  92.     PRINT VAL(MID$(a, 19, 2))
  93.     LOCATE 3, 22
  94.     PRINT VAL(MID$(a, 21, 2))
  95.     LOCATE 3, 25
  96.     PRINT VAL(MID$(a, 23, 2))
  97.  
  98.     REM firenze
  99.     LOCATE 5, 13
  100.     PRINT VAL(MID$(a, 25, 2))
  101.     LOCATE 5, 16
  102.     PRINT VAL(MID$(a, 27, 2))
  103.     LOCATE 5, 19
  104.     PRINT VAL(MID$(a, 29, 2))
  105.     LOCATE 5, 22
  106.     PRINT VAL(MID$(a, 31, 2))
  107.     LOCATE 5, 25
  108.     PRINT VAL(MID$(a, 33, 2))
  109.  
  110.     REM genova
  111.     LOCATE 7, 13
  112.     PRINT VAL(MID$(a, 35, 2))
  113.     LOCATE 7, 16
  114.     PRINT VAL(MID$(a, 37, 2))
  115.     LOCATE 7, 19
  116.     PRINT VAL(MID$(a, 39, 2))
  117.     LOCATE 7, 22
  118.     PRINT VAL(MID$(a, 41, 2))
  119.     LOCATE 7, 25
  120.     PRINT VAL(MID$(a, 43, 2))
  121.  
  122.     REM milano
  123.     LOCATE 9, 13
  124.     PRINT VAL(MID$(a, 45, 2))
  125.     LOCATE 9, 16
  126.     PRINT VAL(MID$(a, 47, 2))
  127.     LOCATE 9, 19
  128.     PRINT VAL(MID$(a, 49, 2))
  129.     LOCATE 9, 22
  130.     PRINT VAL(MID$(a, 51, 2))
  131.     LOCATE 9, 25
  132.     PRINT VAL(MID$(a, 53, 2))
  133.  
  134.     REM napoli
  135.     LOCATE 11, 13
  136.     PRINT VAL(MID$(a, 55, 2))
  137.     LOCATE 11, 16
  138.     PRINT VAL(MID$(a, 57, 2))
  139.     LOCATE 11, 19
  140.     PRINT VAL(MID$(a, 59, 2))
  141.     LOCATE 11, 22
  142.     PRINT VAL(MID$(a, 61, 2))
  143.     LOCATE 11, 25
  144.     PRINT VAL(MID$(a, 63, 2))
  145.  
  146.     REM palermo
  147.     LOCATE 13, 13
  148.     PRINT VAL(MID$(a, 65, 2))
  149.     LOCATE 13, 16
  150.     PRINT VAL(MID$(a, 67, 2))
  151.     LOCATE 13, 19
  152.     PRINT VAL(MID$(a, 69, 2))
  153.     LOCATE 13, 22
  154.     PRINT VAL(MID$(a, 71, 2))
  155.     LOCATE 13, 25
  156.     PRINT VAL(MID$(a, 73, 2))
  157.  
  158.     REM roma
  159.     LOCATE 15, 13
  160.     PRINT VAL(MID$(a, 75, 2))
  161.     LOCATE 15, 16
  162.     PRINT VAL(MID$(a, 77, 2))
  163.     LOCATE 15, 19
  164.     PRINT VAL(MID$(a, 79, 2))
  165.     LOCATE 15, 22
  166.     PRINT VAL(MID$(a, 81, 2))
  167.     LOCATE 15, 25
  168.     PRINT VAL(MID$(a, 83, 2))
  169.  
  170.     REM torino
  171.     LOCATE 17, 13
  172.     PRINT VAL(MID$(a, 85, 2))
  173.     LOCATE 17, 16
  174.     PRINT VAL(MID$(a, 87, 2))
  175.     LOCATE 17, 19
  176.     PRINT VAL(MID$(a, 89, 2))
  177.     LOCATE 17, 22
  178.     PRINT VAL(MID$(a, 91, 2))
  179.     LOCATE 17, 25
  180.     PRINT VAL(MID$(a, 93, 2))
  181.  
  182.     REM venezia
  183.     LOCATE 19, 13
  184.     PRINT VAL(MID$(a, 95, 2))
  185.     LOCATE 19, 16
  186.     PRINT VAL(MID$(a, 97, 2))
  187.     LOCATE 19, 19
  188.     PRINT VAL(MID$(a, 99, 2))
  189.     LOCATE 19, 22
  190.     PRINT VAL(MID$(a, 101, 2))
  191.     LOCATE 19, 25
  192.     PRINT VAL(MID$(a, 103, 2))
  193.  
  194.     REM nazionale
  195.     LOCATE 21, 13
  196.     PRINT VAL(MID$(a, 105, 2))
  197.     LOCATE 21, 16
  198.     PRINT VAL(MID$(a, 107, 2))
  199.     LOCATE 21, 19
  200.     PRINT VAL(MID$(a, 109, 2))
  201.     LOCATE 21, 22
  202.     PRINT VAL(MID$(a, 111, 2))
  203.     LOCATE 21, 25
  204.     PRINT VAL(MID$(a, 113, 2))
  205.  
  206.     _LIMIT 30
  209.  
  210.  
  211. 'this sub retrieves a line number from file  the hard way
  212. get_a:
  213. num = 0
  214. OPEN "lotto.dat" FOR INPUT AS #1
  216.     INPUT #1, a
  217.     IF LEN(_TRIM$(a)) THEN num = num + 1
  218.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  221.  
  223.  

Wait do you want to compare ( row, col )  to  ( row + 1, col ) and if they are different by 30 or more make them red?

Rows are 10 places apart, I edited above to compare each row and column with the next row and same column I think. Only first line Bari colored right??

Gotta go feed people :)
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 06:29:34 pm
they must be the same vertical column the same position one below the other

and the two numbers with distance 30 I have to color them red

Note every single number comes in 90

so if there is the number 60

in the column below I find the number 90

if instead I find the number 61

in the column below I find the number 1
Title: Re: help my
Post by: bplus on July 01, 2020, 07:56:31 pm
Is first row Bari colored correctly?
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 08:09:26 pm
no because it must be colored only if the distance 30 is in the same row in the same row
the numbers must all be white, must turn red if under 82 there is 52 or 22 because 82 and 52  distance 30

22 and 52 distance 30

and 22 and 82 distance 30 going beyond  90

only the numbers with distance 30 that are one below the other in the same row must change color


I know and a somewhat complicated program, however, helps to learn new things
Thanks for your patience bplus
Title: Re: help my
Post by: Kiara87 on July 01, 2020, 08:19:18 pm
here are some examples of what the program should do

image

https://imgur.com/B47CquB

https://imgur.com/GOESC0i

https://imgur.com/RLT5LQX

https://imgur.com/imC9ru5

https://imgur.com/TTy9v9v

https://imgur.com/Jc9HlRb

https://imgur.com/lwoQoNj
Title: Re: help my
Post by: bplus on July 01, 2020, 08:34:39 pm
So exactly 30 or 60

89 - 30 = 59 red
59 - 30 = 29 red

12 + 30 = 42 red
42 + 30 = 72 red

but this is head scratcher (see attachment)
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 01:08:58 am
example
29 89

it is always distance 30
in this game the numbers reach 90
exaple
29 89        89+30=119-90=29  <---- when it exceeds 90   -do the minus 90

in practice always a distance 30 because if the sum exceeds 90 then it subtracts 90

88 +30= 118    118-90= 28

28+30 =58

58+30=88

28-30=88  because the numbers reach 90 


Title: Re: help my
Post by: bplus on July 02, 2020, 10:11:31 am
Hi @Kiara87

So no 60's but new math on 30's. Why wasn't the 90 - 60 = 30 shaded in the screenshot I showed and blue circled, because don't check 90? only numbers less than 90?

OK this can be done now that I've leaned the new math 79 + 30 = 109 - 90 = 19 ha! ;-)

And we need to check down the whole column that one line in the data file makes.

We could make things easy on ourselves by loading a into an array with rows and columns just like the print out.

Starting at MID$(a, 5, 2) I think, every 2 digits is new number, 5 numbers make a row so the next row of numbers after 5 starts at 15 and the next starts at 25 and the next starts at 35... positions in the "a" string I am talking about.

How many rows in one line from the file? nRows = (len(a) - 4) /10 it's a constant for the DAT file we use, the first 4 digits are identifiers to line I suppose those should go in a separate array or just read off "a" when we need them.

DIM lineDAT(1 to 5, 1 to nRows) as INTEGER  'an  array to load from each line from DAT

rowCnt = 0 : x = 1 : y = 1
for i = 5 to len(a) step 2
    d = val(mid$(a, i, 2)) 'convert data item to iteger
    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
    if rowCnt = 6 then x = 1 : y = y + 1
    lineDAT(x, y) = d
next

The above is NOT in code box because it is not tested in QB64.
 
That loads our line data array and it makes it easy to sweep through array and make red the items that are 30 from each other.

I would just print the array as white and then print the 30's red after a sweep the array check for 30's.

Before starting an 2D array for line data I would start an array for the file data and load whole file into array.
This is standard way to approach data from a file, load the file into an array in programs working memory it is way more efficient to process file data from some sort of array.

So next step is to do that, load the file data into an array of strings and we already know the amount of lines 480

Dim FileDAT(1 to 480) as STRING
Open File for input
for i = 1 to 480
   Get a line of data from file
   and set FileDAT(i) = to it
next i

'array loaded with data from file

' next use the the code we wrote to get a line number only this time we will get it from the array instead of the file

Let's see how far along you can get with that. Get the lines from the array and printout the screen of data.
Then we will work on scanning down the columns for 30's, the code above is start of that. We should also have to write a FUNCTION for your new math with 30s. ;-)

OK?

Oh, once we know what lineNum to get from key presses we just set a = LineDAT(lineNum) simple!
And now we can get any lineNum we want, we don't have to just go up and down the file for a data line.

   
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 10:52:26 am
I also put the images that color all the numbers in green
I changed color I thought it was the fault of the color
on the other hand, even green makes tantrums
https://imgur.com/IHBBzi4 (https://imgur.com/IHBBzi4)
https://imgur.com/l8r0Zx0 (https://imgur.com/l8r0Zx0)
https://imgur.com/gNsecam (https://imgur.com/gNsecam)
https://imgur.com/OPApefR (https://imgur.com/OPApefR)
I only tried with an if condition

with only one condition  if
it works

the problem if I put only one condition I only check two numbers
other problem is when he finds the condition he colors all the numbers

while I wanted to color only the two of the found condition

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
  5. 'count lines in file
  6. OPEN "lotto.dat" FOR INPUT AS #1
  8.     INPUT #1, a
  9.     'PRINT a
  10.     'INPUT " OK enter "; w$
  11.     IF LEN(_TRIM$(a)) THEN count = count + 1
  14. 'CLS: PRINT count '480 lines
  15. 'END
  16. 'CLS
  17.  
  18. LOCATE 1, 1
  19. PRINT "BARI"
  20. LOCATE 3, 1
  21. PRINT "CAGLIARI"
  22. LOCATE 5, 1
  23. PRINT "FIRENZE"
  24. LOCATE 7, 1
  25. PRINT "GENOVA"
  26. LOCATE 9, 1
  27. PRINT "MILANO"
  28. LOCATE 11, 1
  29. PRINT "NAPOLI"
  30. LOCATE 13, 1
  31. PRINT "PALERMO"
  32. LOCATE 15, 1
  33. PRINT "ROMA"
  34. LOCATE 17, 1
  35. PRINT "TORINO"
  36. LOCATE 19, 1
  37. PRINT "VENEZIA"
  38. LOCATE 21, 1
  39. PRINT "NAZIONALE"
  40.  
  41.  
  42. LOCATE 23, 1: COLOR 4
  43. PRINT " + to move on"
  44. LOCATE 23, 16: COLOR 3
  45. PRINT "- to back"
  46.  
  47. lineNum = 1
  48. GOSUB get_a
  49.  
  50.  
  52.     a$ = "12345678901234567890"
  53.     i = INSTR(a$, "12345678901234567890")
  54.     Q$ = INKEY$
  55.     IF Q$ = "+" THEN lineNum = lineNum + 1
  56.     IF lineNum > count THEN lineNum = 1
  57.  
  58.     IF Q$ = "-" THEN lineNum = lineNum - 1
  59.     IF lineNum < 1 THEN lineNum = count
  60.  
  61.     GOSUB get_a
  62.  
  63.  
  64.     LOCATE 1, 34
  65.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  66.  
  67.     REM CONDIZIONE IF V OR F
  68.  
  69.      IF ABS(VAL(MID$(a$, 15, 2)) - VAL(MID$(a$, 45, 2))) = 30 THEN COLOR 10 ELSE COLOR 15
  70.  
  71.  
  72.     REM bari
  73.     LOCATE 1, 13
  74.     PRINT VAL(MID$(a, 5, 2))
  75.     LOCATE 1, 16
  76.     PRINT VAL(MID$(a, 7, 2))
  77.     LOCATE 1, 19
  78.     PRINT VAL(MID$(a, 9, 2))
  79.     LOCATE 1, 22
  80.     PRINT VAL(MID$(a, 11, 2))
  81.     LOCATE 1, 25
  82.     PRINT VAL(MID$(a, 13, 2))
  83.  
  84.     REM cagliari
  85.     LOCATE 3, 13
  86.     PRINT VAL(MID$(a, 15, 2))
  87.     LOCATE 3, 16
  88.     PRINT VAL(MID$(a, 17, 2))
  89.     LOCATE 3, 19
  90.     PRINT VAL(MID$(a, 19, 2))
  91.     LOCATE 3, 22
  92.     PRINT VAL(MID$(a, 21, 2))
  93.     LOCATE 3, 25
  94.     PRINT VAL(MID$(a, 23, 2))
  95.  
  96.     REM firenze
  97.     LOCATE 5, 13
  98.     PRINT VAL(MID$(a, 25, 2))
  99.     LOCATE 5, 16
  100.     PRINT VAL(MID$(a, 27, 2))
  101.     LOCATE 5, 19
  102.     PRINT VAL(MID$(a, 29, 2))
  103.     LOCATE 5, 22
  104.     PRINT VAL(MID$(a, 31, 2))
  105.     LOCATE 5, 25
  106.     PRINT VAL(MID$(a, 33, 2))
  107.  
  108.     REM genova
  109.     LOCATE 7, 13
  110.     PRINT VAL(MID$(a, 35, 2))
  111.     LOCATE 7, 16
  112.     PRINT VAL(MID$(a, 37, 2))
  113.     LOCATE 7, 19
  114.     PRINT VAL(MID$(a, 39, 2))
  115.     LOCATE 7, 22
  116.     PRINT VAL(MID$(a, 41, 2))
  117.     LOCATE 7, 25
  118.     PRINT VAL(MID$(a, 43, 2))
  119.  
  120.     REM milano
  121.     LOCATE 9, 13
  122.     PRINT VAL(MID$(a, 45, 2))
  123.     LOCATE 9, 16
  124.     PRINT VAL(MID$(a, 47, 2))
  125.     LOCATE 9, 19
  126.     PRINT VAL(MID$(a, 49, 2))
  127.     LOCATE 9, 22
  128.     PRINT VAL(MID$(a, 51, 2))
  129.     LOCATE 9, 25
  130.     PRINT VAL(MID$(a, 53, 2))
  131.  
  132.     REM napoli
  133.     LOCATE 11, 13
  134.     PRINT VAL(MID$(a, 55, 2))
  135.     LOCATE 11, 16
  136.     PRINT VAL(MID$(a, 57, 2))
  137.     LOCATE 11, 19
  138.     PRINT VAL(MID$(a, 59, 2))
  139.     LOCATE 11, 22
  140.     PRINT VAL(MID$(a, 61, 2))
  141.     LOCATE 11, 25
  142.     PRINT VAL(MID$(a, 63, 2))
  143.  
  144.     REM palermo
  145.     LOCATE 13, 13
  146.     PRINT VAL(MID$(a, 65, 2))
  147.     LOCATE 13, 16
  148.     PRINT VAL(MID$(a, 67, 2))
  149.     LOCATE 13, 19
  150.     PRINT VAL(MID$(a, 69, 2))
  151.     LOCATE 13, 22
  152.     PRINT VAL(MID$(a, 71, 2))
  153.     LOCATE 13, 25
  154.     PRINT VAL(MID$(a, 73, 2))
  155.  
  156.     REM roma
  157.     LOCATE 15, 13
  158.     PRINT VAL(MID$(a, 75, 2))
  159.     LOCATE 15, 16
  160.     PRINT VAL(MID$(a, 77, 2))
  161.     LOCATE 15, 19
  162.     PRINT VAL(MID$(a, 79, 2))
  163.     LOCATE 15, 22
  164.     PRINT VAL(MID$(a, 81, 2))
  165.     LOCATE 15, 25
  166.     PRINT VAL(MID$(a, 83, 2))
  167.  
  168.     REM torino
  169.     LOCATE 17, 13
  170.     PRINT VAL(MID$(a, 85, 2))
  171.     LOCATE 17, 16
  172.     PRINT VAL(MID$(a, 87, 2))
  173.     LOCATE 17, 19
  174.     PRINT VAL(MID$(a, 89, 2))
  175.     LOCATE 17, 22
  176.     PRINT VAL(MID$(a, 91, 2))
  177.     LOCATE 17, 25
  178.     PRINT VAL(MID$(a, 93, 2))
  179.  
  180.     REM venezia
  181.     LOCATE 19, 13
  182.     PRINT VAL(MID$(a, 95, 2))
  183.     LOCATE 19, 16
  184.     PRINT VAL(MID$(a, 97, 2))
  185.     LOCATE 19, 19
  186.     PRINT VAL(MID$(a, 99, 2))
  187.     LOCATE 19, 22
  188.     PRINT VAL(MID$(a, 101, 2))
  189.     LOCATE 19, 25
  190.     PRINT VAL(MID$(a, 103, 2))
  191.  
  192.     REM nazionale
  193.     LOCATE 21, 13
  194.     PRINT VAL(MID$(a, 105, 2))
  195.     LOCATE 21, 16
  196.     PRINT VAL(MID$(a, 107, 2))
  197.     LOCATE 21, 19
  198.     PRINT VAL(MID$(a, 109, 2))
  199.     LOCATE 21, 22
  200.     PRINT VAL(MID$(a, 111, 2))
  201.     LOCATE 21, 25
  202.     PRINT VAL(MID$(a, 113, 2))
  203.  
  204.     _LIMIT 30
  207.  
  208.  
  209. 'this sub retrieves a line number from file  the hard way
  210. get_a:
  211. num = 0
  212. OPEN "lotto.dat" FOR INPUT AS #1
  214.     INPUT #1, a
  215.     IF LEN(_TRIM$(a)) THEN num = num + 1
  216.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  219.  
  221.  
  222.  
  223.  
  224.  
Title: Re: help my
Post by: bplus on July 02, 2020, 11:28:11 am
@Kiara87

Right, once you set color it won't unset unless you tell it to go back.
That's why I advise print the whole thing in white first and then go back and shade/color only the 30's.

Please read carefully my long post before your last. I will guide you to perfect app AND you will learn a little about arrays and subroutines, if you can hang in there. :) this is kind of accelerated learning of BASIC.

On a 2nd front, I am working on a 30's FUNCTION such that given 2 numbers, it will say if there is a 30 diff = -1 or NOT = 0

(-1 = True there is a diff (=difference) of 30, 0 = False there is not a difference of 30).

But I need a ruling on 90:

90 - 30 = 60 so shade 90 and 60 combo, right?

90 + 30 = 120 - 90 = 30 so shade 90 and 30 combo right?

Also no numbers should be 0, correct?
 
And 90 IS the maximum number, correct?



Title: Re: help my
Post by: bplus on July 02, 2020, 12:41:05 pm
@Kiara87

I have written a function to test 30 distance between 2 numbers from 1 to 90.

It returns -1 when the numbers are 30 apart and 0 if they are NOT.

Can you find 2 numbers when this returns the wrong answer?

Code: QB64: [Select]
  1. DEFINT A-Z
  2. _TITLE "Kiara87 diff30in90 function test" 'b+ 2020-07-02 this checks out for every example kiara87 has provided
  3.  
  4. ' interesting challenge numbers from 1 to 90 need to mark special if one number is 30 off the 2nd
  5.  
  6. 1 DO
  7.     CLS
  8.     INPUT "Please enter number (1 to 90) to check if 30 off (of 90) of another number "; n1
  9.     IF n1 > 90 THEN BEEP: GOTO 1
  10.     INPUT "Please enter 2nd number (1 to 90) for check "; n2
  11.     IF n2 > 90 THEN BEEP: GOTO 1
  12.     PRINT "diff30in90("; n1; ","; n2; ") FUNCTION returned:"; diff30in90(n1, n2)
  13.     _DELAY 4
  14. LOOP UNTIL n1 = 0 OR n2 = 0
  15.  
  16. FUNCTION diff30in90 (a, b) 'default integers a-z
  17.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  18.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  19.     IF hi - lo = 30 THEN
  20.         diff30in90 = -1
  21.     ELSE
  22.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  23.     END IF
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 03:01:56 pm
hello bplus

yes the program returns perfect when from -1 the answer is right
if return 0

the answer is wrong

so your instructions work

I had read in the post what you wrote but I didn't understand everything well because I don't speak English well
now I will try to do it as you said with array
I am a beginner who is learning

and I also thank you for being a good teacher

pity that I cannot understand the English language

I use the google translator

thank you very much bplus
Code: QB64: [Select]
  1. DEFINT A-Z
  2. _TITLE "Kiara87 diff30in90 function test" 'b+ 2020-07-02 this checks out for every example kiara87 has provided
  3.  
  4. ' interesting challenge numbers from 1 to 90 need to mark special if one number is 30 off the 2nd
  5.  
  6. 1 DO
  7.     CLS
  8.     INPUT "Please enter number (1 to 90) to check if 30 off (of 90) of another number "; n1
  9.     IF n1 > 90 THEN BEEP: GOTO 1
  10.     INPUT "Please enter 2nd number (1 to 90) for check "; n2
  11.     IF n2 > 90 THEN BEEP: GOTO 1
  12.     PRINT "diff30in90("; n1; ","; n2; ") FUNCTION returned:"; diff30in90(n1, n2)
  13.     _DELAY 4
  14. LOOP UNTIL n1 = 0 OR n2 = 0
  15.  
  16. FUNCTION diff30in90 (a, b) 'default integers a-z
  17.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  18.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  19.     IF hi - lo = 30 THEN
  20.         diff30in90 = -1
  21.     ELSE
  22.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  23.     END IF
Title: Re: help my
Post by: bplus on July 02, 2020, 03:15:33 pm
@Kiara87

Thanks for confirmation, certification and validation of my function. I have already proceeded as if I were correct. ;-))

Quote
pity that I cannot understand the English language
Well that makes 2 of us!

I am working ahead, so I can show you light at the end of the tunnel.

My current task is reducing all those locate and  print lines to simple formula, so we don't have to type so much. ;-)

To be good programmer hate to type repetitive stuff!
Title: Re: help my
Post by: bplus on July 02, 2020, 03:19:12 pm
Did I leave enough help for loading the file into an array?

Should we talk more about arrays?
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 04:01:10 pm
Quote from: bplus on July 02, 2020, 03:19:12 pm
Did I leave enough help for loading the file into an array?

Should we talk more about arrays?

I'm trying to understand how an array works but the tutorials are in English

I know a bit of instructions but the arrays I hadn't studied

did I understand that you don't speak English well?
Title: Re: help my
Post by: bplus on July 02, 2020, 04:36:42 pm
Quote
did I understand that you don't speak English well?

Yes, but I was making a joke because English is my only language.

If you tell me your language I will use Bing to translate some of my words to yours (hopefully) and I might learn something too.
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 04:42:46 pm
Quote from: bplus on July 02, 2020, 04:36:42 pm
Yes, but I was making a joke because English is my only language.

If you tell me your language I will use Bing to translate some of my words to yours (hopefully) and I might learn something too.

I am Italian I speak and I can speak only Italian too much
Title: Re: help my
Post by: bplus on July 02, 2020, 05:27:52 pm
Code: QB64: [Select]
  1. _TITLE "#1 della lezione di matrice" 'Array lesson #1   b+ 2020-07-02
  2.  
  3. 'Riempire una matrice con numeri da 1 a 20
  4. 'Caricare un array con numeri da 1 a 20
  5. ' Fill = Riempire   Caricare = Load an array with numbers from 1 to 20
  6.  
  7. DIM ilMioArray(1 TO 20)
  8.  
  9. FOR i = 1 TO 20 ' i = indice
  10.     ilMioArray(i) = i
  12.  
  13. PRINT "visualizzare il mio array all'indietro     'show me the array backwards"
  14. FOR i = 20 TO 1 STEP -1
  15.     PRINT ilMioArray(i)
  17. PRINT "premere un tasto qualsiasi per continuare...  press any key to continue... "
  20.  
  21. PRINT "modificare il contenuto della mia matrice  'modify my array contents"
  22. FOR i = 20 TO 1 STEP -1
  23.     ilMioArray(i) = ilMioArray(i) ^ 2 + 1 ' al quadrato piu (+) 1   'squared plus 1
  25.  
  26. GOSUB visualizzare:
  27.  
  28. END ''''''''''''''''' don't go past here   'non andare passato qui
  29.  
  30. visualizzare:
  31. PRINT "visualizzare  'display"
  32. FOR i = 1 TO 20
  33.     PRINT "i ="; i; ", "; ilMioArray(i)
  35. PRINT "premere un tasto qualsiasi per continuare...  press any key to continue... "
  39.  
  40.  

The next step is loading a file into an array.
Il passaggio successivo consiste nel caricamento di un file in una matrice.

Want to give it a try?
Vuoi fare un tentativo?
Title: Re: help my
Post by: Kiara87 on July 02, 2020, 06:39:30 pm
https://imgur.com/yW5dIS6
another question

those on the right in the image what are they?

an array would be a variable containing more content

only variable that can hold multiple values

contained in the same variable
miaArray(i) = i

can I contain how many contents? is there a limit?

later you said to load a file into an array

how can i upload it?

example variabile a 100
Quote from: bplus on July 02, 2020, 05:27:52 pm
Code: QB64: [Select]
  1. _TITLE "#1 della lezione di matrice" 'Array lesson #1   b+ 2020-07-02
  2.  
  3. 'Riempire una matrice con numeri da 1 a 20
  4. 'Caricare un array con numeri da 1 a 20
  5. ' Fill = Riempire   Caricare = Load an array with numbers from 1 to 20
  6.  
  7. DIM ilMioArray(1 TO 20)
  8.  
  9. FOR i = 1 TO 20 ' i = indice
  10.     ilMioArray(i) = i
  12.  
  13. PRINT "visualizzare il mio array all'indietro     'show me the array backwards"
  14. FOR i = 20 TO 1 STEP -1
  15.     PRINT ilMioArray(i)
  17. PRINT "premere un tasto qualsiasi per continuare...  press any key to continue... "
  20.  
  21. PRINT "modificare il contenuto della mia matrice  'modify my array contents"
  22. FOR i = 20 TO 1 STEP -1
  23.     ilMioArray(i) = ilMioArray(i) ^ 2 + 1 ' al quadrato piu (+) 1   'squared plus 1
  25.  
  26. GOSUB visualizzare:
  27.  
  28. END ''''''''''''''''' don't go past here   'non andare passato qui
  29.  
  30. visualizzare:
  31. PRINT "visualizzare  'display"
  32. FOR i = 1 TO 20
  33.     PRINT "i ="; i; ", "; ilMioArray(i)
  35. PRINT "premere un tasto qualsiasi per continuare...  press any key to continue... "
  39.  
  40.  

The next step is loading a file into an array.
Il passaggio successivo consiste nel caricamento di un file in una matrice.

Want to give it a try?
Vuoi fare un tentativo?
Title: Re: help my
Post by: bplus on July 02, 2020, 07:19:40 pm
Quote
an array would be a variable containing more content

only variable that can hold multiple values

Si Una variabile con molti valori indicizzati
yes, a variable with many indexed values


Quote
can I contain how many contents? is there a limit?

DIM ilMioArray(1 TO 20)  ' this allows the array ilMioArray() to hold 20 integers
questo permette all'array ilMioArray() di contenere 20 numeri interi

DIM ilMioArray(1 to 1000) 'this allows 1000 elements or integer
'questo permette 1000 elementi o numeri interi

You access each by the index in between ( ), the 5th one is ilMioArray(5)
Si accede ciascuno dall'indice in mezzo ( ), il quinto è ilMioArray(5)

To assign the 5th integer in ilMioArray() like this:
ilMioArray(5) = some integer say for instance 7
Per assegnare il quinto numero intero in ilMioArray() in questo modo:
ilMioArray(5) - alcuni numeri interi dicono per esempio 7

Assigning many values at once to many array variables is done usually with FOR loops and i for indice.
L'assegnazione di più valori contemporaneamente a molte variabili di matrice viene eseguita in genere con cicli FOR e i per l'indice.
For i = 1 to 20
    ilMioArray(i) = i  'this puts the i value into the array(i) variable
Next

like this:

index          variable      =  value
i = 1 then ilMioArray(1) = 1
i = 2 then ilMioArray(2) = 2
i = 3 then ilMioArray(3) = 3
i = 4 then ilMioArray(3) = 4
.
.
.
i = 19 then ilMioArray(19) = 19
i = 20 then ilMioArray(20) = 20



Quote
those on the right in the image what are they?

PRINT "modificare il contenuto della mia matrice  'modify my array contents"
FOR i = 1 to 20
    ilMioArray(i) = ilMioArray(i) ^ 2 + 1 ' al quadrato piu (+) 1   'squared plus 1
NEXT

x^2 = x * x  or 3^2 = 3*3 = 9  or 5^2 = 5*5 = 25  or 12^2 = 12*12 =144
       
index         variable       = value
i = 1 then ilMioArray(1) = 1^2 + 1 = 2
i = 2 then ilMioArray(2) = 2^2 + 1 = 5
i = 3 then ilMioArray(3) = 3^2 + 1 = 10
i = 4 then ilMioArray(3) = 4^2 + 1 = 17
.
.
.
i = 19 then ilMioArray(19) = 19^2 + 1 = 362
i = 20 then ilMioArray(20) = 20^2 + 1 = 401
Title: Re: help my
Post by: SMcNeill on July 02, 2020, 07:40:06 pm
One of the easiest ways for beginners to think of arrays is to think of them as variables with the same name, but different numbers.

Let's say I give you homework of:  "Ask 5 people to enter their name, and then tell them all hello in a single uninterrupted sentence."

Now, you could go this route:

Code: [Select]
INPUT "Please tell me your name"; name1$
INPUT "Please tell me your name"; name2$
INPUT "Please tell me your name"; name3$
INPUT "Please tell me your name"; name4$
INPUT "Please tell me your name"; name5$

PRINT "Hello"; name1$; "," ; name2$; ","; name3$; ","; name4$; ","; name5$
OR, you could use an array to store the names.

Code: [Select]
DIM nam(1 TO 5) AS STRING
FOR I = 1 TO 5
   INPUT "Please tell me your name"; nam(I)
NEXT

PRINT "Hello ";
FOR I = 1 TO 5
    PRINT ","; nam(I);
NEXT
Now, with just 5 names, the code isn't very different in size or complexity, but change that to, "Get 500 people to give you their names"....

Arrays basically are nothing more than just a simple way to stick numbers to the end of variables, to allow for ease of mass handling them.  name1, name2, name3, name4, name5, nameN all are handled in one simple DIM nam(1 TO N) statement.  ;)
Title: Re: help my
Post by: bplus on July 02, 2020, 07:47:18 pm
Quote

later you said to load a file into an array

how can i upload it?

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we know the size of the file so we are ready to DIM an array
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26.  
Title: Re: help my
Post by: bplus on July 02, 2020, 09:48:50 pm
There is light at end of tunnel but it's a little advanced.
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: help my
Post by: Kiara87 on July 03, 2020, 03:40:27 am
thanks to you too good explanation

Quote from: SMcNeill on July 02, 2020, 07:40:06 pm
One of the easiest ways for beginners to think of arrays is to think of them as variables with the same name, but different numbers.

Let's say I give you homework of:  "Ask 5 people to enter their name, and then tell them all hello in a single uninterrupted sentence."

Now, you could go this route:

Code: [Select]
INPUT "Please tell me your name"; name1$
INPUT "Please tell me your name"; name2$
INPUT "Please tell me your name"; name3$
INPUT "Please tell me your name"; name4$
INPUT "Please tell me your name"; name5$

PRINT "Hello"; name1$; "," ; name2$; ","; name3$; ","; name4$; ","; name5$
OR, you could use an array to store the names.

Code: [Select]
DIM nam(1 TO 5) AS STRING
FOR I = 1 TO 5
   INPUT "Please tell me your name"; nam(I)
NEXT

PRINT "Hello ";
FOR I = 1 TO 5
    PRINT ","; nam(I);
NEXT
Now, with just 5 names, the code isn't very different in size or complexity, but change that to, "Get 500 people to give you their names"....

Arrays basically are nothing more than just a simple way to stick numbers to the end of variables, to allow for ease of mass handling them.  name1, name2, name3, name4, name5, nameN all are handled in one simple DIM nam(1 TO N) statement.  ;)
Title: Re: help my
Post by: Kiara87 on July 03, 2020, 03:41:35 am
now I am entering the variable you are a true master of qb64

Quote from: bplus on July 02, 2020, 07:47:18 pm
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we know the size of the file so we are ready to DIM an array
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26.  
Title: Re: help my
Post by: Kiara87 on July 03, 2020, 04:04:24 am
gives me an error where am I wrong I inserted the arrays wrong?

where am i wrong?

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we know the size of the file so we are ready to DIM an array
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26. 'CLS: PRINT count '480 lines
  27. 'END
  28. 'CLS
  29.  
  30. LOCATE 1, 1
  31. PRINT "BARI"
  32. LOCATE 3, 1
  33. PRINT "CAGLIARI"
  34. LOCATE 5, 1
  35. PRINT "FIRENZE"
  36. LOCATE 7, 1
  37. PRINT "GENOVA"
  38. LOCATE 9, 1
  39. PRINT "MILANO"
  40. LOCATE 11, 1
  41. PRINT "NAPOLI"
  42. LOCATE 13, 1
  43. PRINT "PALERMO"
  44. LOCATE 15, 1
  45. PRINT "ROMA"
  46. LOCATE 17, 1
  47. PRINT "TORINO"
  48. LOCATE 19, 1
  49. PRINT "VENEZIA"
  50. LOCATE 21, 1
  51. PRINT "NAZIONALE"
  52.  
  53.  
  54. LOCATE 23, 1: COLOR 4
  55. PRINT " + to move on"
  56. LOCATE 23, 16: COLOR 3
  57. PRINT "- to back"
  58.  
  59. lineNum = 1
  60. GOSUB get_a
  61.  
  62.  
  64.  
  65.     Q$ = INKEY$
  66.     IF Q$ = "+" THEN lineNum = lineNum + 1
  67.     IF lineNum > count THEN lineNum = 1
  68.  
  69.     IF Q$ = "-" THEN lineNum = lineNum - 1
  70.     IF lineNum < 1 THEN lineNum = count
  71.  
  72.     GOSUB get_a
  73.  
  74.  
  75.     LOCATE 1, 34
  76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  77.  
  78.     REM bari
  79.     LOCATE 1, 13
  80.     PRINT fileDAT(i)
  81.     LOCATE 1, 16
  82.     PRINT fileDAT(i)
  83.     LOCATE 1, 19
  84.     PRINT fileDAT(i)
  85.     LOCATE 1, 22
  86.     PRINT fileDAT(i)
  87.     LOCATE 1, 25
  88.     PRINT fileDAT(i)
  89.  
  90.     REM cagliari
  91.     LOCATE 3, 13
  92.     PRINT fileDAT(i)
  93.     LOCATE 3, 16
  94.     PRINT fileDAT(i)
  95.     LOCATE 3, 19
  96.     PRINT fileDAT(i)
  97.     LOCATE 3, 22
  98.     PRINT fileDAT(i)
  99.     LOCATE 3, 25
  100.     PRINT fileDAT(i)
  101.  
  102.     REM firenze
  103.     LOCATE 5, 13
  104.     PRINT fileDAT(i)
  105.     LOCATE 5, 16
  106.     PRINT fileDAT(i)
  107.     LOCATE 5, 19
  108.     PRINT fileDAT(i)
  109.     LOCATE 5, 22
  110.     PRINT fileDAT(i)
  111.     LOCATE 5, 25
  112.     PRINT fileDAT(i)
  113.  
  114.     REM genova
  115.     LOCATE 7, 13
  116.     PRINT fileDAT(i)
  117.     LOCATE 7, 16
  118.     PRINT fileDAT(i)
  119.     LOCATE 7, 19
  120.     PRINT fileDAT(i)
  121.     LOCATE 7, 22
  122.     PRINT fileDAT(i)
  123.     LOCATE 7, 25
  124.     PRINT fileDAT(i)
  125.  
  126.     REM milano
  127.     LOCATE 9, 13
  128.     PRINT fileDAT(i)
  129.     LOCATE 9, 16
  130.     PRINT fileDAT(i)
  131.     LOCATE 9, 19
  132.     PRINT fileDAT(i)
  133.     LOCATE 9, 22
  134.     PRINT fileDAT(i)
  135.     LOCATE 9, 25
  136.     PRINT fileDAT(i)
  137.  
  138.     REM napoli
  139.     LOCATE 11, 13
  140.     PRINT fileDAT(i)
  141.     LOCATE 11, 16
  142.     PRINT fileDAT(i)
  143.     LOCATE 11, 19
  144.     PRINT fileDAT(i)
  145.     LOCATE 11, 22
  146.     PRINT fileDAT(i)
  147.     LOCATE 11, 25
  148.     PRINT fileDAT(i)
  149.  
  150.     REM palermo
  151.     LOCATE 13, 13
  152.     PRINT fileDAT(i)
  153.     LOCATE 13, 16
  154.     PRINT fileDAT(i)
  155.     LOCATE 13, 19
  156.     PRINT fileDAT(i)
  157.     LOCATE 13, 22
  158.     PRINT fileDAT(i)
  159.     LOCATE 13, 25
  160.     PRINT fileDAT(i)
  161.  
  162.     REM roma
  163.     LOCATE 15, 13
  164.     PRINT fileDAT(i)
  165.     LOCATE 15, 16
  166.     PRINT fileDAT(i)
  167.     LOCATE 15, 19
  168.     PRINT fileDAT(i)
  169.     LOCATE 15, 22
  170.     PRINT fileDAT(i)
  171.     LOCATE 15, 25
  172.     PRINT fileDAT(i)
  173.  
  174.     REM torino
  175.     LOCATE 17, 13
  176.     PRINT fileDAT(i)
  177.     LOCATE 17, 16
  178.     PRINT fileDAT(i)
  179.     LOCATE 17, 19
  180.     PRINT fileDAT(i)
  181.     LOCATE 17, 22
  182.     PRINT fileDAT(i)
  183.     LOCATE 17, 25
  184.     PRINT fileDAT(i)
  185.  
  186.     REM venezia
  187.     LOCATE 19, 13
  188.     PRINT fileDAT(i)
  189.     LOCATE 19, 16
  190.     PRINT fileDAT(i)
  191.     LOCATE 19, 19
  192.     PRINT fileDAT(i)
  193.     LOCATE 19, 22
  194.     PRINT fileDAT(i)
  195.     LOCATE 19, 25
  196.     PRINT fileDAT(i)
  197.  
  198.     REM nazionale
  199.     LOCATE 21, 13
  200.     PRINT fileDAT(i)
  201.     LOCATE 21, 16
  202.     PRINT fileDAT(i)
  203.     LOCATE 21, 19
  204.     PRINT fileDAT(i)
  205.     LOCATE 21, 22
  206.     PRINT fileDAT(i)
  207.     LOCATE 21, 25
  208.     PRINT fileDAT(i)
  209.  
  210.     _LIMIT 30
  213.  
  214.  
  215. 'this sub retrieves a line number from file  the hard way
  216. get_a:
  217. num = 0
  218. OPEN "lotto.dat" FOR INPUT AS #1
  220.     INPUT #1, a
  221.     IF LEN(_TRIM$(a)) THEN num = num + 1
  222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  225.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
Title: Re: help my
Post by: TempodiBasic on July 03, 2020, 07:21:40 am
Hi Kiara87
fine exercise to write a lotto program.

about
Quote
gives me an error where am I wrong I inserted the arrays wrong?

where am i wrong?

can you be more specific?
In the bottom part of window of QB64 IDE there is a feedback message about the error? Or do you get error on runtime after pressing F5?
thanks for clearer informations
Title: Re: help my
Post by: Kiara87 on July 03, 2020, 08:28:19 am
I leave the image as an attachment
putting this code gives me error inserting array

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we know the size of the file so we are ready to DIM an array
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26. 'CLS: PRINT count '480 lines
  27. 'END
  28. 'CLS
  29.  
  30. LOCATE 1, 1
  31. PRINT "BARI"
  32. LOCATE 3, 1
  33. PRINT "CAGLIARI"
  34. LOCATE 5, 1
  35. PRINT "FIRENZE"
  36. LOCATE 7, 1
  37. PRINT "GENOVA"
  38. LOCATE 9, 1
  39. PRINT "MILANO"
  40. LOCATE 11, 1
  41. PRINT "NAPOLI"
  42. LOCATE 13, 1
  43. PRINT "PALERMO"
  44. LOCATE 15, 1
  45. PRINT "ROMA"
  46. LOCATE 17, 1
  47. PRINT "TORINO"
  48. LOCATE 19, 1
  49. PRINT "VENEZIA"
  50. LOCATE 21, 1
  51. PRINT "NAZIONALE"
  52.  
  53.  
  54. LOCATE 23, 1: COLOR 4
  55. PRINT " + to move on"
  56. LOCATE 23, 16: COLOR 3
  57. PRINT "- to back"
  58.  
  59. lineNum = 1
  60. GOSUB get_a
  61.  
  62.  
  64.  
  65.     Q$ = INKEY$
  66.     IF Q$ = "+" THEN lineNum = lineNum + 1
  67.     IF lineNum > count THEN lineNum = 1
  68.  
  69.     IF Q$ = "-" THEN lineNum = lineNum - 1
  70.     IF lineNum < 1 THEN lineNum = count
  71.  
  72.     GOSUB get_a
  73.  
  74.  
  75.     LOCATE 1, 34
  76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  77.  
  78.     REM bari
  79.     LOCATE 1, 13
  80.     PRINT fileDAT(i)
  81.     LOCATE 1, 16
  82.     PRINT fileDAT(i)
  83.     LOCATE 1, 19
  84.     PRINT fileDAT(i)
  85.     LOCATE 1, 22
  86.     PRINT fileDAT(i)
  87.     LOCATE 1, 25
  88.     PRINT fileDAT(i)
  89.  
  90.     REM cagliari
  91.     LOCATE 3, 13
  92.     PRINT fileDAT(i)
  93.     LOCATE 3, 16
  94.     PRINT fileDAT(i)
  95.     LOCATE 3, 19
  96.     PRINT fileDAT(i)
  97.     LOCATE 3, 22
  98.     PRINT fileDAT(i)
  99.     LOCATE 3, 25
  100.     PRINT fileDAT(i)
  101.  
  102.     REM firenze
  103.     LOCATE 5, 13
  104.     PRINT fileDAT(i)
  105.     LOCATE 5, 16
  106.     PRINT fileDAT(i)
  107.     LOCATE 5, 19
  108.     PRINT fileDAT(i)
  109.     LOCATE 5, 22
  110.     PRINT fileDAT(i)
  111.     LOCATE 5, 25
  112.     PRINT fileDAT(i)
  113.  
  114.     REM genova
  115.     LOCATE 7, 13
  116.     PRINT fileDAT(i)
  117.     LOCATE 7, 16
  118.     PRINT fileDAT(i)
  119.     LOCATE 7, 19
  120.     PRINT fileDAT(i)
  121.     LOCATE 7, 22
  122.     PRINT fileDAT(i)
  123.     LOCATE 7, 25
  124.     PRINT fileDAT(i)
  125.  
  126.     REM milano
  127.     LOCATE 9, 13
  128.     PRINT fileDAT(i)
  129.     LOCATE 9, 16
  130.     PRINT fileDAT(i)
  131.     LOCATE 9, 19
  132.     PRINT fileDAT(i)
  133.     LOCATE 9, 22
  134.     PRINT fileDAT(i)
  135.     LOCATE 9, 25
  136.     PRINT fileDAT(i)
  137.  
  138.     REM napoli
  139.     LOCATE 11, 13
  140.     PRINT fileDAT(i)
  141.     LOCATE 11, 16
  142.     PRINT fileDAT(i)
  143.     LOCATE 11, 19
  144.     PRINT fileDAT(i)
  145.     LOCATE 11, 22
  146.     PRINT fileDAT(i)
  147.     LOCATE 11, 25
  148.     PRINT fileDAT(i)
  149.  
  150.     REM palermo
  151.     LOCATE 13, 13
  152.     PRINT fileDAT(i)
  153.     LOCATE 13, 16
  154.     PRINT fileDAT(i)
  155.     LOCATE 13, 19
  156.     PRINT fileDAT(i)
  157.     LOCATE 13, 22
  158.     PRINT fileDAT(i)
  159.     LOCATE 13, 25
  160.     PRINT fileDAT(i)
  161.  
  162.     REM roma
  163.     LOCATE 15, 13
  164.     PRINT fileDAT(i)
  165.     LOCATE 15, 16
  166.     PRINT fileDAT(i)
  167.     LOCATE 15, 19
  168.     PRINT fileDAT(i)
  169.     LOCATE 15, 22
  170.     PRINT fileDAT(i)
  171.     LOCATE 15, 25
  172.     PRINT fileDAT(i)
  173.  
  174.     REM torino
  175.     LOCATE 17, 13
  176.     PRINT fileDAT(i)
  177.     LOCATE 17, 16
  178.     PRINT fileDAT(i)
  179.     LOCATE 17, 19
  180.     PRINT fileDAT(i)
  181.     LOCATE 17, 22
  182.     PRINT fileDAT(i)
  183.     LOCATE 17, 25
  184.     PRINT fileDAT(i)
  185.  
  186.     REM venezia
  187.     LOCATE 19, 13
  188.     PRINT fileDAT(i)
  189.     LOCATE 19, 16
  190.     PRINT fileDAT(i)
  191.     LOCATE 19, 19
  192.     PRINT fileDAT(i)
  193.     LOCATE 19, 22
  194.     PRINT fileDAT(i)
  195.     LOCATE 19, 25
  196.     PRINT fileDAT(i)
  197.  
  198.     REM nazionale
  199.     LOCATE 21, 13
  200.     PRINT fileDAT(i)
  201.     LOCATE 21, 16
  202.     PRINT fileDAT(i)
  203.     LOCATE 21, 19
  204.     PRINT fileDAT(i)
  205.     LOCATE 21, 22
  206.     PRINT fileDAT(i)
  207.     LOCATE 21, 25
  208.     PRINT fileDAT(i)
  209.  
  210.     _LIMIT 30
  213.  
  214.  
  215. 'this sub retrieves a line number from file  the hard way
  216. get_a:
  217. num = 0
  218. OPEN "lotto.dat" FOR INPUT AS #1
  220.     INPUT #1, a
  221.     IF LEN(_TRIM$(a)) THEN num = num + 1
  222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  225.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
Quote from: TempodiBasic on July 03, 2020, 07:21:40 am
Hi Kiara87
fine exercise to write a lotto program.

about
can you be more specific?
In the bottom part of window of QB64 IDE there is a feedback message about the error? Or do you get error on runtime after pressing F5?
thanks for clearer informations
Title: Re: help my
Post by: bplus on July 03, 2020, 10:40:16 am
Quote from: Kiara87 on July 03, 2020, 08:28:19 am
I leave the image as an attachment
putting this code gives me error inserting array

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we know the size of the file so we are ready to DIM an array
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26. 'CLS: PRINT count '480 lines
  27. 'END
  28. 'CLS
  29.  
  30. LOCATE 1, 1
  31. PRINT "BARI"
  32. LOCATE 3, 1
  33. PRINT "CAGLIARI"
  34. LOCATE 5, 1
  35. PRINT "FIRENZE"
  36. LOCATE 7, 1
  37. PRINT "GENOVA"
  38. LOCATE 9, 1
  39. PRINT "MILANO"
  40. LOCATE 11, 1
  41. PRINT "NAPOLI"
  42. LOCATE 13, 1
  43. PRINT "PALERMO"
  44. LOCATE 15, 1
  45. PRINT "ROMA"
  46. LOCATE 17, 1
  47. PRINT "TORINO"
  48. LOCATE 19, 1
  49. PRINT "VENEZIA"
  50. LOCATE 21, 1
  51. PRINT "NAZIONALE"
  52.  
  53.  
  54. LOCATE 23, 1: COLOR 4
  55. PRINT " + to move on"
  56. LOCATE 23, 16: COLOR 3
  57. PRINT "- to back"
  58.  
  59. lineNum = 1
  60. GOSUB get_a
  61.  
  62.  
  64.  
  65.     Q$ = INKEY$
  66.     IF Q$ = "+" THEN lineNum = lineNum + 1
  67.     IF lineNum > count THEN lineNum = 1
  68.  
  69.     IF Q$ = "-" THEN lineNum = lineNum - 1
  70.     IF lineNum < 1 THEN lineNum = count
  71.  
  72.     GOSUB get_a
  73.  
  74.  
  75.     LOCATE 1, 34
  76.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  77.  
  78.     REM bari
  79.     LOCATE 1, 13
  80.     PRINT fileDAT(i)
  81.     LOCATE 1, 16
  82.     PRINT fileDAT(i)
  83.     LOCATE 1, 19
  84.     PRINT fileDAT(i)
  85.     LOCATE 1, 22
  86.     PRINT fileDAT(i)
  87.     LOCATE 1, 25
  88.     PRINT fileDAT(i)
  89.  
  90.     REM cagliari
  91.     LOCATE 3, 13
  92.     PRINT fileDAT(i)
  93.     LOCATE 3, 16
  94.     PRINT fileDAT(i)
  95.     LOCATE 3, 19
  96.     PRINT fileDAT(i)
  97.     LOCATE 3, 22
  98.     PRINT fileDAT(i)
  99.     LOCATE 3, 25
  100.     PRINT fileDAT(i)
  101.  
  102.     REM firenze
  103.     LOCATE 5, 13
  104.     PRINT fileDAT(i)
  105.     LOCATE 5, 16
  106.     PRINT fileDAT(i)
  107.     LOCATE 5, 19
  108.     PRINT fileDAT(i)
  109.     LOCATE 5, 22
  110.     PRINT fileDAT(i)
  111.     LOCATE 5, 25
  112.     PRINT fileDAT(i)
  113.  
  114.     REM genova
  115.     LOCATE 7, 13
  116.     PRINT fileDAT(i)
  117.     LOCATE 7, 16
  118.     PRINT fileDAT(i)
  119.     LOCATE 7, 19
  120.     PRINT fileDAT(i)
  121.     LOCATE 7, 22
  122.     PRINT fileDAT(i)
  123.     LOCATE 7, 25
  124.     PRINT fileDAT(i)
  125.  
  126.     REM milano
  127.     LOCATE 9, 13
  128.     PRINT fileDAT(i)
  129.     LOCATE 9, 16
  130.     PRINT fileDAT(i)
  131.     LOCATE 9, 19
  132.     PRINT fileDAT(i)
  133.     LOCATE 9, 22
  134.     PRINT fileDAT(i)
  135.     LOCATE 9, 25
  136.     PRINT fileDAT(i)
  137.  
  138.     REM napoli
  139.     LOCATE 11, 13
  140.     PRINT fileDAT(i)
  141.     LOCATE 11, 16
  142.     PRINT fileDAT(i)
  143.     LOCATE 11, 19
  144.     PRINT fileDAT(i)
  145.     LOCATE 11, 22
  146.     PRINT fileDAT(i)
  147.     LOCATE 11, 25
  148.     PRINT fileDAT(i)
  149.  
  150.     REM palermo
  151.     LOCATE 13, 13
  152.     PRINT fileDAT(i)
  153.     LOCATE 13, 16
  154.     PRINT fileDAT(i)
  155.     LOCATE 13, 19
  156.     PRINT fileDAT(i)
  157.     LOCATE 13, 22
  158.     PRINT fileDAT(i)
  159.     LOCATE 13, 25
  160.     PRINT fileDAT(i)
  161.  
  162.     REM roma
  163.     LOCATE 15, 13
  164.     PRINT fileDAT(i)
  165.     LOCATE 15, 16
  166.     PRINT fileDAT(i)
  167.     LOCATE 15, 19
  168.     PRINT fileDAT(i)
  169.     LOCATE 15, 22
  170.     PRINT fileDAT(i)
  171.     LOCATE 15, 25
  172.     PRINT fileDAT(i)
  173.  
  174.     REM torino
  175.     LOCATE 17, 13
  176.     PRINT fileDAT(i)
  177.     LOCATE 17, 16
  178.     PRINT fileDAT(i)
  179.     LOCATE 17, 19
  180.     PRINT fileDAT(i)
  181.     LOCATE 17, 22
  182.     PRINT fileDAT(i)
  183.     LOCATE 17, 25
  184.     PRINT fileDAT(i)
  185.  
  186.     REM venezia
  187.     LOCATE 19, 13
  188.     PRINT fileDAT(i)
  189.     LOCATE 19, 16
  190.     PRINT fileDAT(i)
  191.     LOCATE 19, 19
  192.     PRINT fileDAT(i)
  193.     LOCATE 19, 22
  194.     PRINT fileDAT(i)
  195.     LOCATE 19, 25
  196.     PRINT fileDAT(i)
  197.  
  198.     REM nazionale
  199.     LOCATE 21, 13
  200.     PRINT fileDAT(i)
  201.     LOCATE 21, 16
  202.     PRINT fileDAT(i)
  203.     LOCATE 21, 19
  204.     PRINT fileDAT(i)
  205.     LOCATE 21, 22
  206.     PRINT fileDAT(i)
  207.     LOCATE 21, 25
  208.     PRINT fileDAT(i)
  209.  
  210.     _LIMIT 30
  213.  
  214.  
  215. 'this sub retrieves a line number from file  the hard way
  216. get_a:
  217. num = 0
  218. OPEN "lotto.dat" FOR INPUT AS #1
  220.     INPUT #1, a
  221.     IF LEN(_TRIM$(a)) THEN num = num + 1
  222.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  225.  
  227.  
  228.  

Oh no! hai sostituito l'intero fileDAT(i) in tutte le istruzioni PRINT! Yikes!!!
Oh no! you replaced the whole fileDAT(i) in all the PRINT statements! Yikes!!!
Ecco il piano generale:
1. contare il numero di righe nel file, ottenere il conteggio
2. DIM una matrice di stringhe alla dimensione del conteggio fileDAT(1 per contare)
3. Caricare i dati del file nel file di arrayDAT

Here is the general plan:
1. count number of lines in the file, get count
2. DIM an string array to the size of count fileDAT(1 to count)
3. Load the file data into the array fileDAT

Now understand each line, each index of fileDAT is just 1 line = the a string variable you use to display the lottery data on screen. We have it all worked out for the variable a string just set:
Ora capire ogni riga, ogni indice di fileDAT è solo 1 riga - la variabile di stringa che si utilizza per visualizzare i dati della lotteria sullo schermo. Abbiamo tutto elaborato per la variabile una stringa appena impostato
Code: QB64: [Select]
  1. a = lineDAT(lineNum)


Questa parte ottiene i dati di linea dal file, ma ora abbiamo il file caricato in un array
This part gets the line data out of the file but now we have the file loaded into an array
Code: QB64: [Select]
  1.     Q$ = INKEY$
  2.     IF Q$ = "+" THEN lineNum = lineNum + 1
  3.     IF lineNum > count THEN lineNum = 1
  4.  
  5.     IF Q$ = "-" THEN lineNum = lineNum - 1
  6.     IF lineNum < 1 THEN lineNum = count
  7.  
  8.     'GOSUB get_a  ' >>>>>>>>>>>>>>>>   this gets the line data from file don't need any more!!!
  9.  
  10.  

Non ho più bisogno di questo:
Don't need this any more:
Code: QB64: [Select]
  1. 'this sub retrieves a line number from file  the hard way
  2. get_a:
  3. num = 0
  4. OPEN "lotto.dat" FOR INPUT AS #1
  6.     INPUT #1, a
  7.     IF LEN(_TRIM$(a)) THEN num = num + 1
  8.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
  11.  

Ora con file caricato in un array tutto ciò che serve è questo:
Now with file loaded into an array all we need is this:
Code: QB64: [Select]
  1.     Q$ = INKEY$
  2.     IF Q$ = "+" THEN lineNum = lineNum + 1
  3.     IF lineNum > count THEN lineNum = 1
  4.  
  5.     IF Q$ = "-" THEN lineNum = lineNum - 1
  6.     IF lineNum < 1 THEN lineNum = count
  7.  
  8.     'GOSUB get_a  ' >>>>>>>>>>>>>>>>   this gets the line data from file don't need any more!!!
  9.    
  10.      a = fileDAT(lineNum)  ' <<<< we now get the file line out of the array!!!! yeah, hurrah, applause please ;-))
  11.  

Here is my working copy:
Ecco la mia copia di lavoro:
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z 'everything is integer unless DIM or suffix
  4.  
  5. DIM a AS STRING, count, i, lineNum, Q$, num AS INTEGER
  6.  
  7. 'count lines in file  contare le righe nel file
  8. OPEN "lotto.dat" FOR INPUT AS #1
  10.     INPUT #1, a
  11.     'PRINT a
  12.     'INPUT " OK enter "; w$
  13.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  16.  
  17. 'now we now size of file so ready an array to load file Data, we know what size we need
  18. 'ora sappiamo la dimensione del file in modo da essere pronti a DIM un array
  19. DIM fileDAT(1 TO count) AS STRING
  20. OPEN "lotto.dat" FOR INPUT AS #1
  21. FOR i = 1 TO count
  22.     INPUT #1, a
  23.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  26.  
  27.  
  28. ' setup screen labels for reporting data
  29. LOCATE 1, 1
  30. PRINT "BARI"
  31. LOCATE 3, 1
  32. PRINT "CAGLIARI"
  33. LOCATE 5, 1
  34. PRINT "FIRENZE"
  35. LOCATE 7, 1
  36. PRINT "GENOVA"
  37. LOCATE 9, 1
  38. PRINT "MILANO"
  39. LOCATE 11, 1
  40. PRINT "NAPOLI"
  41. LOCATE 13, 1
  42. PRINT "PALERMO"
  43. LOCATE 15, 1
  44. PRINT "ROMA"
  45. LOCATE 17, 1
  46. PRINT "TORINO"
  47. LOCATE 19, 1
  48. PRINT "VENEZIA"
  49. LOCATE 21, 1
  50. PRINT "NAZIONALE"
  51. 'some directions
  52. LOCATE 23, 1
  53. PRINT " + to move on"
  54. LOCATE 23, 16
  55. PRINT "- to back"
  56.  
  57. 'set first line and get a data string from the FileDAT array
  58. lineNum = 1
  59. a = fileDAT(lineNum)
  61.     Q$ = INKEY$
  62.     IF Q$ = "+" THEN lineNum = lineNum + 1
  63.     IF lineNum > count THEN lineNum = 1
  64.     IF Q$ = "-" THEN lineNum = lineNum - 1
  65.     IF lineNum < 1 THEN lineNum = count
  66.     'get new data line
  67.     a = fileDAT(lineNum)
  68.  
  69.     'print out the data from the new line
  70.  
  71.  
  72.     LOCATE 1, 34
  73.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  74.  
  75.     REM bari
  76.     LOCATE 1, 13
  77.     PRINT VAL(MID$(a, 5, 2))
  78.     LOCATE 1, 16
  79.     PRINT VAL(MID$(a, 7, 2))
  80.     LOCATE 1, 19
  81.     PRINT VAL(MID$(a, 9, 2))
  82.     LOCATE 1, 22
  83.     PRINT VAL(MID$(a, 11, 2))
  84.     LOCATE 1, 25
  85.     PRINT VAL(MID$(a, 13, 2))
  86.  
  87.     REM cagliari
  88.     LOCATE 3, 13
  89.     PRINT VAL(MID$(a, 15, 2))
  90.     LOCATE 3, 16
  91.     PRINT VAL(MID$(a, 17, 2))
  92.     LOCATE 3, 19
  93.     PRINT VAL(MID$(a, 19, 2))
  94.     LOCATE 3, 22
  95.     PRINT VAL(MID$(a, 21, 2))
  96.     LOCATE 3, 25
  97.     PRINT VAL(MID$(a, 23, 2))
  98.  
  99.     REM firenze
  100.     LOCATE 5, 13
  101.     PRINT VAL(MID$(a, 25, 2))
  102.     LOCATE 5, 16
  103.     PRINT VAL(MID$(a, 27, 2))
  104.     LOCATE 5, 19
  105.     PRINT VAL(MID$(a, 29, 2))
  106.     LOCATE 5, 22
  107.     PRINT VAL(MID$(a, 31, 2))
  108.     LOCATE 5, 25
  109.     PRINT VAL(MID$(a, 33, 2))
  110.  
  111.     REM genova
  112.     LOCATE 7, 13
  113.     PRINT VAL(MID$(a, 35, 2))
  114.     LOCATE 7, 16
  115.     PRINT VAL(MID$(a, 37, 2))
  116.     LOCATE 7, 19
  117.     PRINT VAL(MID$(a, 39, 2))
  118.     LOCATE 7, 22
  119.     PRINT VAL(MID$(a, 41, 2))
  120.     LOCATE 7, 25
  121.     PRINT VAL(MID$(a, 43, 2))
  122.  
  123.     REM milano
  124.     LOCATE 9, 13
  125.     PRINT VAL(MID$(a, 45, 2))
  126.     LOCATE 9, 16
  127.     PRINT VAL(MID$(a, 47, 2))
  128.     LOCATE 9, 19
  129.     PRINT VAL(MID$(a, 49, 2))
  130.     LOCATE 9, 22
  131.     PRINT VAL(MID$(a, 51, 2))
  132.     LOCATE 9, 25
  133.     PRINT VAL(MID$(a, 53, 2))
  134.  
  135.     REM napoli
  136.     LOCATE 11, 13
  137.     PRINT VAL(MID$(a, 55, 2))
  138.     LOCATE 11, 16
  139.     PRINT VAL(MID$(a, 57, 2))
  140.     LOCATE 11, 19
  141.     PRINT VAL(MID$(a, 59, 2))
  142.     LOCATE 11, 22
  143.     PRINT VAL(MID$(a, 61, 2))
  144.     LOCATE 11, 25
  145.     PRINT VAL(MID$(a, 63, 2))
  146.  
  147.     REM palermo
  148.     LOCATE 13, 13
  149.     PRINT VAL(MID$(a, 65, 2))
  150.     LOCATE 13, 16
  151.     PRINT VAL(MID$(a, 67, 2))
  152.     LOCATE 13, 19
  153.     PRINT VAL(MID$(a, 69, 2))
  154.     LOCATE 13, 22
  155.     PRINT VAL(MID$(a, 71, 2))
  156.     LOCATE 13, 25
  157.     PRINT VAL(MID$(a, 73, 2))
  158.  
  159.     REM roma
  160.     LOCATE 15, 13
  161.     PRINT VAL(MID$(a, 75, 2))
  162.     LOCATE 15, 16
  163.     PRINT VAL(MID$(a, 77, 2))
  164.     LOCATE 15, 19
  165.     PRINT VAL(MID$(a, 79, 2))
  166.     LOCATE 15, 22
  167.     PRINT VAL(MID$(a, 81, 2))
  168.     LOCATE 15, 25
  169.     PRINT VAL(MID$(a, 83, 2))
  170.  
  171.     REM torino
  172.     LOCATE 17, 13
  173.     PRINT VAL(MID$(a, 85, 2))
  174.     LOCATE 17, 16
  175.     PRINT VAL(MID$(a, 87, 2))
  176.     LOCATE 17, 19
  177.     PRINT VAL(MID$(a, 89, 2))
  178.     LOCATE 17, 22
  179.     PRINT VAL(MID$(a, 91, 2))
  180.     LOCATE 17, 25
  181.     PRINT VAL(MID$(a, 93, 2))
  182.  
  183.     REM venezia
  184.     LOCATE 19, 13
  185.     PRINT VAL(MID$(a, 95, 2))
  186.     LOCATE 19, 16
  187.     PRINT VAL(MID$(a, 97, 2))
  188.     LOCATE 19, 19
  189.     PRINT VAL(MID$(a, 99, 2))
  190.     LOCATE 19, 22
  191.     PRINT VAL(MID$(a, 101, 2))
  192.     LOCATE 19, 25
  193.     PRINT VAL(MID$(a, 103, 2))
  194.  
  195.     REM nazionale
  196.     LOCATE 21, 13
  197.     PRINT VAL(MID$(a, 105, 2))
  198.     LOCATE 21, 16
  199.     PRINT VAL(MID$(a, 107, 2))
  200.     LOCATE 21, 19
  201.     PRINT VAL(MID$(a, 109, 2))
  202.     LOCATE 21, 22
  203.     PRINT VAL(MID$(a, 111, 2))
  204.     LOCATE 21, 25
  205.     PRINT VAL(MID$(a, 113, 2))
  206.  
  207.     _LIMIT 30
  210.  
  211. FUNCTION diff30in90 (a, b) 'default integers a-z
  212.     DIM hi, lo
  213.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  214.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  215.     IF hi - lo = 30 THEN
  216.         diff30in90 = -1
  217.     ELSE
  218.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  219.     END IF
  221.  
  222.  
  223.  
  224.  

It may not seem like a great advancement but it is! It is a great real example of getting file contents into an array which is allot easier to work with that opening the file accessing a line and then closing again, doing that every time you hit the plus or minus key, yikes!

Potrebbe non sembrare un grande progresso, ma lo è! È un grande vero esempio di ottenere il contenuto del file in una matrice che è più facile lavorare con quella che apre il file accedendo a una riga e poi chiude di nuovo, facendo lo stesso tempo che si preme il tasto più o meno, yikes!

😊 I like the Italian translation for yikes!
Title: Re: help my
Post by: bplus on July 03, 2020, 11:47:54 am
Then I made this into a GOSUB to get it out of way when reading main programming execution:
Poi ho fatto questo in un GOSUB per farlo fuori strada durante la lettura di esecuzione di programmazione principale:
Code: QB64: [Select]
  1. ' setup screen labels for reporting data
  2. LOCATE 1, 1
  3. PRINT "BARI"
  4. LOCATE 3, 1
  5. PRINT "CAGLIARI"
  6. LOCATE 5, 1
  7. PRINT "FIRENZE"
  8. LOCATE 7, 1
  9. PRINT "GENOVA"
  10. LOCATE 9, 1
  11. PRINT "MILANO"
  12. LOCATE 11, 1
  13. PRINT "NAPOLI"
  14. LOCATE 13, 1
  15. PRINT "PALERMO"
  16. LOCATE 15, 1
  17. PRINT "ROMA"
  18. LOCATE 17, 1
  19. PRINT "TORINO"
  20. LOCATE 19, 1
  21. PRINT "VENEZIA"
  22. LOCATE 21, 1
  23. PRINT "NAZIONALE"
  24. 'some directions
  25. LOCATE 23, 1
  26. PRINT " + to move on"
  27. LOCATE 23, 16
  28. PRINT "- to back"
  29.  
Appena aggiunto "labelScreen:" all'inizio e "RETURN" nella parte inferiore e spostato il blocco di codice sotto l'istruzione end line.
Just added "labelScreen:" to the top and "RETURN" at the bottom and moved the code block under the END line statement.


Did the same move out of the way trick with this section:
Ha fatto lo stesso mossa fuori del trucco modo con questa sezione:
Code: QB64: [Select]
  1.     'print out the data from the new line
  2.     LOCATE 1, 34
  3.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  4.  
  5.     REM bari
  6.     LOCATE 1, 13
  7.     PRINT VAL(MID$(a, 5, 2))
  8.     LOCATE 1, 16
  9.     PRINT VAL(MID$(a, 7, 2))
  10.     LOCATE 1, 19
  11.     PRINT VAL(MID$(a, 9, 2))
  12.     LOCATE 1, 22
  13.     PRINT VAL(MID$(a, 11, 2))
  14.     LOCATE 1, 25
  15.     PRINT VAL(MID$(a, 13, 2))
  16.  
  17.     REM cagliari
  18.     LOCATE 3, 13
  19.     PRINT VAL(MID$(a, 15, 2))
  20.     LOCATE 3, 16
  21.     PRINT VAL(MID$(a, 17, 2))
  22.     LOCATE 3, 19
  23.     PRINT VAL(MID$(a, 19, 2))
  24.     LOCATE 3, 22
  25.     PRINT VAL(MID$(a, 21, 2))
  26.     LOCATE 3, 25
  27.     PRINT VAL(MID$(a, 23, 2))
  28.  
  29.     REM firenze
  30.     LOCATE 5, 13
  31.     PRINT VAL(MID$(a, 25, 2))
  32.     LOCATE 5, 16
  33.     PRINT VAL(MID$(a, 27, 2))
  34.     LOCATE 5, 19
  35.     PRINT VAL(MID$(a, 29, 2))
  36.     LOCATE 5, 22
  37.     PRINT VAL(MID$(a, 31, 2))
  38.     LOCATE 5, 25
  39.     PRINT VAL(MID$(a, 33, 2))
  40.  
  41.     REM genova
  42.     LOCATE 7, 13
  43.     PRINT VAL(MID$(a, 35, 2))
  44.     LOCATE 7, 16
  45.     PRINT VAL(MID$(a, 37, 2))
  46.     LOCATE 7, 19
  47.     PRINT VAL(MID$(a, 39, 2))
  48.     LOCATE 7, 22
  49.     PRINT VAL(MID$(a, 41, 2))
  50.     LOCATE 7, 25
  51.     PRINT VAL(MID$(a, 43, 2))
  52.  
  53.     REM milano
  54.     LOCATE 9, 13
  55.     PRINT VAL(MID$(a, 45, 2))
  56.     LOCATE 9, 16
  57.     PRINT VAL(MID$(a, 47, 2))
  58.     LOCATE 9, 19
  59.     PRINT VAL(MID$(a, 49, 2))
  60.     LOCATE 9, 22
  61.     PRINT VAL(MID$(a, 51, 2))
  62.     LOCATE 9, 25
  63.     PRINT VAL(MID$(a, 53, 2))
  64.  
  65.     REM napoli
  66.     LOCATE 11, 13
  67.     PRINT VAL(MID$(a, 55, 2))
  68.     LOCATE 11, 16
  69.     PRINT VAL(MID$(a, 57, 2))
  70.     LOCATE 11, 19
  71.     PRINT VAL(MID$(a, 59, 2))
  72.     LOCATE 11, 22
  73.     PRINT VAL(MID$(a, 61, 2))
  74.     LOCATE 11, 25
  75.     PRINT VAL(MID$(a, 63, 2))
  76.  
  77.     REM palermo
  78.     LOCATE 13, 13
  79.     PRINT VAL(MID$(a, 65, 2))
  80.     LOCATE 13, 16
  81.     PRINT VAL(MID$(a, 67, 2))
  82.     LOCATE 13, 19
  83.     PRINT VAL(MID$(a, 69, 2))
  84.     LOCATE 13, 22
  85.     PRINT VAL(MID$(a, 71, 2))
  86.     LOCATE 13, 25
  87.     PRINT VAL(MID$(a, 73, 2))
  88.  
  89.     REM roma
  90.     LOCATE 15, 13
  91.     PRINT VAL(MID$(a, 75, 2))
  92.     LOCATE 15, 16
  93.     PRINT VAL(MID$(a, 77, 2))
  94.     LOCATE 15, 19
  95.     PRINT VAL(MID$(a, 79, 2))
  96.     LOCATE 15, 22
  97.     PRINT VAL(MID$(a, 81, 2))
  98.     LOCATE 15, 25
  99.     PRINT VAL(MID$(a, 83, 2))
  100.  
  101.     REM torino
  102.     LOCATE 17, 13
  103.     PRINT VAL(MID$(a, 85, 2))
  104.     LOCATE 17, 16
  105.     PRINT VAL(MID$(a, 87, 2))
  106.     LOCATE 17, 19
  107.     PRINT VAL(MID$(a, 89, 2))
  108.     LOCATE 17, 22
  109.     PRINT VAL(MID$(a, 91, 2))
  110.     LOCATE 17, 25
  111.     PRINT VAL(MID$(a, 93, 2))
  112.  
  113.     REM venezia
  114.     LOCATE 19, 13
  115.     PRINT VAL(MID$(a, 95, 2))
  116.     LOCATE 19, 16
  117.     PRINT VAL(MID$(a, 97, 2))
  118.     LOCATE 19, 19
  119.     PRINT VAL(MID$(a, 99, 2))
  120.     LOCATE 19, 22
  121.     PRINT VAL(MID$(a, 101, 2))
  122.     LOCATE 19, 25
  123.     PRINT VAL(MID$(a, 103, 2))
  124.  
  125.     REM nazionale
  126.     LOCATE 21, 13
  127.     PRINT VAL(MID$(a, 105, 2))
  128.     LOCATE 21, 16
  129.     PRINT VAL(MID$(a, 107, 2))
  130.     LOCATE 21, 19
  131.     PRINT VAL(MID$(a, 109, 2))
  132.     LOCATE 21, 22
  133.     PRINT VAL(MID$(a, 111, 2))
  134.     LOCATE 21, 25
  135.     PRINT VAL(MID$(a, 113, 2))
  136.  
I labeled it screenDataLine: and put RETURN at the bottom of it and moved it below END.
L'ho etichettato screenDataLine: e mettere RETURN nella parte inferiore di esso e spostato sotto END.

Then I called these two GOSUBs at same place in main code where they were before the move:
Poi ho chiamato questi due GOSUB nello stesso posto nel codice principale dove erano prima dello spostamento:
Code: QB64: [Select]
  1.     CLS
  2.     GOSUB labelScreen
  3.     GOSUB screenDataLine
  4.  
Oh I found out I had to CLS between call so old lineNum data gets cleared for next line of data.
Oh ho scoperto che ho dovuto CLS tra chiamata così vecchi dati lineNum viene cancellata per la prossima linea di dati.
Title: Re: help my
Post by: bplus on July 03, 2020, 11:53:50 am
Here is the part of mastery of Basic, I converted the commented out code to the block of code above it in the GOSUB routine. I needed to do that to make it easy to process the 30's stuff.
Ecco la parte della padronanza di Basic, ho convertito il codice commentato al blocco di codice sopra di esso nella routine GOSUB. Avevo bisogno di farlo per rendere più facile l'elaborazione della roba degli anni '30.
Code: QB64: [Select]
  1. screenDataLine:
  3. LOCATE 1, 34
  4. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  5. aPlace = 5
  6. FOR row = 1 TO 11
  7.     FOR col = 1 TO 5
  8.         LOCATE row * 2, col * 3 - 2: PRINT MID$(a, aPlace, 2);
  9.         aPlace = aPlace + 2
  10.     NEXT
  12.  
  13. '=========================== the above does this ==============================
  14. 'LOCATE 1, 34
  15. 'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  16.  
  17. 'REM bari
  18. 'LOCATE 1, 13
  19. 'PRINT VAL(MID$(a, 5, 2))
  20. 'LOCATE 1, 16
  21. 'PRINT VAL(MID$(a, 7, 2))
  22. 'LOCATE 1, 19
  23. 'PRINT VAL(MID$(a, 9, 2))
  24. 'LOCATE 1, 22
  25. 'PRINT VAL(MID$(a, 11, 2))
  26. 'LOCATE 1, 25
  27. 'PRINT VAL(MID$(a, 13, 2))
  28.  
  29. 'REM cagliari
  30. 'LOCATE 3, 13
  31. 'PRINT VAL(MID$(a, 15, 2))
  32. 'LOCATE 3, 16
  33. 'PRINT VAL(MID$(a, 17, 2))
  34. 'LOCATE 3, 19
  35. 'PRINT VAL(MID$(a, 19, 2))
  36. 'LOCATE 3, 22
  37. 'PRINT VAL(MID$(a, 21, 2))
  38. 'LOCATE 3, 25
  39. 'PRINT VAL(MID$(a, 23, 2))
  40.  
  41. 'REM firenze
  42. 'LOCATE 5, 13
  43. 'PRINT VAL(MID$(a, 25, 2))
  44. 'LOCATE 5, 16
  45. 'PRINT VAL(MID$(a, 27, 2))
  46. 'LOCATE 5, 19
  47. 'PRINT VAL(MID$(a, 29, 2))
  48. 'LOCATE 5, 22
  49. 'PRINT VAL(MID$(a, 31, 2))
  50. 'LOCATE 5, 25
  51. 'PRINT VAL(MID$(a, 33, 2))
  52.  
  53. 'REM genova
  54. 'LOCATE 7, 13
  55. 'PRINT VAL(MID$(a, 35, 2))
  56. 'LOCATE 7, 16
  57. 'PRINT VAL(MID$(a, 37, 2))
  58. 'LOCATE 7, 19
  59. 'PRINT VAL(MID$(a, 39, 2))
  60. 'LOCATE 7, 22
  61. 'PRINT VAL(MID$(a, 41, 2))
  62. 'LOCATE 7, 25
  63. 'PRINT VAL(MID$(a, 43, 2))
  64.  
  65. 'REM milano
  66. 'LOCATE 9, 13
  67. 'PRINT VAL(MID$(a, 45, 2))
  68. 'LOCATE 9, 16
  69. 'PRINT VAL(MID$(a, 47, 2))
  70. 'LOCATE 9, 19
  71. 'PRINT VAL(MID$(a, 49, 2))
  72. 'LOCATE 9, 22
  73. 'PRINT VAL(MID$(a, 51, 2))
  74. 'LOCATE 9, 25
  75. 'PRINT VAL(MID$(a, 53, 2))
  76.  
  77. 'REM napoli
  78. 'LOCATE 11, 13
  79. 'PRINT VAL(MID$(a, 55, 2))
  80. 'LOCATE 11, 16
  81. 'PRINT VAL(MID$(a, 57, 2))
  82. 'LOCATE 11, 19
  83. 'PRINT VAL(MID$(a, 59, 2))
  84. 'LOCATE 11, 22
  85. 'PRINT VAL(MID$(a, 61, 2))
  86. 'LOCATE 11, 25
  87. 'PRINT VAL(MID$(a, 63, 2))
  88.  
  89. 'REM palermo
  90. 'LOCATE 13, 13
  91. 'PRINT VAL(MID$(a, 65, 2))
  92. 'LOCATE 13, 16
  93. 'PRINT VAL(MID$(a, 67, 2))
  94. 'LOCATE 13, 19
  95. 'PRINT VAL(MID$(a, 69, 2))
  96. 'LOCATE 13, 22
  97. 'PRINT VAL(MID$(a, 71, 2))
  98. 'LOCATE 13, 25
  99. 'PRINT VAL(MID$(a, 73, 2))
  100.  
  101. 'REM roma
  102. 'LOCATE 15, 13
  103. 'PRINT VAL(MID$(a, 75, 2))
  104. 'LOCATE 15, 16
  105. 'PRINT VAL(MID$(a, 77, 2))
  106. 'LOCATE 15, 19
  107. 'PRINT VAL(MID$(a, 79, 2))
  108. 'LOCATE 15, 22
  109. 'PRINT VAL(MID$(a, 81, 2))
  110. 'LOCATE 15, 25
  111. 'PRINT VAL(MID$(a, 83, 2))
  112.  
  113. 'REM torino
  114. 'LOCATE 17, 13
  115. 'PRINT VAL(MID$(a, 85, 2))
  116. 'LOCATE 17, 16
  117. 'PRINT VAL(MID$(a, 87, 2))
  118. 'LOCATE 17, 19
  119. 'PRINT VAL(MID$(a, 89, 2))
  120. 'LOCATE 17, 22
  121. 'PRINT VAL(MID$(a, 91, 2))
  122. 'LOCATE 17, 25
  123. 'PRINT VAL(MID$(a, 93, 2))
  124.  
  125. 'REM venezia
  126. 'LOCATE 19, 13
  127. 'PRINT VAL(MID$(a, 95, 2))
  128. 'LOCATE 19, 16
  129. 'PRINT VAL(MID$(a, 97, 2))
  130. 'LOCATE 19, 19
  131. 'PRINT VAL(MID$(a, 99, 2))
  132. 'LOCATE 19, 22
  133. 'PRINT VAL(MID$(a, 101, 2))
  134. 'LOCATE 19, 25
  135. 'PRINT VAL(MID$(a, 103, 2))
  136.  
  137. 'REM nazionale
  138. 'LOCATE 21, 13
  139. 'PRINT VAL(MID$(a, 105, 2))
  140. 'LOCATE 21, 16
  141. 'PRINT VAL(MID$(a, 107, 2))
  142. 'LOCATE 21, 19
  143. 'PRINT VAL(MID$(a, 109, 2))
  144. 'LOCATE 21, 22
  145. 'PRINT VAL(MID$(a, 111, 2))
  146. 'LOCATE 21, 25
  147. 'PRINT VAL(MID$(a, 113, 2))
  148. '========================================================================
  150.  
  151.  
Title: Re: help my
Post by: bplus on July 03, 2020, 12:13:30 pm
So far, functionally, I changed absolutely nothing BUT NOW I am setup to put the screened data into a 5 column X 11 row array to process the 30's.
Finora, funzionalmente, ho cambiato assolutamente nulla MA ora sono configurato per mettere i dati schermati in un array di righe X 11 di 5 colonne per elaborare il 30.


Put this at the top part of main code with the other DIM statements, make room for another array:
Mettere questo nella parte superiore del codice principale con le altre istruzioni DIM, fare spazio per un altro array:
Code: QB64: [Select]
  1. CONST nRows = 11
  2. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT

This code loads that array (might take a little more than Beginner skills) and uses it to get the 30's in a GOSUB:
Questo codice carica tale matrice (potrebbe richiedere un po 'più di abilità principianti) e lo usa per ottenere il 30's in un GOSUB:
Code: QB64: [Select]
  1. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  2. rowCnt = 1: y = 1
  3. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  4.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  5.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  6.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  8. COLOR 9 'blue marker  seacrh through columes for  30's
  9. FOR col = 1 TO 5 'for each of the columes of data
  10.     FOR row = 1 TO 10 'for each of the rows of dat
  11.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  12.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  13.                 LOCATE row * 2, col * 3 - 2: PRINT DD$(lineDAT(col, row));
  14.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT DD$(lineDAT(col, rowPlus));
  15.             END IF
  16.         NEXT
  17.     NEXT
  20.  

Ho dovuto fare un FUNCTION per convertire il numero intero di nuovo in un 2 caratteri String:
I had to make a FUNCTION to convert the integer back to a 2 character String:
Code: QB64: [Select]
  1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  2.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)

and this FUNCTION you've seen before:
e questa FUNCTION che avete visto prima:
Code: QB64: [Select]
  1. FUNCTION diff30in90 (a, b) 'default integers a-z
  2.     DIM hi, lo
  3.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  4.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  5.     IF hi - lo = 30 THEN
  6.         diff30in90 = -1
  7.     ELSE
  8.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  9.     END IF
  11.  
Title: Re: help my
Post by: bplus on July 03, 2020, 12:17:18 pm
Put altogether we get this:
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, i, lineNum ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10.  
  11. 'count lines in file
  12. OPEN "lotto.dat" FOR INPUT AS #1
  14.     INPUT #1, a
  15.     '          debug check inputs from file
  16.     'PRINT a
  17.     'INPUT " OK enter "; w$
  18.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  21.  
  22. 'now we now size of file so ready an array to load file Data
  23. DIM fileDAT(1 TO count) AS STRING
  24. OPEN "lotto.dat" FOR INPUT AS #1
  25. FOR i = 1 TO count
  26.     INPUT #1, a
  27.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  30.  
  31. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  32.  
  33. GOSUB labelScreen
  34.  
  35. 'set first line and get a data string from the FileDAT array
  36. lineNum = 1
  37. a = fileDAT(lineNum)
  39.     Q$ = INKEY$
  40.     IF Q$ = "+" THEN lineNum = lineNum + 1
  41.     IF lineNum > count THEN lineNum = 1
  42.     IF Q$ = "-" THEN lineNum = lineNum - 1
  43.     IF lineNum < 1 THEN lineNum = count
  44.  
  45.     'get new data line
  46.     a = fileDAT(lineNum)
  47.  
  48.     'print out the data from the new line
  49.     CLS
  50.     GOSUB labelScreen
  51.     GOSUB screenDataLine
  52.     GOSUB loadLineDAT_Mark30s
  53.     _DISPLAY
  54.     _LIMIT 30
  57.  
  58.  
  59. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  60. rowCnt = 1: y = 1
  61. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  62.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  63.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  64.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  66. COLOR 9 'blue marker  seacrh through columes for  30's
  67. FOR col = 1 TO 5 'for each of the columes of data
  68.     FOR row = 1 TO 10 'for each of the rows of dat
  69.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  70.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  71.                 LOCATE row * 2, col * 3 - 2: PRINT DD$(lineDAT(col, row));
  72.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT DD$(lineDAT(col, rowPlus));
  73.             END IF
  74.         NEXT
  75.     NEXT
  78.  
  79.  
  80. screenDataLine:
  82. LOCATE 1, 34
  83. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  84. aPlace = 5
  85. FOR row = 1 TO 11
  86.     FOR col = 1 TO 5
  87.         LOCATE row * 2, col * 3 - 2: PRINT MID$(a, aPlace, 2);
  88.         aPlace = aPlace + 2
  89.     NEXT
  91.  
  92. '=========================== the above does this ==============================
  93. 'LOCATE 1, 34
  94. 'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  95.  
  96. 'REM bari
  97. 'LOCATE 1, 13
  98. 'PRINT VAL(MID$(a, 5, 2))
  99. 'LOCATE 1, 16
  100. 'PRINT VAL(MID$(a, 7, 2))
  101. 'LOCATE 1, 19
  102. 'PRINT VAL(MID$(a, 9, 2))
  103. 'LOCATE 1, 22
  104. 'PRINT VAL(MID$(a, 11, 2))
  105. 'LOCATE 1, 25
  106. 'PRINT VAL(MID$(a, 13, 2))
  107.  
  108. 'REM cagliari
  109. 'LOCATE 3, 13
  110. 'PRINT VAL(MID$(a, 15, 2))
  111. 'LOCATE 3, 16
  112. 'PRINT VAL(MID$(a, 17, 2))
  113. 'LOCATE 3, 19
  114. 'PRINT VAL(MID$(a, 19, 2))
  115. 'LOCATE 3, 22
  116. 'PRINT VAL(MID$(a, 21, 2))
  117. 'LOCATE 3, 25
  118. 'PRINT VAL(MID$(a, 23, 2))
  119.  
  120. 'REM firenze
  121. 'LOCATE 5, 13
  122. 'PRINT VAL(MID$(a, 25, 2))
  123. 'LOCATE 5, 16
  124. 'PRINT VAL(MID$(a, 27, 2))
  125. 'LOCATE 5, 19
  126. 'PRINT VAL(MID$(a, 29, 2))
  127. 'LOCATE 5, 22
  128. 'PRINT VAL(MID$(a, 31, 2))
  129. 'LOCATE 5, 25
  130. 'PRINT VAL(MID$(a, 33, 2))
  131.  
  132. 'REM genova
  133. 'LOCATE 7, 13
  134. 'PRINT VAL(MID$(a, 35, 2))
  135. 'LOCATE 7, 16
  136. 'PRINT VAL(MID$(a, 37, 2))
  137. 'LOCATE 7, 19
  138. 'PRINT VAL(MID$(a, 39, 2))
  139. 'LOCATE 7, 22
  140. 'PRINT VAL(MID$(a, 41, 2))
  141. 'LOCATE 7, 25
  142. 'PRINT VAL(MID$(a, 43, 2))
  143.  
  144. 'REM milano
  145. 'LOCATE 9, 13
  146. 'PRINT VAL(MID$(a, 45, 2))
  147. 'LOCATE 9, 16
  148. 'PRINT VAL(MID$(a, 47, 2))
  149. 'LOCATE 9, 19
  150. 'PRINT VAL(MID$(a, 49, 2))
  151. 'LOCATE 9, 22
  152. 'PRINT VAL(MID$(a, 51, 2))
  153. 'LOCATE 9, 25
  154. 'PRINT VAL(MID$(a, 53, 2))
  155.  
  156. 'REM napoli
  157. 'LOCATE 11, 13
  158. 'PRINT VAL(MID$(a, 55, 2))
  159. 'LOCATE 11, 16
  160. 'PRINT VAL(MID$(a, 57, 2))
  161. 'LOCATE 11, 19
  162. 'PRINT VAL(MID$(a, 59, 2))
  163. 'LOCATE 11, 22
  164. 'PRINT VAL(MID$(a, 61, 2))
  165. 'LOCATE 11, 25
  166. 'PRINT VAL(MID$(a, 63, 2))
  167.  
  168. 'REM palermo
  169. 'LOCATE 13, 13
  170. 'PRINT VAL(MID$(a, 65, 2))
  171. 'LOCATE 13, 16
  172. 'PRINT VAL(MID$(a, 67, 2))
  173. 'LOCATE 13, 19
  174. 'PRINT VAL(MID$(a, 69, 2))
  175. 'LOCATE 13, 22
  176. 'PRINT VAL(MID$(a, 71, 2))
  177. 'LOCATE 13, 25
  178. 'PRINT VAL(MID$(a, 73, 2))
  179.  
  180. 'REM roma
  181. 'LOCATE 15, 13
  182. 'PRINT VAL(MID$(a, 75, 2))
  183. 'LOCATE 15, 16
  184. 'PRINT VAL(MID$(a, 77, 2))
  185. 'LOCATE 15, 19
  186. 'PRINT VAL(MID$(a, 79, 2))
  187. 'LOCATE 15, 22
  188. 'PRINT VAL(MID$(a, 81, 2))
  189. 'LOCATE 15, 25
  190. 'PRINT VAL(MID$(a, 83, 2))
  191.  
  192. 'REM torino
  193. 'LOCATE 17, 13
  194. 'PRINT VAL(MID$(a, 85, 2))
  195. 'LOCATE 17, 16
  196. 'PRINT VAL(MID$(a, 87, 2))
  197. 'LOCATE 17, 19
  198. 'PRINT VAL(MID$(a, 89, 2))
  199. 'LOCATE 17, 22
  200. 'PRINT VAL(MID$(a, 91, 2))
  201. 'LOCATE 17, 25
  202. 'PRINT VAL(MID$(a, 93, 2))
  203.  
  204. 'REM venezia
  205. 'LOCATE 19, 13
  206. 'PRINT VAL(MID$(a, 95, 2))
  207. 'LOCATE 19, 16
  208. 'PRINT VAL(MID$(a, 97, 2))
  209. 'LOCATE 19, 19
  210. 'PRINT VAL(MID$(a, 99, 2))
  211. 'LOCATE 19, 22
  212. 'PRINT VAL(MID$(a, 101, 2))
  213. 'LOCATE 19, 25
  214. 'PRINT VAL(MID$(a, 103, 2))
  215.  
  216. 'REM nazionale
  217. 'LOCATE 21, 13
  218. 'PRINT VAL(MID$(a, 105, 2))
  219. 'LOCATE 21, 16
  220. 'PRINT VAL(MID$(a, 107, 2))
  221. 'LOCATE 21, 19
  222. 'PRINT VAL(MID$(a, 109, 2))
  223. 'LOCATE 21, 22
  224. 'PRINT VAL(MID$(a, 111, 2))
  225. 'LOCATE 21, 25
  226. 'PRINT VAL(MID$(a, 113, 2))
  227. '========================================================================
  229.  
  230. labelScreen:
  232. ' setup screen labels for reporting data
  233. LOCATE 1, 1
  234. PRINT "BARI"
  235. LOCATE 3, 1
  236. PRINT "CAGLIARI"
  237. LOCATE 5, 1
  238. PRINT "FIRENZE"
  239. LOCATE 7, 1
  240. PRINT "GENOVA"
  241. LOCATE 9, 1
  242. PRINT "MILANO"
  243. LOCATE 11, 1
  244. PRINT "NAPOLI"
  245. LOCATE 13, 1
  246. PRINT "PALERMO"
  247. LOCATE 15, 1
  248. PRINT "ROMA"
  249. LOCATE 17, 1
  250. PRINT "TORINO"
  251. LOCATE 19, 1
  252. PRINT "VENEZIA"
  253. LOCATE 21, 1
  254. PRINT "NAZIONALE"
  255. 'some directions
  256. LOCATE 24, 1
  257. PRINT " + to move on";
  258. LOCATE 24, 16
  259. PRINT "- to back";
  261.  
  262. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  263.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  265.  
  266. FUNCTION diff30in90 (a, b) 'default integers a-z
  267.     DIM hi, lo
  268.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  269.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  270.     IF hi - lo = 30 THEN
  271.         diff30in90 = -1
  272.     ELSE
  273.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  274.     END IF
  276.  

And line 470 looks like this:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: help my
Post by: TempodiBasic on July 03, 2020, 05:09:30 pm
@bplus
great job to modularize the code!

I think that this can be a good help to kiara87 to see and to understand the tecnique behind this code.
More modular more flexible!

About italian translator... 6- in top rating 0-10, otherwise D  in english rating.

Title: Re: help my
Post by: bplus on July 03, 2020, 05:17:30 pm
Quote from: TempodiBasic on July 03, 2020, 05:09:30 pm
@bplus
great job to modularize the code!

I think that this can be a good help to kiara87 to see and to understand the tecnique behind this code.
More modular more flexible!

About italian translator... 6- in top rating 0-10, otherwise D  in english rating.

Thanks @TempodiBasic  But the translations to Italian not so good? They were brought to you by Bing BTW.
Title: Re: help my
Post by: Kiara87 on July 03, 2020, 07:39:38 pm
Thank you so much bplus

you are a true master I am seeing techniques never seen before instructions that I didn't even know existed

i'm studying your code so i learn something 

I wanted to change the position where it prints the numbers I want to support them

Code: QB64: [Select]
  1. screenDataLine:
  3. LOCATE 1, 34
  4. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  5. aPlace = 5
  6. FOR row = 1 TO 11
  7.     FOR col = 4 TO 8  ' <----- changing this works moves the numbers to the right position '
  8.         LOCATE row * 2, col * 3 - 2: PRINT VAL(MID$(a, aPlace, 2));
  9.         aPlace = aPlace + 2
  10.     NEXT


Code: QB64: [Select]
  1. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  2. rowCnt = 1: y = 1
  3. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  4.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  5.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  6.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  8. COLOR 10 'blue marker  seacrh through columes for  30's
  9. FOR col = 4 TO 8 'for each of the columes of data    <----I believe this function is for bringing the color over the numbers  but changing this gives me an error
  10.     FOR row = 1 TO 10 'for each of the rows of dat
  11.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  12.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  13.                 LOCATE row * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, row)));
  14.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, rowPlus)));
  15.             END IF
  16.         NEXT
  17.     NEXT
  20.  

test

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, i, lineNum ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10.  
  11. 'count lines in file
  12. OPEN "lotto.dat" FOR INPUT AS #1
  14.     INPUT #1, a
  15.     '          debug check inputs from file
  16.     'PRINT a
  17.     'INPUT " OK enter "; w$
  18.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  21.  
  22. 'now we now size of file so ready an array to load file Data
  23. DIM fileDAT(1 TO count) AS STRING
  24. OPEN "lotto.dat" FOR INPUT AS #1
  25. FOR i = 1 TO count
  26.     INPUT #1, a
  27.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  30.  
  31. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  32.  
  33. GOSUB labelScreen
  34.  
  35. 'set first line and get a data string from the FileDAT array
  36. lineNum = 1
  37. a = fileDAT(lineNum)
  39.     Q$ = INKEY$
  40.     IF Q$ = "+" THEN lineNum = lineNum + 1
  41.     IF lineNum > count THEN lineNum = 1
  42.     IF Q$ = "-" THEN lineNum = lineNum - 1
  43.     IF lineNum < 1 THEN lineNum = count
  44.  
  45.     'get new data line
  46.     a = fileDAT(lineNum)
  47.  
  48.     'print out the data from the new line
  49.     CLS
  50.     GOSUB labelScreen
  51.     GOSUB screenDataLine
  52.     GOSUB loadLineDAT_Mark30s
  53.     _DISPLAY
  54.     _LIMIT 30
  57.  
  58.  
  59. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  60. rowCnt = 1: y = 1
  61. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  62.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  63.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  64.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  66. COLOR 10 'blue marker  seacrh through columes for  30's
  67. FOR col = 4 TO 8 'for each of the columes of data
  68.     FOR row = 1 TO 10 'for each of the rows of dat
  69.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  70.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  71.                 LOCATE row * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, row)));
  72.                 LOCATE rowPlus * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, rowPlus)));
  73.             END IF
  74.         NEXT
  75.     NEXT
  78.  
  79.  
  80. screenDataLine:
  82. LOCATE 1, 34
  83. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  84. aPlace = 5
  85. FOR row = 1 TO 11
  86.     FOR col = 4 TO 8
  87.         LOCATE row * 2, col * 3 - 2: PRINT VAL(MID$(a, aPlace, 2));
  88.         aPlace = aPlace + 2
  89.     NEXT
  91.  
  92. '=========================== the above does this ==============================
  93. 'LOCATE 1, 34
  94. 'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
  95.  
  96. 'REM bari
  97. 'LOCATE 1, 13
  98. 'PRINT VAL(MID$(a, 5, 2))
  99. 'LOCATE 1, 16
  100. 'PRINT VAL(MID$(a, 7, 2))
  101. 'LOCATE 1, 19
  102. 'PRINT VAL(MID$(a, 9, 2))
  103. 'LOCATE 1, 22
  104. 'PRINT VAL(MID$(a, 11, 2))
  105. 'LOCATE 1, 25
  106. 'PRINT VAL(MID$(a, 13, 2))
  107.  
  108. 'REM cagliari
  109. 'LOCATE 3, 13
  110. 'PRINT VAL(MID$(a, 15, 2))
  111. 'LOCATE 3, 16
  112. 'PRINT VAL(MID$(a, 17, 2))
  113. 'LOCATE 3, 19
  114. 'PRINT VAL(MID$(a, 19, 2))
  115. 'LOCATE 3, 22
  116. 'PRINT VAL(MID$(a, 21, 2))
  117. 'LOCATE 3, 25
  118. 'PRINT VAL(MID$(a, 23, 2))
  119.  
  120. 'REM firenze
  121. 'LOCATE 5, 13
  122. 'PRINT VAL(MID$(a, 25, 2))
  123. 'LOCATE 5, 16
  124. 'PRINT VAL(MID$(a, 27, 2))
  125. 'LOCATE 5, 19
  126. 'PRINT VAL(MID$(a, 29, 2))
  127. 'LOCATE 5, 22
  128. 'PRINT VAL(MID$(a, 31, 2))
  129. 'LOCATE 5, 25
  130. 'PRINT VAL(MID$(a, 33, 2))
  131.  
  132. 'REM genova
  133. 'LOCATE 7, 13
  134. 'PRINT VAL(MID$(a, 35, 2))
  135. 'LOCATE 7, 16
  136. 'PRINT VAL(MID$(a, 37, 2))
  137. 'LOCATE 7, 19
  138. 'PRINT VAL(MID$(a, 39, 2))
  139. 'LOCATE 7, 22
  140. 'PRINT VAL(MID$(a, 41, 2))
  141. 'LOCATE 7, 25
  142. 'PRINT VAL(MID$(a, 43, 2))
  143.  
  144. 'REM milano
  145. 'LOCATE 9, 13
  146. 'PRINT VAL(MID$(a, 45, 2))
  147. 'LOCATE 9, 16
  148. 'PRINT VAL(MID$(a, 47, 2))
  149. 'LOCATE 9, 19
  150. 'PRINT VAL(MID$(a, 49, 2))
  151. 'LOCATE 9, 22
  152. 'PRINT VAL(MID$(a, 51, 2))
  153. 'LOCATE 9, 25
  154. 'PRINT VAL(MID$(a, 53, 2))
  155.  
  156. 'REM napoli
  157. 'LOCATE 11, 13
  158. 'PRINT VAL(MID$(a, 55, 2))
  159. 'LOCATE 11, 16
  160. 'PRINT VAL(MID$(a, 57, 2))
  161. 'LOCATE 11, 19
  162. 'PRINT VAL(MID$(a, 59, 2))
  163. 'LOCATE 11, 22
  164. 'PRINT VAL(MID$(a, 61, 2))
  165. 'LOCATE 11, 25
  166. 'PRINT VAL(MID$(a, 63, 2))
  167.  
  168. 'REM palermo
  169. 'LOCATE 13, 13
  170. 'PRINT VAL(MID$(a, 65, 2))
  171. 'LOCATE 13, 16
  172. 'PRINT VAL(MID$(a, 67, 2))
  173. 'LOCATE 13, 19
  174. 'PRINT VAL(MID$(a, 69, 2))
  175. 'LOCATE 13, 22
  176. 'PRINT VAL(MID$(a, 71, 2))
  177. 'LOCATE 13, 25
  178. 'PRINT VAL(MID$(a, 73, 2))
  179.  
  180. 'REM roma
  181. 'LOCATE 15, 13
  182. 'PRINT VAL(MID$(a, 75, 2))
  183. 'LOCATE 15, 16
  184. 'PRINT VAL(MID$(a, 77, 2))
  185. 'LOCATE 15, 19
  186. 'PRINT VAL(MID$(a, 79, 2))
  187. 'LOCATE 15, 22
  188. 'PRINT VAL(MID$(a, 81, 2))
  189. 'LOCATE 15, 25
  190. 'PRINT VAL(MID$(a, 83, 2))
  191.  
  192. 'REM torino
  193. 'LOCATE 17, 13
  194. 'PRINT VAL(MID$(a, 85, 2))
  195. 'LOCATE 17, 16
  196. 'PRINT VAL(MID$(a, 87, 2))
  197. 'LOCATE 17, 19
  198. 'PRINT VAL(MID$(a, 89, 2))
  199. 'LOCATE 17, 22
  200. 'PRINT VAL(MID$(a, 91, 2))
  201. 'LOCATE 17, 25
  202. 'PRINT VAL(MID$(a, 93, 2))
  203.  
  204. 'REM venezia
  205. 'LOCATE 19, 13
  206. 'PRINT VAL(MID$(a, 95, 2))
  207. 'LOCATE 19, 16
  208. 'PRINT VAL(MID$(a, 97, 2))
  209. 'LOCATE 19, 19
  210. 'PRINT VAL(MID$(a, 99, 2))
  211. 'LOCATE 19, 22
  212. 'PRINT VAL(MID$(a, 101, 2))
  213. 'LOCATE 19, 25
  214. 'PRINT VAL(MID$(a, 103, 2))
  215.  
  216. 'REM nazionale
  217. 'LOCATE 21, 13
  218. 'PRINT VAL(MID$(a, 105, 2))
  219. 'LOCATE 21, 16
  220. 'PRINT VAL(MID$(a, 107, 2))
  221. 'LOCATE 21, 19
  222. 'PRINT VAL(MID$(a, 109, 2))
  223. 'LOCATE 21, 22
  224. 'PRINT VAL(MID$(a, 111, 2))
  225. 'LOCATE 21, 25
  226. 'PRINT VAL(MID$(a, 113, 2))
  227. '========================================================================
  229.  
  230. labelScreen:
  232. ' setup screen labels for reporting data
  233. LOCATE 2, 1
  234. PRINT "BARI"
  235. LOCATE 4, 1
  236. PRINT "CAGLIARI"
  237. LOCATE 6, 1
  238. PRINT "FIRENZE"
  239. LOCATE 8, 1
  240. PRINT "GENOVA"
  241. LOCATE 10, 1
  242. PRINT "MILANO"
  243. LOCATE 12, 1
  244. PRINT "NAPOLI"
  245. LOCATE 14, 1
  246. PRINT "PALERMO"
  247. LOCATE 16, 1
  248. PRINT "ROMA"
  249. LOCATE 18, 1
  250. PRINT "TORINO"
  251. LOCATE 20, 1
  252. PRINT "VENEZIA"
  253. LOCATE 22, 1
  254. PRINT "NAZIONALE"
  255. 'some directions
  256. LOCATE 24, 1
  257. PRINT " + to move on";
  258. LOCATE 24, 16
  259. PRINT "- to back";
  261.  
  262. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  263.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  265.  
  266. FUNCTION diff30in90 (a, b) 'default integers a-z
  267.     DIM hi, lo
  268.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  269.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  270.     IF hi - lo = 30 THEN
  271.         diff30in90 = -1
  272.     ELSE
  273.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  274.     END IF
  276.  
  277.  
  278.  


Title: Re: help my
Post by: bplus on July 03, 2020, 07:57:27 pm
Quote
I wanted to change the position where it prints the numbers I want to support them

The column numbers are aligned to the array numbers, don't change those because they access exact parts of the array lineDAT().

You can shift the numbers over in the print on screen by adding to LOCATE lines, the col part:

It is Locate Row, Col  so maybe Col plus the amount you want to shift right say 20 characters
Set a variable called shiftRight = 20 will move text over 20 characters
Code: QB64: [Select]
  1. FOR col = 1 TO 5 'for each of the columes of data
  2.     FOR row = 1 TO 10 'for each of the rows of dat
  3.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  4.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  5.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, row)));  '>>>>>the VAL you added defeats the DD$ format
  6.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, rowPlus)));'>>>>>the VAL you added defeats the DD$ format
  7.             END IF
  8.         NEXT
  9.     NEXT
  11.  
  12.  

Remember to do it in the other print section also.

Good to fiddle with numbers and maybe break once or twice or 20 times :-))
(Just remember to keep a backup)

Code: QB64: [Select]
  1.  OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, i, lineNum ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. shiftRight = 20
  12.  
  13. 'count lines in file
  14. OPEN "lotto.dat" FOR INPUT AS #1
  16.     INPUT #1, a
  17.     '          debug check inputs from file
  18.     'PRINT a
  19.     'INPUT " OK enter "; w$
  20.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  23.  
  24. 'now we now size of file so ready an array to load file Data
  25. DIM fileDAT(1 TO count) AS STRING
  26. OPEN "lotto.dat" FOR INPUT AS #1
  27. FOR i = 1 TO count
  28.     INPUT #1, a
  29.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  32.  
  33. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  34.  
  35. GOSUB labelScreen
  36.  
  37. 'set first line and get a data string from the FileDAT array
  38. lineNum = 1
  39. a = fileDAT(lineNum)
  41.     Q$ = INKEY$
  42.     IF Q$ = "+" THEN lineNum = lineNum + 1
  43.     IF lineNum > count THEN lineNum = 1
  44.     IF Q$ = "-" THEN lineNum = lineNum - 1
  45.     IF lineNum < 1 THEN lineNum = count
  46.  
  47.     'get new data line
  48.     a = fileDAT(lineNum)
  49.  
  50.     'print out the data from the new line
  51.     CLS
  52.     GOSUB labelScreen
  53.     GOSUB screenDataLine
  54.     GOSUB loadLineDAT_Mark30s
  55.     _DISPLAY
  56.     _LIMIT 30
  59.  
  60.  
  61. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  62. rowCnt = 1: y = 1
  63. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  64.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  65.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  66.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  68. COLOR 9 'blue marker  seacrh through columes for  30's
  69. FOR col = 1 TO 5 'for each of the columes of data
  70.     FOR row = 1 TO 10 'for each of the rows of dat
  71.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  72.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  73.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  74.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  75.             END IF
  76.         NEXT
  77.     NEXT
  80.  
  81.  
  82. screenDataLine:
  84. LOCATE 1, 34
  85. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  86. aPlace = 5
  87. FOR row = 1 TO 11
  88.     FOR col = 1 TO 5
  89.         LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  90.         aPlace = aPlace + 2
  91.     NEXT
  94.  
  95. labelScreen:
  97. ' setup screen labels for reporting data
  98. LOCATE 1, 1
  99. PRINT "BARI"
  100. LOCATE 3, 1
  101. PRINT "CAGLIARI"
  102. LOCATE 5, 1
  103. PRINT "FIRENZE"
  104. LOCATE 7, 1
  105. PRINT "GENOVA"
  106. LOCATE 9, 1
  107. PRINT "MILANO"
  108. LOCATE 11, 1
  109. PRINT "NAPOLI"
  110. LOCATE 13, 1
  111. PRINT "PALERMO"
  112. LOCATE 15, 1
  113. PRINT "ROMA"
  114. LOCATE 17, 1
  115. PRINT "TORINO"
  116. LOCATE 19, 1
  117. PRINT "VENEZIA"
  118. LOCATE 21, 1
  119. PRINT "NAZIONALE"
  120. 'some directions
  121. LOCATE 24, 1
  122. PRINT " + to move on";
  123. LOCATE 24, 16
  124. PRINT "- to back";
  126.  
  127. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  128.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  130.  
  131. FUNCTION diff30in90 (a, b) 'default integers a-z
  132.     DIM hi, lo
  133.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  134.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  135.     IF hi - lo = 30 THEN
  136.         diff30in90 = -1
  137.     ELSE
  138.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  139.     END IF
  141.  
  142.  
  143.  
Title: Re: help my
Post by: Kiara87 on July 04, 2020, 09:35:16 am
many thanks now i try to finish the program thanks you helped me a lot

Quote from: bplus on July 03, 2020, 07:57:27 pm
The column numbers are aligned to the array numbers, don't change those because they access exact parts of the array lineDAT().

You can shift the numbers over in the print on screen by adding to LOCATE lines, the col part:

It is Locate Row, Col  so maybe Col plus the amount you want to shift right say 20 characters
Set a variable called shiftRight = 20 will move text over 20 characters
Code: QB64: [Select]
  1. FOR col = 1 TO 5 'for each of the columes of data
  2.     FOR row = 1 TO 10 'for each of the rows of dat
  3.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  4.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  5.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, row)));  '>>>>>the VAL you added defeats the DD$ format
  6.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, rowPlus)));'>>>>>the VAL you added defeats the DD$ format
  7.             END IF
  8.         NEXT
  9.     NEXT
  11.  
  12.  

Remember to do it in the other print section also.

Good to fiddle with numbers and maybe break once or twice or 20 times :-))
(Just remember to keep a backup)

Code: QB64: [Select]
  1.  OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, i, lineNum ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. shiftRight = 20
  12.  
  13. 'count lines in file
  14. OPEN "lotto.dat" FOR INPUT AS #1
  16.     INPUT #1, a
  17.     '          debug check inputs from file
  18.     'PRINT a
  19.     'INPUT " OK enter "; w$
  20.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  23.  
  24. 'now we now size of file so ready an array to load file Data
  25. DIM fileDAT(1 TO count) AS STRING
  26. OPEN "lotto.dat" FOR INPUT AS #1
  27. FOR i = 1 TO count
  28.     INPUT #1, a
  29.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  32.  
  33. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  34.  
  35. GOSUB labelScreen
  36.  
  37. 'set first line and get a data string from the FileDAT array
  38. lineNum = 1
  39. a = fileDAT(lineNum)
  41.     Q$ = INKEY$
  42.     IF Q$ = "+" THEN lineNum = lineNum + 1
  43.     IF lineNum > count THEN lineNum = 1
  44.     IF Q$ = "-" THEN lineNum = lineNum - 1
  45.     IF lineNum < 1 THEN lineNum = count
  46.  
  47.     'get new data line
  48.     a = fileDAT(lineNum)
  49.  
  50.     'print out the data from the new line
  51.     CLS
  52.     GOSUB labelScreen
  53.     GOSUB screenDataLine
  54.     GOSUB loadLineDAT_Mark30s
  55.     _DISPLAY
  56.     _LIMIT 30
  59.  
  60.  
  61. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  62. rowCnt = 1: y = 1
  63. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  64.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  65.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  66.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  68. COLOR 9 'blue marker  seacrh through columes for  30's
  69. FOR col = 1 TO 5 'for each of the columes of data
  70.     FOR row = 1 TO 10 'for each of the rows of dat
  71.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  72.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  73.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  74.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  75.             END IF
  76.         NEXT
  77.     NEXT
  80.  
  81.  
  82. screenDataLine:
  84. LOCATE 1, 34
  85. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  86. aPlace = 5
  87. FOR row = 1 TO 11
  88.     FOR col = 1 TO 5
  89.         LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  90.         aPlace = aPlace + 2
  91.     NEXT
  94.  
  95. labelScreen:
  97. ' setup screen labels for reporting data
  98. LOCATE 1, 1
  99. PRINT "BARI"
  100. LOCATE 3, 1
  101. PRINT "CAGLIARI"
  102. LOCATE 5, 1
  103. PRINT "FIRENZE"
  104. LOCATE 7, 1
  105. PRINT "GENOVA"
  106. LOCATE 9, 1
  107. PRINT "MILANO"
  108. LOCATE 11, 1
  109. PRINT "NAPOLI"
  110. LOCATE 13, 1
  111. PRINT "PALERMO"
  112. LOCATE 15, 1
  113. PRINT "ROMA"
  114. LOCATE 17, 1
  115. PRINT "TORINO"
  116. LOCATE 19, 1
  117. PRINT "VENEZIA"
  118. LOCATE 21, 1
  119. PRINT "NAZIONALE"
  120. 'some directions
  121. LOCATE 24, 1
  122. PRINT " + to move on";
  123. LOCATE 24, 16
  124. PRINT "- to back";
  126.  
  127. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  128.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  130.  
  131. FUNCTION diff30in90 (a, b) 'default integers a-z
  132.     DIM hi, lo
  133.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  134.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  135.     IF hi - lo = 30 THEN
  136.         diff30in90 = -1
  137.     ELSE
  138.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  139.     END IF
  141.  
  142.  
  143.  
Title: Re: help my
Post by: bplus on July 04, 2020, 12:28:41 pm
@Kiara87

So I took numbers in string form and converted them to integers when loading the lineDAT() array because it made it easier to compare numbers and run the diff30in90 FUNCTION on them but to print them again from the array, I had to convert them back to strings.

Printing numbers on highly formatted screen is usually a nightmare without some format function to convert them to strings you have more control over.

The DD$ function took any positive number < 100 and made sure 1 digit numbers were aligned on right side with 0's padding (on left) and 0 is presented as "00" (if that should ever come up). I thought 0 padding good for displaying lottery numbers.

You could also pad with spaces instead but have to say
if number = 0 then myNumberFormat$ = " 0"

Alternate pad with spaces, assuming positive numbers for number 0 <= number < 100
Code: QB64: [Select]
  1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  2.     IF number = 0 THEN DD$ = " 0" ELSE DD$ = RIGHT$("  " + _TRIM$(STR$(number)), 2)
I better test that...

Update: OK this works fine too:
Code: QB64: [Select]
  1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  2.     DD$ = RIGHT$("  " + _TRIM$(STR$(number)), 2)

Title: Re: help my
Post by: TempodiBasic on July 04, 2020, 08:06:36 pm
example of program planning   [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: help my
Post by: TempodiBasic on July 05, 2020, 09:37:59 pm
@Kiara87
Ciao
ecco una versione del programma seguendo le vaghe indicazioni che hai fornito in questo thread.

1. è una versione che usa una sola stringa per caricare il file in memoria e poi analizzarlo.
2. esegue l'operazione sul file che hai fornito quindi cambiando file (lunghezza o tipo di dati registrati dentro) va adattato
3. ho seguito le impostazioni di Bplus usando i GOSUB più facili da comprendere e usare rispetto alle SUB e alle FUNCTION
ecco il codice sorgente in QB64
Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore reosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. 'dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  24. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  26.     ' prende l'input dell'utente
  27.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  28.     GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  29.     GOSUB MostraEstratti
  30.  
  31. LOOP UNTIL z$ = "Q"
  32.  
  33.  
  34. END ' indica la fine logica del programma
  35.  
  36.  
  37. '-----------------------AREA sottoprogrammi /SUBroutines
  38.  
  39. ' questa etichetta /label indica il punto di inizio
  40. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  41. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  42. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  43. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  44. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  45. '        perche' permette la localizzazione delle variabili
  46. LeggiFile:
  47. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  48. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  49. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  50. OPEN "lotto.dat" FOR INPUT AS #1
  51. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  52. INPUT #1, a ' legge con una unica operazione il file e lo pone nella variabiel a
  53. CLOSE #1 ' chiude il file appena letto
  54. ' indica il termine della SUBroutine LeggiFile
  55. ' e RITORNA alla riga di codice successiva al salto GOSUB
  57.  
  58. 'seconda SUBroutine /sottoprogramma
  59. MostraRuote:
  60. COLOR 7, 6
  61. LOCATE 1, 1
  62. PRINT "BARI"
  63. LOCATE 3, 1
  64. PRINT "CAGLIARI"
  65. LOCATE 5, 1
  66. PRINT "FIRENZE"
  67. LOCATE 7, 1
  68. PRINT "GENOVA"
  69. LOCATE 9, 1
  70. PRINT "MILANO"
  71. LOCATE 11, 1
  72. PRINT "NAPOLI"
  73. LOCATE 13, 1
  74. PRINT "PALERMO"
  75. LOCATE 15, 1
  76. PRINT "ROMA"
  77. LOCATE 17, 1
  78. PRINT "TORINO"
  79. LOCATE 19, 1
  80. PRINT "VENEZIA"
  81. LOCATE 21, 1
  82. PRINT "NAZIONALE"
  83. LOCATE 23, 1
  84. PRINT "premi q per terminare"
  85.  
  86. ' indica il termine della SUBroutine MostraRuote
  87. ' e RITORNA alla riga di codice successiva al salto GOSUB
  89.  
  90. 'terzo sottoprogramma o SUBroutine
  91. MostraEstratti:
  92.  
  93. ' le prime 4 cifre sembrano essere in numero della estrazione
  94. LOCATE 1, 40
  95. PRINT "estraz.num "; LEFT$(a, 4)
  96.  
  98. y = 13 ' prima posizione per il carattere da stampare
  99. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR è di 5 perche' lo e' il tuo esempio
  100.     FOR V = Bari TO Nazionale ' per tutte le ruote
  101.         'posiziona il cursore
  102.         LOCATE (V * 2) - 1, y
  103.         ' verifica la condizione + o - 30
  104.         IF (V > 1) AND ABS((VAL(MID$(a, (V - 2) * 10 + 5 + ((x - 1) * 2), Cifra))) - (VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2), Cifra)))) = 30 THEN COLOR 4, 1 ELSE COLOR 15, 0
  105.         ' scrive il numero estratto
  106.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2), Cifra)); " ";
  107.     NEXT V
  108.     y = POS(0)
  110. ' indica il termine della SUBroutine MostraEstratti
  111. ' e RITORNA alla riga di codice successiva al salto GOSUB

@bplus
I have written this code to give an impulse to kiara87 to come nearer to programming world. The only goal has been to give a simple code with more comments into her native language because it seems that kiara87 has not so skills for english at this moment and she is newborn to programming world.
Title: Re: help my
Post by: bplus on July 05, 2020, 11:10:32 pm
@TempodiBasic

Well I hope your Italian is better than my English ;-))
Title: Re: help my
Post by: TempodiBasic on July 06, 2020, 12:34:19 pm
@bplus
Also I hope so! :-))
Title: Re: help my
Post by: TempodiBasic on July 06, 2020, 01:18:10 pm
@Kiara87
Salve, benvenuta nella community di QB64!

Usando il tuo lotto.dat io ho questo output allo schermo
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Quindi in questo output non va bene che è evidenziato solo il 41 ma deve essere evidenziato anche il 71.... non era molto chiara questa caratteristica ma non ci vuole molto per adattare il codice che ti ho postato.....il problema per me è che non era per niente chiaro che il confronto va fatto per qualsiasi elemento di una estrazione versus qualsiasi altro elemento della stessa estrazione... come mostri qui https://imgur.com/YalTULO (https://imgur.com/YalTULO)

in tal caso è bene usare un algoritmo leggermente differente anche senza array. Un po' di immaginazione da parte tua e troverai facilmente la strada. Programmare è trovare soluzioni,ma la vera difficoltà è definire bene il problema e il risultato che si vuole ottenere.
Ma come avevo detto all'inizio senza specifiche chiare da parte tua con un progetto tipo pseudocodice o flowchart o altro ancora che non tralascia alcun dettaglio è solo tempo perso.
In quanto ricevi feedback che non ti sono utili e ti possono portare fuori strada invece di aiutarti e nel frattempo chi risponde alle tue richieste usa tempo ed energie per elaborare risposte non efficaci. Prima progettare, poi scrivere codice.

Good Luck!


@bplus
Yes man, your look is more insightful than mine! :-))
Title: Re: help my
Post by: Kiara87 on July 08, 2020, 04:38:39 pm
@TempodiBasic  and bplus
siete bravissimi tutti e due

you are both very good


ps:  vi invidio


I envy you


non so se google traduttore traduce bene questa parola in inglese


Title: Re: help my
Post by: bplus on July 08, 2020, 07:17:36 pm
Hi @Kiara87

Still practicing with lottery example? Have you tried arrays on anything else?
Title: Re: help my
Post by: Kiara87 on July 09, 2020, 09:48:30 am

I was trying to finish the program but I find myself with many difficulties I try not to give up but I see programming difficult
maybe I need a master as good as you
only that I don't understand English
I think my problem is to understand the programming logic I mean how can a programmer think
how to compose all the instructions to create the program

I won't give up
Title: Re: help my
Post by: bplus on July 09, 2020, 11:30:29 am
It is step by step logic. I play Sudoku allot to practice step by step logic frame of mind.

If get stuck, try practice with simpler examples of problem.

If you find yourself repeating steps over and over, you probably have a subroutine, look for the one or two variables that change each repetition.

Quote
I won't give up


Yes but do give up on the way that isn't working ;-))
Title: Re: help my
Post by: Kiara87 on July 09, 2020, 04:54:24 pm
with this game you learn to program  --> https://www.sudoku-it.com/

other people have also told me with  --> Torre de Hanoi 
source 
&t=1447s

these two games teach programming

yes or no?
Title: Re: help my
Post by: bplus on July 09, 2020, 06:15:13 pm
Sudoku helps train brain to think logically automatically.
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

But cool if you can make your own version. Here is my Sudoku Game:
https://qb64.freeforums.net/thread/109/sudoku-app

Yes I studied Towers of Hanoi too!
Code: QB64: [Select]
  1. _TITLE "Towers of Hanoi 1" 'B+ started 2019-02-28
  2. '2019-03-02 I've added mBox since post of original  Towers of Hanoi 1" 'B+ started 2019-02-28
  3. ' I found I needed to fix both mBox and getClick to clear old mb clicks
  4. ' this copy contains the faulty routines getClick and mBox BUT DOES WORK with _DELAY .2 added in here
  5. ' should be fixed in, Towers of Hanoi 1 test with new mBox" 'B+ started 2019-03-02
  6.  
  7. CONST xmax = 800
  8. CONST ymax = 600
  9. CONST eTitle$ = "Towers of Hanoi Error:"
  10. SCREEN _NEWIMAGE(xmax, ymax, 32)
  11. _SCREENMOVE 300, 20
  12. DIM SHARED nDisks AS INTEGER, hDisk AS INTEGER, wMult AS INTEGER
  13. nDisks = 10
  14. hDisk = 520 / nDisks
  15. wMult = 240 / nDisks
  16. DIM SHARED dpal(1 TO nDisks) AS _UNSIGNED LONG
  17. FOR i = 1 TO nDisks
  18.     dpal(i) = _RGB32(RND * 255, RND * 255, RND * 255)
  20. DIM SHARED tower(1 TO 3, 1 TO nDisks) AS INTEGER
  21.  
  22. 'init
  23. FOR i = 1 TO nDisks
  24.     tower(1, i) = nDisks + 1 - i
  26. updateScreen
  28.     'message click or press for fromt
  29.     fromT = 0: toT = 0
  30.     fromT = getTower%
  31.     PRINT "from tower "; fromT
  32.     IF topDiskValue(fromT) THEN
  33.         toT = getTower
  34.         PRINT "to tower "; toT
  35.         IF toT <> fromT THEN
  36.             'PRINT topDiskValue(tot), topDiskValue(fromt)
  37.             IF (topDiskValue(toT) > topDiskValue(fromT)) OR topDiskValue(toT) = 0 THEN
  38.                 tower(toT, topDiskPlace(toT) + 1) = topDiskValue(fromT)
  39.                 'PRINT "topDiskPlace(fromt)"; topDiskPlace(fromt)
  40.                 tower(fromT, topDiskPlace(fromT)) = 0
  41.                 updateScreen
  42.             ELSE
  43.                 mBox "Can't place a larger disk on top a smaller one.", eTitle$
  44.             END IF
  45.         ELSE
  46.             mBox "You attempted to move a disk to the same tower.", eTitle$
  47.         END IF
  48.     ELSE
  49.         IF fromT THEN mBox "There is no disk to move in tower" + STR$(fromT), eTitle$
  50.         _DELAY .2 '<<<<< damn it I should not need this!!!
  51.     END IF
  52.     fromT = 0: toT = 0
  53.     _LIMIT 30
  55. PRINT "Goodbye!"
  57.  
  58.  
  59. SUB getClick (mx, my, q)
  60.     WHILE _MOUSEINPUT: WEND '<<<<<<<<<<  clear previous mouse activity   ITS NOT CLEARING!!!!!!!!!!!!!!
  61.     _KEYCLEAR 'clear previous key presses
  62.     mx = -1: my = -1: q = 0
  63.     DO WHILE mx = -1 AND my = -1
  64.         q = _KEYHIT
  65.         IF q = 27 OR (q > 31 AND q < 126) THEN _KEYCLEAR: EXIT SUB
  66.         i = _MOUSEINPUT: mb = _MOUSEBUTTON(1)
  67.         DO WHILE mb 'wait for release
  68.             q = _KEYHIT
  69.             IF q = 27 OR (q > 31 AND q < 126) THEN EXIT SUB
  70.             i = _MOUSEINPUT: mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  71.             _LIMIT 1000
  72.         LOOP
  73.         _LIMIT 1000
  74.     LOOP
  76.  
  77. SUB updateScreen
  78.     CLS
  79.     LINE (0, 580)-STEP(xmax, 0)
  80.     FOR t = 1 TO 3
  81.         FOR i = 1 TO nDisks
  82.             IF tower(t, i) THEN
  83.                 xhalf = (tower(t, i) * wMult) / 2
  84.                 LINE (t * 250 - xhalf - 125, 580 - hDisk * i)-STEP(2 * xhalf, hDisk), dpal(tower(t, i)), BF
  85.             END IF
  86.         NEXT
  87.     NEXT
  88.     _PRINTSTRING (0, ymax - 18), SPACE$(11) + "Tower #1" + SPACE$(24) + "Tower #2" + SPACE$(23) + "Tower #3"
  90.  
  91. FUNCTION topDiskValue (t)
  92.     FOR i = nDisks TO 1 STEP -1
  93.         IF tower(t, i) THEN topDiskValue = tower(t, i): EXIT FUNCTION
  94.     NEXT
  96.  
  97. FUNCTION topDiskPlace (t)
  98.     FOR i = nDisks TO 1 STEP -1
  99.         IF tower(t, i) THEN topDiskPlace = i: EXIT FUNCTION
  100.     NEXT
  102.  
  103. FUNCTION getTower% ()
  104.     getClick mx, my, q
  105.     IF ABS(150 - mx) < 125 THEN t = 1
  106.     IF ABS(400 - mx) < 125 THEN t = 2
  107.     IF ABS(650 - mx) < 125 THEN t = 3
  108.     IF q THEN
  109.         IF INSTR("123", CHR$(q)) > 0 THEN t = INSTR("123", CHR$(q))
  110.         IF CHR$(q) = "q" OR q = 27 THEN END
  111.     END IF
  112.     getTower% = t
  114.  
  115. 'title$ limit is 55 chars, all lines are 58 chars max
  116. ' Develop from mBox v 2018-10-27 color change, fan fix, cls
  117. SUB mBox (m$, title$)
  118.  
  119.     'first screen dimensions items to restore at exit
  120.     DIM curRow AS INTEGER, curCol AS INTEGER
  122.     DIM curScrn AS LONG, backScrn AS LONG, mbx AS LONG 'some handles
  123.     DIM ti AS INTEGER, limit AS INTEGER 'ti = text index for t$(), limit is number of chars per line
  124.     DIM i AS INTEGER, j AS INTEGER, ff AS _BIT, add AS _BYTE 'index, flag and
  125.     DIM bxH AS INTEGER, bxW AS INTEGER 'first as cells then as pixels
  126.     DIM mb AS INTEGER, mx AS INTEGER, my AS INTEGER, mi AS INTEGER, grabx AS INTEGER, graby AS INTEGER
  127.     DIM tlx AS INTEGER, tly AS INTEGER 'top left corner of message box
  128.     DIM lastx AS INTEGER, lasty AS INTEGER, r AS INTEGER, kh AS LONG
  129.     DIM b$, c$, tail$, d$
  131.     DBLU = &HFF000066
  132.     LBLU = &HFFB0A0FF
  133.     BLK = &HFF000000
  134.     WHT = &HFFFFFFFF
  135.  
  136.     curRow = CSRLIN
  137.     curCol = POS(0)
  138.     sw = _WIDTH
  139.     sh = _HEIGHT
  140.     fg = _DEFAULTCOLOR
  141.     bg = _BACKGROUNDCOLOR
  142.     'screen snapshot
  143.     curScrn = _DEST
  144.     backScrn = _NEWIMAGE(sw, sh, 32)
  145.     _PUTIMAGE , curScrn, backScrn
  146.  
  147.     'setup t$() to store strings with ti as index, linit 58 chars per line max, b$ is for build
  148.     REDIM t$(0): ti = 0: limit = 58: b$ = ""
  149.     FOR i = 1 TO LEN(m$)
  150.         c$ = MID$(m$, i, 1)
  151.         'are there any new line signals, CR, LF or both? take CRLF or LFCR as one break but dbl LF or CR means blank line
  152.         SELECT CASE c$
  153.             CASE CHR$(13) 'load line
  154.                 IF MID$(m$, i + 1, 1) = CHR$(10) THEN i = i + 1
  155.                 t$(ti) = b$: b$ = "": ti = ti + 1: REDIM _PRESERVE t$(ti)
  156.             CASE CHR$(10)
  157.                 IF MID$(m$, i + 1, 1) = CHR$(13) THEN i = i + 1
  158.                 t$(ti) = b$: b$ = "": ti = ti + 1: REDIM _PRESERVE t$(ti)
  159.             CASE ELSE
  160.                 IF c$ = CHR$(9) THEN c$ = SPACE$(4): add = 4 ELSE add = 1
  161.                 IF LEN(b$) + add > limit THEN
  162.                     tail$ = "": ff = 0
  163.                     FOR j = LEN(b$) TO 1 STEP -1 'backup until find a space, save the tail end for next line
  164.                         d$ = MID$(b$, j, 1)
  165.                         IF d$ = " " THEN
  166.                             t$(ti) = MID$(b$, 1, j - 1): b$ = tail$ + c$: ti = ti + 1: REDIM _PRESERVE t$(ti)
  167.                             ff = 1 'found space flag
  168.                             EXIT FOR
  169.                         ELSE
  170.                             tail$ = d$ + tail$ 'the tail grows!
  171.                         END IF
  172.                     NEXT
  173.                     IF ff = 0 THEN 'no break? OK
  174.                         t$(ti) = b$: b$ = c$: ti = ti + 1: REDIM _PRESERVE t$(ti)
  175.                     END IF
  176.                 ELSE
  177.                     b$ = b$ + c$ 'just keep building the line
  178.                 END IF
  179.         END SELECT
  180.     NEXT
  181.     t$(ti) = b$
  182.     bxH = ti + 3: bxW = limit + 2
  183.  
  184.     'draw message box
  185.     mbx = _NEWIMAGE(60 * 8, (bxH + 1) * 16, 32)
  186.     _DEST mbx
  187.     COLOR DBLU, WHT
  188.     LOCATE 1, 1: PRINT LEFT$(SPACE$((bxW - LEN(title$) - 3) / 2) + title$ + SPACE$(bxW), bxW)
  189.     COLOR _RGB32(225, 225, 255), _RGB32(200, 0, 0)
  190.     LOCATE 1, bxW - 2: PRINT " X "
  191.     COLOR DBLU, LBLU
  192.     LOCATE 2, 1: PRINT SPACE$(bxW);
  193.     FOR r = 0 TO ti
  194.         LOCATE 1 + r + 2, 1: PRINT LEFT$(SPACE$((bxW - LEN(t$(r))) / 2) + t$(r) + SPACE$(bxW), bxW);
  195.     NEXT
  196.     LOCATE 1 + bxH, 1: PRINT SPACE$(limit + 2);
  197.  
  198.     'now for the action
  199.     _DEST curScrn
  200.  
  201.     'convert to pixels the top left corner of box at moment
  202.     bxW = bxW * 8: bxH = bxH * 16
  203.     tlx = (sw - bxW) / 2: tly = (sh - bxH) / 2
  204.     lastx = tlx: lasty = tly
  205.     'now allow user to move it around or just read it
  206.     WHILE 1
  207.         CLS
  208.         _PUTIMAGE , backScrn
  209.         _PUTIMAGE (tlx, tly), mbx, curScrn
  210.         _DISPLAY
  211.         WHILE _MOUSEINPUT: WEND
  212.         mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
  213.         IF mb THEN
  214.             IF mx >= tlx AND mx <= tlx + bxW AND my >= tly AND my <= tly + 16 THEN 'mouse down on title bar
  215.                 IF mx >= tlx + bxW - 24 THEN EXIT WHILE
  216.                 grabx = mx - tlx: graby = my - tly
  217.                 DO WHILE mb 'wait for release
  218.                     mi = _MOUSEINPUT: mb = _MOUSEBUTTON(1)
  219.                     mx = _MOUSEX: my = _MOUSEY
  220.                     IF mx - grabx >= 0 AND mx - grabx <= sw - bxW AND my - graby >= 0 AND my - graby <= sh - bxH THEN
  221.                         'attempt to speed up with less updates
  222.                         IF ((lastx - (mx - grabx)) ^ 2 + (lasty - (my - graby)) ^ 2) ^ .5 > 10 THEN
  223.                             tlx = mx - grabx: tly = my - graby
  224.                             CLS
  225.                             _PUTIMAGE , backScrn
  226.                             _PUTIMAGE (tlx, tly), mbx, curScrn
  227.                             lastx = tlx: lasty = tly
  228.                             _DISPLAY
  229.                         END IF
  230.                     END IF
  231.                     _LIMIT 600
  232.                 LOOP
  233.             END IF
  234.         END IF
  235.         kh = _KEYHIT
  236.         SELECT CASE kh
  237.             CASE 27, 13, 32: _DELAY .2: EXIT WHILE
  238.         END SELECT
  239.         _LIMIT 60
  240.     WEND
  241.     'put things back
  242.     COLOR fg, bg: CLS
  243.     _PUTIMAGE , backScrn
  244.     _DISPLAY
  245.     _FREEIMAGE backScrn
  246.     _FREEIMAGE mbx
  248.     _KEYCLEAR
  249.     LOCATE curRow, curCol
  251.  
  252.  
Title: Re: help my
Post by: Kiara87 on July 10, 2020, 03:03:27 am
@bplu a true master in programming
I hope one day I will become as good as you

i am trying to solve the sudoku even though i set it to easy mode
it is still very difficult for me
Title: Re: help my
Post by: SMcNeill on July 10, 2020, 03:40:43 am
If it helps, Kiara, remember this -- All computer programming breaks down to 3 steps:

1) Step by step commands
2) Decision making
3) Repetition

Take any problem facing you, and you can break its solution down to those 3 steps (including life problems).  Let's say I tell you, "Make me a peanut butter sandwich."   How do you accomplish that task?

Get up.
Go in kitchen.
Get a knife.
Get bread.
Get peanut butter.
Open bread, remove a slice.
Put knife in peanut butter.
Remove knife from peanut butter.
Wipe knife on bread.
Put down knife.
Remove slice of bread from pack.
Place bread on bread.

And there's the biggest problem programmers usually face -- we think "fix a sandwich", and we do it.  The computer has to have that instruction broken down step-by-step, to accomplish the same task...  It's not the complexity of the problem that confound us; it's the simplicity of the computer.

Even with the above set of instructions, it's probably not enough for your pet robot to make that sandwich.  "Get up" implies it was down somewhere.  "Go in kitchen" is vague.  From Where?  How many steps?  How many turns around corners, or up and down steps?  Whose kitchen?

The trick is to break your problem down into smaller stages, and then see if there's a set of computer commands to fulfill those needs.  If not, break those needs down smaller, until there are.

For example let's say I tell you to, "Print the contents of a file for me."

Breaking that order down to its components, we have to:

Choose a file.
Open that file.
Load the contents of that file in memory.
Print that file.
Repeat the last two steps until the whole file is printed.
Close the file.

Now, we have a basic step-by-step road map of how our program will look.

INPUT "Give me the name of the file you want to print ", filename$
OPEN filename$ FOR INPUT AS #1
DO
    LINE INPUT #1, text$
    PRINT text$
LOOP UNTIL EOF(1)
CLOSE #1


Take your complex problem and break it down to its step-by-step components.  If you can do that, you can write your own computer programs.
Title: Re: help my
Post by: _vince on July 10, 2020, 07:21:02 am
Quote from: SMcNeill on July 10, 2020, 03:40:43 am
Take any problem facing you, and you can break its solution down to those 3 steps (including life problems).  Let's say I tell you, "Make me a peanut butter sandwich."   How do you accomplish that task?

I think Steve's trying to say leave the coding to bplus and make him a sandwich
Title: Re: help my
Post by: bplus on July 10, 2020, 11:31:23 am
LOL I do like simple things like Peanut Butter and Jelly sandwiches. Gots to have the jelly though!

I guess I like making things simple, certainly things presented simply. But what I really like is thinking of something and seeing it work on the computer screen. That sense of power overcomes all the tedium and frustration that comes from practice with Basic.

I've been working on Sudoku for way over a year, just to check and see if my advanced level puzzles generated from my program are both unique and solvable. I think I have unique but solvable, still uncertain about that one.

Tower of Hanoi is boring after you "get" what it takes to solve the puzzle, it's about 10 or 20 steps repeated over and over in a certain order, so easy for a human to loose track of that order and start going backwards again! 🤦‍♂️

Title: Re: help my
Post by: Kiara87 on July 10, 2020, 06:06:18 pm
Quote from: SMcNeill on July 10, 2020, 03:40:43 am
If it helps, Kiara, remember this -- All computer programming breaks down to 3 steps:

1) Step by step commands
2) Decision making
3) Repetition

Take any problem facing you, and you can break its solution down to those 3 steps (including life problems).  Let's say I tell you, "Make me a peanut butter sandwich."   How do you accomplish that task?

Get up.
Go in kitchen.
Get a knife.
Get bread.
Get peanut butter.
Open bread, remove a slice.
Put knife in peanut butter.
Remove knife from peanut butter.
Wipe knife on bread.
Put down knife.
Remove slice of bread from pack.
Place bread on bread.

And there's the biggest problem programmers usually face -- we think "fix a sandwich", and we do it.  The computer has to have that instruction broken down step-by-step, to accomplish the same task...  It's not the complexity of the problem that confound us; it's the simplicity of the computer.

Even with the above set of instructions, it's probably not enough for your pet robot to make that sandwich.  "Get up" implies it was down somewhere.  "Go in kitchen" is vague.  From Where?  How many steps?  How many turns around corners, or up and down steps?  Whose kitchen?

The trick is to break your problem down into smaller stages, and then see if there's a set of computer commands to fulfill those needs.  If not, break those needs down smaller, until there are.

For example let's say I tell you to, "Print the contents of a file for me."

Breaking that order down to its components, we have to:

Choose a file.
Open that file.
Load the contents of that file in memory.
Print that file.
Repeat the last two steps until the whole file is printed.
Close the file.

Now, we have a basic step-by-step road map of how our program will look.

INPUT "Give me the name of the file you want to print ", filename$
OPEN filename$ FOR INPUT AS #1
DO
    LINE INPUT #1, text$
    PRINT text$
LOOP UNTIL EOF(1)
CLOSE #1


Take your complex problem and break it down to its step-by-step components.  If you can do that, you can write your own computer programs.

thanks steven for your suggestion



I also see that you are a good programmer

It is always an honor to have advice from you as an expert in programming
Title: Re: help my
Post by: Kiara87 on July 10, 2020, 06:11:28 pm
Quote from: bplus on July 10, 2020, 11:31:23 am
LOL I do like simple things like Peanut Butter and Jelly sandwiches. Gots to have the jelly though!

I guess I like making things simple, certainly things presented simply. But what I really like is thinking of something and seeing it work on the computer screen. That sense of power overcomes all the tedium and frustration that comes from practice with Basic.

I've been working on Sudoku for way over a year, just to check and see if my advanced level puzzles generated from my program are both unique and solvable. I think I have unique but solvable, still uncertain about that one.

Tower of Hanoi is boring after you "get" what it takes to solve the puzzle, it's about 10 or 20 steps repeated over and over in a certain order, so easy for a human to loose track of that order and start going backwards again! 🤦‍♂️

you are really good 
I'm also following your advice by playing with sudoku
this game is fantastic

I really like how you program I want to become as good as you
you can create anything with QB64

you are my master idol
Title: Re: help my
Post by: bplus on July 10, 2020, 06:57:37 pm
Quote
you are my master idol

Kind of embarrassing, kind of like it :)  Steve's OK too!

Here are some fun puzzles from a real master:  http://paulbourke.net/fun/
I just figured out the first one on the easy list.

Here is Terry Richie's QB64 tutorial that TempodiBasic and I can help you with :)
https://www.qb64sourcecode.com

Be sure to bookmark this:
https://www.qb64.org/wiki/Main_Page

Just 10,000 more hours of fun!
Title: Re: help my
Post by: TempodiBasic on July 10, 2020, 07:45:38 pm
Salve Kiara87
sembra che nonostante le difficoltà non demordi, brava questa è la prima dote di un buon programmatore la tenacia o la costanza se preferisci.

Dal mio codice vedo che non sei riuscita ad andare verso i tuoi obiettivi:
1 per ogni estrazione evidenziare le coppie di  numeri distanti 30 unità
2 salvare questa elaborazione per usarla altrove....

la  tua tenacia mi ha spinto a fornirti il compito risolto.... con tutta una serie di commenti in italiano... ma se vuoi attingere alla vera conoscenza nella programmazione impara un po' di inglese sia perchè le novità le trovi pubblicate in inglese perchè è una lingua universale... sia perchè puoi accedere alle risorse di tutto il mondo della programmazione.

Steve Bplus e _Vince ti hanno dato degli ottimi consigli sotto forma di lezioni che sembrano per principianti, ed in parte lo sono, ma sono sempre valide... sai come quando impari le 4 operazioni alle elementari ma le userai anche quando farai i calcoli di ingegneria o di fisica o di statistica combinatoria (come quella che stai cercando di sviluppare tu qui relativamente al gioco del lotto)

lo stile di programmazione che hai adottato tu con il tuo file Dafinire8.bas è detto spaghetti code perchè l'uso molteplice e continuo del GOTO se fosse evidenziato da un filo che segue il flusso di esecuzione del programma disegnerebbe una matassa di spaghetti ingarbugliati...
può funzionare, ma è molto difficile da correggere e da capire perchè ogni modifica che apporti non sai bene dove e cosa farà. Quindi difficile da costruire in maniera funzionale, difficile da capire quando lo rileggi dopo tempo, difficile da modificare per una espansione o per un adattamento ad un altro compito similare.
 
Lo stile di programmazione usato dai mitici amici Steve Bplus _Vince e tutti gli altri programmatori di questa community è prevalentemente modulare giacchè Qbasic e QB64 sono linguaggi procedurali o modulari... lo schema che ti ho postato come immagine in questo thread ti indica come progettare un programma per scriverlo in maniera efficiente, rapido, che funzioni, facile da capire, facile da modificare, facile da adattare....
è lo stesso suggerimento di Steve di suddividere l'azione che deve compiere il tuo programma in tante piccole azioni sequenziali e limitare ciascuna di queste in un blocco di codice detto procedura o subroutine o funzione (quando ti da indietro un risultato), e poi se possibile suddividere queste in ulteriori procedure più piccole fino a raggiungere un livello accettabile di semplicità. Fatto questo puoi iniziare a tradurre questo procedimento che si chiama ALGORITMO in CODICE SORGENTE ossia codice che usa parole tipiche di un linguaggio di programmazione e qui tu hai scelto il QB64.  Infine con la compilazione il compilatore traduce questo codice ad alto livello in codice binario (una sequenza di 0 e 1 ) che ha significato per la macchina computer e che esegue sempre e solo quello che tu gli hai detto di fare. Mai niente di più. Quindi quando non ottieni il risultato o l'algoritmo è sbagliato o il codice sorgente è sbagliato. In entrambi i casi l' errore è del programmatore. ;-)

e dopo tante chiacchiere ecco il codice sorgente in QB64 del programma cerca coppie di numeri a distanza di 30 unità nella estrazione del lotto leggendo i dati di estrazione da un file di testo in cui ogni riga contiene i dati come una sola cifra. (questa ti sembra una definizione più chiara del programma e di ciò che fa?)
1.
prendi i dati -->
    leggi i dati dal file e memorizzali in RAM (mediante variabili)-->
    apri il file di dati e leggi i dati e copiali in variabile/variabili dopo aver dichiarato le variabili


2.
analizza i dati estraendo i numeri distanti 30 in ogni estrazione lotto --> la singola sequenza della singola estrazione è formata da 4 cifre iniziali di riga che sono il numero estrazione e da 110 cifre che sono i numeri estratti (ogni numero estratto va da 01 a 90 rappresentati da 2 cifre) le ruote di estrazioni sono 11 e ogni estrazione ha 5 cifre estratte quindi 2*5*11 = 110

Accedendo al file in maniera binaria ossia a basso livello dobbiamo considerare che il segno che di andare a capo corrisponde ad altri 2 carattere CR+LF che corrispondono ai numeri ASCII 13 e 10, quindi accedendo in maniera binaria a basso livello ogni riga termina con questa coppia di numeri ASCII e quindi ogni riga è lunga in modalità testo 4+110 = 114 mentre in modalità binaria 4+110+CR+LF = 116 caratteri

3.
stampa e memorizza i dati estratti --> mostra con colore diverso a video e scrivi su file i dati estratti
ho trovato molto più semplice scrivere tutta la griglia di numeri non analizzati con il colore dei numeri NON distanti 30 e riscrivere poi in secondo tempo i numeri con distanza 30 in altro colore. Mentre la griglia di lettura ossia le ruote e il numero di estrazione hanno un colore diverso per meglio distinguerle. Nella stessa procedura di cerca distanza 30 ho messo la memorizzazione su file degli stessi, mentre il numero estrazione viene segnato nel ciclo (loop) principale.

Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. ' dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' verifica che tutto il file sia letto
  24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  25. '    PRINT MID$(a, b, 116)
  26. '    '    PRINT INSTR(b, a, CHR$(13))
  27. '    _DELAY .1
  28. 'NEXT b
  29.  
  30.  
  31.  
  32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  34. b = 1
  35. z$ = " "
  36. OPEN "distanza30.dat" FOR APPEND AS #2
  38.     IF z$ <> "" THEN
  39.         CLS ' questo risolve un glitch di output sullo schermo
  40.         ' in alternativa alla riga sopra CLS nel sottoblocco
  41.         ' MostraEstratti va stampata la stringa estratto e
  42.         ' non il suo valore corrispondente ottenuto con VAL
  43.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  44.         GOSUB MostraEstratti
  45.     END IF
  46.     ' prende l'input dell'utente
  47.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  48.     IF z$ = "+" AND b < (LEN(a) - 116) THEN b = b + 116
  49.     IF z$ = "-" AND b > 116 THEN b = b - 116
  50. LOOP UNTIL z$ = "Q"
  52.  
  53. END ' indica la fine logica del programma
  54.  
  55.  
  56. '-----------------------AREA sottoprogrammi /SUBroutines
  57.  
  58. ' questa etichetta /label indica il punto di inizio
  59. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  60. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  61. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  62. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  63. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  64. '        perche' permette la localizzazione delle variabili
  65. LeggiFile:
  66. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  67. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  68. '<--------------------
  69. ' questo metodo e' piu' lento
  70. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  71. 'OPEN "lotto.dat" FOR INPUT AS #1
  72. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  73. '<--------------------
  74.  
  75. ' apre lotto.dat per leggerlo in maniera binaria
  76. OPEN "lotto.dat" FOR BINARY AS #1
  77. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  78. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabiel a
  79. CLOSE #1 ' chiude il file appena letto
  80. ' indica il termine della SUBroutine LeggiFile
  81. ' e RITORNA alla riga di codice successiva al salto GOSUB
  83.  
  84. 'seconda SUBroutine /sottoprogramma
  85. MostraRuote:
  86. COLOR 7, 6
  87. LOCATE 1, 1
  88. PRINT "BARI"
  89. LOCATE 3, 1
  90. PRINT "CAGLIARI"
  91. LOCATE 5, 1
  92. PRINT "FIRENZE"
  93. LOCATE 7, 1
  94. PRINT "GENOVA"
  95. LOCATE 9, 1
  96. PRINT "MILANO"
  97. LOCATE 11, 1
  98. PRINT "NAPOLI"
  99. LOCATE 13, 1
  100. PRINT "PALERMO"
  101. LOCATE 15, 1
  102. PRINT "ROMA"
  103. LOCATE 17, 1
  104. PRINT "TORINO"
  105. LOCATE 19, 1
  106. PRINT "VENEZIA"
  107. LOCATE 21, 1
  108. PRINT "NAZIONALE"
  109. LOCATE 23, 1
  110. PRINT "premi q per terminare, + avanti, - indietro"
  111.  
  112. ' indica il termine della SUBroutine MostraRuote
  113. ' e RITORNA alla riga di codice successiva al salto GOSUB
  115.  
  116. 'terzo sottoprogramma o SUBroutine
  117. MostraEstratti:
  118.  
  119. ' le prime 4 cifre sembrano essere in numero della estrazione
  120. LOCATE 1, 40
  121. PRINT "estraz.num "; MID$(a, b, 4)
  122. PRINT #2, "estraz.num "; MID$(a, b, 4)
  124. y = 13 ' prima posizione per il carattere da stampare
  125. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  126.     A1 = "" ' resetto a1 per il prossimo giro
  127.     FOR V = Bari TO Nazionale ' per tutte le ruote
  128.         COLOR 15, 0
  129.         'posiziona il cursore
  130.         LOCATE (V * 2) - 1, y
  131.         ' scrive il numero estratto
  132.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  133.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  134.     NEXT V
  135.     GOSUB Mostra30
  136.     y = POS(0)
  138. ' indica il termine della SUBroutine MostraEstratti
  139. ' e RITORNA alla riga di codice successiva al salto GOSUB
  141.  
  142.  
  143. Mostra30:
  145. FOR v1 = Bari TO Venezia ' per tutte le ruote
  146.     FOR v2 = v1 + 1 TO Nazionale
  147.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
  148.             COLOR 1, 0
  149.             'posiziona                                                                      il cursore
  150.             LOCATE (v1 * 2) - 1, y
  151.             ' scrive il numero estratto
  152.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  153.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  154.             'posiziona                                                                      il cursore
  155.             LOCATE (v2 * 2) - 1, y
  156.             ' scrive il numero estratto
  157.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  158.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
  159.         END IF
  160.     NEXT v2
  161. NEXT v1
  162. COLOR 15, 0
  163. ' indica il termine della SUBroutine MostraEstratti
  164. ' e RITORNA alla riga di codice successiva al salto GOSUB
e questo è lo screenshot
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

osservazioni:
-lavorare in RAM è molto più veloce che lavorare su disco
-accedere al file in maniera binaria ti permette di caricare tutto il file in RAM con una unica istruzione
-con MID$ sapendo la struttura della singola estrazione del lotto |numero di 4 cifre|estrazioni di 110cifre 1ruota5estrazioni2ruota5estrazioni...11ruota5estrazioni|acapo CR+LF| puoi navigare attraverso i dati con sicurezza

-una alternativa validissima è l'uso di un array dinamico
Code: QB64: [Select]
  1. REDIM Estrazioni (1 to Max) AS STRING
  2.  

-una altra alternativa validissima è l'uso di una UDT con TYPE---END TYPE con un array dinamico
ad esempio
Code: QB64: [Select]
  1. TYPE Estrazione
  2.    Numestrazione AS STRING * 4
  3.    EstrattiBari AS STRING * 10
  4.    EstrattiCagliari AS STRING * 10
  5.    EstrattiFirenze AS STRING * 10
  6.    ...
  7.    EstrattiNazionale AS STRING * 10
  9.  
  10. REDIM Lotto (1 to Max) AS Estrazione
  11.  

Buona avventura nel mondo della programmazione e non cadere nella trappola dei principianti che cambiano continuamente linguaggio perchè pensano di poter farme meglio con una altro rispetto a quello che stanno imparando... ;)
Title: Re: help my
Post by: Kiara87 on July 11, 2020, 06:48:46 am
grazie @TempodiBasic
anche te sei una macchinetta di programmazione il tuo stile di programmazione e ottimo
solamente che sono io che ancora non riesco a leggere bene il codice essendo ancora alle prime armi
grazie per la tua spiegazione sei molto gentile e grazie per avermi imparato di scrivere il codice in pseudocodice
poi il problema e' quello di convertire in codice sorgente pero' credo che con il tempo imparo anche questo
tutte le tue spiegazioni servono e' cerchero di mettere in atto anche se alcuni punti non riesco a capire anche se sono bene dettagliate
hai ragione il mio primo codice era codice spaghetti inizialmente non sapevo il significato sono andato su internet e ho capito cosa intendi
troppi goto  un codice con troppi nodi che non si riesce a leggere come ho capito anche se esiste istruzione goto meglio evitarla
ho visto codice append che crea un file che poi lo rilegge devo ancora studiare anche questo

la cosa che mi viene molto difficile da capire e' questa parte qui
Code: QB64: [Select]
  1. LOCATE 1, 40
  2. PRINT "estraz.num "; MID$(a, b, 4)
  3. PRINT #2, "estraz.num "; MID$(a, b, 4)
  5. y = 13 ' prima posizione per il carattere da stampare
  6. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  7.     A1 = "" ' resetto a1 per il prossimo giro
  8.     FOR V = Bari TO Nazionale ' per tutte le ruote
  9.         COLOR 15, 0
  10.         'posiziona il cursore
  11.         LOCATE (V * 2) - 1, y
  12.         ' scrive il numero estratto
  13.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  14.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  15.     NEXT V
  16.     GOSUB Mostra30
  17.     y = POS(0)
  19.  
come voi programmatori posizionate i numeri con i locate e li distanziate
esempio: mentre io usavo locate 1,10 ecc..
e un altro punto che devo ancora adattarmi  esempio io il file lo leggevo con la variabile a e mid$ ma devo capire la funzione di altri variabili aggiunti -->
PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
        A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))

credo che per capirle cerchero di modificare i valori

una domanda magari banale per saper programmare ci vuole conoscenza di matematica? oppure la conoscenda di matematica ci vuole per questo tipo di programma?
per conoscenza matematica non intendo quella elementare ma superiore alle scuole basi

ancora grazie e' sei stato moltissimo di aiuto a spiegare la tua esperienza e condividerla qui
ovviamente si deve studiare per imparare
io ricordo che le prime volte domandavo sui forum quanto tempo ci vuole per imparare a programmare
adesso forse la risposta e' dipende quante ore studi al giorno
io non ho tanto tempo magari 1 oppure 2 ore al giorno
magari ci impiego di piu'
ma non mollerò


Quote from: TempodiBasic on July 10, 2020, 07:45:38 pm
Salve Kiara87
sembra che nonostante le difficoltà non demordi, brava questa è la prima dote di un buon programmatore la tenacia o la costanza se preferisci.

Dal mio codice vedo che non sei riuscita ad andare verso i tuoi obiettivi:
1 per ogni estrazione evidenziare le coppie di  numeri distanti 30 unità
2 salvare questa elaborazione per usarla altrove....

la  tua tenacia mi ha spinto a fornirti il compito risolto.... con tutta una serie di commenti in italiano... ma se vuoi attingere alla vera conoscenza nella programmazione impara un po' di inglese sia perchè le novità le trovi pubblicate in inglese perchè è una lingua universale... sia perchè puoi accedere alle risorse di tutto il mondo della programmazione.

Steve Bplus e _Vince ti hanno dato degli ottimi consigli sotto forma di lezioni che sembrano per principianti, ed in parte lo sono, ma sono sempre valide... sai come quando impari le 4 operazioni alle elementari ma le userai anche quando farai i calcoli di ingegneria o di fisica o di statistica combinatoria (come quella che stai cercando di sviluppare tu qui relativamente al gioco del lotto)

lo stile di programmazione che hai adottato tu con il tuo file Dafinire8.bas è detto spaghetti code perchè l'uso molteplice e continuo del GOTO se fosse evidenziato da un filo che segue il flusso di esecuzione del programma disegnerebbe una matassa di spaghetti ingarbugliati...
può funzionare, ma è molto difficile da correggere e da capire perchè ogni modifica che apporti non sai bene dove e cosa farà. Quindi difficile da costruire in maniera funzionale, difficile da capire quando lo rileggi dopo tempo, difficile da modificare per una espansione o per un adattamento ad un altro compito similare.
 
Lo stile di programmazione usato dai mitici amici Steve Bplus _Vince e tutti gli altri programmatori di questa community è prevalentemente modulare giacchè Qbasic e QB64 sono linguaggi procedurali o modulari... lo schema che ti ho postato come immagine in questo thread ti indica come progettare un programma per scriverlo in maniera efficiente, rapido, che funzioni, facile da capire, facile da modificare, facile da adattare....
è lo stesso suggerimento di Steve di suddividere l'azione che deve compiere il tuo programma in tante piccole azioni sequenziali e limitare ciascuna di queste in un blocco di codice detto procedura o subroutine o funzione (quando ti da indietro un risultato), e poi se possibile suddividere queste in ulteriori procedure più piccole fino a raggiungere un livello accettabile di semplicità. Fatto questo puoi iniziare a tradurre questo procedimento che si chiama ALGORITMO in CODICE SORGENTE ossia codice che usa parole tipiche di un linguaggio di programmazione e qui tu hai scelto il QB64.  Infine con la compilazione il compilatore traduce questo codice ad alto livello in codice binario (una sequenza di 0 e 1 ) che ha significato per la macchina computer e che esegue sempre e solo quello che tu gli hai detto di fare. Mai niente di più. Quindi quando non ottieni il risultato o l'algoritmo è sbagliato o il codice sorgente è sbagliato. In entrambi i casi l' errore è del programmatore. ;-)

e dopo tante chiacchiere ecco il codice sorgente in QB64 del programma cerca coppie di numeri a distanza di 30 unità nella estrazione del lotto leggendo i dati di estrazione da un file di testo in cui ogni riga contiene i dati come una sola cifra. (questa ti sembra una definizione più chiara del programma e di ciò che fa?)
1.
prendi i dati -->
    leggi i dati dal file e memorizzali in RAM (mediante variabili)-->
    apri il file di dati e leggi i dati e copiali in variabile/variabili dopo aver dichiarato le variabili


2.
analizza i dati estraendo i numeri distanti 30 in ogni estrazione lotto --> la singola sequenza della singola estrazione è formata da 4 cifre iniziali di riga che sono il numero estrazione e da 110 cifre che sono i numeri estratti (ogni numero estratto va da 01 a 90 rappresentati da 2 cifre) le ruote di estrazioni sono 11 e ogni estrazione ha 5 cifre estratte quindi 2*5*11 = 110

Accedendo al file in maniera binaria ossia a basso livello dobbiamo considerare che il segno che di andare a capo corrisponde ad altri 2 carattere CR+LF che corrispondono ai numeri ASCII 13 e 10, quindi accedendo in maniera binaria a basso livello ogni riga termina con questa coppia di numeri ASCII e quindi ogni riga è lunga in modalità testo 4+110 = 114 mentre in modalità binaria 4+110+CR+LF = 116 caratteri

3.
stampa e memorizza i dati estratti --> mostra con colore diverso a video e scrivi su file i dati estratti
ho trovato molto più semplice scrivere tutta la griglia di numeri non analizzati con il colore dei numeri NON distanti 30 e riscrivere poi in secondo tempo i numeri con distanza 30 in altro colore. Mentre la griglia di lettura ossia le ruote e il numero di estrazione hanno un colore diverso per meglio distinguerle. Nella stessa procedura di cerca distanza 30 ho messo la memorizzazione su file degli stessi, mentre il numero estrazione viene segnato nel ciclo (loop) principale.

Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. ' dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' verifica che tutto il file sia letto
  24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  25. '    PRINT MID$(a, b, 116)
  26. '    '    PRINT INSTR(b, a, CHR$(13))
  27. '    _DELAY .1
  28. 'NEXT b
  29.  
  30.  
  31.  
  32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  34. b = 1
  35. z$ = " "
  36. OPEN "distanza30.dat" FOR APPEND AS #2
  38.     IF z$ <> "" THEN
  39.         CLS ' questo risolve un glitch di output sullo schermo
  40.         ' in alternativa alla riga sopra CLS nel sottoblocco
  41.         ' MostraEstratti va stampata la stringa estratto e
  42.         ' non il suo valore corrispondente ottenuto con VAL
  43.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  44.         GOSUB MostraEstratti
  45.     END IF
  46.     ' prende l'input dell'utente
  47.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  48.     IF z$ = "+" AND b < (LEN(a) - 116) THEN b = b + 116
  49.     IF z$ = "-" AND b > 116 THEN b = b - 116
  50. LOOP UNTIL z$ = "Q"
  52.  
  53. END ' indica la fine logica del programma
  54.  
  55.  
  56. '-----------------------AREA sottoprogrammi /SUBroutines
  57.  
  58. ' questa etichetta /label indica il punto di inizio
  59. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  60. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  61. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  62. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  63. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  64. '        perche' permette la localizzazione delle variabili
  65. LeggiFile:
  66. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  67. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  68. '<--------------------
  69. ' questo metodo e' piu' lento
  70. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  71. 'OPEN "lotto.dat" FOR INPUT AS #1
  72. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  73. '<--------------------
  74.  
  75. ' apre lotto.dat per leggerlo in maniera binaria
  76. OPEN "lotto.dat" FOR BINARY AS #1
  77. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  78. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabiel a
  79. CLOSE #1 ' chiude il file appena letto
  80. ' indica il termine della SUBroutine LeggiFile
  81. ' e RITORNA alla riga di codice successiva al salto GOSUB
  83.  
  84. 'seconda SUBroutine /sottoprogramma
  85. MostraRuote:
  86. COLOR 7, 6
  87. LOCATE 1, 1
  88. PRINT "BARI"
  89. LOCATE 3, 1
  90. PRINT "CAGLIARI"
  91. LOCATE 5, 1
  92. PRINT "FIRENZE"
  93. LOCATE 7, 1
  94. PRINT "GENOVA"
  95. LOCATE 9, 1
  96. PRINT "MILANO"
  97. LOCATE 11, 1
  98. PRINT "NAPOLI"
  99. LOCATE 13, 1
  100. PRINT "PALERMO"
  101. LOCATE 15, 1
  102. PRINT "ROMA"
  103. LOCATE 17, 1
  104. PRINT "TORINO"
  105. LOCATE 19, 1
  106. PRINT "VENEZIA"
  107. LOCATE 21, 1
  108. PRINT "NAZIONALE"
  109. LOCATE 23, 1
  110. PRINT "premi q per terminare, + avanti, - indietro"
  111.  
  112. ' indica il termine della SUBroutine MostraRuote
  113. ' e RITORNA alla riga di codice successiva al salto GOSUB
  115.  
  116. 'terzo sottoprogramma o SUBroutine
  117. MostraEstratti:
  118.  
  119. ' le prime 4 cifre sembrano essere in numero della estrazione
  120. LOCATE 1, 40
  121. PRINT "estraz.num "; MID$(a, b, 4)
  122. PRINT #2, "estraz.num "; MID$(a, b, 4)
  124. y = 13 ' prima posizione per il carattere da stampare
  125. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  126.     A1 = "" ' resetto a1 per il prossimo giro
  127.     FOR V = Bari TO Nazionale ' per tutte le ruote
  128.         COLOR 15, 0
  129.         'posiziona il cursore
  130.         LOCATE (V * 2) - 1, y
  131.         ' scrive il numero estratto
  132.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  133.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  134.     NEXT V
  135.     GOSUB Mostra30
  136.     y = POS(0)
  138. ' indica il termine della SUBroutine MostraEstratti
  139. ' e RITORNA alla riga di codice successiva al salto GOSUB
  141.  
  142.  
  143. Mostra30:
  145. FOR v1 = Bari TO Venezia ' per tutte le ruote
  146.     FOR v2 = v1 + 1 TO Nazionale
  147.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
  148.             COLOR 1, 0
  149.             'posiziona                                                                      il cursore
  150.             LOCATE (v1 * 2) - 1, y
  151.             ' scrive il numero estratto
  152.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  153.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  154.             'posiziona                                                                      il cursore
  155.             LOCATE (v2 * 2) - 1, y
  156.             ' scrive il numero estratto
  157.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  158.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
  159.         END IF
  160.     NEXT v2
  161. NEXT v1
  162. COLOR 15, 0
  163. ' indica il termine della SUBroutine MostraEstratti
  164. ' e RITORNA alla riga di codice successiva al salto GOSUB
e questo è lo screenshot
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

osservazioni:
-lavorare in RAM è molto più veloce che lavorare su disco
-accedere al file in maniera binaria ti permette di caricare tutto il file in RAM con una unica istruzione
-con MID$ sapendo la struttura della singola estrazione del lotto |numero di 4 cifre|estrazioni di 110cifre 1ruota5estrazioni2ruota5estrazioni...11ruota5estrazioni|acapo CR+LF| puoi navigare attraverso i dati con sicurezza

-una alternativa validissima è l'uso di un array dinamico
Code: QB64: [Select]
  1. REDIM Estrazioni (1 to Max) AS STRING
  2.  

-una altra alternativa validissima è l'uso di una UDT con TYPE---END TYPE con un array dinamico
ad esempio
Code: QB64: [Select]
  1. TYPE Estrazione
  2.    Numestrazione AS STRING * 4
  3.    EstrattiBari AS STRING * 10
  4.    EstrattiCagliari AS STRING * 10
  5.    EstrattiFirenze AS STRING * 10
  6.    ...
  7.    EstrattiNazionale AS STRING * 10
  9.  
  10. REDIM Lotto (1 to Max) AS Estrazione
  11.  

Buona avventura nel mondo della programmazione e non cadere nella trappola dei principianti che cambiano continuamente linguaggio perchè pensano di poter farme meglio con una altro rispetto a quello che stanno imparando... ;)
Title: Re: help my
Post by: TempodiBasic on July 11, 2020, 12:19:49 pm
@ kiara87
about
Quote
come voi programmatori posizionate i numeri con i locate e li distanziate
esempio: mentre io usavo locate 1,10 ecc..
PRINT si comporta in maniera differente se stampa un numero o una stringa
nell'elaborare l'output grafico della tabella dei numeri estratti mi sono imbattuto in un glitch perchè appunto la scritta a video viene spostata a seconda che si tratti di una cifra o 2 cifre.

Il problema ha 2 possibili soluzioni 1. ripulire lo schermo prima di riscriverlo come ho fatto io mettendo il CLS nel loop principale del programma (nel main) oppure 2 stampare la stringa invece del numero corrispondente (la differenza è che a video tu vedrai 02 al posto di 2)
una terza via 3. è usare l'struzione PRINT USING (come ti ha suggerito Bplus) per formattare l'output a video (questo è analogo al C  Printf(%d,%f...),a,c,...)

il
Code: QB64: [Select]
  1.    FOR V = Bari TO Nazionale ' per tutte le ruote
  2.         COLOR 15, 0
  3.         'posiziona il cursore
  4.         LOCATE (V * 2) - 1, y
usa la variabile del ciclo FOR per tutte le ruote (da Bari a Nazionale) per posizionare la riga (devi ricordare che SCREEN 0, ossia la modalità di video solo testo è di default in QB se non definisci alcuna modalità video, essa è detta anche modalità console e come default ha 80 colonne e 25 righe, cerca nella wiki per maggiori informazioni) mentre y definisce la colonna da cui partire a stampare il testo... la ; permette di non andare a capo dopo la scrittura

about
Quote
e un altro punto che devo ancora adattarmi  esempio io il file lo leggevo con la variabile a e mid$ ma devo capire la funzione di altri variabili aggiunti -->
PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
qui si dice al PC di stampare a video il valore della parte della stringa a, estratta con MID$ a partire dalla posizione  (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1)  e di lunghezza Cifra (ricorda che Cifra è una costante di valore 2 ossia al posto di Cifra tu leggi di lunghezza 2 caratteri)
quindi NON stai leggendo dal file ora ma stai NAVIGANDO il file contenuto interamente nella variabile a di tipo stringa mentre qui è stato letto il file 
Code: QB64: [Select]
  1. ' apre lotto.dat per leggerlo in maniera binaria
  2. OPEN "lotto.dat" FOR BINARY AS #1
  3. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  4. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabile a
  5. CLOSE #1 ' chiude il file appena letto
Come fai a sapere dove sei nella variabile a e cosa stai leggendo?
questa è la bussola
Quote
analizza i dati estraendo i numeri distanti 30 in ogni estrazione lotto --> la singola sequenza della singola estrazione è formata da 4 cifre iniziali di riga che sono il numero estrazione e da 110 cifre che sono i numeri estratti (ogni numero estratto va da 01 a 90 rappresentati da 2 cifre) le ruote di estrazioni sono 11 e ogni estrazione ha 5 cifre estratte quindi 2*5*11 = 110

Accedendo al file in maniera binaria ossia a basso livello dobbiamo considerare che il segno che di andare a capo corrisponde ad altri 2 carattere CR+LF che corrispondono ai numeri ASCII 13 e 10, quindi accedendo in maniera binaria a basso livello ogni riga termina con questa coppia di numeri ASCII e quindi ogni riga è lunga in modalità testo 4+110 = 114 mentre in modalità binaria 4+110+CR+LF = 116 caratteri
Buon studio e buon lavoro sulla comprensione e memorizzazione della sintassi.
Non preoccuparti se non ricordi bene tutto, la wiki c'è apposta. Ancora oggi mi chiedo spesso se LOCATE vuole riga,colonna o colonna,riga e la wiki risolve spesso! ;)
Title: Re: help my
Post by: Kiara87 on July 12, 2020, 06:59:59 pm
Quote from: TempodiBasic on July 11, 2020, 12:19:49 pm
@ kiara87

salve TempodiBasic volevo chiederti riguardo sulla funzione goto i programmatori la evitano a  causa del stile spaghetti
quindi evitano anche GOSUB visto che GOSUB è identica come istruzione giusto?
Title: Re: help my
Post by: bplus on July 13, 2020, 10:46:36 am
@Kiara87

Can you count and list the words in this sentence?

Can you write code to count and list the words in any given sentence?

Can you count the words in reply #85 above? Hope you don't get an overflow error ;-))

Can you count the QB64 CODE words in reply #84?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Hmm... looks like we will have to do something about punctuation ;-))

Title: Re: help my
Post by: TempodiBasic on July 13, 2020, 01:45:17 pm
@Kiara87
GOTO  e GOSUB sono due bacchette magiche che l'apprendista stregone programmatore deve temere e ammirare. Sono potenti ma senza limiti quindi se non sai quello che stai facendo fai di certo un gran pasticcio, come topolino nell'apprendista stregone https://www.youtube.com/watch?v=U546yRNeNh4 (https://www.youtube.com/watch?v=U546yRNeNh4)

giusto per esercizio e per comprensione  tu poi considerare GOSUB  un GOTO semplificato perchè con RETURN ti permette di ritornare indietro all'istruzione del salto senza usare una ulteriore etichetta
Code: QB64: [Select]
  1. GOTO There
  2. Here:
  3. PRINT "Hi Guys"
  5.  
  6. There:
  7. PRINT "I'm QB64 coder "
  8. GOTO Here
  9.  

is the same that
Code: QB64: [Select]
  1. GOSUB There
  2. PRINT "Hi Guys"
  4.  
  5. There:
  6. PRINT "I'm QB64 coder "
  8.  

ma tu puoi costruire i loop WHILE..WEND, DO WHILE..LOOP, DO UNTIL..LOOP; DO..LOOP UNTIL, DO..LOOP WHILE con i rispettivi EXIT WHILE o EXIT DO usando il GOTO e le etichette, lo stesso per FOR NEXT...
prova come esercizio a creare questi loop con GOTO e li comprenderai meglio.

@bplus
PRINT LEN(88)
:-)
Title: Re: help my
Post by: bplus on July 13, 2020, 06:48:39 pm
Quote
Can you count the QB64 CODE words in reply #84?

Title: Re: help my
Post by: Kiara87 on July 13, 2020, 07:15:21 pm
Quote from: bplus on July 13, 2020, 10:46:36 am
@Kiara87

Can you count and list the words in this sentence?

Can you write code to count and list the words in any given sentence?

Can you count the words in reply #85 above? Hope you don't get an overflow error ;-))

Can you count the QB64 CODE words in reply #84?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Hmm... looks like we will have to do something about punctuation ;-))
says the length of the file as in the image?
Quote from: TempodiBasic on July 13, 2020, 01:45:17 pm
@Kiara87
GOTO  e GOSUB sono due bacchette magiche che l'apprendista stregone programmatore deve temere e ammirare. Sono potenti ma senza limiti quindi se non sai quello che stai facendo fai di certo un gran pasticcio, come topolino nell'apprendista stregone https://www.youtube.com/watch?v=U546yRNeNh4 (https://www.youtube.com/watch?v=U546yRNeNh4)

giusto per esercizio e per comprensione  tu poi considerare GOSUB  un GOTO semplificato perchè con RETURN ti permette di ritornare indietro all'istruzione del salto senza usare una ulteriore etichetta
Code: QB64: [Select]
  1. GOTO There
  2. Here:
  3. PRINT "Hi Guys"
  5.  
  6. There:
  7. PRINT "I'm QB64 coder "
  8. GOTO Here
  9.  

is the same that
Code: QB64: [Select]
  1. GOSUB There
  2. PRINT "Hi Guys"
  4.  
  5. There:
  6. PRINT "I'm QB64 coder "
  8.  

ma tu puoi costruire i loop WHILE..WEND, DO WHILE..LOOP, DO UNTIL..LOOP; DO..LOOP UNTIL, DO..LOOP WHILE con i rispettivi EXIT WHILE o EXIT DO usando il GOTO e le etichette, lo stesso per FOR NEXT...
prova come esercizio a creare questi loop con GOTO e li comprenderai meglio.

@bplus
PRINT LEN(88)
:-)
@TempodiBasic  si ho visto esempio che il gosub da un ritorno dal codice da dove era partito ritorna 1 volta nella sua postazione
sto seguendo i tuoi consigli che credo siano la soluzione per imparare a programmare scrivendo in pseudo codice
anche come spiega @SMcNeill dicendo di prendere il problema e dividerlo scomponendolo in sotto problemi
fino a qui ho percepito come mi avevi consigliato di scrivere in pseudocodice
è dividendo in sotto problemi risolvendoli uno ad uno
ma il problema poi sta come converto i problemi al  codice?
come cerco tutte le istruzioni su wiki oppure sul help dvo sempre sapere come cercare quelle istruzioni che servono per convertire il pseudo codice in codice QB64
Title: Re: help my
Post by: Kiara87 on July 13, 2020, 07:33:40 pm
thanks to you, you are cunning
by dividing the problem into small problems
and step by step explanation though 'I have to say it with programming code I have to understand how to convert my explanations step by step into programming language
as you did in the example of the peanut sandwich it is easy but the most difficult part is to look for the programming language commands as you said I have to look for the ingredients for the recipe
where do i find them?
on wiki or help
how should i search?
Quote from: bplus on July 13, 2020, 10:46:36 am
@Kiara87

Can you count and list the words in this sentence?

Can you write code to count and list the words in any given sentence?

Can you count the words in reply #85 above? Hope you don't get an overflow error ;-))

Can you count the QB64 CODE words in reply #84?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Hmm... looks like we will have to do something about punctuation ;-))



Quote from: SMcNeill on July 10, 2020, 03:40:43 am
If it helps, Kiara, remember this -- All computer programming breaks down to 3 steps:

1) Step by step commands
2) Decision making
3) Repetition

Take any problem facing you, and you can break its solution down to those 3 steps (including life problems).  Let's say I tell you, "Make me a peanut butter sandwich."   How do you accomplish that task?

Get up.
Go in kitchen.
Get a knife.
Get bread.
Get peanut butter.
Open bread, remove a slice.
Put knife in peanut butter.
Remove knife from peanut butter.
Wipe knife on bread.
Put down knife.
Remove slice of bread from pack.
Place bread on bread.

And there's the biggest problem programmers usually face -- we think "fix a sandwich", and we do it.  The computer has to have that instruction broken down step-by-step, to accomplish the same task...  It's not the complexity of the problem that confound us; it's the simplicity of the computer.

Even with the above set of instructions, it's probably not enough for your pet robot to make that sandwich.  "Get up" implies it was down somewhere.  "Go in kitchen" is vague.  From Where?  How many steps?  How many turns around corners, or up and down steps?  Whose kitchen?

The trick is to break your problem down into smaller stages, and then see if there's a set of computer commands to fulfill those needs.  If not, break those needs down smaller, until there are.

For example let's say I tell you to, "Print the contents of a file for me."

Breaking that order down to its components, we have to:

Choose a file.
Open that file.
Load the contents of that file in memory.
Print that file.
Repeat the last two steps until the whole file is printed.
Close the file.

Now, we have a basic step-by-step road map of how our program will look.

INPUT "Give me the name of the file you want to print ", filename$
OPEN filename$ FOR INPUT AS #1
DO
    LINE INPUT #1, text$
    PRINT text$
LOOP UNTIL EOF(1)
CLOSE #1


Take your complex problem and break it down to its step-by-step components.  If you can do that, you can write your own computer programs.

@bplus  I tried to copy the sentences from the site and save the sentences in txt

I read the file with this
Code: QB64: [Select]
  1. OPEN "leggi.txt" FOR INPUT AS #1
  2. INPUT #1, a$
  5.  

gives me length 86
I had attached image in the previous answer
but I was unable to put the sentences inside
Title: Re: help my
Post by: bplus on July 13, 2020, 09:46:14 pm
Quote
@bplus  I tried to copy the sentences from the site and save the sentences in txt

I read the file with this
Code: QB64: [Select]
OPEN "leggi.txt" FOR INPUT AS #1
INPUT #1, a$
PRINT LEN(a$)
CLOSE
 

gives me length 86
I had attached image in the previous answer
but I was unable to put the sentences inside

OK that is only the length of the first line from the file.


To count words in a sentence (forget about files for moment) you will need these tools:
MID$(aString$, aStartPlace, aLength)
LEN(aString$)

He$ = MID$("Hello World", 1, 2)  ' He$ = "He"
Wor$ = MID$("Hello World", 7, 3) ' Wor$ = "Wor"
d$ = MID$("Hello World", 11, 1)  ' d$ = "d"
PRINT He$+ " " + Wor$ + d$ '  >>>> "He Word"

Code: QB64: [Select]
  1. S$ = "Can you count and list the words in this sentence?"
  2. FOR i = 1 TO LEN(S$)
  3.     letter$ = MID$(S$, i, 1)
  4.     IF letter$ = " " THEN 'the last word$ just ended
  5.         PRINT build$ ' lets show it
  6.         count = count + 1 'let's count it
  7.         build$ = "" 'reset build$ to nothing to build$ another word
  8.     ELSE
  9.         'continue building the word
  10.         build$ = build$ + letter$
  11.     END IF
  13.  
  14. 'now if there is anything left in build$, it is our last word!
  15. IF LEN(build$) THEN
  16.     PRINT build$ ' lets show it
  17.     count = count + 1 'let's count it
  19. PRINT "We had"; count; "words in our sentence."
  20.  

Now you can count and report the number of words in the first line in the file. :)

Title: Re: help my
Post by: bplus on July 14, 2020, 12:22:10 pm
About file access when OPEN a file FOR INPUT:

You have 2 ways to read in data from the file: INPUT #fileNum  or LINE INPUT #fileNum

Use INPUT #fileNum when you have a bunch of items on a line separated by commas or you know for sure there are no commas in data lines (like the Lotto Data), INPUT #fileNum won't read past a comma!

If it is likely you have commas or could have commas in a fileLine$ AND you want to read in whole line from the file then use LINE INPUT #fileNum

So here is the template or pattern of code to use when you OPEN a file FOR INPUT as #fileNum
AND want to read in whole lines that might have commas in them:
Code: QB64: [Select]
  1. fileName$ = "My File.txt" '                 the (pathed) file name of the file you want to open
  2. fileNum = FREEFILE '                        FREEFILE gets the next file # ready to use
  3. IF _FILEEXISTS(fileName$) THEN '            to avoid errors check and see if the file actually exists
  4.     OPEN fileName$ FOR INPUT AS #fileNum '  OPEN file for Sequential access = read line by line start to "end of file" = EOF.
  5.     WHILE EOF(1) = 0 '                      While starts a loop of reading in lines until EOF is reached
  6.         LINE INPUT #1, fileLine$ '          reads whole line (with commas) into variable fileLine$
  7.  
  8.         'process fileLine$
  9.  
  10.     WEND '                                  WEND closes a WHILE Loop Structure
  11.     CLOSE #fileNum '                        close file, we are done with it
  13.     PRINT "Sorry, could not find your file: "; fileName$
  15.  
  16.  

EOF(fileNum) is a flag that is 0 = False until the last line has been read, it is then set to TRUE = NOT False usually -1
Title: Re: help my
Post by: Kiara87 on July 14, 2020, 07:56:49 pm
@bplus thanks bplus everything is useful to learn
I am trying to finish my lotto program
I have to try to figure out how to put the draw date again

in both draws which are now two
it is also how to change the values in the second extraction on the right
in the sense if in the left draw there is a distance 30 in the other draw must mark the numbers to play
Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. ' dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' verifica che tutto il file sia letto
  24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  25. '    PRINT MID$(a, b, 116)
  26. '    '    PRINT INSTR(b, a, CHR$(13))
  27. '    _DELAY .1
  28. 'NEXT b
  29.  
  30.  
  31.  
  32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  34. b = 1
  35. f = 1
  36. z$ = " "
  37. OPEN "distanza30.dat" FOR APPEND AS #2
  39.     IF z$ <> "" THEN
  40.         CLS ' questo risolve un glitch di output sullo schermo
  41.         ' in alternativa alla riga sopra CLS nel sottoblocco
  42.         ' MostraEstratti va stampata la stringa estratto e
  43.         ' non il suo valore corrispondente ottenuto con VAL
  44.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  45.         GOSUB MostraEstratti
  46.     END IF
  47.     ' prende l'input dell'utente
  48.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  49.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
  50.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
  51.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
  52.     IF z$ = "-" AND f > 116 THEN f = f - 116
  53.  
  54. LOOP UNTIL z$ = "Q"
  56.  
  57. END ' indica la fine logica del programma
  58.  
  59.  
  60. '-----------------------AREA sottoprogrammi /SUBroutines
  61.  
  62. ' questa etichetta /label indica il punto di inizio
  63. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  64. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  65. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  66. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  67. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  68. '        perche' permette la localizzazione delle variabili
  69. LeggiFile:
  70. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  71. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  72. '<--------------------
  73. ' questo metodo e' piu' lento
  74. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  75. 'OPEN "lotto.dat" FOR INPUT AS #1
  76. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  77. '<--------------------
  78.  
  79. ' apre lotto.dat per leggerlo in maniera binaria
  80. OPEN "lotto.dat" FOR BINARY AS #1
  81. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  82. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabiel a
  83. CLOSE #1 ' chiude il file appena letto
  84. ' indica il termine della SUBroutine LeggiFile
  85. ' e RITORNA alla riga di codice successiva al salto GOSUB
  87.  
  88. 'seconda SUBroutine /sottoprogramma
  89. MostraRuote:
  91. LOCATE 1, 1
  92. PRINT "BARI"
  93. LOCATE 3, 1
  94. PRINT "CAGLIARI"
  95. LOCATE 5, 1
  96. PRINT "FIRENZE"
  97. LOCATE 7, 1
  98. PRINT "GENOVA"
  99. LOCATE 9, 1
  100. PRINT "MILANO"
  101. LOCATE 11, 1
  102. PRINT "NAPOLI"
  103. LOCATE 13, 1
  104. PRINT "PALERMO"
  105. LOCATE 15, 1
  106. PRINT "ROMA"
  107. LOCATE 17, 1
  108. PRINT "TORINO"
  109. LOCATE 19, 1
  110. PRINT "VENEZIA"
  111. LOCATE 21, 1
  112. PRINT "NAZIONALE"
  113. LOCATE 1, 50
  114. PRINT "BARI"
  115. LOCATE 3, 50
  116. PRINT "CAGLIARI"
  117. LOCATE 5, 50
  118. PRINT "FIRENZE"
  119. LOCATE 7, 50
  120. PRINT "GENOVA"
  121. LOCATE 9, 50
  122. PRINT "MILANO"
  123. LOCATE 11, 50
  124. PRINT "NAPOLI"
  125. LOCATE 13, 50
  126. PRINT "PALERMO"
  127. LOCATE 15, 50
  128. PRINT "ROMA"
  129. LOCATE 17, 50
  130. PRINT "TORINO"
  131. LOCATE 19, 50
  132. PRINT "VENEZIA"
  133. LOCATE 21, 50
  134. PRINT "NAZIONALE"
  135.  
  136. '------------------------------------
  137. LOCATE 23, 60
  138. PRINT "+ avanti  - indietro"
  139. LOCATE 23, 1
  140. PRINT "su e' giu'"
  141.  
  142. ' indica il termine della SUBroutine MostraRuote
  143. ' e RITORNA alla riga di codice successiva al salto GOSUB
  145.  
  146. 'terzo sottoprogramma o SUBroutine
  147. MostraEstratti:
  148.  
  149. ' le prime 4 cifre sembrano essere in numero della estrazione
  150. LOCATE 1, 32
  151. PRINT "estraz.num "; MID$(a, b, 4)
  152. PRINT #2, "estraz.num "; MID$(a, b, 4)
  154. y = 11 ' prima posizione per il carattere da stampare
  155. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  156.     A1 = "" ' resetto a1 per il prossimo giro
  157.     FOR V = Bari TO Nazionale ' per tutte le ruote
  158.         COLOR 15, 0
  159.         'posiziona il cursore
  160.         LOCATE (V * 2) - 1, y
  161.         ' scrive il numero estratto
  162.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  163.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  164.     NEXT V
  165.     GOSUB Mostra30
  166.     y = POS(0)
  168. ' indica il termine della SUBroutine MostraEstratti
  169. ' e RITORNA alla riga di codice successiva al salto GOSUB
  170. LOCATE 23, 32
  171. PRINT "estraz.num "; MID$(a, f, 4)
  172. PRINT #2, "estraz.num "; MID$(a, f, 4)
  173.  
  174. y = 58 ' prima posizione per il carattere da stampare
  175. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  176.     A1 = "" ' resetto a1 per il prossimo giro
  177.     FOR V = Bari TO Nazionale ' per tutte le ruote
  178.         COLOR 15, 0
  179.         'posiziona il cursore
  180.         LOCATE (V * 2) - 1, y
  181.         ' scrive il numero estratto
  182.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  183.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
  184.     NEXT V
  185.     GOSUB MostraCondizione
  186.     y = POS(0)
  188. ' indica il termine della SUBroutine MostraEstratti
  189. ' e RITORNA alla riga di codice successiva al salto GOSUB
  191.  
  192.  
  193.  
  194.  
  195. Mostra30:
  197. FOR v1 = Bari TO Venezia ' per tutte le ruote
  198.     FOR v2 = v1 + 1 TO Nazionale
  199.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
  200.             COLOR 10, 0
  201.             'posiziona                                                                      il cursore
  202.             LOCATE (v1 * 2) - 1, y
  203.             ' scrive il numero estratto
  204.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  205.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  206.             'posiziona                                                                      il cursore
  207.             LOCATE (v2 * 2) - 1, y
  208.             ' scrive il numero estratto
  209.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  210.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
  211.         END IF
  212.     NEXT v2
  213. NEXT v1
  214. COLOR 15, 0
  215. ' indica il termine della SUBroutine MostraEstratti
  216. ' e RITORNA alla riga di codice successiva al salto GOSUB
  218.  
  219. MostraCondizione:
  221. FOR v3 = Bari TO Venezia ' per tutte le ruote
  222.     FOR v4 = v3 + 1 TO Nazionale
  223.         IF ABS(VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)) - VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))) = 30 THEN
  224.             COLOR 4, 0
  225.             'posiziona                                                                      il cursore
  226.             LOCATE (v3 * 2) - 1, y
  227.             ' scrive il numero estratto
  228.             PRINT VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  229.             PRINT #2, (MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
  230.             'posiziona                                                                      il cursore
  231.             LOCATE (v4 * 2) - 1, y
  232.             ' scrive il numero estratto
  233.             PRINT VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  234.             PRINT #2, MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)
  235.         END IF
  236.     NEXT v4
  237. NEXT v3
  238. COLOR 15, 0
  239. ' indica il termine della SUBroutine MostraEstratti
  240. ' e RITORNA alla riga di codice successiva al salto GOSUB
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  

un po difficile da spiegare in inglese
magari @TempodiBasic  puo' capire spiegandolo in italiano hihi

I don't know if I write a mess with this translator and maybe you don't really understand what I mean

However, I must say that I am learning a lot from you
even with the sample program you did for me

and also your advice
I thank all of you who are very good

anche @TempodiBasic  con i suoi commenti e' il suo codice sorgente con tanto di commenti in italiano mi ha fatto capire i comandi
alcuni ancora devo capire abs come funziona facendo le operazioni oppure bisogna conoscere tanta matematica per usarla
@bplus you have been very helpful in creating the program for me and always posting examples
also being very good at programming you are very kind to always help others trying to learn from other people
maybe this is the reason that made you improve so much in programming
he made you grow to learn others and in the meantime you also learned

thank you all



Title: Re: help my
Post by: bplus on July 15, 2020, 11:16:19 am
Quote
I have to try to figure out how to put the draw date again

in both draws which are now two
it is also how to change the values in the second extraction on the right
in the sense if in the left draw there is a distance 30 in the other draw must mark the numbers to play

RE Draw date: Is the draw date the first 4 digits of each row in the data file?

RE dist30 between values: you removed the separate function and embedded it into the display code. In my opinion it was better to have that function isolated, perhaps you are afraid of FUNCTIONs ?

But you use FUNCTIONs all the time LEN(aString$) is a FUNCTION, so is VAL(), and MID$(), EOF(), LOF() these are functions you already use. A FUNCTION is just one you make for yourself and is just as easy to use once it's made.
Oh well you are new and newbies want to avoid Arrays, Subs and Functions...

It looks now that you've made the file data one very long string and use code to chop it down to blocks then rows and columns of data, use that same technique to locate the two numbers in question to test their distance.

I am not certain which 2 numbers you want the 30's difference to be calculated, I would guess in the corresponding row, col of the left side that is on the right side so every time you arrow or +/- you have to recalculate the display.

If so, use the same calculation you use to display a number in a page (right side or left), block (labels), row and column to compare the numbers between left side and the right.

In my opinion it was easier to understand taking data a row at a time and keeping the 30 distance function separate. Maybe this is from TempodiBasic influence? It is clever to swallow the whole file in one gulp but you still have to deal with CR+LF and then deal with a 3rd DIM to the data the dates is it? What are those first 4 digits in each line?

Are you here to gain some superstitious edge on lotto's or to learn coding?

I know, BOTH! ;-))
Title: Re: help my
Post by: bplus on July 15, 2020, 11:34:50 am
Assuming date is first 4 digits of each line in data file:

OK so the length of each line of data is 116 counting the CR+LF that would be still embedded in the whole file string so each date would start at 1 + 0 * 116, 1 + 1 * 116, 1 + 2 * 116...

FUNCTION date$(lineNum)
    date$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
END FUNCTION

lineNum is same as row number in the data file.

Name Conflict with DATE$ sorry forgot:
Code: QB64: [Select]
  1. FUNCTION LottoDate$ (lineNum)
  2.     Lottodate$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
  4.  
  5.  
  6.  
Title: Re: help my
Post by: bplus on July 15, 2020, 05:58:55 pm
Test function, load it at bottom of code and top section of code looks like this:

Code: QB64: [Select]
  1. CONST True = -1, False = NOT True
  2. ' le 11 ruote del lotto
  3. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  4. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  5. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  6.  
  7. DIM SHARED a AS STRING ' una stringa per leggere i dati dal file  <<<<<<<<<<<<<<<<< SHARED
  8.  
  9. ' salta al sottoprogramma LeggiFile delimitato
  10. ' dalla Label LeggiFIle e dal RETURN
  11. GOSUB LeggiFile
  12.  
  13. 'test fuction after load file into a string
  14. PRINT LottoDate$(1)
  15. PRINT LottoDate$(2)
  16. PRINT LottoDate$(3)
  18.  
  19.  

Title: Re: help my
Post by: Kiara87 on July 15, 2020, 06:12:07 pm
Quote from: bplus on July 15, 2020, 11:34:50 am
Assuming date is first 4 digits of each line in data file:

OK so the length of each line of data is 116 counting the CR+LF that would be still embedded in the whole file string so each date would start at 1 + 0 * 116, 1 + 1 * 116, 1 + 2 * 116...

FUNCTION date$(lineNum)
    date$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
END FUNCTION

lineNum is same as row number in the data file.

Name Conflict with DATE$ sorry forgot:
Code: QB64: [Select]
  1. FUNCTION LottoDate$ (lineNum)
  2.     Lottodate$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
  4.  
  5.  
  6.  

the problem is that I still don't know the commands well and how to program them
because I was initially editing your code
but not being able to understand where I got my hands maybe because I didn't understand how the functions work the arrays in your code look for many variables and I didn't know what to change because every single variable makes its path and I didn't know what one of those variables does
after I got the code @TempodiBasic 
there I understood something because he in the written comments how they work is in his code he didn't use many variables but few variables
in its code there is no functions

so I found it easier to edit its code

put an example of what I walked between the two codes
source code @TempodiBasic mod kiara
Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. ' dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' verifica che tutto il file sia letto
  24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  25. '    PRINT MID$(a, b, 116)
  26. '    '    PRINT INSTR(b, a, CHR$(13))
  27. '    _DELAY .1
  28. 'NEXT b
  29.  
  30.  
  31.  
  32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  34. b = 1
  35. f = 1
  36. z$ = " "
  37. OPEN "distanza30.dat" FOR APPEND AS #2
  39.     IF z$ <> "" THEN
  40.         CLS ' questo risolve un glitch di output sullo schermo
  41.         ' in alternativa alla riga sopra CLS nel sottoblocco
  42.         ' MostraEstratti va stampata la stringa estratto e
  43.         ' non il suo valore corrispondente ottenuto con VAL
  44.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  45.         GOSUB MostraEstratti
  46.     END IF
  47.     ' prende l'input dell'utente
  48.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  49.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
  50.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
  51.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
  52.     IF z$ = "-" AND f > 116 THEN f = f - 116
  53.  
  54. LOOP UNTIL z$ = "Q"
  56.  
  57. END ' indica la fine logica del programma
  58.  
  59.  
  60. '-----------------------AREA sottoprogrammi /SUBroutines
  61.  
  62. ' questa etichetta /label indica il punto di inizio
  63. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  64. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  65. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  66. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  67. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  68. '        perche' permette la localizzazione delle variabili
  69. LeggiFile:
  70. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  71. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  72. '<--------------------
  73. ' questo metodo e' piu' lento
  74. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  75. 'OPEN "lotto.dat" FOR INPUT AS #1
  76. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  77. '<--------------------
  78.  
  79. ' apre lotto.dat per leggerlo in maniera binaria
  80. OPEN "lotto.dat" FOR BINARY AS #1
  81. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  82. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabiel a
  83. CLOSE #1 ' chiude il file appena letto
  84. ' indica il termine della SUBroutine LeggiFile
  85. ' e RITORNA alla riga di codice successiva al salto GOSUB
  87.  
  88. 'seconda SUBroutine /sottoprogramma
  89. MostraRuote:
  91. LOCATE 1, 1
  92. PRINT "BARI"
  93. LOCATE 3, 1
  94. PRINT "CAGLIARI"
  95. LOCATE 5, 1
  96. PRINT "FIRENZE"
  97. LOCATE 7, 1
  98. PRINT "GENOVA"
  99. LOCATE 9, 1
  100. PRINT "MILANO"
  101. LOCATE 11, 1
  102. PRINT "NAPOLI"
  103. LOCATE 13, 1
  104. PRINT "PALERMO"
  105. LOCATE 15, 1
  106. PRINT "ROMA"
  107. LOCATE 17, 1
  108. PRINT "TORINO"
  109. LOCATE 19, 1
  110. PRINT "VENEZIA"
  111. LOCATE 21, 1
  112. PRINT "NAZIONALE"
  113. LOCATE 1, 50
  114. PRINT "BARI"
  115. LOCATE 3, 50
  116. PRINT "CAGLIARI"
  117. LOCATE 5, 50
  118. PRINT "FIRENZE"
  119. LOCATE 7, 50
  120. PRINT "GENOVA"
  121. LOCATE 9, 50
  122. PRINT "MILANO"
  123. LOCATE 11, 50
  124. PRINT "NAPOLI"
  125. LOCATE 13, 50
  126. PRINT "PALERMO"
  127. LOCATE 15, 50
  128. PRINT "ROMA"
  129. LOCATE 17, 50
  130. PRINT "TORINO"
  131. LOCATE 19, 50
  132. PRINT "VENEZIA"
  133. LOCATE 21, 50
  134. PRINT "NAZIONALE"
  135.  
  136. '------------------------------------
  137. LOCATE 23, 60
  138. PRINT "+ avanti  - indietro"
  139. LOCATE 23, 1
  140. PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
  141.  
  142. ' indica il termine della SUBroutine MostraRuote
  143. ' e RITORNA alla riga di codice successiva al salto GOSUB
  145.  
  146. 'terzo sottoprogramma o SUBroutine
  147. MostraEstratti:
  148.  
  149. ' le prime 4 cifre sembrano essere in numero della estrazione
  150. LOCATE 1, 32
  151. PRINT "estraz.num "; MID$(a, b, 4)
  152. PRINT #2, "estraz.num "; MID$(a, b, 4)
  154. y = 11 ' prima posizione per il carattere da stampare
  155. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  156.     A1 = "" ' resetto a1 per il prossimo giro
  157.     FOR V = Bari TO Nazionale ' per tutte le ruote
  158.         COLOR 15, 0
  159.         'posiziona il cursore
  160.         LOCATE (V * 2) - 1, y
  161.         ' scrive il numero estratto
  162.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  163.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  164.     NEXT V
  165.     GOSUB Mostra30
  166.     y = POS(0)
  168. ' indica il termine della SUBroutine MostraEstratti
  169. ' e RITORNA alla riga di codice successiva al salto GOSUB
  170. LOCATE 23, 32
  171. PRINT "estraz.num "; MID$(a, f, 4)
  172. PRINT #2, "estraz.num "; MID$(a, f, 4)
  173.  
  174. y = 58 ' prima posizione per il carattere da stampare
  175. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  176.     A1 = "" ' resetto a1 per il prossimo giro
  177.     FOR V = Bari TO Nazionale ' per tutte le ruote
  178.         COLOR 15, 0
  179.         'posiziona il cursore
  180.         LOCATE (V * 2) - 1, y
  181.         ' scrive il numero estratto
  182.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  183.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
  184.     NEXT V
  185.     GOSUB MostraCondizione
  186.     y = POS(0)
  188. ' indica il termine della SUBroutine MostraEstratti
  189. ' e RITORNA alla riga di codice successiva al salto GOSUB
  191.  
  192.  
  193.  
  194.  
  195. Mostra30:
  197. FOR v1 = Bari TO Venezia ' per tutte le ruote
  198.     FOR v2 = v1 + 1 TO Nazionale
  199.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
  200.             COLOR 10, 0
  201.             'posiziona                                                                      il cursore
  202.             LOCATE (v1 * 2) - 1, y
  203.             ' scrive il numero estratto
  204.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  205.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  206.             'posiziona                                                                      il cursore
  207.             LOCATE (v2 * 2) - 1, y
  208.             ' scrive il numero estratto
  209.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
  210.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
  211.         END IF
  212.     NEXT v2
  213. NEXT v1
  214. COLOR 15, 0
  215. ' indica il termine della SUBroutine MostraEstratti
  216. ' e RITORNA alla riga di codice successiva al salto GOSUB
  218.  
  219. MostraCondizione:
  221. FOR v3 = Bari TO Venezia ' per tutte le ruote
  222.     FOR v4 = v3 + 1 TO Nazionale
  223.         IF ABS(VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)) - VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))) = 30 THEN
  224.             COLOR 4, 0
  225.             'posiziona                                                                      il cursore
  226.             LOCATE (v3 * 2) - 1, y
  227.             ' scrive il numero estratto
  228.             PRINT VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  229.             PRINT #2, (MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
  230.             'posiziona                                                                      il cursore
  231.             LOCATE (v4 * 2) - 1, y
  232.             ' scrive il numero estratto
  233.             PRINT VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
  234.             PRINT #2, MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)
  235.         END IF
  236.     NEXT v4
  237. NEXT v3
  238. COLOR 15, 0
  239. ' indica il termine della SUBroutine MostraEstratti
  240. ' e RITORNA alla riga di codice successiva al salto GOSUB
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  


source code @bplus  mod 2 kiara
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, count2, i, lineNum, lineNum2 ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace, aPlace2 '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. DIM shiftRight2
  12. shiftRight2 = 65
  13. shiftRight = 15
  14.  
  15. 'count lines in file
  16. OPEN "lotto.dat" FOR INPUT AS #1
  18.     INPUT #1, a
  19.     '          debug check inputs from file
  20.     'PRINT a
  21.     'INPUT " OK enter "; w$
  22.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  25.  
  26. 'now we now size of file so ready an array to load file Data
  27. DIM fileDAT(1 TO count) AS STRING
  28. OPEN "lotto.dat" FOR INPUT AS #1
  29. FOR i = 1 TO count
  30.     INPUT #1, a
  31.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  34.  
  35. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  36.  
  37. GOSUB labelScreen
  38.  
  39. 'set first line and get a data string from the FileDAT array
  40. lineNum = 1
  41. a = fileDAT(lineNum)
  42.  
  44.     Q$ = INKEY$
  45.     IF Q$ = "+" THEN lineNum = lineNum + 1
  46.     IF Q$ = "-" THEN lineNum = lineNum - 1
  47.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum = lineNum + 1
  48.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum = lineNum - 1
  49.  
  50.     IF lineNum > count THEN lineNum = 1
  51.     IF lineNum < 1 THEN lineNum = count
  52.  
  53.     'get new data line
  54.     a = fileDAT(lineNum)
  55.  
  56.  
  57.     'print out the data from the new line
  58.     CLS
  59.     GOSUB labelScreen
  60.     GOSUB screenDataLine
  61.     GOSUB loadLineDAT_Mark30s
  62.     _DISPLAY
  63.     _LIMIT 30
  66.  
  67.  
  68. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  69. rowCnt = 1: y = 1
  70. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  71.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  72.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  73.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  75. COLOR 9 'blue marker  seacrh through columes for  30's
  76. FOR col = 1 TO 5 'for each of the columes of data
  77.     FOR row = 1 TO 10 'for each of the rows of dat
  78.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  79.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  80.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  81.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  82.                 '--------------------------------------------------------------------------
  83.  
  84.                 LOCATE row * 2, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  85.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  86.  
  87.             END IF
  88.         NEXT
  89.     NEXT
  92.  
  93.  
  94. screenDataLine:
  96. LOCATE 1, 34
  97. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  98. aPlace = 5
  99. FOR row = 1 TO 11
  100.     FOR col = 1 TO 5
  101.         LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  102.         aPlace = aPlace + 2
  103.     NEXT
  105. '------------------------------------------------------------------------
  107. LOCATE 1, 34
  108. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  109. aPlace = 5
  110. FOR row = 1 TO 11
  111.     FOR col = 1 TO 5
  112.         LOCATE row * 2, col * 3 - 2 + shiftRight2: PRINT MID$(a, aPlace, 2);
  113.         aPlace = aPlace + 2
  114.     NEXT
  116.  
  117.  
  119.  
  120. labelScreen:
  122. ' setup screen labels for reporting data
  123. LOCATE 2, 1
  124. PRINT "BARI"
  125. LOCATE 4, 1
  126. PRINT "CAGLIARI"
  127. LOCATE 6, 1
  128. PRINT "FIRENZE"
  129. LOCATE 8, 1
  130. PRINT "GENOVA"
  131. LOCATE 10, 1
  132. PRINT "MILANO"
  133. LOCATE 12, 1
  134. PRINT "NAPOLI"
  135. LOCATE 16, 1
  136. PRINT "PALERMO"
  137. LOCATE 18, 1
  138. PRINT "ROMA"
  139. LOCATE 20, 1
  140. PRINT "TORINO"
  141. LOCATE 22, 1
  142. PRINT "VENEZIA"
  143. LOCATE 24, 1
  144. PRINT "NAZIONALE"
  146. ' setup screen labels for reporting data
  147. LOCATE 2, 50
  148. PRINT "BARI"
  149. LOCATE 4, 50
  150. PRINT "CAGLIARI"
  151. LOCATE 6, 50
  152. PRINT "FIRENZE"
  153. LOCATE 8, 50
  154. PRINT "GENOVA"
  155. LOCATE 10, 50
  156. PRINT "MILANO"
  157. LOCATE 12, 50
  158. PRINT "NAPOLI"
  159. LOCATE 16, 50
  160. PRINT "PALERMO"
  161. LOCATE 18, 50
  162. PRINT "ROMA"
  163. LOCATE 20, 50
  164. PRINT "TORINO"
  165. LOCATE 22, 50
  166. PRINT "VENEZIA"
  167. LOCATE 24, 50
  168. PRINT "NAZIONALE"
  169.  
  170. 'some directions
  171.  
  172. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  173.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  175.  
  176. FUNCTION diff30in90 (a, b) 'default integers a-z
  177.     DIM hi, lo
  178.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  179.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  180.     IF hi - lo = 30 THEN
  181.         diff30in90 = -1
  182.     ELSE
  183.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  184.     END IF
  186.  
  187.  
  188.  
  189.  
  190.  


maybe this is what I edit in the beginning

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, count, i, lineNum, lineNum2 ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace, aPlace2 '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. DIM shiftRight2
  12. shiftRight2 = 65
  13. shiftRight = 15
  14.  
  15. 'count lines in file
  16. OPEN "lotto.dat" FOR INPUT AS #1
  18.     INPUT #1, a
  19.     '          debug check inputs from file
  20.     'PRINT a
  21.     'INPUT " OK enter "; w$
  22.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  25.  
  26. 'now we now size of file so ready an array to load file Data
  27. DIM fileDAT(1 TO count) AS STRING
  28. OPEN "lotto.dat" FOR INPUT AS #1
  29. FOR i = 1 TO count
  30.     INPUT #1, a
  31.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  34.  
  35. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  36.  
  37. GOSUB labelScreen
  38.  
  39. 'set first line and get a data string from the FileDAT array
  40. lineNum = 1
  41. a = fileDAT(lineNum)
  42. lineNum2 = 1
  43. a = fileDAT(lineNum2)
  44.  
  46.     Q$ = INKEY$
  47.     IF Q$ = "+" THEN lineNum = lineNum + 1
  48.     IF Q$ = "-" THEN lineNum = lineNum - 1
  49.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  50.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  51.     IF lineNum2 > count THEN lineNum2 = 1
  52.     IF lineNum2 < 1 THEN lineNum2 = count
  53.  
  54.     IF lineNum > count THEN lineNum = 1
  55.     IF lineNum < 1 THEN lineNum = count
  56.  
  57.     'get new data line
  58.     a = fileDAT(lineNum)
  59.  
  60.     a = fileDAT(lineNum2)
  61.     'print out the data from the new line
  62.     CLS
  63.     GOSUB labelScreen
  64.     GOSUB screenDataLine
  65.     GOSUB loadLineDAT_Mark30s
  66.     _DISPLAY
  67.     _LIMIT 30
  70.  
  71.  
  72. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  73. rowCnt = 1: y = 1
  74. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  75.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  76.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  77.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  79. COLOR 9 'blue marker  seacrh through columes for  30's
  80. FOR col = 1 TO 5 'for each of the columes of data
  81.     FOR row = 1 TO 10 'for each of the rows of dat
  82.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  83.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  84.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  85.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  86.                 '--------------------------------------------------------------------------
  87.  
  88.                 LOCATE row * 2, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  89.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  90.  
  91.             END IF
  92.         NEXT
  93.     NEXT
  96.  
  97.  
  98. screenDataLine:
  100. LOCATE 1, 34
  101. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
  102. aPlace = 5
  103. FOR row = 1 TO 11
  104.     FOR col = 1 TO 5
  105.         LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  106.         aPlace = aPlace + 2
  107.     NEXT
  109. '------------------------------------------------------------------------
  111. LOCATE 1, 34
  112. PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum2);
  113. aPlace = 5
  114. FOR row = 1 TO 11
  115.     FOR col = 1 TO 5
  116.         LOCATE row * 2, col * 3 - 2 + shiftRight2: PRINT MID$(a, aPlace, 2);
  117.         aPlace = aPlace + 2
  118.     NEXT
  120.  
  121.  
  123.  
  124. labelScreen:
  126. ' setup screen labels for reporting data
  127. LOCATE 2, 1
  128. PRINT "BARI"
  129. LOCATE 4, 1
  130. PRINT "CAGLIARI"
  131. LOCATE 6, 1
  132. PRINT "FIRENZE"
  133. LOCATE 8, 1
  134. PRINT "GENOVA"
  135. LOCATE 10, 1
  136. PRINT "MILANO"
  137. LOCATE 12, 1
  138. PRINT "NAPOLI"
  139. LOCATE 16, 1
  140. PRINT "PALERMO"
  141. LOCATE 18, 1
  142. PRINT "ROMA"
  143. LOCATE 20, 1
  144. PRINT "TORINO"
  145. LOCATE 22, 1
  146. PRINT "VENEZIA"
  147. LOCATE 24, 1
  148. PRINT "NAZIONALE"
  149. 'some directions
  150. LOCATE 24, 1
  151. PRINT " + to move on";
  152. LOCATE 25, 16
  153. PRINT "- to back";
  155.  
  156. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  157.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  159.  
  160. FUNCTION diff30in90 (a, b) 'default integers a-z
  161.     DIM hi, lo
  162.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  163.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  164.     IF hi - lo = 30 THEN
  165.         diff30in90 = -1
  166.     ELSE
  167.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  168.     END IF
  170.  
  171.  
  172.  
  173.  
  174.  

yes i want to combine my two passions the qb64 and lottery

I want to learn programming well
Title: Re: help my
Post by: bplus on July 15, 2020, 08:18:25 pm
Here is start of problems in Kiara mod of b+ code:
Code: QB64: [Select]
  1.     'get new data line
  2.     a = fileDAT(lineNum)
  3.  
  4.     a = fileDAT(lineNum2)  ' <<<  use a2 for a separate line of data for the right hand set
  5.  

So setup a2 as string and wherever you see "a" distinguish with a2 for the right set of data.

Title: Re: help my
Post by: bplus on July 15, 2020, 11:11:29 pm
Here is b+ mod of Kiara mod of b+, two independent screen or page views of lotto data AND a mouse click up or down to shift the data day for each page:
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, a2 AS STRING, count, i, lineNum, lineNum2 ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace, aPlace2 '               for screening Data from a string
  8. DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. DIM shiftRight2
  12. DIM mb, mx, my, oldmouse ' oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  13. shiftRight2 = 46
  14. shiftRight = 19
  15.  
  16.  
  17. 'count lines in file
  18. OPEN "lotto.dat" FOR INPUT AS #1
  20.     INPUT #1, a
  21.     '          debug check inputs from file
  22.     'PRINT a
  23.     'INPUT " OK enter "; w$
  24.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  27.  
  28. 'now we now size of file so ready an array to load file Data
  29. DIM fileDAT(1 TO count) AS STRING
  30. OPEN "lotto.dat" FOR INPUT AS #1
  31. FOR i = 1 TO count
  32.     INPUT #1, a
  33.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  36.  
  37. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  38.  
  39. GOSUB labelScreen
  40.  
  41. 'set first line and get a data string from the FileDAT array
  42. lineNum = 1
  43. a = fileDAT(lineNum)
  44. lineNum2 = 1
  45. a2 = fileDAT(lineNum2)
  46.  
  48.     CLS
  49.     Q$ = INKEY$
  50.     IF Q$ = "+" THEN lineNum = lineNum + 1
  51.     IF Q$ = "-" THEN lineNum = lineNum - 1
  52.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  53.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  54.  
  56.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  57.     'LOCATE 3, 1: PRINT mx, my
  58.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  59.         '_DELAY .25 '        just one click please!
  60.         IF 17 <= mx AND mx <= 25 THEN lineNum = lineNum + 1
  61.         IF 28 <= mx AND mx <= 37 THEN lineNum = lineNum - 1
  62.         IF 44 <= mx AND mx <= 52 THEN lineNum2 = lineNum2 + 1
  63.         IF 55 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 - 1
  64.     END IF
  65.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  66.     IF lineNum2 > count THEN lineNum2 = 1
  67.     IF lineNum2 < 1 THEN lineNum2 = count
  68.  
  69.     IF lineNum > count THEN lineNum = 1
  70.     IF lineNum < 1 THEN lineNum = count
  71.  
  72.     'get new data line
  73.     a = fileDAT(lineNum)
  74.  
  75.     a2 = fileDAT(lineNum2)
  76.     'print out the data from the new line
  77.  
  78.     GOSUB labelScreen
  79.     GOSUB screenDataLine
  80.     GOSUB loadLineDAT_Mark30s
  81.     _DISPLAY
  82.     _LIMIT 30
  85.  
  86. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  87. rowCnt = 1: y = 1
  88. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  89.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  90.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  91.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  93. COLOR 9 'blue marker  seacrh through columes for  30's
  94. FOR col = 1 TO 5 'for each of the columes of data
  95.     FOR row = 1 TO 10 'for each of the rows of dat
  96.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  97.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  98.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  99.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  100.             END IF
  101.         NEXT
  102.     NEXT
  104. '---------------------------------------------------- right side  a2 data line
  105. rowCnt = 1: y = 1
  106. FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  107.     lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  108.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  109.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  111. COLOR 9 'blue marker  seacrh through columes for  30's
  112. FOR col = 1 TO 5 'for each of the columes of data
  113.     FOR row = 1 TO 10 'for each of the rows of dat
  114.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  115.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  116.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  117.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  118.             END IF
  119.         NEXT
  120.     NEXT
  123.  
  124.  
  125. screenDataLine:
  127. LOCATE 1, 16
  128. PRINT "estraz: "; LEFT$(a, 4); "  line:"; STR$(lineNum);
  129. aPlace = 5
  130. FOR row = 1 TO 11
  131.     FOR col = 1 TO 5
  132.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  133.         aPlace = aPlace + 2
  134.     NEXT
  136. '-------------------------------------------------- Right side
  138. LOCATE 1, 15 + 43
  139. PRINT "estraz "; LEFT$(a2, 4); "   line:"; STR$(lineNum2); '<<<<<<<<<<<<<<< a2 now
  140. aPlace = 5
  141. FOR row = 1 TO 11
  142.     FOR col = 1 TO 5
  143.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<<<<<<<<<<<<<<< a2 now
  144.         aPlace = aPlace + 2
  145.     NEXT
  148.  
  149. labelScreen:
  151. DIM labels(11) AS STRING ' setup screen labels for reporting data
  152. labels(1) = "BARI"
  153. labels(2) = "CAGLIARI"
  154. labels(3) = "FIRENZE"
  155. labels(4) = "GENOVA"
  156. labels(5) = "MILANO"
  157. labels(6) = "NAPOLI"
  158. labels(7) = "PALERMO"
  159. labels(8) = "ROMA"
  160. labels(9) = "TORINO"
  161. labels(10) = "VENEZIA"
  162. labels(11) = "NAZIONALE"
  163. FOR i = 1 TO 11
  164.     LOCATE i * 2 + 1, 36: PRINT labels(i)
  166. LOCATE 25, 1
  167. PRINT " Fare clic su:  Fino / Up  Giu / Down      Fino / Up  Giu / Down";
  168. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  169. '               1         2         3         4         5         6         7         8
  171.  
  172. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  173.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  175.  
  176. FUNCTION diff30in90 (a, b) 'default integers a-z
  177.     DIM hi, lo
  178.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  179.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  180.     IF hi - lo = 30 THEN
  181.         diff30in90 = -1
  182.     ELSE
  183.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  184.     END IF
  186.  
  187.  

@Kiara87  Still working on the date thing but we are closer to that model you showed in link.

EDIT: replaced hack _DELAY .25 with Steve McNeill oldmouse trick for getting just one click response.
Title: Re: help my
Post by: Kiara87 on July 16, 2020, 04:31:43 am
the date must be as in the image  --> https://imgur.com/JU9nILf

the draws are 3 times a week

the days are Tuesday Thursday and Saturday
estr. 1465 = Tuesday 6 June 2017
estr. 1466 = Thursday 8 June 2017
estr. 1467 = Saturday 10 June 2017
Title: Re: help my
Post by: bplus on July 16, 2020, 11:34:41 am
That date conversion thing is a thinker! I have to consult my calendar functions, this is like work ;(
Title: Re: help my
Post by: Kiara87 on July 16, 2020, 12:18:12 pm
Quote from: bplus on July 16, 2020, 11:34:41 am
That date conversion thing is a thinker! I have to consult my calendar functions, this is like work ;(

if you want help you can also ask

😅 :D
Title: Re: help my
Post by: bplus on July 16, 2020, 12:38:40 pm
OK does anybody have a function to convert a lotto number to a day and date?

Hint: Lotto Days are Tues, Thurs, Sat and I assume they don't stop for anything
1465 > = Tues, June 6, 2017
1466 > = Thurs, June 8, 2017
1467 > = Sat, June 10, 2017
...

🤷‍♂️
Title: Re: help my
Post by: SMcNeill on July 16, 2020, 02:56:37 pm
Quote from: bplus on July 16, 2020, 12:38:40 pm
OK does anybody have a function to convert a lotto number to a day and date?

Hint: Lotto Days are Tues, Thurs, Sat and I assume they don't stop for anything
1465 > = Tues, June 6, 2017
1466 > = Thurs, June 8, 2017
1467 > = Sat, June 10, 2017
...

🤷‍♂️

Wouldn’t you basically run it through a timestamp type function?

1 = start date
2 = start date + 2
3 = start date + 4
4 = start date + 7
5 = start date + 9
6 = start date + 11

((Number - 1) \ 3) * 7 + ((Number - 1) MOD 3) * 2

Take your start date and then increment by the above number of days.
Title: Re: help my
Post by: Kiara87 on July 16, 2020, 03:44:13 pm
Quote from: bplus on July 16, 2020, 12:38:40 pm
OK does anybody have a function to convert a lotto number to a day and date?

Hint: Lotto Days are Tues, Thurs, Sat and I assume they don't stop for anything
1465 > = Tues, June 6, 2017
1466 > = Thurs, June 8, 2017
1467 > = Sat, June 10, 2017
...

🤷‍♂️

I found this that you enter day month and year an Italian date is printed

Code: QB64: [Select]
  1. OPTION _EXPLICIT ' impone la dichiarazione delle variabili
  2. OPTION BASE 1 ' le matrici partono dall'indice 1
  3.  
  4. _TITLE "CB @2020"
  5.  
  6. ' inizializzazione varaiabili
  7. DIM sGiorno AS STRING
  8. DIM sMese AS STRING
  9. DIM sAnno AS STRING
  10. DIM sData AS STRING
  11. DIM iGiorno AS INTEGER
  12. DIM iMese AS INTEGER
  13. DIM iAnno AS INTEGER
  17.  
  18. DIM msNomeMesi(12) AS STRING ' matrice di stringhe
  19.  
  20. msNomeMesi(1) = "Gennaio"
  21. msNomeMesi(2) = "Febbraio"
  22. msNomeMesi(3) = "Marzo"
  23. msNomeMesi(4) = "Aprile"
  24. msNomeMesi(5) = "Maggio"
  25. msNomeMesi(6) = "Giugno"
  26. msNomeMesi(7) = "Luglio"
  27. msNomeMesi(8) = "Agosto"
  28. msNomeMesi(9) = "Settembre"
  29. msNomeMesi(10) = "Ottobre"
  30. msNomeMesi(11) = "Novembre"
  31. msNomeMesi(12) = "Dicembre"
  32.  
  33. DIM msSettimana(7) AS STRING ' matrice di stringhe
  34.  
  35. msSettimana(1) = "Domenica"
  36. msSettimana(2) = "Lunedi"
  37. msSettimana(3) = "Martedi"
  38. msSettimana(4) = "Mercoledi"
  39. msSettimana(5) = "Giovedi"
  40. msSettimana(6) = "Venerdi"
  41. msSettimana(7) = "Sabato"
  42.  
  43.  
  44. ' preparazione schermo
  45. COLOR , 1
  46. Inizio:
  48. COLOR 14, 12
  49. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  50. LOCATE 3, 1: PRINT "                             DA DATA A DATA ESTESA                              "
  51. LOCATE 4, 1: PRINT "--------------------------------------------------------------------------------"
  52. COLOR 15, 1
  53.  
  54. LOCATE 7, 10: INPUT "inserisci il giorno (1/31) "; sGiorno
  55. LOCATE 9, 10: INPUT "inserisci il mese (1/12) "; sMese
  56. LOCATE 11, 10: INPUT "inserisci l'anno (1584/3000) "; sAnno
  57.  
  58. ' mancano controlli sugli input
  59.  
  60. ' conversione stringa->numero
  61. iGiorno = VAL(sGiorno)
  62. iMese = VAL(sMese)
  63. iAnno = VAL(sAnno)
  64. ' composizione data di uscita
  65. sData = sGiorno + "/" + msNomeMesi(iMese) + "/" + sAnno
  66. ' calcolo del giorno della settimana
  67. IF iMese < 3 THEN
  68.     iAnno = iAnno - 1
  69.     iMese = iMese + 12
  71. iV1 = INT(iAnno / 100)
  72. iV2 = iAnno - iV1 * 100
  73. iV3 = INT(2.6001 * (iMese - 2) - .2) + iGiorno + iV2 + INT(iV2 / 4) + INT(iV1 / 4) - 2 * iV1
  74. iV3 = iV3 - INT(iV3 / 7) * 7 + 1
  75.  
  76. ' uscita
  77. LOCATE 16, 10: PRINT msSettimana(iV3); " "; sData
  78.  
  79. ' attesa
  80. LOCATE 24, 10: PRINT "[ premi un tasto per nuova data ]";
  82. DO: K = INKEY$: SLEEP (1): LOOP WHILE K = ""
  83. GOTO Inizio
  84.  
  85.  

I hope this helps
Title: Re: help my
Post by: bplus on July 16, 2020, 03:59:34 pm
Ha! Yes @SMcNeill  thanks to practice checking your time stamps, I think I have handle on this, at least for numbers going forward. I moved start date to Thurs June 1, 2017 to make whole month tests = lotto number 1463 and based calculations starting there.

A little more checking to do but I have good dates through Jan 2, 2018 lotto number 1555.


@Kiara87
Wow, all you folks for whom English is not your first language I am so impressed with your participation here at this forum!
Title: Re: help my
Post by: Kiara87 on July 16, 2020, 04:36:29 pm
Quote from: bplus on July 16, 2020, 03:59:34 pm
Ha! Yes @SMcNeill  thanks to practice checking your time stamps, I think I have handle on this, at least for numbers going forward. I moved start date to Thurs June 1, 2017 to make whole month tests = lotto number 1463 and based calculations starting there.

A little more checking to do but I have good dates through Jan 2, 2018 lotto number 1555.


@Kiara87
Wow, all you folks for whom English is not your first language I am so impressed with your participation here at this forum!

qb64 fascinates me and has become my passion
and this forum there is something special
that drives you to learn
even people who try to help you
as you are doing
you are a person who knows how to keep the forum active
and with your knowledge as a good programmer
I hope to learn to program and understand the logic of programming too

and tried to understand the changes you make in my program so I also understand how to program
Title: Re: help my
Post by: bplus on July 16, 2020, 04:39:50 pm
Hopefully I have the Italian correct:
Code: QB64: [Select]
  2. DEFLNG A-Z
  3. _TITLE "Lotto day+date from lotto number" 'b+ 2020-07-16
  4. ' given a number (integer) figure the day and date of lotto
  5. ' hint: 1465 = Tuesday, June 6, 2017 that is key to this hack job
  6. ' moved back to Thursday, June 1, 2017 but might have to move back further
  7. ' for lotto number 1.
  8.  
  9. DIM SHARED msNomeMesi(12) AS STRING ' matrice di stringhe
  10. msNomeMesi(1) = "Gennaio"
  11. msNomeMesi(2) = "Febbraio"
  12. msNomeMesi(3) = "Marzo"
  13. msNomeMesi(4) = "Aprile"
  14. msNomeMesi(5) = "Maggio"
  15. msNomeMesi(6) = "Giugno"
  16. msNomeMesi(7) = "Luglio"
  17. msNomeMesi(8) = "Agosto"
  18. msNomeMesi(9) = "Settembre"
  19. msNomeMesi(10) = "Ottobre"
  20. msNomeMesi(11) = "Novembre"
  21. msNomeMesi(12) = "Dicembre"
  22.  
  23. DIM SHARED msSettimana(7) AS STRING ' matrice di stringhe
  24. msSettimana(1) = "Domenica"
  25. msSettimana(2) = "Lunedi"
  26. msSettimana(3) = "Martedi"
  27. msSettimana(4) = "Mercoledi"
  28. msSettimana(5) = "Giovedi"
  29. msSettimana(6) = "Venerdi"
  30. msSettimana(7) = "Sabato"
  31.  
  32.  
  33. DIM lottoNum
  34. FOR lottoNum = 1463 TO 1483 'checked through 1712
  35.     'INPUT "Enter lotto number "; lottoNumX
  36.     '  lottoNumX = ?
  37.     PRINT lottoNum, CovertLottoNumToDate$(lottoNum)
  39.  
  40. FUNCTION CovertLottoNumToDate$ (lottoNumX)
  41.     DIM numberOfDays1463, yr, mo
  42.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  43.     yr = 2017
  44.     mo = 6
  45.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  46.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  47.         mo = mo + 1
  48.         IF mo = 13 THEN mo = 1: yr = yr + 1
  49.     WEND
  50.     ' date shound be yr, m0, numberOfDays1465
  51.     CovertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  53.  
  54. FUNCTION lottoday$ (lottoNum)
  55.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  56.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  57.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  59.  
  60. FUNCTION daysInMonth% (mNum, yearNum)
  61.     DIM copyM, copyY
  62.     copyM = mNum
  63.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  64.     SELECT CASE copyM
  65.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  66.         CASE 4, 6, 9, 11: daysInMonth% = 30
  67.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  68.     END SELECT
  70.  
  71. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  72.     DIM days AS INTEGER
  73.     IF yr MOD 4 = 0 THEN
  74.         IF yr MOD 100 = 0 THEN
  75.             IF yr MOD 400 = 0 THEN days = 29
  76.         ELSE
  77.             days = 29
  78.         END IF
  79.     END IF
  80.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  82.  
  83.  
Title: Re: help my
Post by: Kiara87 on July 16, 2020, 05:00:00 pm
Quote from: bplus on July 16, 2020, 04:39:50 pm
Hopefully I have the Italian correct:
Code: QB64: [Select]
  2. DEFLNG A-Z
  3. _TITLE "Lotto day+date from lotto number" 'b+ 2020-07-16
  4. ' given a number (integer) figure the day and date of lotto
  5. ' hint: 1465 = Tuesday, June 6, 2017 that is key to this hack job
  6. ' moved back to Thursday, June 1, 2017 but might have to move back further
  7. ' for lotto number 1.
  8.  
  9. DIM SHARED msNomeMesi(12) AS STRING ' matrice di stringhe
  10. msNomeMesi(1) = "Gennaio"
  11. msNomeMesi(2) = "Febbraio"
  12. msNomeMesi(3) = "Marzo"
  13. msNomeMesi(4) = "Aprile"
  14. msNomeMesi(5) = "Maggio"
  15. msNomeMesi(6) = "Giugno"
  16. msNomeMesi(7) = "Luglio"
  17. msNomeMesi(8) = "Agosto"
  18. msNomeMesi(9) = "Settembre"
  19. msNomeMesi(10) = "Ottobre"
  20. msNomeMesi(11) = "Novembre"
  21. msNomeMesi(12) = "Dicembre"
  22.  
  23. DIM SHARED msSettimana(7) AS STRING ' matrice di stringhe
  24. msSettimana(1) = "Domenica"
  25. msSettimana(2) = "Lunedi"
  26. msSettimana(3) = "Martedi"
  27. msSettimana(4) = "Mercoledi"
  28. msSettimana(5) = "Giovedi"
  29. msSettimana(6) = "Venerdi"
  30. msSettimana(7) = "Sabato"
  31.  
  32.  
  33. DIM lottoNum
  34. FOR lottoNum = 1463 TO 1483 'checked through 1712
  35.     'INPUT "Enter lotto number "; lottoNumX
  36.     '  lottoNumX = ?
  37.     PRINT lottoNum, CovertLottoNumToDate$(lottoNum)
  39.  
  40. FUNCTION CovertLottoNumToDate$ (lottoNumX)
  41.     DIM numberOfDays1463, yr, mo
  42.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  43.     yr = 2017
  44.     mo = 6
  45.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  46.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  47.         mo = mo + 1
  48.         IF mo = 13 THEN mo = 1: yr = yr + 1
  49.     WEND
  50.     ' date shound be yr, m0, numberOfDays1465
  51.     CovertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  53.  
  54. FUNCTION lottoday$ (lottoNum)
  55.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  56.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  57.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  59.  
  60. FUNCTION daysInMonth% (mNum, yearNum)
  61.     DIM copyM, copyY
  62.     copyM = mNum
  63.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  64.     SELECT CASE copyM
  65.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  66.         CASE 4, 6, 9, 11: daysInMonth% = 30
  67.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  68.     END SELECT
  70.  
  71. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  72.     DIM days AS INTEGER
  73.     IF yr MOD 4 = 0 THEN
  74.         IF yr MOD 100 = 0 THEN
  75.             IF yr MOD 400 = 0 THEN days = 29
  76.         ELSE
  77.             days = 29
  78.         END IF
  79.     END IF
  80.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  82.  
  83.  

you are truly an alien a programming machine

now I have to understand how the function fits into the program thanks
Title: Re: help my
Post by: bplus on July 16, 2020, 09:18:07 pm
Quote
now I have to understand how the function fits into the program thanks

The 4 FUNCTIONs go at the end of the code. The array of month names is SHARED at the top of your code with other variables setup. The code in middle is just a demo test to see that the Convert Function works.

When you want to show the date of the Lotto line, LOCATE where you want date and PRINT ConvertLottoNumtoDate$(lottoNum) which is the first 4 digits of the line from Lotto.dat.
Title: Re: help my
Post by: Kiara87 on July 17, 2020, 04:27:03 am
Quote from: bplus on July 16, 2020, 09:18:07 pm
The 4 FUNCTIONs go at the end of the code. The array of month names is SHARED at the top of your code with other variables setup. The code in middle is just a demo test to see that the Convert Function works.

When you want to show the date of the Lotto line, LOCATE where you want date and PRINT ConvertLottoNumtoDate$(lottoNum) which is the first 4 digits of the line from Lotto.dat.

ok bplus

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, a2 AS STRING, count, i, lineNum, lineNum2 ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, y, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. DIM shiftRight2
  12. DIM mb, mx, my, oldmouse ' oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  13. DIM lottoNum
  14. '---------------------------------------------------------------------------------------------------
  15. DIM SHARED msNomeMesi(12) AS STRING ' matrice di stringhe
  16. msNomeMesi(1) = "Gennaio"
  17. msNomeMesi(2) = "Febbraio"
  18. msNomeMesi(3) = "Marzo"
  19. msNomeMesi(4) = "Aprile"
  20. msNomeMesi(5) = "Maggio"
  21. msNomeMesi(6) = "Giugno"
  22. msNomeMesi(7) = "Luglio"
  23. msNomeMesi(8) = "Agosto"
  24. msNomeMesi(9) = "Settembre"
  25. msNomeMesi(10) = "Ottobre"
  26. msNomeMesi(11) = "Novembre"
  27. msNomeMesi(12) = "Dicembre"
  28.  
  29. DIM SHARED msSettimana(7) AS STRING ' matrice di stringhe
  30. msSettimana(1) = "Domenica"
  31. msSettimana(2) = "Lunedi"
  32. msSettimana(3) = "Martedi"
  33. msSettimana(4) = "Mercoledi"
  34. msSettimana(5) = "Giovedi"
  35. msSettimana(6) = "Venerdi"
  36. msSettimana(7) = "Sabato"
  37.  
  38.  
  39.  
  40. '-------------------------------------------------------------------------------------------------
  41. shiftRight2 = 65
  42. shiftRight = 11
  43.  
  44.  
  45. 'count lines in file
  46. OPEN "lotto.dat" FOR INPUT AS #1
  48.     INPUT #1, a
  49.     '          debug check inputs from file
  50.     'PRINT a
  51.     'INPUT " OK enter "; w$
  52.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  55.  
  56. 'now we now size of file so ready an array to load file Data
  57. DIM fileDAT(1 TO count) AS STRING
  58. OPEN "lotto.dat" FOR INPUT AS #1
  59. FOR i = 1 TO count
  60.     INPUT #1, a
  61.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  64.  
  65. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  66.  
  67. GOSUB labelScreen
  68.  
  69. 'set first line and get a data string from the FileDAT array
  70. lineNum = 1
  71. a = fileDAT(lineNum)
  72. lineNum2 = 1
  73. a2 = fileDAT(lineNum2)
  74. lottoNum = 1465
  76.     CLS
  77.     Q$ = INKEY$
  78.     IF Q$ = "+" THEN lottoNum = lottoNum + 1
  79.     IF Q$ = "-" THEN lottoNum = lottoNum - 1
  80.     IF Q$ = "+" THEN lineNum = lineNum + 1
  81.     IF Q$ = "-" THEN lineNum = lineNum - 1
  82.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  83.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  84.  
  86.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  87.     'LOCATE 3, 1: PRINT mx, my
  88.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  89.         '_DELAY .25 '        just one click please!
  90.         IF 17 <= mx AND mx <= 25 THEN lineNum = lineNum + 1
  91.         IF 28 <= mx AND mx <= 37 THEN lineNum = lineNum - 1
  92.         IF 44 <= mx AND mx <= 52 THEN lineNum2 = lineNum2 + 1
  93.         IF 55 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 - 1
  94.     END IF
  95.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  96.     IF lineNum2 > count THEN lineNum2 = 1
  97.     IF lineNum2 < 1 THEN lineNum2 = count
  98.  
  99.     IF lineNum > count THEN lineNum = 1
  100.     IF lineNum < 1 THEN lineNum = count
  101.  
  102.     'get new data line
  103.     a = fileDAT(lineNum)
  104.  
  105.     a2 = fileDAT(lineNum2)
  106.     'print out the data from the new line
  107.  
  108.     GOSUB labelScreen
  109.     GOSUB screenDataLine
  110.     GOSUB loadLineDAT_Mark30s
  111.     _DISPLAY
  112.     _LIMIT 30
  115.  
  116. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  117. rowCnt = 1: y = 1
  118. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  119.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  120.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  121.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  123. COLOR 9 'blue marker  seacrh through columes for  30's
  124. FOR col = 1 TO 5 'for each of the columes of data
  125.     FOR row = 1 TO 10 'for each of the rows of dat
  126.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  127.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  128.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  129.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  130.             END IF
  131.         NEXT
  132.     NEXT
  134. '---------------------------------------------------- right side  a2 data line
  135. rowCnt = 1: y = 1
  136. FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  137.     lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  138.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  139.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  141. COLOR 9 'blue marker  seacrh through columes for  30's
  142. FOR col = 1 TO 5 'for each of the columes of data
  143.     FOR row = 1 TO 10 'for each of the rows of dat
  144.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  145.             ' IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  146.             'LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  147.             'LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  148.             'END IF
  149.         NEXT
  150.     NEXT
  153.  
  154.  
  155. screenDataLine:
  157. LOCATE 1, 1
  158. PRINT "estraz: "; CovertLottoNumToDate$(lottoNum);" " LEFT$(a, 4)
  159. LOCATE 1, 1
  160. 'PRINT "estraz: "; LEFT$(a, 4); '"  line:"; 'STR$(lineNum); ""
  161. aPlace = 5
  162. FOR row = 1 TO 11
  163.     FOR col = 1 TO 5
  164.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  165.         aPlace = aPlace + 2
  166.     NEXT
  168. '-------------------------------------------------- Right side
  170. LOCATE 1, 15 + 43
  171. PRINT "estraz "; LEFT$(a2, 4); "   line:"; STR$(lineNum2); '<<<<<<<<<<<<<<< a2 now
  172. aPlace = 5
  173. FOR row = 1 TO 11
  174.     FOR col = 1 TO 5
  175.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<<<<<<<<<<<<<<< a2 now
  176.         aPlace = aPlace + 2
  177.     NEXT
  180.  
  181. labelScreen:
  183. DIM labels(11) AS STRING ' setup screen labels for reporting data
  184. labels(1) = "BARI"
  185. labels(2) = "CAGLIARI"
  186. labels(3) = "FIRENZE"
  187. labels(4) = "GENOVA"
  188. labels(5) = "MILANO"
  189. labels(6) = "NAPOLI"
  190. labels(7) = "PALERMO"
  191. labels(8) = "ROMA"
  192. labels(9) = "TORINO"
  193. labels(10) = "VENEZIA"
  194. labels(11) = "NAZIONALE"
  195. FOR i = 1 TO 11
  196.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  198. LOCATE 25, 1
  199. FOR i = 1 TO 11
  200.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  202. LOCATE 25, 1
  203.  
  204.  
  205. PRINT " Fare clic su:  Fino / Up  Giu / Down      Fino / Up  Giu / Down";
  206. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  207. '               1         2         3         4         5         6         7         8
  209.  
  210. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  211.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  213.  
  214. FUNCTION diff30in90 (a, b) 'default integers a-z
  215.     DIM hi, lo
  216.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  217.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  218.     IF hi - lo = 30 THEN
  219.         diff30in90 = -1
  220.     ELSE
  221.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  222.     END IF
  224.  
  225. FUNCTION CovertLottoNumToDate$ (lottoNumX)
  226.     DIM numberOfDays1463, yr, mo
  227.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  228.     yr = 2017
  229.     mo = 6
  230.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  231.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  232.         mo = mo + 1
  233.         IF mo = 13 THEN mo = 1: yr = yr + 1
  234.     WEND
  235.     ' date shound be yr, m0, numberOfDays1465
  236.     CovertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  238.  
  239. FUNCTION lottoday$ (lottoNum)
  240.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  241.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  242.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  244.  
  245. FUNCTION daysInMonth% (mNum, yearNum)
  246.     DIM copyM, copyY
  247.     copyM = mNum
  248.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  249.     SELECT CASE copyM
  250.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  251.         CASE 4, 6, 9, 11: daysInMonth% = 30
  252.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  253.     END SELECT
  255.  
  256. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  257.     DIM days AS INTEGER
  258.     IF yr MOD 4 = 0 THEN
  259.         IF yr MOD 100 = 0 THEN
  260.             IF yr MOD 400 = 0 THEN days = 29
  261.         ELSE
  262.             days = 29
  263.         END IF
  264.     END IF
  265.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  

so it works but if it reaches the last continuous extraction it doesn't go back

I arrived until 2021
and back says minus extraction

after all it works
but I have to figure out how to fix it when it passes today's date
and return to the first draw with the date of the first

thanks bplus
Title: Re: help my
Post by: bplus on July 17, 2020, 12:21:14 pm
Code: QB64: [Select]
  1. lineNum = 1
  2. a = fileDAT(lineNum)
  3. lineNum2 = 1
  4. a2 = fileDAT(lineNum2)
  5. '''''''''''''''''''''''''''''''''''''''''''''''''''''''' lottoNum = 1465
  6.  

When we set our line numbers from the Click or Keypress, we can also get the date for each extraction:
Code: QB64: [Select]
  1. lottoNum = val(left$(a, 4))
  2. lottoNum2 = val(left$(a2, 4))
  3. lottoDate$ = ConvertLottoNumToDate$(lottNum)   ' fix spelling of the function it's convert with an n
  4. lottoDate2$ = ConvertLottoNumToDate$(lottNum2) ' fix spelling of the function it's convert with an n
  5.  


Now this section can be labeled better with dates:
Code: QB64: [Select]
  1. screenDataLine:
  3. LOCATE 1, 1
  4. PRINT "estraz: "; CovertLottoNumToDate$(lottoNum);" " LEFT$(a, 4)  '<<<<  lottoDate$ and lottoNum
  5. LOCATE 1, 1
  6. 'PRINT "estraz: "; LEFT$(a, 4); '"  line:"; 'STR$(lineNum); ""
  7. aPlace = 5
  8. FOR row = 1 TO 11
  9.     FOR col = 1 TO 5
  10.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  11.         aPlace = aPlace + 2
  12.     NEXT
  14. '-------------------------------------------------- Right side
  16. LOCATE 1, 15 + 43
  17. PRINT "estraz "; LEFT$(a2, 4); "   line:"; STR$(lineNum2); '< a2 now <<<< NOW!! lottoDate2$ and lottoNum2
  18. aPlace = 5

Probably don't need the weekday names they are built into functions and the labels can be moved to top with the other data setup.
Title: Re: help my
Post by: Kiara87 on July 17, 2020, 02:26:09 pm
Quote from: bplus on July 17, 2020, 12:21:14 pm
Code: QB64: [Select]
  1. lineNum = 1
  2. a = fileDAT(lineNum)
  3. lineNum2 = 1
  4. a2 = fileDAT(lineNum2)
  5. '''''''''''''''''''''''''''''''''''''''''''''''''''''''' lottoNum = 1465
  6.  

When we set our line numbers from the Click or Keypress, we can also get the date for each extraction:
Code: QB64: [Select]
  1. lottoNum = val(left$(a, 4))
  2. lottoNum2 = val(left$(a2, 4))
  3. lottoDate$ = ConvertLottoNumToDate$(lottNum)   ' fix spelling of the function it's convert with an n
  4. lottoDate2$ = ConvertLottoNumToDate$(lottNum2) ' fix spelling of the function it's convert with an n
  5.  


Now this section can be labeled better with dates:
Code: QB64: [Select]
  1. screenDataLine:
  3. LOCATE 1, 1
  4. PRINT "estraz: "; CovertLottoNumToDate$(lottoNum);" " LEFT$(a, 4)  '<<<<  lottoDate$ and lottoNum
  5. LOCATE 1, 1
  6. 'PRINT "estraz: "; LEFT$(a, 4); '"  line:"; 'STR$(lineNum); ""
  7. aPlace = 5
  8. FOR row = 1 TO 11
  9.     FOR col = 1 TO 5
  10.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  11.         aPlace = aPlace + 2
  12.     NEXT
  14. '-------------------------------------------------- Right side
  16. LOCATE 1, 15 + 43
  17. PRINT "estraz "; LEFT$(a2, 4); "   line:"; STR$(lineNum2); '< a2 now <<<< NOW!! lottoDate2$ and lottoNum2
  18. aPlace = 5

Probably don't need the weekday names they are built into functions and the labels can be moved to top with the other data setup.
dim lottoDate$
or
dim lottoDate as string
however, it does not convert the string variable to a number
Title: Re: help my
Post by: bplus on July 17, 2020, 02:38:14 pm
Code: QB64: [Select]
  1. lottoNum = VAL(LEFT$(a, 4))
  2. lottoNum2 = VAL(LEFT$(a2, 4))
  3. lottoDate$ = ConvertLottoNumToDate$(lottNum)   ' fix spelling of the function it's convert with an n
  4. lottoDate2$ = ConvertLottoNumToDate$(lottNum2) ' fix spelling of the function it's convert with an n
  5.  

This has to be done AFTER you get new a and a2 from file array, which is AFTER you hit up arrow or down or after +/- or after you click up / down.

Before all that the FUNCTION convert.... is misspelled it is missing an n. You have to change the function name and then where it is set near bottom of the function. That is what is red lined because could not find the function because I misspelled it. It is NOT covert, it is convert.

If you wait another couple hours I will have that and a bunch of other things cleaned up and have the code looking spiffy! :) I have to run errands again.

After spiffy, I will try and figure want you want between the 2 screens. I see you have commented out the right side diff 30's coloring.
Title: Re: help my
Post by: bplus on July 17, 2020, 03:21:43 pm
Spiffy enough for now:
Code: QB64: [Select]
  2. _TITLE "Lotto Data"
  3. 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  4. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  5. '           fix function convertLottoNum2Date$ spelling
  6. '           clean out some redundant code loops
  7.  
  8. DEFINT A-Z ' everything is integer unless DIM or suffix
  9. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  10.  
  11. DIM count '                                 for number of lines in the data file
  12.  
  13. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  14. DIM a AS STRING, a2 AS STRING '             extraction lines of data
  15. DIM lottoNum, lottoNum2 '                   for extractions
  16. DIM lottoDate$, lottoDate2$ '               for the dates of lottos
  17.  
  18. ' user inputs
  19. DIM Q$ '                                    for INKEY$
  20. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  21.  
  22. ' these would normally go in SUBs or FUNCTIONs but we are using GOSUBs here
  23. DIM shiftRight, shiftRight2 '               screening data left and right, normally these would be CONSTANTs
  24. shiftRight = 11 '                           according to screen fit
  25. shiftRight2 = 65 '                          according to screen fit
  26.  
  27. DIM row, col, aPlace '                      for screening Data from a string
  28. DIM rowCnt, y, rowPlus '                    for loading lineDAT() from a file string
  29. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  30.  
  31. DIM i '                                     common use for indexing
  32.  
  33. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  34. msNomeMesi(1) = "Gennaio"
  35. msNomeMesi(2) = "Febbraio"
  36. msNomeMesi(3) = "Marzo"
  37. msNomeMesi(4) = "Aprile"
  38. msNomeMesi(5) = "Maggio"
  39. msNomeMesi(6) = "Giugno"
  40. msNomeMesi(7) = "Luglio"
  41. msNomeMesi(8) = "Agosto"
  42. msNomeMesi(9) = "Settembre"
  43. msNomeMesi(10) = "Ottobre"
  44. msNomeMesi(11) = "Novembre"
  45. msNomeMesi(12) = "Dicembre"
  46.  
  47. DIM labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  48. labels(1) = "BARI"
  49. labels(2) = "CAGLIARI"
  50. labels(3) = "FIRENZE"
  51. labels(4) = "GENOVA"
  52. labels(5) = "MILANO"
  53. labels(6) = "NAPOLI"
  54. labels(7) = "PALERMO"
  55. labels(8) = "ROMA"
  56. labels(9) = "TORINO"
  57. labels(10) = "VENEZIA"
  58. labels(11) = "NAZIONALE"
  59.  
  60. '-------------------------------- start Main setup get file data loaded into array
  61.  
  62. 'count lines in file
  63. OPEN "lotto.dat" FOR INPUT AS #1
  65.     INPUT #1, a
  66.     '          debug check inputs from file
  67.     'PRINT a
  68.     'INPUT " OK enter "; w$
  69.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  72.  
  73. 'now we now size of file so ready an array to load file Data
  74. DIM fileDAT(1 TO count) AS STRING
  75. OPEN "lotto.dat" FOR INPUT AS #1
  76. FOR i = 1 TO count
  77.     INPUT #1, a
  78.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  81.  
  82. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  83. lineNum = 1
  84. a = fileDAT(lineNum)
  85. lottoNum = VAL(LEFT$(a, 4))
  86. lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  87.  
  88. 'get/set right side start variables
  89. lineNum2 = 1
  90. a2 = fileDAT(lineNum2)
  91. lottoNum2 = VAL(LEFT$(a2, 4))
  92. lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  93.  
  94. DO '------------------------------------------------ Main Loop User selects data to compare
  95.     CLS
  96.     Q$ = INKEY$
  97.     IF Q$ = "+" THEN lineNum = lineNum + 1
  98.     IF Q$ = "-" THEN lineNum = lineNum - 1
  99.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  100.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  101.  
  103.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  104.     'LOCATE 3, 1: PRINT mx, my
  105.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  106.         '_DELAY .25 '        just one click please!
  107.         IF 3 <= mx AND mx <= 11 THEN lineNum = lineNum + 1
  108.         IF 14 <= mx AND mx <= 23 THEN lineNum = lineNum - 1
  109.         IF 56 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 + 1
  110.         IF 67 <= mx AND mx <= 76 THEN lineNum2 = lineNum2 - 1
  111.     END IF
  112.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  113.     IF lineNum > count THEN lineNum = 1
  114.     IF lineNum < 1 THEN lineNum = count
  115.     IF lineNum2 > count THEN lineNum2 = 1
  116.     IF lineNum2 < 1 THEN lineNum2 = count
  117.  
  118.     'get new data line
  119.     a = fileDAT(lineNum) 'left side data
  120.     lottoNum = VAL(LEFT$(a, 4))
  121.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  122.  
  123.     a2 = fileDAT(lineNum2) 'right side data
  124.     lottoNum2 = VAL(LEFT$(a2, 4))
  125.     lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  126.  
  127.     'print out the data from the new line
  128.     GOSUB labelScreen
  129.     GOSUB screenDataLine
  130.     GOSUB loadLineDAT_Mark30s
  131.     _DISPLAY
  132.     _LIMIT 30
  135.  
  136. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  137. rowCnt = 1: y = 1
  138. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  139.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  140.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  141.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  143. COLOR 9 'blue marker  seacrh through columes for  30's
  144. FOR col = 1 TO 5 'for each of the columes of data
  145.     FOR row = 1 TO 10 'for each of the rows of dat
  146.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  147.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  148.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  149.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  150.             END IF
  151.         NEXT
  152.     NEXT
  154. ''----------------------------- plug in new color routine here for right side ???
  155. 'rowCnt = 1: y = 1
  156. 'FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  157. '    lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  158. '    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  159. '    IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  160. 'NEXT
  161. 'COLOR 9 'blue marker  seacrh through columes for  30's
  162. 'FOR col = 1 TO 5 'for each of the columes of data
  163. '    FOR row = 1 TO 10 'for each of the rows of dat
  164. '        FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  165. '            'IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  166. '            '    LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  167. '            '    LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  168. '            'END IF
  169. '        NEXT
  170. '    NEXT
  171. 'NEXT
  173.  
  174. screenDataLine:
  176. LOCATE 1, 1
  177. PRINT lottoNum; lottoDate$;
  178. LOCATE 1, 48
  179. PRINT lottoNum2; lottoDate2$;
  180. aPlace = 5
  181. FOR row = 1 TO 11
  182.     FOR col = 1 TO 5
  183.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2); ' Left side
  184.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<< a2 now Right Side
  185.         aPlace = aPlace + 2
  186.     NEXT
  189.  
  190. labelScreen:
  192. FOR i = 1 TO 11
  193.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  194.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  196. LOCATE 25, 1
  197. PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  198. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  199. '               1         2         3         4         5         6         7         8
  201.  
  202. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  203.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  205.  
  206. FUNCTION diff30in90 (a, b) 'default integers a-z
  207.     DIM hi, lo
  208.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  209.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  210.     IF hi - lo = 30 THEN
  211.         diff30in90 = -1
  212.     ELSE
  213.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  214.     END IF
  216.  
  217. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  218. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  219.     DIM numberOfDays1463, yr, mo
  220.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  221.     yr = 2017
  222.     mo = 6
  223.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  224.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  225.         mo = mo + 1
  226.         IF mo = 13 THEN mo = 1: yr = yr + 1
  227.     WEND
  228.     ' date shound be day name date/month/year for Italians
  229.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  231.  
  232. FUNCTION lottoday$ (lottoNum)
  233.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  234.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  235.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  237.  
  238. FUNCTION daysInMonth% (mNum, yearNum)
  239.     DIM copyM, copyY
  240.     copyM = mNum
  241.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  242.     SELECT CASE copyM
  243.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  244.         CASE 4, 6, 9, 11: daysInMonth% = 30
  245.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  246.     END SELECT
  248.  
  249. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  250.     DIM days AS INTEGER
  251.     IF yr MOD 4 = 0 THEN
  252.         IF yr MOD 100 = 0 THEN
  253.             IF yr MOD 400 = 0 THEN days = 29
  254.         ELSE
  255.             days = 29
  256.         END IF
  257.     END IF
  258.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  260.  
Title: Re: help my
Post by: Kiara87 on July 17, 2020, 03:38:27 pm
thanks perfect master

Quote from: bplus on July 17, 2020, 03:21:43 pm
Spiffy enough for now:
Code: QB64: [Select]
  2. _TITLE "Lotto Data"
  3. 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  4. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  5. '           fix function convertLottoNum2Date$ spelling
  6. '           clean out some redundant code loops
  7.  
  8. DEFINT A-Z ' everything is integer unless DIM or suffix
  9. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  10.  
  11. DIM count '                                 for number of lines in the data file
  12.  
  13. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  14. DIM a AS STRING, a2 AS STRING '             extraction lines of data
  15. DIM lottoNum, lottoNum2 '                   for extractions
  16. DIM lottoDate$, lottoDate2$ '               for the dates of lottos
  17.  
  18. ' user inputs
  19. DIM Q$ '                                    for INKEY$
  20. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  21.  
  22. ' these would normally go in SUBs or FUNCTIONs but we are using GOSUBs here
  23. DIM shiftRight, shiftRight2 '               screening data left and right, normally these would be CONSTANTs
  24. shiftRight = 11 '                           according to screen fit
  25. shiftRight2 = 65 '                          according to screen fit
  26.  
  27. DIM row, col, aPlace '                      for screening Data from a string
  28. DIM rowCnt, y, rowPlus '                    for loading lineDAT() from a file string
  29. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  30.  
  31. DIM i '                                     common use for indexing
  32.  
  33. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  34. msNomeMesi(1) = "Gennaio"
  35. msNomeMesi(2) = "Febbraio"
  36. msNomeMesi(3) = "Marzo"
  37. msNomeMesi(4) = "Aprile"
  38. msNomeMesi(5) = "Maggio"
  39. msNomeMesi(6) = "Giugno"
  40. msNomeMesi(7) = "Luglio"
  41. msNomeMesi(8) = "Agosto"
  42. msNomeMesi(9) = "Settembre"
  43. msNomeMesi(10) = "Ottobre"
  44. msNomeMesi(11) = "Novembre"
  45. msNomeMesi(12) = "Dicembre"
  46.  
  47. DIM labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  48. labels(1) = "BARI"
  49. labels(2) = "CAGLIARI"
  50. labels(3) = "FIRENZE"
  51. labels(4) = "GENOVA"
  52. labels(5) = "MILANO"
  53. labels(6) = "NAPOLI"
  54. labels(7) = "PALERMO"
  55. labels(8) = "ROMA"
  56. labels(9) = "TORINO"
  57. labels(10) = "VENEZIA"
  58. labels(11) = "NAZIONALE"
  59.  
  60. '-------------------------------- start Main setup get file data loaded into array
  61.  
  62. 'count lines in file
  63. OPEN "lotto.dat" FOR INPUT AS #1
  65.     INPUT #1, a
  66.     '          debug check inputs from file
  67.     'PRINT a
  68.     'INPUT " OK enter "; w$
  69.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  72.  
  73. 'now we now size of file so ready an array to load file Data
  74. DIM fileDAT(1 TO count) AS STRING
  75. OPEN "lotto.dat" FOR INPUT AS #1
  76. FOR i = 1 TO count
  77.     INPUT #1, a
  78.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  81.  
  82. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  83. lineNum = 1
  84. a = fileDAT(lineNum)
  85. lottoNum = VAL(LEFT$(a, 4))
  86. lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  87.  
  88. 'get/set right side start variables
  89. lineNum2 = 1
  90. a2 = fileDAT(lineNum2)
  91. lottoNum2 = VAL(LEFT$(a2, 4))
  92. lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  93.  
  94. DO '------------------------------------------------ Main Loop User selects data to compare
  95.     CLS
  96.     Q$ = INKEY$
  97.     IF Q$ = "+" THEN lineNum = lineNum + 1
  98.     IF Q$ = "-" THEN lineNum = lineNum - 1
  99.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  100.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  101.  
  103.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  104.     'LOCATE 3, 1: PRINT mx, my
  105.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  106.         '_DELAY .25 '        just one click please!
  107.         IF 3 <= mx AND mx <= 11 THEN lineNum = lineNum + 1
  108.         IF 14 <= mx AND mx <= 23 THEN lineNum = lineNum - 1
  109.         IF 56 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 + 1
  110.         IF 67 <= mx AND mx <= 76 THEN lineNum2 = lineNum2 - 1
  111.     END IF
  112.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  113.     IF lineNum > count THEN lineNum = 1
  114.     IF lineNum < 1 THEN lineNum = count
  115.     IF lineNum2 > count THEN lineNum2 = 1
  116.     IF lineNum2 < 1 THEN lineNum2 = count
  117.  
  118.     'get new data line
  119.     a = fileDAT(lineNum) 'left side data
  120.     lottoNum = VAL(LEFT$(a, 4))
  121.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  122.  
  123.     a2 = fileDAT(lineNum2) 'right side data
  124.     lottoNum2 = VAL(LEFT$(a2, 4))
  125.     lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  126.  
  127.     'print out the data from the new line
  128.     GOSUB labelScreen
  129.     GOSUB screenDataLine
  130.     GOSUB loadLineDAT_Mark30s
  131.     _DISPLAY
  132.     _LIMIT 30
  135.  
  136. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  137. rowCnt = 1: y = 1
  138. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  139.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  140.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  141.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  143. COLOR 9 'blue marker  seacrh through columes for  30's
  144. FOR col = 1 TO 5 'for each of the columes of data
  145.     FOR row = 1 TO 10 'for each of the rows of dat
  146.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  147.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  148.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  149.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  150.             END IF
  151.         NEXT
  152.     NEXT
  154. ''----------------------------- plug in new color routine here for right side ???
  155. 'rowCnt = 1: y = 1
  156. 'FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  157. '    lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  158. '    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  159. '    IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  160. 'NEXT
  161. 'COLOR 9 'blue marker  seacrh through columes for  30's
  162. 'FOR col = 1 TO 5 'for each of the columes of data
  163. '    FOR row = 1 TO 10 'for each of the rows of dat
  164. '        FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  165. '            'IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  166. '            '    LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  167. '            '    LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  168. '            'END IF
  169. '        NEXT
  170. '    NEXT
  171. 'NEXT
  173.  
  174. screenDataLine:
  176. LOCATE 1, 1
  177. PRINT lottoNum; lottoDate$;
  178. LOCATE 1, 48
  179. PRINT lottoNum2; lottoDate2$;
  180. aPlace = 5
  181. FOR row = 1 TO 11
  182.     FOR col = 1 TO 5
  183.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2); ' Left side
  184.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<< a2 now Right Side
  185.         aPlace = aPlace + 2
  186.     NEXT
  189.  
  190. labelScreen:
  192. FOR i = 1 TO 11
  193.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  194.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  196. LOCATE 25, 1
  197. PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  198. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  199. '               1         2         3         4         5         6         7         8
  201.  
  202. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  203.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  205.  
  206. FUNCTION diff30in90 (a, b) 'default integers a-z
  207.     DIM hi, lo
  208.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  209.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  210.     IF hi - lo = 30 THEN
  211.         diff30in90 = -1
  212.     ELSE
  213.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  214.     END IF
  216.  
  217. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  218. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  219.     DIM numberOfDays1463, yr, mo
  220.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  221.     yr = 2017
  222.     mo = 6
  223.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  224.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  225.         mo = mo + 1
  226.         IF mo = 13 THEN mo = 1: yr = yr + 1
  227.     WEND
  228.     ' date shound be day name date/month/year for Italians
  229.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  231.  
  232. FUNCTION lottoday$ (lottoNum)
  233.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  234.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  235.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  237.  
  238. FUNCTION daysInMonth% (mNum, yearNum)
  239.     DIM copyM, copyY
  240.     copyM = mNum
  241.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  242.     SELECT CASE copyM
  243.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  244.         CASE 4, 6, 9, 11: daysInMonth% = 30
  245.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  246.     END SELECT
  248.  
  249. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  250.     DIM days AS INTEGER
  251.     IF yr MOD 4 = 0 THEN
  252.         IF yr MOD 100 = 0 THEN
  253.             IF yr MOD 400 = 0 THEN days = 29
  254.         ELSE
  255.             days = 29
  256.         END IF
  257.     END IF
  258.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  260.  

I try to learn and I saw that I made many mistakes changing everything
and I had done so I don't know if I was wrong to do this
I show you the code that I tried to modify
even if you say it is badly modified, it works

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  2.  
  3. DEFINT A-Z ' everything is integer unless DIM or suffix
  4. CONST nRows = 11 'rows of 5 data points in each line of fileDat
  5. DIM a AS STRING, a2 AS STRING, count, i, lineNum, lineNum2 ' for file and array access
  6. DIM Q$ '                             for INKEY$
  7. DIM row, col, aPlace '               for screening Data from a string
  8. DIM rowCnt, y, rowPlus '       for loading lineDAT() from a file string
  9. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  10. DIM shiftRight
  11. DIM shiftRight2
  12. DIM mb, mx, my, oldmouse ' oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  13. DIM lottoNum, lottoNum2
  14. '---------------------------------------------------------------------------------------------------
  15. DIM SHARED msNomeMesi(12) AS STRING ' matrice di stringhe
  16. msNomeMesi(1) = "Gennaio"
  17. msNomeMesi(2) = "Febbraio"
  18. msNomeMesi(3) = "Marzo"
  19. msNomeMesi(4) = "Aprile"
  20. msNomeMesi(5) = "Maggio"
  21. msNomeMesi(6) = "Giugno"
  22. msNomeMesi(7) = "Luglio"
  23. msNomeMesi(8) = "Agosto"
  24. msNomeMesi(9) = "Settembre"
  25. msNomeMesi(10) = "Ottobre"
  26. msNomeMesi(11) = "Novembre"
  27. msNomeMesi(12) = "Dicembre"
  28.  
  29. DIM SHARED msSettimana(7) AS STRING ' matrice di stringhe
  30. msSettimana(1) = "Domenica"
  31. msSettimana(2) = "Lunedi"
  32. msSettimana(3) = "Martedi"
  33. msSettimana(4) = "Mercoledi"
  34. msSettimana(5) = "Giovedi"
  35. msSettimana(6) = "Venerdi"
  36. msSettimana(7) = "Sabato"
  37.  
  38.  
  39.  
  40. '-------------------------------------------------------------------------------------------------
  41. shiftRight2 = 65
  42. shiftRight = 11
  43.  
  44.  
  45. 'count lines in file
  46. OPEN "lotto.dat" FOR INPUT AS #1
  48.     INPUT #1, a
  49.     '          debug check inputs from file
  50.     'PRINT a
  51.     'INPUT " OK enter "; w$
  52.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  55.  
  56. 'now we now size of file so ready an array to load file Data
  57. DIM fileDAT(1 TO count) AS STRING
  58. OPEN "lotto.dat" FOR INPUT AS #1
  59. FOR i = 1 TO count
  60.     INPUT #1, a
  61.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  64.  
  65. ' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
  66.  
  67. GOSUB labelScreen
  68.  
  69. 'set first line and get a data string from the FileDAT array
  70. lineNum = 1
  71. a = fileDAT(lineNum)
  72. lineNum2 = 1
  73. a2 = fileDAT(lineNum2)
  74. lottoNum = 1465
  75. lottoNum2 = 1465
  77.     CLS
  78.     Q$ = INKEY$
  79.     IF Q$ = "+" THEN lottoNum = lottoNum + 1
  80.     IF Q$ = "-" THEN lottoNum = lottoNum - 1
  81.     IF Q$ = CHR$(0) + CHR$(72) THEN lottoNum2 = lottoNum2 + 1
  82.     IF Q$ = CHR$(0) + CHR$(80) THEN lottoNum2 = lottoNum2 - 1
  83.  
  84.     IF Q$ = "+" THEN lineNum = lineNum + 1
  85.     IF Q$ = "-" THEN lineNum = lineNum - 1
  86.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  87.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  88.  
  90.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  91.     'LOCATE 3, 1: PRINT mx, my
  92.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  93.         '_DELAY .25 '        just one click please!
  94.         IF 17 <= mx AND mx <= 25 THEN lineNum = lineNum + 1
  95.         IF 28 <= mx AND mx <= 37 THEN lineNum = lineNum - 1
  96.         IF 44 <= mx AND mx <= 52 THEN lineNum2 = lineNum2 + 1
  97.         IF 55 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 - 1
  98.     END IF
  99.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  100.     IF lineNum2 > count THEN lineNum2 = 1
  101.     IF lineNum2 < 1 THEN lineNum2 = count
  102.  
  103.     IF lineNum > count THEN lineNum = 1
  104.     IF lineNum < 1 THEN lineNum = count
  105.  
  106.     'get new data line
  107.     a = fileDAT(lineNum)
  108.  
  109.     a2 = fileDAT(lineNum2)
  110.     'print out the data from the new line
  111.  
  112.     GOSUB labelScreen
  113.     GOSUB screenDataLine
  114.     GOSUB loadLineDAT_Mark30s
  115.     _DISPLAY
  116.     _LIMIT 30
  119.  
  120. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  121. rowCnt = 1: y = 1
  122. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  123.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  124.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  125.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  127. COLOR 9 'blue marker  seacrh through columes for  30's
  128. FOR col = 1 TO 5 'for each of the columes of data
  129.     FOR row = 1 TO 10 'for each of the rows of dat
  130.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  131.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  132.                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  133.                 LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  134.             END IF
  135.         NEXT
  136.     NEXT
  138. '---------------------------------------------------- right side  a2 data line
  139. rowCnt = 1: y = 1
  140. FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  141.     lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  142.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  143.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  145. COLOR 9 'blue marker  seacrh through columes for  30's
  146. FOR col = 1 TO 5 'for each of the columes of data
  147.     FOR row = 1 TO 10 'for each of the rows of dat
  148.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  149.             ' IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
  150.             'LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, row));
  151.             'LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(col, rowPlus));
  152.             'END IF
  153.         NEXT
  154.     NEXT
  157.  
  158.  
  159. screenDataLine:
  160. LOCATE 1, 26
  162. PRINT LEFT$(a, 4)
  164. LOCATE 1, 1
  165. PRINT CovertLottoNumToDate$(lottoNum)
  167. LOCATE 1, 1
  168. 'PRINT "estraz: "; LEFT$(a, 4); '"  line:"; 'STR$(lineNum); ""
  169. aPlace = 5
  170. FOR row = 1 TO 11
  171.     FOR col = 1 TO 5
  172.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
  173.         aPlace = aPlace + 2
  174.     NEXT
  176. '-------------------------------------------------- Right side
  178. LOCATE 1, 48
  179. PRINT LEFT$(a2, 4)
  181. LOCATE 1, 55
  182. PRINT CovertLottoNumToDate$(lottoNum2)
  184. 'PRINT "estraz "; LEFT$(a2, 4); "   line:"; STR$(lineNum2); '<<<<<<<<<<<<<<< a2 now
  185. aPlace = 5
  186. FOR row = 1 TO 11
  187.     FOR col = 1 TO 5
  188.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<<<<<<<<<<<<<<< a2 now
  189.         aPlace = aPlace + 2
  190.     NEXT
  193.  
  194. labelScreen:
  196. DIM labels(11) AS STRING ' setup screen labels for reporting data
  197. labels(1) = "BARI"
  198. labels(2) = "CAGLIARI"
  199. labels(3) = "FIRENZE"
  200. labels(4) = "GENOVA"
  201. labels(5) = "MILANO"
  202. labels(6) = "NAPOLI"
  203. labels(7) = "PALERMO"
  204. labels(8) = "ROMA"
  205. labels(9) = "TORINO"
  206. labels(10) = "VENEZIA"
  207. labels(11) = "NAZIONALE"
  208. FOR i = 1 TO 11
  209.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  211. LOCATE 25, 1
  212. FOR i = 1 TO 11
  213.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  215. LOCATE 25, 1
  216.  
  217.  
  218. PRINT " Fare clic su:  Fino / Up  Giu / Down      Fino / Up  Giu / Down";
  219. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  220. '               1         2         3         4         5         6         7         8
  222.  
  223. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  224.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  226.  
  227. FUNCTION diff30in90 (a, b) 'default integers a-z
  228.     DIM hi, lo
  229.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  230.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  231.     IF hi - lo = 30 THEN
  232.         diff30in90 = -1
  233.     ELSE
  234.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  235.     END IF
  237.  
  238. FUNCTION CovertLottoNumToDate$ (lottoNumX)
  239.     DIM numberOfDays1463, yr, mo
  240.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  241.     yr = 2017
  242.     mo = 6
  243.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  244.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  245.         mo = mo + 1
  246.         IF mo = 13 THEN mo = 1: yr = yr + 1
  247.     WEND
  248.     ' date shound be yr, m0, numberOfDays1465
  249.     CovertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  251.  
  252. FUNCTION lottoday$ (lottoNum)
  253.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  254.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  255.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  257.  
  258. FUNCTION daysInMonth% (mNum, yearNum)
  259.     DIM copyM, copyY
  260.     copyM = mNum
  261.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  262.     SELECT CASE copyM
  263.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  264.         CASE 4, 6, 9, 11: daysInMonth% = 30
  265.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  266.     END SELECT
  268.  
  269. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  270.     DIM days AS INTEGER
  271.     IF yr MOD 4 = 0 THEN
  272.         IF yr MOD 100 = 0 THEN
  273.             IF yr MOD 400 = 0 THEN days = 29
  274.         ELSE
  275.             days = 29
  276.         END IF
  277.     END IF
  278.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  

you can see that it works dates go back and forth

but your code is better
but your code is better than mine

now I have to solve the problem to verify the game on the correct extraction
right extraction
the two missing elements of distance 30
Title: Re: help my
Post by: bplus on July 17, 2020, 04:37:43 pm
Quote
you can see that it works dates go back and forth

👍
YES! 
Title: Re: help my
Post by: bplus on July 17, 2020, 05:17:30 pm
Looking for 67 and 4 in a line on the right side for this pair of 30's on left side?
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Correct?
Title: Re: help my
Post by: Kiara87 on July 17, 2020, 05:38:28 pm
Quote from: bplus on July 17, 2020, 05:17:30 pm
Looking for 67 and 4 in a line on the right side for this pair of 30's on left side?
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Correct?

EXACT 

JUST SO
Title: Re: help my
Post by: bplus on July 18, 2020, 12:54:50 am
Here it is (I think).
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  2. _TITLE "Lotto Data"
  3. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  4. '           fix function convertLottoNum2Date$ spelling
  5. '           clean out some redundant code loops
  6. ' 2020-07-18 change GOSUB loadLineDAT_Mark30s:
  7. '           to mark Blue only line with triple pairs. Can only do one pair at time for right screen check.
  8. '           Make function missingTriple, so we know what number to search for on right screen.
  9. '           OK modified loadLineDAT_Mark30s: GOSUB some more to catch the missing triple pair
  10. '           marked in Red on right screen.
  11.  
  12. DEFINT A-Z ' everything is integer unless DIM or suffix
  13. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  14.  
  15. DIM count '                                 for number of lines in the data file
  16.  
  17. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  18. DIM a AS STRING, a2 AS STRING '             extraction lines of data
  19. DIM lottoNum, lottoNum2 '                   for extractions
  20. DIM lottoDate$, lottoDate2$ '               for the dates of lottos
  21.  
  22. ' user inputs
  23. DIM Q$ '                                    for INKEY$
  24. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  25.  
  26. ' these would normally go in SUBs or FUNCTIONs but we are using GOSUBs here
  27. DIM shiftRight, shiftRight2 '               screening data left and right, normally these would be CONSTANTs
  28. shiftRight = 11 '                           according to screen fit
  29. shiftRight2 = 65 '                          according to screen fit
  30.  
  31. DIM row, col, aPlace '                      for screening Data from a string
  32. DIM rowCnt, y, rowPlus '                    for loading lineDAT() from a file string
  33. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  34. DIM third1, third2 '                        the missing part of triplet
  35. DIM hit1st, hit2nd '                        find 3rd triple pair on right screen
  36.  
  37. DIM i '                                     common use for indexing
  38.  
  39. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  40. msNomeMesi(1) = "Gennaio"
  41. msNomeMesi(2) = "Febbraio"
  42. msNomeMesi(3) = "Marzo"
  43. msNomeMesi(4) = "Aprile"
  44. msNomeMesi(5) = "Maggio"
  45. msNomeMesi(6) = "Giugno"
  46. msNomeMesi(7) = "Luglio"
  47. msNomeMesi(8) = "Agosto"
  48. msNomeMesi(9) = "Settembre"
  49. msNomeMesi(10) = "Ottobre"
  50. msNomeMesi(11) = "Novembre"
  51. msNomeMesi(12) = "Dicembre"
  52.  
  53. DIM labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  54. labels(1) = "BARI"
  55. labels(2) = "CAGLIARI"
  56. labels(3) = "FIRENZE"
  57. labels(4) = "GENOVA"
  58. labels(5) = "MILANO"
  59. labels(6) = "NAPOLI"
  60. labels(7) = "PALERMO"
  61. labels(8) = "ROMA"
  62. labels(9) = "TORINO"
  63. labels(10) = "VENEZIA"
  64. labels(11) = "NAZIONALE"
  65.  
  66. '-------------------------------- start Main setup get file data loaded into array
  67.  
  68. 'count lines in file
  69. OPEN "lotto.dat" FOR INPUT AS #1
  71.     INPUT #1, a
  72.     '          debug check inputs from file
  73.     'PRINT a
  74.     'INPUT " OK enter "; w$
  75.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  78.  
  79. 'now we now size of file so ready an array to load file Data
  80. DIM fileDAT(1 TO count) AS STRING
  81. OPEN "lotto.dat" FOR INPUT AS #1
  82. FOR i = 1 TO count
  83.     INPUT #1, a
  84.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  87.  
  88. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  89. lineNum = 1
  90. a = fileDAT(lineNum)
  91. lottoNum = VAL(LEFT$(a, 4))
  92. lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  93.  
  94. 'get/set right side start variables
  95. lineNum2 = 1
  96. a2 = fileDAT(lineNum2)
  97. lottoNum2 = VAL(LEFT$(a2, 4))
  98. lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  99.  
  100. DO '------------------------------------------------ Main Loop User selects data to compare
  101.     CLS
  102.     Q$ = INKEY$
  103.     IF Q$ = "+" THEN lineNum = lineNum + 1
  104.     IF Q$ = "-" THEN lineNum = lineNum - 1
  105.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  106.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  107.  
  109.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  110.     'LOCATE 3, 1: PRINT mx, my
  111.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  112.         '_DELAY .25 '        just one click please!
  113.         IF 3 <= mx AND mx <= 11 THEN lineNum = lineNum + 1
  114.         IF 14 <= mx AND mx <= 23 THEN lineNum = lineNum - 1
  115.         IF 56 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 + 1
  116.         IF 67 <= mx AND mx <= 76 THEN lineNum2 = lineNum2 - 1
  117.     END IF
  118.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  119.     IF lineNum > count THEN lineNum = 1
  120.     IF lineNum < 1 THEN lineNum = count
  121.     IF lineNum2 > count THEN lineNum2 = 1
  122.     IF lineNum2 < 1 THEN lineNum2 = count
  123.  
  124.     'get new data line
  125.     a = fileDAT(lineNum) 'left side data
  126.     lottoNum = VAL(LEFT$(a, 4))
  127.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  128.  
  129.     a2 = fileDAT(lineNum2) 'right side data
  130.     lottoNum2 = VAL(LEFT$(a2, 4))
  131.     lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  132.  
  133.     'print out the data from the new line
  134.     GOSUB labelScreen
  135.     GOSUB screenDataLine
  136.     GOSUB loadLineDAT_Mark30s
  137.     _DISPLAY
  138.     _LIMIT 30
  141.  
  142. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  143. rowCnt = 1: y = 1
  144. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  145.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  146.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  147.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  149. COLOR 9 'blue marker  seacrh through columes for  30's
  150. FOR row = 1 TO 10 'for each of the rows of dat
  151.     FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  152.         REDIM hits(1 TO 5, 0 TO 1), nHits
  153.         nHits = 0: third1 = 0: third2 = 0
  154.         FOR col = 1 TO 5 'for each of the columes of data
  155.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN 'need a pair of hits
  156.                 hits(col, 0) = lineDAT(col, row): hits(col, 1) = lineDAT(col, rowPlus): nHits = nHits + 1
  157.                 IF third1 <> 0 THEN
  158.                     third2 = missingTriple(hits(col, 0), hits(col, 1))
  159.                     EXIT FOR
  160.                 ELSE
  161.                     third1 = missingTriple(hits(col, 0), hits(col, 1))
  162.                 END IF
  163.             END IF
  164.         NEXT
  165.         IF nHits >= 2 THEN 'mark them
  166.             LOCATE 10, 30: PRINT labels(row) + " & " + labels(rowPlus)
  167.             LOCATE 12, 36: PRINT third1; third2
  168.             FOR col = 1 TO 5
  169.                 IF hits(col, 0) THEN
  170.                     LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  171.                     LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  172.                 END IF
  173.             NEXT
  174.  
  175.             'OK now search the right screen for a line containing the 3rd triple pair
  176.             COLOR 12 '           mark them red
  177.             rowCnt = 1: y = 1
  178.             FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  179.                 lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  180.                 rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  181.                 IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  182.             NEXT
  183.             FOR row = 1 TO 11 'for each of the rows of dat
  184.                 hit1st = 0: hit2nd = 0
  185.                 FOR col = 1 TO 5 'for each of the columes of data
  186.                     IF lineDAT(col, row) = third1 THEN hit1st = col
  187.                     IF lineDAT(col, row) = third2 THEN hit2nd = col
  188.                     IF hit1st AND hit2nd THEN
  189.                         LOCATE row * 2 + 1, 55: PRINT labels(row)
  190.                         LOCATE row * 2 + 1, hit1st * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(hit1st, row));
  191.                         LOCATE row * 2 + 1, hit2nd * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(hit2nd, row));
  192.                         EXIT FOR
  193.                     END IF
  194.                 NEXT
  195.             NEXT
  196.             RETURN ' sorry we can do only one triple pair
  197.         END IF
  198.     NEXT
  200.  
  202.  
  203. screenDataLine:
  205. LOCATE 1, 1
  206. PRINT lottoNum; lottoDate$;
  207. LOCATE 1, 48
  208. PRINT lottoNum2; lottoDate2$;
  209. aPlace = 5
  210. FOR row = 1 TO 11
  211.     FOR col = 1 TO 5
  212.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2); ' Left side
  213.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<< a2 now Right Side
  214.         aPlace = aPlace + 2
  215.     NEXT
  218.  
  219. labelScreen:
  221. FOR i = 1 TO 11
  222.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  223.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  225. LOCATE 25, 1
  226. PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  227. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  228. '               1         2         3         4         5         6         7         8
  230.  
  231. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  232.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  234.  
  235. FUNCTION diff30in90 (a, b) 'default integers a-z
  236.     DIM hi, lo
  237.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  238.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  239.     IF hi - lo = 30 THEN
  240.         diff30in90 = -1
  241.     ELSE
  242.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  243.     END IF
  245.  
  246. FUNCTION missingTriple (t1, t2)
  247.     DIM first, second, third
  248.     IF t1 < 31 THEN
  249.         first = t1
  250.     ELSEIF t1 < 61 THEN
  251.         second = t1
  252.     ELSE
  253.         third = t1
  254.     END IF
  255.     IF t2 < 31 THEN
  256.         first = t2
  257.     ELSEIF t2 < 61 THEN
  258.         second = t2
  259.     ELSE
  260.         third = t2
  261.     END IF
  262.     IF first = 0 THEN
  263.         missingTriple = second - 30
  264.     ELSEIF second = 0 THEN
  265.         missingTriple = third - 30
  266.     ELSE
  267.         missingTriple = second + 30
  268.     END IF
  270.  
  271. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  272. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  273.     DIM numberOfDays1463, yr, mo
  274.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  275.     yr = 2017
  276.     mo = 6
  277.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  278.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  279.         mo = mo + 1
  280.         IF mo = 13 THEN mo = 1: yr = yr + 1
  281.     WEND
  282.     ' date shound be day name date/month/year for Italians
  283.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  285.  
  286. FUNCTION lottoday$ (lottoNum)
  287.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  288.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  289.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  291.  
  292. FUNCTION daysInMonth% (mNum, yearNum)
  293.     DIM copyM, copyY
  294.     copyM = mNum
  295.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  296.     SELECT CASE copyM
  297.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  298.         CASE 4, 6, 9, 11: daysInMonth% = 30
  299.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  300.     END SELECT
  302.  
  303. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  304.     DIM days AS INTEGER
  305.     IF yr MOD 4 = 0 THEN
  306.         IF yr MOD 100 = 0 THEN
  307.             IF yr MOD 400 = 0 THEN days = 29
  308.         ELSE
  309.             days = 29
  310.         END IF
  311.     END IF
  312.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  314.  
 
EDIT: Decided to mark the label Red too. So far 1465 has triples finished in 1590, 1676, 1701...

Oops, time to get to bed that was 1823 not 1873. 1928 is last one for 1465.
Title: Re: help my
Post by: Kiara87 on July 18, 2020, 03:17:41 am
Quote from: bplus on July 18, 2020, 12:54:50 am
Here it is (I think).
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!  b+ mod of kiara mod of b+ 2020-07-15
  2. _TITLE "Lotto Data"
  3. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  4. '           fix function convertLottoNum2Date$ spelling
  5. '           clean out some redundant code loops
  6. ' 2020-07-18 change GOSUB loadLineDAT_Mark30s:
  7. '           to mark Blue only line with triple pairs. Can only do one pair at time for right screen check.
  8. '           Make function missingTriple, so we know what number to search for on right screen.
  9. '           OK modified loadLineDAT_Mark30s: GOSUB some more to catch the missing triple pair
  10. '           marked in Red on right screen.
  11.  
  12. DEFINT A-Z ' everything is integer unless DIM or suffix
  13. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  14.  
  15. DIM count '                                 for number of lines in the data file
  16.  
  17. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  18. DIM a AS STRING, a2 AS STRING '             extraction lines of data
  19. DIM lottoNum, lottoNum2 '                   for extractions
  20. DIM lottoDate$, lottoDate2$ '               for the dates of lottos
  21.  
  22. ' user inputs
  23. DIM Q$ '                                    for INKEY$
  24. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  25.  
  26. ' these would normally go in SUBs or FUNCTIONs but we are using GOSUBs here
  27. DIM shiftRight, shiftRight2 '               screening data left and right, normally these would be CONSTANTs
  28. shiftRight = 11 '                           according to screen fit
  29. shiftRight2 = 65 '                          according to screen fit
  30.  
  31. DIM row, col, aPlace '                      for screening Data from a string
  32. DIM rowCnt, y, rowPlus '                    for loading lineDAT() from a file string
  33. DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
  34. DIM third1, third2 '                        the missing part of triplet
  35. DIM hit1st, hit2nd '                        find 3rd triple pair on right screen
  36.  
  37. DIM i '                                     common use for indexing
  38.  
  39. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  40. msNomeMesi(1) = "Gennaio"
  41. msNomeMesi(2) = "Febbraio"
  42. msNomeMesi(3) = "Marzo"
  43. msNomeMesi(4) = "Aprile"
  44. msNomeMesi(5) = "Maggio"
  45. msNomeMesi(6) = "Giugno"
  46. msNomeMesi(7) = "Luglio"
  47. msNomeMesi(8) = "Agosto"
  48. msNomeMesi(9) = "Settembre"
  49. msNomeMesi(10) = "Ottobre"
  50. msNomeMesi(11) = "Novembre"
  51. msNomeMesi(12) = "Dicembre"
  52.  
  53. DIM labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  54. labels(1) = "BARI"
  55. labels(2) = "CAGLIARI"
  56. labels(3) = "FIRENZE"
  57. labels(4) = "GENOVA"
  58. labels(5) = "MILANO"
  59. labels(6) = "NAPOLI"
  60. labels(7) = "PALERMO"
  61. labels(8) = "ROMA"
  62. labels(9) = "TORINO"
  63. labels(10) = "VENEZIA"
  64. labels(11) = "NAZIONALE"
  65.  
  66. '-------------------------------- start Main setup get file data loaded into array
  67.  
  68. 'count lines in file
  69. OPEN "lotto.dat" FOR INPUT AS #1
  71.     INPUT #1, a
  72.     '          debug check inputs from file
  73.     'PRINT a
  74.     'INPUT " OK enter "; w$
  75.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  78.  
  79. 'now we now size of file so ready an array to load file Data
  80. DIM fileDAT(1 TO count) AS STRING
  81. OPEN "lotto.dat" FOR INPUT AS #1
  82. FOR i = 1 TO count
  83.     INPUT #1, a
  84.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  87.  
  88. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  89. lineNum = 1
  90. a = fileDAT(lineNum)
  91. lottoNum = VAL(LEFT$(a, 4))
  92. lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  93.  
  94. 'get/set right side start variables
  95. lineNum2 = 1
  96. a2 = fileDAT(lineNum2)
  97. lottoNum2 = VAL(LEFT$(a2, 4))
  98. lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  99.  
  100. DO '------------------------------------------------ Main Loop User selects data to compare
  101.     CLS
  102.     Q$ = INKEY$
  103.     IF Q$ = "+" THEN lineNum = lineNum + 1
  104.     IF Q$ = "-" THEN lineNum = lineNum - 1
  105.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  106.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  107.  
  109.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  110.     'LOCATE 3, 1: PRINT mx, my
  111.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  112.         '_DELAY .25 '        just one click please!
  113.         IF 3 <= mx AND mx <= 11 THEN lineNum = lineNum + 1
  114.         IF 14 <= mx AND mx <= 23 THEN lineNum = lineNum - 1
  115.         IF 56 <= mx AND mx <= 64 THEN lineNum2 = lineNum2 + 1
  116.         IF 67 <= mx AND mx <= 76 THEN lineNum2 = lineNum2 - 1
  117.     END IF
  118.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  119.     IF lineNum > count THEN lineNum = 1
  120.     IF lineNum < 1 THEN lineNum = count
  121.     IF lineNum2 > count THEN lineNum2 = 1
  122.     IF lineNum2 < 1 THEN lineNum2 = count
  123.  
  124.     'get new data line
  125.     a = fileDAT(lineNum) 'left side data
  126.     lottoNum = VAL(LEFT$(a, 4))
  127.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  128.  
  129.     a2 = fileDAT(lineNum2) 'right side data
  130.     lottoNum2 = VAL(LEFT$(a2, 4))
  131.     lottoDate2$ = ConvertLottoNumToDate$(lottoNum2)
  132.  
  133.     'print out the data from the new line
  134.     GOSUB labelScreen
  135.     GOSUB screenDataLine
  136.     GOSUB loadLineDAT_Mark30s
  137.     _DISPLAY
  138.     _LIMIT 30
  141.  
  142. loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
  143. rowCnt = 1: y = 1
  144. FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
  145.     lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
  146.     rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  147.     IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  149. COLOR 9 'blue marker  seacrh through columes for  30's
  150. FOR row = 1 TO 10 'for each of the rows of dat
  151.     FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
  152.         REDIM hits(1 TO 5, 0 TO 1), nHits
  153.         nHits = 0: third1 = 0: third2 = 0
  154.         FOR col = 1 TO 5 'for each of the columes of data
  155.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN 'need a pair of hits
  156.                 hits(col, 0) = lineDAT(col, row): hits(col, 1) = lineDAT(col, rowPlus): nHits = nHits + 1
  157.                 IF third1 <> 0 THEN
  158.                     third2 = missingTriple(hits(col, 0), hits(col, 1))
  159.                     EXIT FOR
  160.                 ELSE
  161.                     third1 = missingTriple(hits(col, 0), hits(col, 1))
  162.                 END IF
  163.             END IF
  164.         NEXT
  165.         IF nHits >= 2 THEN 'mark them
  166.             LOCATE 10, 30: PRINT labels(row) + " & " + labels(rowPlus)
  167.             LOCATE 12, 36: PRINT third1; third2
  168.             FOR col = 1 TO 5
  169.                 IF hits(col, 0) THEN
  170.                     LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
  171.                     LOCATE rowPlus * 2 + 1, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
  172.                 END IF
  173.             NEXT
  174.  
  175.             'OK now search the right screen for a line containing the 3rd triple pair
  176.             COLOR 12 '           mark them red
  177.             rowCnt = 1: y = 1
  178.             FOR i = 5 TO LEN(a2) STEP 2 ' is marking off the start of each data 2 digit integer
  179.                 lineDAT(rowCnt, y) = VAL(MID$(a2, i, 2)) 'convert data item to integer
  180.                 rowCnt = rowCnt + 1 ' increase column if at 6 start new row
  181.                 IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
  182.             NEXT
  183.             FOR row = 1 TO 11 'for each of the rows of dat
  184.                 hit1st = 0: hit2nd = 0
  185.                 FOR col = 1 TO 5 'for each of the columes of data
  186.                     IF lineDAT(col, row) = third1 THEN hit1st = col
  187.                     IF lineDAT(col, row) = third2 THEN hit2nd = col
  188.                     IF hit1st AND hit2nd THEN
  189.                         LOCATE row * 2 + 1, 55: PRINT labels(row)
  190.                         LOCATE row * 2 + 1, hit1st * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(hit1st, row));
  191.                         LOCATE row * 2 + 1, hit2nd * 3 - 2 + shiftRight2: PRINT DD$(lineDAT(hit2nd, row));
  192.                         EXIT FOR
  193.                     END IF
  194.                 NEXT
  195.             NEXT
  196.             RETURN ' sorry we can do only one triple pair
  197.         END IF
  198.     NEXT
  200.  
  202.  
  203. screenDataLine:
  205. LOCATE 1, 1
  206. PRINT lottoNum; lottoDate$;
  207. LOCATE 1, 48
  208. PRINT lottoNum2; lottoDate2$;
  209. aPlace = 5
  210. FOR row = 1 TO 11
  211.     FOR col = 1 TO 5
  212.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2); ' Left side
  213.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(a2, aPlace, 2); '<< a2 now Right Side
  214.         aPlace = aPlace + 2
  215.     NEXT
  218.  
  219. labelScreen:
  221. FOR i = 1 TO 11
  222.     LOCATE i * 2 + 1, 1: PRINT labels(i)
  223.     LOCATE i * 2 + 1, 55: PRINT labels(i)
  225. LOCATE 25, 1
  226. PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  227. '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  228. '               1         2         3         4         5         6         7         8
  230.  
  231. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  232.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  234.  
  235. FUNCTION diff30in90 (a, b) 'default integers a-z
  236.     DIM hi, lo
  237.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  238.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  239.     IF hi - lo = 30 THEN
  240.         diff30in90 = -1
  241.     ELSE
  242.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  243.     END IF
  245.  
  246. FUNCTION missingTriple (t1, t2)
  247.     DIM first, second, third
  248.     IF t1 < 31 THEN
  249.         first = t1
  250.     ELSEIF t1 < 61 THEN
  251.         second = t1
  252.     ELSE
  253.         third = t1
  254.     END IF
  255.     IF t2 < 31 THEN
  256.         first = t2
  257.     ELSEIF t2 < 61 THEN
  258.         second = t2
  259.     ELSE
  260.         third = t2
  261.     END IF
  262.     IF first = 0 THEN
  263.         missingTriple = second - 30
  264.     ELSEIF second = 0 THEN
  265.         missingTriple = third - 30
  266.     ELSE
  267.         missingTriple = second + 30
  268.     END IF
  270.  
  271. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  272. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  273.     DIM numberOfDays1463, yr, mo
  274.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  275.     yr = 2017
  276.     mo = 6
  277.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  278.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  279.         mo = mo + 1
  280.         IF mo = 13 THEN mo = 1: yr = yr + 1
  281.     WEND
  282.     ' date shound be day name date/month/year for Italians
  283.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  285.  
  286. FUNCTION lottoday$ (lottoNum)
  287.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  288.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  289.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  291.  
  292. FUNCTION daysInMonth% (mNum, yearNum)
  293.     DIM copyM, copyY
  294.     copyM = mNum
  295.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  296.     SELECT CASE copyM
  297.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  298.         CASE 4, 6, 9, 11: daysInMonth% = 30
  299.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  300.     END SELECT
  302.  
  303. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  304.     DIM days AS INTEGER
  305.     IF yr MOD 4 = 0 THEN
  306.         IF yr MOD 100 = 0 THEN
  307.             IF yr MOD 400 = 0 THEN days = 29
  308.         ELSE
  309.             days = 29
  310.         END IF
  311.     END IF
  312.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  314.  
 
EDIT: Decided to mark the label Red too. So far 1465 has triples finished in 1590, 1676, 1701...

Oops, time to get to bed that was 1823 not 1873. 1928 is last one for 1465.

1) it works however it does not capture single numbers
as in the photo there is a single number on another wheel but it has not been colored
as in the image --> https://imgur.com/2v3N3u7

2) find only one condition
should find more than one

all the numbers forming a square distance 30
even if they are vertical vertical it is enough that they form a square
as in the image
image1  ---->  https://imgur.com/eOtnorM
image 2 ---->  https://imgur.com/Zb1jJUH

in image two we see that the single numbers have not been colored 36 in NAPOLI  AND TORINO 23

AND SHOULD REPORT 3 CONDITIONS TO PLAY
Title: Re: help my
Post by: bplus on July 18, 2020, 01:33:47 pm
Well good luck with all those numbers!
Title: Re: help my
Post by: Kiara87 on July 18, 2020, 01:50:40 pm
Quote from: bplus on July 18, 2020, 01:33:47 pm
Well good luck with all those numbers!

what do i have to change to do that?

an advice?
Title: Re: help my
Post by: bplus on July 18, 2020, 03:10:41 pm
It's very confusing locating all the different triple completions you describe, I recommend color coding each triple completion. For multiple pairs, displayed in middle, you will have to track location rows for printing labels and the different missing triple with it's own associated color when there is more than one pair.

I think I did the hardest one finding a pair of triple completions in on a row! It might have been way easier had I known any triple completion gets marked. Oh well fun challenge don't see the sense of all this and seems like work/nonsensical to get everything on screen at once.

I think you lost me when saying the columns don't even have to match up. Pretty much changes the algorithm needed to search for triples.
Title: Re: help my
Post by: Kiara87 on July 18, 2020, 03:31:28 pm
Quote from: bplus on July 18, 2020, 03:10:41 pm
It's very confusing locating all the different triple completions you describe, I recommend color coding each triple completion. For multiple pairs, displayed in middle, you will have to track location rows for printing labels and the different missing triple with it's own associated color when there is more than one pair.

I think I did the hardest one finding a pair of triple completions in on a row! It might have been way easier had I known any triple completion gets marked. Oh well fun challenge don't see the sense of all this and seems like work/nonsensical to get everything on screen at once.

I think you lost me when saying the columns don't even have to match up. Pretty much changes the algorithm needed to search for triples.

OK thank you very much you have been really good
now it's up to me to change things in the program
I just need to learn well to program
and complete the job to my needs

thanks for everything friend
Title: Re: help my
Post by: bplus on July 18, 2020, 03:44:54 pm
Thanks, I look forward to seeing you get what you want from the lotto data. :)


Title: Re: help my
Post by: TempodiBasic on July 18, 2020, 08:14:25 pm

Hi guys
how do you find this undefinied project about lotto?
I haven't follow more the thread and so now after a speed read
1. I have not understood how you have pulled out the date from the number of extraction ....
 2. it seems that the goal of program lotto has been changed because from images posted by Kiara87 it seems that now it is not more important to find the number with distance of 30 but some triples....

Please Kiara87 show us the whole plan of program... it is too hard spending time to accomplish a task that is partial and unuseful...be clear and complete!

Italian Google version....
Ciao ragazzi
come trovi questo progetto indefinito sul lotto?
Non ho seguito più il thread e quindi ora dopo una lettura veloce
1. Non ho capito come hai estratto la data dal numero di estrazione ....
  2. sembra che l'obiettivo del programma lotto sia stato modificato perché dalle immagini pubblicate da Kiara87 sembra che ora non sia più importante trovare il numero con una distanza di 30 ma alcune triple ...

Per favore, Kiara87 ci mostra l'intero piano del programma ... è troppo difficile passare del tempo per compiere un compito che è parziale e inutile ... sii chiaro e completo!
Title: Re: help my
Post by: TempodiBasic on July 18, 2020, 08:18:54 pm
Here my MOD of Kiara87 MOD of my example program about finding numbers with 30 between them....

(It is a demonstration about how with flexibility it is possible to get different similar effects using variables as flag and loop FOR)

Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. ' valori COSTANTI  generali Vero e Falso
  11. CONST True = -1, False = NOT True
  12. ' le 11 ruote del lotto
  13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  16.  
  17. DIM a AS STRING ' una stringa per leggere i dati dal file
  18.  
  19. ' salta al sottoprogramma LeggiFile delimitato
  20. ' dalla Label LeggiFIle e dal RETURN
  21. GOSUB LeggiFile
  22.  
  23. ' verifica che tutto il file sia letto
  24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  25. '    PRINT MID$(a, b, 116)
  26. '    '    PRINT INSTR(b, a, CHR$(13))
  27. '    _DELAY .1
  28. 'NEXT b
  29.  
  30.  
  31.  
  32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  34. b = 1 ' flag che conta la posizione di lettura nel file  per il riquadro sinistro
  35. f = 1 ' flag che conta la posizione di lettura nel file  per il riquadro destro
  36. z$ = " " ' flag per l'output a schermo del programma
  37. OPEN "distanza30.dat" FOR APPEND AS #2 ' apertura del file dei risultati
  39.     IF z$ <> "" THEN ' se non c'e' input non viene eseguito
  40.         CLS ' questo risolve un glitch di output sullo schermo
  41.         ' in alternativa alla riga sopra CLS nel sottoblocco
  42.         ' MostraEstratti va stampata la stringa estratto e
  43.         ' non il suo valore corrispondente ottenuto con VAL
  44.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  45.         GOSUB MostraEstratti ' scrive le estrazioni ed evidenzia quelli distanti 30
  46.     END IF
  47.     ' prende l'input dell'utente
  48.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  49.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
  50.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
  51.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
  52.     IF z$ = "-" AND f > 116 THEN f = f - 116
  53.  
  54. LOOP UNTIL z$ = "Q" ' esegue questo ciclo fino a che si preme q per quit
  55. CLOSE #2 ' chiude il file che memorizza i distanti 30 per ogni estrazione esaminata a video
  56.  
  57. END ' indica la fine logica del programma
  58.  
  59.  
  60. '-----------------------AREA sottoprogrammi /SUBroutines
  61.  
  62. ' questa etichetta /label indica il punto di inizio
  63. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  64. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  65. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  66. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  67. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  68. '        perche' permette la localizzazione delle variabili
  69. LeggiFile:
  70. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  71. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  72. '<--------------------
  73. ' questo metodo e' piu' lento
  74. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  75. 'OPEN "lotto.dat" FOR INPUT AS #1
  76. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  77. '<--------------------
  78.  
  79. ' apre lotto.dat per leggerlo in maniera binaria
  80. OPEN "lotto.dat" FOR BINARY AS #1
  81. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  82. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabiel a
  83. CLOSE #1 ' chiude il file appena letto
  84. ' indica il termine della SUBroutine LeggiFile
  85. ' e RITORNA alla riga di codice successiva al salto GOSUB
  87.  
  88. 'seconda SUBroutine /sottoprogramma
  89. MostraRuote:
  90. FOR xx = 1 TO 2 STEP 1 'mentre xx va da 1 a 2 con passo +1
  91.     'ripeti quello che c'e' tra FOR e NEXT
  92.     IF xx = 1 THEN yy = 0 ELSE IF xx = 2 THEN yy = 48
  93.  
  94.     COLOR 15
  95.     LOCATE 1, xx + yy
  96.     PRINT "BARI"
  97.     LOCATE 3, xx + yy
  98.     PRINT "CAGLIARI"
  99.     LOCATE 5, xx + yy
  100.     PRINT "FIRENZE"
  101.     LOCATE 7, xx + yy
  102.     PRINT "GENOVA"
  103.     LOCATE 9, xx + yy
  104.     PRINT "MILANO"
  105.     LOCATE 11, xx + yy
  106.     PRINT "NAPOLI"
  107.     LOCATE 13, xx + yy
  108.     PRINT "PALERMO"
  109.     LOCATE 15, xx + yy
  110.     PRINT "ROMA"
  111.     LOCATE 17, xx + yy
  112.     PRINT "TORINO"
  113.     LOCATE 19, xx + yy
  114.     PRINT "VENEZIA"
  115.     LOCATE 21, xx + yy
  116.     PRINT "NAZIONALE"
  117.  
  118.     '------------------------------------
  119.     IF xx = 1 THEN
  120.         LOCATE 23, xx + 59
  121.         PRINT "+ avanti  - indietro"
  122.     ELSEIF xx = 2 THEN
  123.         LOCATE 23, xx - 1
  124.         PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
  125.     END IF
  126. NEXT xx ' altro ciclo FOR con nuovo valore di xx
  127.  
  128. ' indica il termine della SUBroutine MostraRuote
  129. ' e RITORNA alla riga di codice successiva al salto GOSUB
  131.  
  132. 'terzo sottoprogramma o SUBroutine
  133. MostraEstratti:
  134.  
  135. ' le prime 4 cifre sembrano essere in numero della estrazione
  137. DIM aaa AS INTEGER, bbb AS INTEGER, ccc AS INTEGER, ddd AS INTEGER
  138.  
  139. FOR aaa = 1 TO 2 STEP 1 ' mentre aaa va da 1 a 2 con passo +1
  140.     ' ripeti quello che sta tra FOR e NEXT
  141.     IF aaa = 1 THEN
  142.         y = 11 ' prima posizione per il carattere da stampare
  143.         bbb = b
  144.         ccc = 1
  145.         ddd = 10
  146.     ELSEIF aaa = 2 THEN
  147.         y = 58
  148.         bbb = f
  149.         ccc = 21
  150.         ddd = 4
  151.     END IF
  152.  
  153.     COLOR ddd, 0
  154.     LOCATE ccc, 32
  155.     PRINT "estraz.num "; MID$(a, bbb, 4)
  156.     COLOR 15, 0
  157.     PRINT #2, "estraz.num "; MID$(a, bbb, 4)
  158.  
  159.     FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  160.         A1 = "" ' resetto a1 per il prossimo giro
  161.         FOR V = Bari TO Nazionale ' per tutte le ruote
  162.             COLOR 15, 0
  163.             'posiziona il cursore
  164.             LOCATE (V * 2) - 1, y
  165.             ' scrive il numero estratto
  166.             PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra)); "";
  167.             A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra))
  168.         NEXT V
  169.         GOSUB Mostra30
  170.         y = POS(0)
  171.     NEXT x
  172. NEXT aaa
  173.  
  174. ' indica il termine della SUBroutine MostraEstratti
  175. ' e RITORNA alla riga di codice successiva al salto GOSUB
  177.  
  178.  
  179.  
  180.  
  181. Mostra30:
  183. FOR v1 = Bari TO Venezia ' per tutte le ruote
  184.     FOR v2 = v1 + 1 TO Nazionale
  185.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra))) = 30 THEN
  186.             COLOR ddd, 0
  187.             'posiziona                                                                      il cursore
  188.             LOCATE (v1 * 2) - 1, y
  189.             ' scrive il numero estratto
  190.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra)); "";
  191.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra))
  192.             'posiziona                                                                      il cursore
  193.             LOCATE (v2 * 2) - 1, y
  194.             ' scrive il numero estratto
  195.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra)); "";
  196.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (bbb - 1), Cifra)
  197.         END IF
  198.     NEXT v2
  199. NEXT v1
  200. COLOR 15, 0
  201. ' indica il termine della SUBroutine MostraEstratti
  202. ' e RITORNA alla riga di codice successiva al salto GOSUB
  204.  
Title: Re: help my
Post by: Kiara87 on July 19, 2020, 05:46:36 pm
Quote from: TempodiBasic on July 18, 2020, 08:14:25 pm
Hi guys
how do you find this undefinied project about lotto?
I haven't follow more the thread and so now after a speed read
1. I have not understood how you have pulled out the date from the number of extraction ....
 2. it seems that the goal of program lotto has been changed because from images posted by Kiara87 it seems that now it is not more important to find the number with distance of 30 but some triples....

Please Kiara87 show us the whole plan of program... it is too hard spending time to accomplish a task that is partial and unuseful...be clear and complete!

Italian Google version....
Ciao ragazzi
come trovi questo progetto indefinito sul lotto?
Non ho seguito più il thread e quindi ora dopo una lettura veloce
1. Non ho capito come hai estratto la data dal numero di estrazione ....
  2. sembra che l'obiettivo del programma lotto sia stato modificato perché dalle immagini pubblicate da Kiara87 sembra che ora non sia più importante trovare il numero con una distanza di 30 ma alcune triple ...

Per favore, Kiara87 ci mostra l'intero piano del programma ... è troppo difficile passare del tempo per compiere un compito che è parziale e inutile ... sii chiaro e completo!

ciao @TempodiBasic

il problema della data la risolto @bplus che ha creato una funzione che va alla grande
la data calcola 1465 con la data di martedi 6 giugno 2017 e quello e stato risoldo spiegando a @bplus creando qualche funzione

io le estrazioni li prendo da questo programma che fa scaricare il file dat  http://www.mediafire.com/file/j82rukten353one/ARCHIVIO2.exe/file
e un programma di igor che usa vb6

cmq ho fatto una specie di pseudo codice spero che si capisca 

PSEUDO CODICE
APRI IL FILE
LEGGI IL FILE
I PRIMI 4 NUMERI SONO LE ESTRAZIONI ESTR. 1465 E = MARTEDI 6 GIUGNO
SE ESTRAZIONE SONO 3:7 E GIOCANO MARTEDI GIOVEDI SABATO
IL RESTO DELLA PRIMA RIGA SONO I NUMERI ESTRATTI
LEGGIMI IL RESTO DELLA LA PRIMA RIGA DEL FILE E METTILA 5 NUMERI PER RUOTA X 11 RUOTA
QUANDO CLICCO IL TASTO + LA PRIMA ESTRAZIONE SCORRE E VA NELLA SECONDA RIGA LEGGENDOMI LA SECONDA RIGA DEL FILE
METTI LA SECONDA RIGA I PRIMI 4 NUMERI SONO ESTRAZIONI
RIMANENZA DEI NUMERI SONO I 5 ESTRATTI PER OGNI RUOTA X 11
SE IN QUALSIASI ESTRAZ SI TROVA UNA COPPIA DI NUMERI SU DUE RUOTE DISTANZA 30 STESSA POSIZIONE ESTRAZIONALE CHE FORMA UN QUADRATO ALLORA COLORALI DI VERDE
STAMPAMI NEL MEZZO DELLE DUE ESTRAZIONI LE DUE DISTANZE 30 MANCANTI E LE RUOTE DOVE SI TROVA LA CONDIZIONE
CERCA I NUMERI NELLA SECONDA ESTRAZIONE COLORANDOLI IN ROSSO SU TUTTE LE RUOTE SOLAMENTE I DUE NUMERI MANCANTI DELLA DISTANZA 30

ESEMPI
si ricercano su  due ruote diverse,

42-58-72-88   i due numeri distanza 30 sono dal 42-72  manca il 12 mentre dal 58-88 manca il 28
quindi il programma stampa nel mezzo delle due estrazioni i due numeri mancanti della terzina il 12-28 è le ruote dove è uscita la condizione
poi li cerca nella seconda estrazione  colorandoli di rosso anche se esce su altre ruote dovrebbe colorare anche un singolo numero dei due oppure tutti e due

i numeri che formano il quadrato possono essere  sia verticali che orizzontali oppure diagonali importante che formano un quadrato nella stessa posizione ad esempio su bari esce 14 in prima posizione e in seconda 74 su cagliari prima e seconda posizione 33-63
anche se sono diagonali verticali orizzontali vabbene
e tutte le condizioni che trova li mette in mezzo alle due estrazioni le ruote da giocare con gli elementi mancanti delle terzine

credo che il mio pseudo codice non sia chiaro cerchero' di rifarlo provando è riprovando
poi devo capire come funziona il for to annidato
e tante funzioni che usate voi programmatori per cambiare il mio codice

bplus nel ultimo codice ha realizzato il programma perfetto però  io non ho dato maggior informazioni
nel senso che non avevo detto che il programma doveva catturare qualsiasi condizione si trovava sia in orizzontale in verticale o diagonale
quindi ha creato il programma che rileva solo 1 sola condizione
il motivo e solo perche non sono stata chiara con i dettagli e fornendo dettagli ben precisi




Title: Re: help my
Post by: TempodiBasic on July 19, 2020, 07:44:09 pm
@Kiara87
per la funzione della data andrò a guardare il codice di Bplus così da capire quale algoritmo di codifica è stato usato visto che il numero di estrazione è vario di anno in anno e non supera il valore 150 come si può evincere guardando un po' gli archivi qui
https://www.estrazionedellotto.it/risultati/archivio-lotto-2017 (https://www.estrazionedellotto.it/risultati/archivio-lotto-2017)
riguardo al tuo scopo finale sembra che sia trovare il numero assente della tripletta con distanza 30 in orizzontale e in verticale.... aspettando maggiori informazioni riguardo la direzione diagonale da usare.
usa l'immagine che posto qui per spiegarmi la diagonale di cui parli.

for function of data I'll take a look at Bplus' code so to understand what algorythm to codify it has been used seeing that the number of extraction is different each year and it cannot be more tha 150 as value as you can understand looking just a little into archives here
https://www.estrazionedellotto.it/risultati/archivio-lotto-2017 (https://www.estrazionedellotto.it/risultati/archivio-lotto-2017)

about your goal it seems to get the absent number of a triplet with distance of 30 both in vertical both horizontal....
waiting more informations about diagonal direction to use.
Use the image that I post here to explain me the  diagonal direction of which you talk.
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: help my
Post by: Kiara87 on July 20, 2020, 04:06:07 am
Quote from: TempodiBasic on July 19, 2020, 07:44:09 pm
@Kiara87
per la funzione della data andrò a guardare il codice di Bplus così da capire quale algoritmo di codifica è stato usato visto che il numero di estrazione è vario di anno in anno e non supera il valore 150 come si può evincere guardando un po' gli archivi qui
https://www.estrazionedellotto.it/risultati/archivio-lotto-2017 (https://www.estrazionedellotto.it/risultati/archivio-lotto-2017)
riguardo al tuo scopo finale sembra che sia trovare il numero assente della tripletta con distanza 30 in orizzontale e in verticale.... aspettando maggiori informazioni riguardo la direzione diagonale da usare.
usa l'immagine che posto qui per spiegarmi la diagonale di cui parli.

for function of data I'll take a look at Bplus' code so to understand what algorythm to codify it has been used seeing that the number of extraction is different each year and it cannot be more tha 150 as value as you can understand looking just a little into archives here
https://www.estrazionedellotto.it/risultati/archivio-lotto-2017 (https://www.estrazionedellotto.it/risultati/archivio-lotto-2017)

about your goal it seems to get the absent number of a triplet with distance of 30 both in vertical both horizontal....
waiting more informations about diagonal direction to use.
Use the image that I post here to explain me the  diagonal direction of which you talk.
  [ This attachment cannot be displayed inline in 'Print Page' view ]


06/06/2017  NA 72-84  (2°-4°)  Dist.Diag.30
06/06/2017  VE 24-12  (2°-4°)
Ambi ISOTOPI
-------------------------------------------
ecco una panoramica nella tua immagine su napoli venezia in seconda e 4 posizione  a napoli 2posizione il 72 e 4posizione 84
mentre venezia 2posizione 24 in 4 posizione il 12
quindi occupano tutte due coppie seconda e quarta posizione
il 12 e in diagonale con il 72 mentre il 84 è indiagonale con il 24
le due terzine mancanti delle due coppie sono 42-54
perche dal 12+30=42    dal 72+30=102-90 =12 perche i numeri arrivano a 90 42+30=72
24+30=54    54+30=84      84+30=114-90=24

nel gioco del lotto essendo che i numeri arrivano a 90 la distanza arriva a 45
45 e il massimo della distanza
quindi tra il 12 e 72 non si può dire che è distanza 60 perche la distanza il suo limite è 45
esempio 12+45=57  questa e la distanza 45  nel lotto per vedere la distanza prendo in considerazione il 12

se faccio 12-30=72 perchè nel gioco del lotto quando si esegue il meno è il numero arriva al numero 1 poi ancora meno saranno 90-89-88 fino ad arrivare a 72
esempio dal 12-30  togliendo 11 sarà il numero 1 se faccio meno 12 sarà il numero 90 dal 90 tolgo 18 quindi il numero sarà 72
nel lotto se supera il numero 90 si eseque il numero 90 mentre se devi fare la distanza e vai il calcolo con il - quando arrivi al numero 1 poi cè il 90
spero che il concetto si capisce

Title: Re: help my
Post by: TempodiBasic on July 20, 2020, 07:24:54 am
Ambi ISOTOPI.... questa Aritmologia e Cabala da lotto mi manda in corto circuito i neuroni :-)

cmq sembra che qui ci sia un programma che ti potrebbe aiutare già fatto da qualcun altro....http://www.pc-facile.com/forum/viewtopic.php?t=110012 (http://www.pc-facile.com/forum/viewtopic.php?t=110012)  guarda in fondo al thread c'è il link per il programma.

Solo a vedere questi ragionamenti cabalistici mi viene l'orticaria :-) https://www.lottogazzetta.it/metodo-dellambo-ripetuto-isotopo-i-parte/ (https://www.lottogazzetta.it/metodo-dellambo-ripetuto-isotopo-i-parte/) forse è per questo che mi riesce difficile capire quello che ti serve una mia naturale allergia al campo del lotto.
Title: Re: help my
Post by: Kiara87 on July 20, 2020, 07:46:33 am
Quote from: TempodiBasic on July 20, 2020, 07:24:54 am
Ambi ISOTOPI.... questa Aritmologia e Cabala da lotto mi manda in corto circuito i neuroni :-)

cmq sembra che qui ci sia un programma che ti potrebbe aiutare già fatto da qualcun altro....http://www.pc-facile.com/forum/viewtopic.php?t=110012 (http://www.pc-facile.com/forum/viewtopic.php?t=110012)  guarda in fondo al thread c'è il link per il programma.

Solo a vedere questi ragionamenti cabalistici mi viene l'orticaria :-) https://www.lottogazzetta.it/metodo-dellambo-ripetuto-isotopo-i-parte/ (https://www.lottogazzetta.it/metodo-dellambo-ripetuto-isotopo-i-parte/) forse è per questo che mi riesce difficile capire quello che ti serve una mia naturale allergia al campo del lotto.
si ho visto il tuo link ma io volevo farlo con QB64 PER imparare come fare un programma del lotto e anche imparare il QB64
per programmi su internet riguardante al lotto ne ho scaricati una marea ma volevo imparare a crearne uno tutto mio
magari vedndo come si creava qualche algoritmo

nel codice di bplus  parlo del ultimo codi ha fatto un algoritmo valido che stampa le due terzine mancanti

pero' io non riesco a leggere il suo codice perche' sono inesperto

adesempio volevo adesso capire come cercare la distanza 30 invece che verticale cercarla in orizzontale nelle ruota
cmq certamente se non si conosce bene il lotto non e facile creare un programma per il lotto come io non conoscendo la programmazione ma conoscendo solo il lotto non riesco a creare un programma

il fatto che cerco di usare i vostri consigli ma non mi e chiaro dai vostri codici a modificare spero che un giorno riusciro
e magari creare anche programmi diversi dal lotto programmi di ogni tipo
Title: Re: help my
Post by: TempodiBasic on July 20, 2020, 05:59:20 pm
Ciao Kiara87

riguardo al lotto ho fatto tempo fa in Excel un programmino che calcolava la somma a compenso.
Ossia calcoliamo quanto capitale devi investire per ottenere una vincita sicura.
Il caso più semplice è di giocare 2 numeri su singola ruota puntando 1 euro sulla ambata e 1 euro sull'ambo. Ora sviluppando le statistiche di probabilità di uscita sono 1 caso /90 * 89  ossia 1/8010 eventi. Ogni volta che non vinci ripeti la giocata aumentando la posta in modo da compensare con la vincita i soldi già spesi per giocare. Ebbene secondo lo schema di vincite del lotto https://www.estrazionedellotto.it/prontuario-vincite-lotto (https://www.estrazionedellotto.it/prontuario-vincite-lotto) con ciascun ambata guadagni 5 euro e con l'ambo 250 euro. La giocata è realizzata quando fai ambo e quindi di conseguenza anche 2 ambate quindi la vincita sarebbe 260 euro circa puntando 1 euro su ambata e 1 euro su ambo e giocando 2 numeri su una sola ruota di estrazione. Essendo la probailità dell'evento 1 su 8010 considerando anche la peggiore sfortuna devi arrivare a giocare 8010 volte quei 2 numeri per vincere sicuri. La prima volta punti 2 euro e così continui fino a 260 euro (ossia le prime 130 puntate) poi devi iniziare a incrementare la puntata per recuperare i soldi spesi nelle precedenti puntate. Se lo trovo te lo posto, permette di avere una prospettiva chiara delle somme necessarie per vincere sicuri al lotto.
Un mio amico amava molto giocare al lotto, quindi ne parlava spesso e vista la mia propensione alla programmazione mi chiese di provare a fare un programma che gli permettesse di fare i calcoli per scegliere le giocate vincenti. Aritmologia pura. Sai bene che in Aritmologia i numeri sono circolari come fai tu con il lotto 1- 90 = 1 in Aritmologia a base 90 mentre in Aritmetica 1-90 = -89 a base decimale, 24 +70 = 4 in Aritmologia a base 90 mentre in aritmetica 24+70 = 94 a base decimale.
Una volta definito il problema lo puoi riprodurre e gestire con il codice programma.
Nell'esempio dell'AMBO ISOTOPI che mi hai fatto per spiegarmi la distanza diagonale la differenza tra 72 e 84 in Aritmetica è -12 mentre in Aritmologia 72-84=78. Allo stesso modo la distanza tra 24 e 84 ossia 24-84= 30  in Aritmologia mentre in Aritmetica 24-84 = -60!
Questo piccolo concetto spero che tu lo abbia passato a Bplus ossia che i calcoli vanno fatti secondo l'Aritmologia e non la matematica.
Hai ritenuto molti concetti come se fossero noti a tutti ma sono specifici degli appassionati del lotto.


English version by Google
Hi Kiara87

regarding the lot, I made a program in Excel some time ago that calculated the sum in compensation.
That is, we calculate how much capital you have to invest to get a safe win.
The simplest case is to play 2 numbers on a single wheel by betting 1 euro on the ambata and 1 euro on the both. Now developing the exit probability statistics are 1 case / 90 * 89 or 1/8010 events. Every time you don't win, repeat the game by increasing the stakes in order to compensate with the winnings the money already spent to play. Well according to the winnings scheme of the lot [url] https://www.estrazionedellotto.it/prontuario-vincite-lotto [/ url] with each ambate you earn 5 euros and with the both 250 euros. The bet is made when you do both and consequently also 2 ambates so the win would be around 260 euros by betting 1 euro on ambata and 1 euro on both and playing 2 numbers on a single extraction wheel. Being the probability of event 1 out of 8010 considering even the worst of bad luck you have to get to play 8010 times those 2 numbers to win safely. The first time you bet 2 euros and so you continue up to 260 euros (i.e. the first 130 bets) then you have to start increasing the bet to recover the money spent in the previous bets. If I find it, I place it, it allows you to have a clear perspective of the sums necessary to win the lot safely.
A friend of mine loved playing lotto, so he often talked about it and given my propensity for programming he asked me to try to make a program that would allow him to do the calculations to choose the winning games. Pure arrhythmology. You know well that in Arithmology the numbers are circular as you do with the lot 1- 90 = 1 in Arithmology with base 90 while in Arithmetic 1-90 = -89 with decimal basis, 24 +70 = 4 in Arithmology with base 90 while in arithmetic 24 + 70 = 94 with a decimal base.
Once the problem is defined you can reproduce it and manage it with the program code.
In the example of the AMBO ISOTOPES you made to explain the diagonal distance the difference between 72 and 84 in Arithmetic is -12 while in Arithmology 72-84 = 78. In the same way the distance between 24 and 84 or 24-84 = 30 in Arithmology while in Arithmetic 24-84 = -60!
I hope that you have passed this small concept to Bplus, that is, that the calculations must be made according to Arithmology and not mathematics.
You have thought many ideas as known by all but these concepts are specific for those loves lotto game.
Title: Re: help my
Post by: bplus on July 20, 2020, 06:17:09 pm
"Arithmology" 

Code: QB64: [Select]
  1. FUNCTION missingTriple (t1, t2)
  2.     DIM first, second, third
  3.     IF t1 < 31 THEN
  4.         first = t1
  5.     ELSEIF t1 < 61 THEN
  6.         second = t1
  7.     ELSE
  8.         third = t1
  9.     END IF
  10.     IF t2 < 31 THEN
  11.         first = t2
  12.     ELSEIF t2 < 61 THEN
  13.         second = t2
  14.     ELSE
  15.         third = t2
  16.     END IF
  17.     IF first = 0 THEN
  18.         missingTriple = second - 30
  19.     ELSEIF second = 0 THEN
  20.         missingTriple = third - 30
  21.     ELSE
  22.         missingTriple = second + 30
  23.     END IF
  25.  


True or False is the pair part of a triple?
Code: QB64: [Select]
  1. FUNCTION diff30in90 (a, b) 'default integers a-z
  2.     DIM hi, lo
  3.     IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
  4.     IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
  5.     IF hi - lo = 30 THEN
  6.         diff30in90 = -1
  7.     ELSE
  8.         IF ABS(hi - lo) = 60 THEN diff30in90 = -1
  9.     END IF
  11.  
Title: Re: help my
Post by: TempodiBasic on July 21, 2020, 01:49:51 pm
Yes Arithmology https://it.wikipedia.org/wiki/Aritmologia#:~:text=L%27aritmologia%20(dal%20greco%20ἀριθμός,%2C%20dualità%2C%20ovvero%20nozioni%20astratte. (https://it.wikipedia.org/wiki/Aritmologia#:~:text=L%27aritmologia%20(dal%20greco%20ἀριθμός,%2C%20dualità%2C%20ovvero%20nozioni%20astratte.) 
Good Stuff Bplus!
Title: Re: help my
Post by: bplus on July 23, 2020, 04:37:47 pm
@Kiara87

Here it is, I couldn't leave it alone. I knew there wasn't enough room to print all the pairs of Triples in the middle screen with labels so I did an short version.

Complete make over almost!
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's      b+ 2020-07-23 makeover old kiara help code
  2. _TITLE "Lotto Data Triples" '     new title it's all about the triples!
  3. SCREEN _NEWIMAGE(640, 400, 32) '  need graphics screen for all the new colors!
  4. _DELAY .25 'while screen loads
  6.  
  7. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  8. '           fix function convertLottoNum2Date$ spelling
  9. '           clean out some redundant code loops
  10. ' 2020-07-18 change GOSUB loadLineDAT_Mark30s:
  11. '           to mark Blue only line with triple pairs. Can only do one pair at time for right screen check.
  12. '           Make function missingTriple, so we know what number to search for on right screen.
  13. '           OK modified loadLineDAT_Mark30s: GOSUB some more to catch the missing triple pair
  14. '           marked in Red on right screen.
  15. '
  16. '                               * * * A whole different approach! * * *
  17. ' 2020-07-23 OK look for triple pairs in left screen to complete in the right screen.
  18. '                        ALL NUMBERS ARE COLOR CODED IN LEFT SCREEN
  19. '           The most triples possible is 30, in fact lets keep an array to track which triple
  20. '           each data item on left screen is a member of. The we will analyze the 30 triples for
  21. '           Singles, Pairs and Complete Triples.
  22. '           We will feed a sub 2 data strings from the file and it will match up the missing triples in right screen.
  23. '            create showLottoLines - takes 2 lotto lines and creates array with all triples sorted into locations,
  24. '                                    and display screens while we data in hand.
  25. '            create whichTriple - takes a lotto number in string form and assigns a base30 number and level 1 to 3
  26. '            create makePal - makes a palette of 30 distinct colors I hope
  27. '            convert labelscreen to sub.
  28. '            Looks marvelous to me!
  29.  
  30. DEFINT A-Z ' everything is integer unless DIM or suffix
  31. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  32. DIM SHARED shiftRight, shiftRight2 '        screening data left and right, normally these would be CONSTANTs
  33. shiftRight = 11 '                           according to screen fit
  34. shiftRight2 = 65 '                          according to screen fit
  35.  
  36. DIM count '                                 for number of lines in the data file
  37.  
  38. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  39. DIM a AS STRING '                           file line of data
  40.  
  41. ' user inputs
  42. DIM Q$ '                                    for INKEY$
  43. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  44.  
  45. DIM i '                                     common use for indexing
  46.  
  47. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  48. msNomeMesi(1) = "Gennaio"
  49. msNomeMesi(2) = "Febbraio"
  50. msNomeMesi(3) = "Marzo"
  51. msNomeMesi(4) = "Aprile"
  52. msNomeMesi(5) = "Maggio"
  53. msNomeMesi(6) = "Giugno"
  54. msNomeMesi(7) = "Luglio"
  55. msNomeMesi(8) = "Agosto"
  56. msNomeMesi(9) = "Settembre"
  57. msNomeMesi(10) = "Ottobre"
  58. msNomeMesi(11) = "Novembre"
  59. msNomeMesi(12) = "Dicembre"
  60.  
  61. DIM SHARED labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  62. labels(1) = "BARI"
  63. labels(2) = "CAGLIARI"
  64. labels(3) = "FIRENZE"
  65. labels(4) = "GENOVA"
  66. labels(5) = "MILANO"
  67. labels(6) = "NAPOLI"
  68. labels(7) = "PALERMO"
  69. labels(8) = "ROMA"
  70. labels(9) = "TORINO"
  71. labels(10) = "VENEZIA"
  72. labels(11) = "NAZIONALE"
  73.  
  74. '-------------------------------- start Main setup get file data loaded into array
  75.  
  76. DIM SHARED pal(1 TO 30) AS _UNSIGNED LONG ' colors  for the 30 different triples
  77. makePal 'load up palette
  78.  
  79. 'count lines in file
  80. OPEN "lotto.dat" FOR INPUT AS #1
  82.     INPUT #1, a
  83.     '          debug check inputs from file
  84.     'PRINT a
  85.     'INPUT " OK enter "; w$
  86.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  89.  
  90. 'now we know size of file so ready an array to load file Data
  91. DIM fileDAT(1 TO count) AS STRING
  92. OPEN "lotto.dat" FOR INPUT AS #1
  93. FOR i = 1 TO count
  94.     INPUT #1, a
  95.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  98.  
  99. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  100. lineNum = 1 'left screen data line
  101. lineNum2 = 1 'right screen data line
  102.  
  103. DO '------------------------------------------------ Main Loop User selects data to compare
  104.     CLS
  105.     Q$ = INKEY$
  106.     IF Q$ = "+" THEN lineNum = lineNum + 1
  107.     IF Q$ = "-" THEN lineNum = lineNum - 1
  108.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  109.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  110.  
  112.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  113.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  114.         IF 3 * 8 <= mx AND mx <= 11 * 8 THEN lineNum = lineNum + 1
  115.         IF 14 * 8 <= mx AND mx <= 23 * 8 THEN lineNum = lineNum - 1
  116.         IF 56 * 8 <= mx AND mx <= 64 * 8 THEN lineNum2 = lineNum2 + 1
  117.         IF 67 * 8 <= mx AND mx <= 76 * 8 THEN lineNum2 = lineNum2 - 1
  118.     END IF
  119.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  120.     IF lineNum > count THEN lineNum = 1
  121.     IF lineNum < 1 THEN lineNum = count
  122.     IF lineNum2 > count THEN lineNum2 = 1
  123.     IF lineNum2 < 1 THEN lineNum2 = count
  124.     labelScreen
  125.     showLottoLines fileDAT(lineNum), fileDAT(lineNum2) 'print out the data from the new line
  126.     _DISPLAY
  127.     _LIMIT 30
  130.  
  131. SUB labelScreen
  132.     DIM i
  133.     COLOR &HFFFFFFFF
  134.     FOR i = 1 TO 11
  135.         LOCATE i * 2 + 1, 1: PRINT labels(i)
  136.         LOCATE i * 2 + 1, 55: PRINT labels(i)
  137.     NEXT
  138.     LOCATE 25, 1
  139.     PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  140.     '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  141.     '               1         2         3         4         5         6         7         8
  143.  
  144. SUB makePal 'make 30 distinctive colors I hope
  145.     DIM i, m, q
  146.     q = 40
  147.     FOR i = 1 TO 30
  148.         m = INT(i / 7) + 1
  149.         SELECT CASE i MOD 7
  150.             CASE 0: pal(i) = _RGB32(m * q + 55, 50, 50)
  151.             CASE 1: pal(i) = _RGB32(50, m * q + 55, 50)
  152.             CASE 2: pal(i) = _RGB32(50, 0, m * q + 55)
  153.             CASE 3: pal(i) = _RGB32(m * q + 55, m * q + 55, 50)
  154.             CASE 4: pal(i) = _RGB32(m * q + 55, 50, m * q + 55)
  155.             CASE 5: pal(i) = _RGB32(50, m * q + 55, m * q + 55)
  156.             CASE 6: pal(i) = _RGB32(m * q + 55, .5 * m * q + 55, .25 * m * q + 55)
  157.         END SELECT
  158.     NEXT
  160.  
  161. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  162.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  164.  
  165. SUB showLottoLines (LottoLine$, LottoLine2$)
  166.     DIM sortedData(1 TO 30, 1 TO 3) AS STRING 'each data line c
  167.     DIM i, d$, b, l, lottoNum, lottoDate$, row, col, count, j, printline, s$, missingT, aplace
  168.  
  169.     COLOR &HFFFFFFFF ' start with white and print dates
  170.     lottoNum = VAL(LEFT$(LottoLine$, 4))
  171.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  172.     LOCATE 1, 1: PRINT lottoDate$;
  173.     lottoNum = VAL(LEFT$(LottoLine2$, 4))
  174.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  175.     LOCATE 1, 48: PRINT lottoDate$;
  176.  
  177.     FOR i = 1 TO 55 'print right screen = lottoLine2$
  178.         row = INT((i - 1) / 5) + 1
  179.         col = (i - 1) MOD 5 + 1
  180.         d$ = MID$(LottoLine2$, i * 2 + 3, 2)
  181.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT d$; ' Left side
  182.     NEXT
  183.  
  184.     FOR i = 1 TO 55 'print left screen  all the 11 X 5 double digit data and collect data locations of triples
  185.         row = INT((i - 1) / 5) + 1
  186.         col = (i - 1) MOD 5 + 1
  187.         d$ = MID$(LottoLine$, i * 2 + 3, 2)
  188.         whichTriple d$, b, l
  189.         sortedData(b, l) = sortedData(b, l) + DD$(i) 'creating a string of Double Digit (DD$) data locations
  190.         COLOR pal(b)
  191.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT d$; ' Left side
  192.     NEXT
  193.  
  194.     printline = 3 ' to 24
  195.     COLOR &HFFFFFFFF
  196.     FOR i = 1 TO 30 ' going through all the base triples numbers <=30
  197.         COLOR pal(i)
  198.         count = 0
  199.         FOR j = 1 TO 3
  200.             IF sortedData(i, j) <> "" THEN count = count + 1
  201.         NEXT
  202.         IF count = 2 THEN ' found a pair missing a triple
  203.             s$ = ""
  204.             FOR j = 1 TO 3
  205.                 d$ = sortedData(i, j)
  206.                 IF d$ = "" THEN ' look for the missing triple in the right side of screen
  207.                     d$ = "XX"
  208.                     missingT = i + (j - 1) * (30)
  209.                     'scan the right data for missingT
  210.                     aplace = 5
  211.                     FOR row = 1 TO 11 'mark the missing triples with triple color
  212.                         FOR col = 1 TO 5
  213.                             IF VAL(MID$(LottoLine2$, aplace, 2)) = missingT THEN
  214.                                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(LottoLine2$, aplace, 2); '<< a2 now Right Side
  215.                             END IF
  216.                             aplace = aplace + 2
  217.                         NEXT
  218.                     NEXT
  219.                 END IF
  220.                 s$ = s$ + " " + _TRIM$(STR$(i + (j - 1) * 30)) + ":" + d$
  221.             NEXT
  222.             LOCATE printline, 28: PRINT s$
  223.             printline = printline + 1
  224.             IF printline = 25 THEN LOCATE printline, 28: PRINT "out of room!";: EXIT FOR
  225.         END IF
  226.     NEXT
  228.  
  229. SUB whichTriple (number1To90$, base30, level30) 'return a number 1 to 30 and a level 1 to 3  for 2 digit loot number
  230.     DIM n AS INTEGER
  231.     n = VAL(number1To90$)
  232.     IF n > 90 OR n < 1 THEN base30 = 0: level30 = 0: BEEP: EXIT SUB 'alert we have bad number
  233.     IF n <= 30 THEN
  234.         base30 = n: level30 = 1
  235.     ELSEIF n <= 60 THEN
  236.         base30 = n - 30: level30 = 2
  237.     ELSEIF n <= 90 THEN
  238.         base30 = n - 60: level30 = 3
  239.     END IF
  241.  
  242. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  243. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  244.     DIM numberOfDays1463, yr, mo
  245.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  246.     yr = 2017
  247.     mo = 6
  248.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  249.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  250.         mo = mo + 1
  251.         IF mo = 13 THEN mo = 1: yr = yr + 1
  252.     WEND
  253.     ' date shound be day name date/month/year for Italians
  254.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  256.  
  257. FUNCTION lottoday$ (lottoNum)
  258.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  259.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  260.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  262.  
  263. FUNCTION daysInMonth% (mNum, yearNum)
  264.     DIM copyM, copyY
  265.     copyM = mNum
  266.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  267.     SELECT CASE copyM
  268.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  269.         CASE 4, 6, 9, 11: daysInMonth% = 30
  270.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  271.     END SELECT
  273.  
  274. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  275.     DIM days AS INTEGER
  276.     IF yr MOD 4 = 0 THEN
  277.         IF yr MOD 100 = 0 THEN
  278.             IF yr MOD 400 = 0 THEN days = 29
  279.         ELSE
  280.             days = 29
  281.         END IF
  282.     END IF
  283.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  285.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

You can see the completed triple stand out 19, 49, 79 on the first screen.
Title: Re: help my
Post by: Kiara87 on July 24, 2020, 02:43:23 am
Quote from: bplus on July 23, 2020, 04:37:47 pm
@Kiara87

Here it is, I couldn't leave it alone. I knew there wasn't enough room to print all the pairs of Triples in the middle screen with labels so I did an short version.

Complete make over almost!
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'for typo's      b+ 2020-07-23 makeover old kiara help code
  2. _TITLE "Lotto Data Triples" '     new title it's all about the triples!
  3. SCREEN _NEWIMAGE(640, 400, 32) '  need graphics screen for all the new colors!
  4. _DELAY .25 'while screen loads
  6.  
  7. '2020-07-17 remove weekday names, move labels into there, fix bottom line up/down click
  8. '           fix function convertLottoNum2Date$ spelling
  9. '           clean out some redundant code loops
  10. ' 2020-07-18 change GOSUB loadLineDAT_Mark30s:
  11. '           to mark Blue only line with triple pairs. Can only do one pair at time for right screen check.
  12. '           Make function missingTriple, so we know what number to search for on right screen.
  13. '           OK modified loadLineDAT_Mark30s: GOSUB some more to catch the missing triple pair
  14. '           marked in Red on right screen.
  15. '
  16. '                               * * * A whole different approach! * * *
  17. ' 2020-07-23 OK look for triple pairs in left screen to complete in the right screen.
  18. '                        ALL NUMBERS ARE COLOR CODED IN LEFT SCREEN
  19. '           The most triples possible is 30, in fact lets keep an array to track which triple
  20. '           each data item on left screen is a member of. The we will analyze the 30 triples for
  21. '           Singles, Pairs and Complete Triples.
  22. '           We will feed a sub 2 data strings from the file and it will match up the missing triples in right screen.
  23. '            create showLottoLines - takes 2 lotto lines and creates array with all triples sorted into locations,
  24. '                                    and display screens while we data in hand.
  25. '            create whichTriple - takes a lotto number in string form and assigns a base30 number and level 1 to 3
  26. '            create makePal - makes a palette of 30 distinct colors I hope
  27. '            convert labelscreen to sub.
  28. '            Looks marvelous to me!
  29.  
  30. DEFINT A-Z ' everything is integer unless DIM or suffix
  31. CONST nRows = 11 '                          rows of 5 data points in each line of fileDat
  32. DIM SHARED shiftRight, shiftRight2 '        screening data left and right, normally these would be CONSTANTs
  33. shiftRight = 11 '                           according to screen fit
  34. shiftRight2 = 65 '                          according to screen fit
  35.  
  36. DIM count '                                 for number of lines in the data file
  37.  
  38. DIM lineNum, lineNum2 '                     for tracking array access this is actual file line of data we are screening
  39. DIM a AS STRING '                           file line of data
  40.  
  41. ' user inputs
  42. DIM Q$ '                                    for INKEY$
  43. DIM mb, mx, my, oldmouse '                  Mouse stuff oldmouse is trick Steve McNeill showed us to get ONE mouse click!
  44.  
  45. DIM i '                                     common use for indexing
  46.  
  47. DIM SHARED msNomeMesi(1 TO 12) AS STRING ' matrice di stringhe
  48. msNomeMesi(1) = "Gennaio"
  49. msNomeMesi(2) = "Febbraio"
  50. msNomeMesi(3) = "Marzo"
  51. msNomeMesi(4) = "Aprile"
  52. msNomeMesi(5) = "Maggio"
  53. msNomeMesi(6) = "Giugno"
  54. msNomeMesi(7) = "Luglio"
  55. msNomeMesi(8) = "Agosto"
  56. msNomeMesi(9) = "Settembre"
  57. msNomeMesi(10) = "Ottobre"
  58. msNomeMesi(11) = "Novembre"
  59. msNomeMesi(12) = "Dicembre"
  60.  
  61. DIM SHARED labels(1 TO 11) AS STRING ' setup screen labels for reporting data
  62. labels(1) = "BARI"
  63. labels(2) = "CAGLIARI"
  64. labels(3) = "FIRENZE"
  65. labels(4) = "GENOVA"
  66. labels(5) = "MILANO"
  67. labels(6) = "NAPOLI"
  68. labels(7) = "PALERMO"
  69. labels(8) = "ROMA"
  70. labels(9) = "TORINO"
  71. labels(10) = "VENEZIA"
  72. labels(11) = "NAZIONALE"
  73.  
  74. '-------------------------------- start Main setup get file data loaded into array
  75.  
  76. DIM SHARED pal(1 TO 30) AS _UNSIGNED LONG ' colors  for the 30 different triples
  77. makePal 'load up palette
  78.  
  79. 'count lines in file
  80. OPEN "lotto.dat" FOR INPUT AS #1
  82.     INPUT #1, a
  83.     '          debug check inputs from file
  84.     'PRINT a
  85.     'INPUT " OK enter "; w$
  86.     IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
  89.  
  90. 'now we know size of file so ready an array to load file Data
  91. DIM fileDAT(1 TO count) AS STRING
  92. OPEN "lotto.dat" FOR INPUT AS #1
  93. FOR i = 1 TO count
  94.     INPUT #1, a
  95.     IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
  98.  
  99. 'get/set first line and get a data string from the FileDAT array  (left set on screen)
  100. lineNum = 1 'left screen data line
  101. lineNum2 = 1 'right screen data line
  102.  
  103. DO '------------------------------------------------ Main Loop User selects data to compare
  104.     CLS
  105.     Q$ = INKEY$
  106.     IF Q$ = "+" THEN lineNum = lineNum + 1
  107.     IF Q$ = "-" THEN lineNum = lineNum - 1
  108.     IF Q$ = CHR$(0) + CHR$(72) THEN lineNum2 = lineNum2 + 1
  109.     IF Q$ = CHR$(0) + CHR$(80) THEN lineNum2 = lineNum2 - 1
  110.  
  112.     mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  113.     IF mb AND oldmouse = 0 AND my > 24 THEN ' <<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  114.         IF 3 * 8 <= mx AND mx <= 11 * 8 THEN lineNum = lineNum + 1
  115.         IF 14 * 8 <= mx AND mx <= 23 * 8 THEN lineNum = lineNum - 1
  116.         IF 56 * 8 <= mx AND mx <= 64 * 8 THEN lineNum2 = lineNum2 + 1
  117.         IF 67 * 8 <= mx AND mx <= 76 * 8 THEN lineNum2 = lineNum2 - 1
  118.     END IF
  119.     oldmouse = _MOUSEBUTTON(1) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   THANK's  SMcNeill
  120.     IF lineNum > count THEN lineNum = 1
  121.     IF lineNum < 1 THEN lineNum = count
  122.     IF lineNum2 > count THEN lineNum2 = 1
  123.     IF lineNum2 < 1 THEN lineNum2 = count
  124.     labelScreen
  125.     showLottoLines fileDAT(lineNum), fileDAT(lineNum2) 'print out the data from the new line
  126.     _DISPLAY
  127.     _LIMIT 30
  130.  
  131. SUB labelScreen
  132.     DIM i
  133.     COLOR &HFFFFFFFF
  134.     FOR i = 1 TO 11
  135.         LOCATE i * 2 + 1, 1: PRINT labels(i)
  136.         LOCATE i * 2 + 1, 55: PRINT labels(i)
  137.     NEXT
  138.     LOCATE 25, 1
  139.     PRINT "  Fino / Up  Giu / Down        : Fare clic su :        Fino / Up  Giu / Down";
  140.     '      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  141.     '               1         2         3         4         5         6         7         8
  143.  
  144. SUB makePal 'make 30 distinctive colors I hope
  145.     DIM i, m, q
  146.     q = 40
  147.     FOR i = 1 TO 30
  148.         m = INT(i / 7) + 1
  149.         SELECT CASE i MOD 7
  150.             CASE 0: pal(i) = _RGB32(m * q + 55, 50, 50)
  151.             CASE 1: pal(i) = _RGB32(50, m * q + 55, 50)
  152.             CASE 2: pal(i) = _RGB32(50, 0, m * q + 55)
  153.             CASE 3: pal(i) = _RGB32(m * q + 55, m * q + 55, 50)
  154.             CASE 4: pal(i) = _RGB32(m * q + 55, 50, m * q + 55)
  155.             CASE 5: pal(i) = _RGB32(50, m * q + 55, m * q + 55)
  156.             CASE 6: pal(i) = _RGB32(m * q + 55, .5 * m * q + 55, .25 * m * q + 55)
  157.         END SELECT
  158.     NEXT
  160.  
  161. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
  162.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
  164.  
  165. SUB showLottoLines (LottoLine$, LottoLine2$)
  166.     DIM sortedData(1 TO 30, 1 TO 3) AS STRING 'each data line c
  167.     DIM i, d$, b, l, lottoNum, lottoDate$, row, col, count, j, printline, s$, missingT, aplace
  168.  
  169.     COLOR &HFFFFFFFF ' start with white and print dates
  170.     lottoNum = VAL(LEFT$(LottoLine$, 4))
  171.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  172.     LOCATE 1, 1: PRINT lottoDate$;
  173.     lottoNum = VAL(LEFT$(LottoLine2$, 4))
  174.     lottoDate$ = ConvertLottoNumToDate$(lottoNum)
  175.     LOCATE 1, 48: PRINT lottoDate$;
  176.  
  177.     FOR i = 1 TO 55 'print right screen = lottoLine2$
  178.         row = INT((i - 1) / 5) + 1
  179.         col = (i - 1) MOD 5 + 1
  180.         d$ = MID$(LottoLine2$, i * 2 + 3, 2)
  181.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT d$; ' Left side
  182.     NEXT
  183.  
  184.     FOR i = 1 TO 55 'print left screen  all the 11 X 5 double digit data and collect data locations of triples
  185.         row = INT((i - 1) / 5) + 1
  186.         col = (i - 1) MOD 5 + 1
  187.         d$ = MID$(LottoLine$, i * 2 + 3, 2)
  188.         whichTriple d$, b, l
  189.         sortedData(b, l) = sortedData(b, l) + DD$(i) 'creating a string of Double Digit (DD$) data locations
  190.         COLOR pal(b)
  191.         LOCATE row * 2 + 1, col * 3 - 2 + shiftRight: PRINT d$; ' Left side
  192.     NEXT
  193.  
  194.     printline = 3 ' to 24
  195.     COLOR &HFFFFFFFF
  196.     FOR i = 1 TO 30 ' going through all the base triples numbers <=30
  197.         COLOR pal(i)
  198.         count = 0
  199.         FOR j = 1 TO 3
  200.             IF sortedData(i, j) <> "" THEN count = count + 1
  201.         NEXT
  202.         IF count = 2 THEN ' found a pair missing a triple
  203.             s$ = ""
  204.             FOR j = 1 TO 3
  205.                 d$ = sortedData(i, j)
  206.                 IF d$ = "" THEN ' look for the missing triple in the right side of screen
  207.                     d$ = "XX"
  208.                     missingT = i + (j - 1) * (30)
  209.                     'scan the right data for missingT
  210.                     aplace = 5
  211.                     FOR row = 1 TO 11 'mark the missing triples with triple color
  212.                         FOR col = 1 TO 5
  213.                             IF VAL(MID$(LottoLine2$, aplace, 2)) = missingT THEN
  214.                                 LOCATE row * 2 + 1, col * 3 - 2 + shiftRight2: PRINT MID$(LottoLine2$, aplace, 2); '<< a2 now Right Side
  215.                             END IF
  216.                             aplace = aplace + 2
  217.                         NEXT
  218.                     NEXT
  219.                 END IF
  220.                 s$ = s$ + " " + _TRIM$(STR$(i + (j - 1) * 30)) + ":" + d$
  221.             NEXT
  222.             LOCATE printline, 28: PRINT s$
  223.             printline = printline + 1
  224.             IF printline = 25 THEN LOCATE printline, 28: PRINT "out of room!";: EXIT FOR
  225.         END IF
  226.     NEXT
  228.  
  229. SUB whichTriple (number1To90$, base30, level30) 'return a number 1 to 30 and a level 1 to 3  for 2 digit loot number
  230.     DIM n AS INTEGER
  231.     n = VAL(number1To90$)
  232.     IF n > 90 OR n < 1 THEN base30 = 0: level30 = 0: BEEP: EXIT SUB 'alert we have bad number
  233.     IF n <= 30 THEN
  234.         base30 = n: level30 = 1
  235.     ELSEIF n <= 60 THEN
  236.         base30 = n - 30: level30 = 2
  237.     ELSEIF n <= 90 THEN
  238.         base30 = n - 60: level30 = 3
  239.     END IF
  241.  
  242. ' -----------------------------------------------------  Convert Lotto Num to Date Function and helpers
  243. FUNCTION ConvertLottoNumToDate$ (lottoNumX)
  244.     DIM numberOfDays1463, yr, mo
  245.     numberOfDays1463 = INT(lottoNumX - 1463) / 3 * 7
  246.     yr = 2017
  247.     mo = 6
  248.     WHILE numberOfDays1463 > daysInMonth%(mo, yr) - 1
  249.         numberOfDays1463 = numberOfDays1463 - daysInMonth%(mo, yr)
  250.         mo = mo + 1
  251.         IF mo = 13 THEN mo = 1: yr = yr + 1
  252.     WEND
  253.     ' date shound be day name date/month/year for Italians
  254.     ConvertLottoNumToDate$ = lottoday$(lottoNumX) + _TRIM$(STR$(numberOfDays1463 + 1)) + "/" + msNomeMesi(mo) + "/" + _TRIM$(STR$(yr))
  256.  
  257. FUNCTION lottoday$ (lottoNum)
  258.     IF lottoNum MOD 3 = 1 THEN lottoday$ = "Martedi, "
  259.     IF lottoNum MOD 3 = 2 THEN lottoday$ = "Giovedi, "
  260.     IF lottoNum MOD 3 = 0 THEN lottoday$ = "Sabato, "
  262.  
  263. FUNCTION daysInMonth% (mNum, yearNum)
  264.     DIM copyM, copyY
  265.     copyM = mNum
  266.     IF mNum = 13 THEN copyM = 1: copyY = yearNum + 1 ELSE copyY = yearNum
  267.     SELECT CASE copyM
  268.         CASE 1, 3, 5, 7, 8, 10, 12: daysInMonth% = 31
  269.         CASE 4, 6, 9, 11: daysInMonth% = 30
  270.         CASE 2: daysInMonth% = daysInFeb%(copyY)
  271.     END SELECT
  273.  
  274. FUNCTION daysInFeb% (yr) 'from Pete's calendar this is a very clear calc
  275.     DIM days AS INTEGER
  276.     IF yr MOD 4 = 0 THEN
  277.         IF yr MOD 100 = 0 THEN
  278.             IF yr MOD 400 = 0 THEN days = 29
  279.         ELSE
  280.             days = 29
  281.         END IF
  282.     END IF
  283.     IF days THEN daysInFeb% = days ELSE daysInFeb% = 28
  285.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

You can see the completed triple stand out 19, 49, 79 on the first screen.

thanks bplus
but this not only finds the distance 30 but finds all numbers
but a great job you are very good at programming
this will be useful when I learn
so I can edit it
Title: Re: help my
Post by: bplus on July 24, 2020, 11:48:04 am
Quote from: qb64
thanks bplus
but this not only finds the distance 30 but finds all numbers
but a great job you are very good at programming
this will be useful when I learn
so I can edit it

Listed in the middle are all the triple PAIRS missing the 3rd triple in the Left screen, the found 3rd triple is color coded on the right.

Isn't that what you wanted? (except the color coding, but that makes more clear which triple it is from.)

Oh also I listed the data location 1 to 55 instead of the Italian Label names for the rows (1 to 11) so you can locate exactly where the triple came from. Like I said there is NOT enough room to list all the Italian label names for the pairs. Could convert to row numbers with a conversion function.
Title: Re: help my
Post by: Kiara87 on July 24, 2020, 04:22:38 pm
Quote from: bplus on July 24, 2020, 11:48:04 am
Listed in the middle are all the triple PAIRS missing the 3rd triple in the Left screen, the found 3rd triple is color coded on the right.

Isn't that what you wanted? (except the color coding, but that makes more clear which triple it is from.)

Oh also I listed the data location 1 to 55 instead of the Italian Label names for the rows (1 to 11) so you can locate exactly where the triple came from. Like I said there is NOT enough room to list all the Italian label names for the pairs. Could convert to row numbers with a conversion function.

thanks for your interest but I didn't mean this
what I meant not from too many numbers
for example in the extraction of 6 June 2017
from only two conditions

that are these

06/06/2017  CAGLIARI 37-34  (1°-2°)  Dist.Vert.30
06/06/2017  MILANO   07-64  (1°-2°)
Ambi ISOTOPI
-------------------------------------------
06/06/2017  NAPOLI   72-84  (2°-4°)  Dist.Diag.30
06/06/2017  VENEZIA 24-12  (2°-4°)
Ambi ISOTOPI
-------------------------------------------
in the other extractions it can give a maximum of 4 or 5 conditions not many conditions
but many times one or two conditions occur
Title: Re: help my
Post by: TempodiBasic on July 25, 2020, 01:25:35 pm
@Kiara87
riguardo a
Quote
for example in the extraction of 6 June 2017
from only two conditions

that are these

06/06/2017  CAGLIARI 37-34  (1°-2°)  Dist.Vert.30
06/06/2017  MILANO   07-64  (1°-2°)
Ambi ISOTOPI
-------------------------------------------
06/06/2017  NAPOLI   72-84  (2°-4°)  Dist.Diag.30
06/06/2017  VENEZIA 24-12  (2°-4°)
Ambi ISOTOPI

rilevati i 2 ambi isotopi con distanza 30  seguendo le regole aritmologiche 24-84= -60 +90 =30 distanza 30 diagonale, 12 - 72  = -60 +90 = 30 cosa altro deve fare il programma del lotto?
Title: Re: help my
Post by: Kiara87 on July 25, 2020, 05:27:49 pm
Quote from: TempodiBasic on July 25, 2020, 01:25:35 pm
@Kiara87
riguardo a
rilevati i 2 ambi isotopi con distanza 30  seguendo le regole aritmologiche 24-84= -60 +90 =30 distanza 30 diagonale, 12 - 72  = -60 +90 = 30 cosa altro deve fare il programma del lotto?
aritmologiche  ma nel lotto si chiamano terzine simmetriche
il programma dalle condizioni che trova deve segnare nel mezzo delle due estrazioni
le condizioni che sono uscite con le terzine simmetriche mancanti come ha fatto bplus nel programma precedente
quello che rilevava solamente una sola condizione rilevava solo la condizione isotopa
io volevo aggiungere che mi rilevava anche le condizioni si isotope ma anche in verticale è orizzontali

il programma dovrebbe fare diamo esempio nella estrazione che ha messo bplus

06/06/2017  CAGLIARI 37-34  (1°-2°)  Dist.Vert.30
06/06/2017  MILANO   07-64  (1°-2°)
Ambi ISOTOPI
-------------------------------------------
06/06/2017  NAPOLI   72-84  (2°-4°)  Dist.Diag.30
06/06/2017  VENEZIA 24-12  (2°-4°)
Ambi ISOTOPI

su cagliari e milano manca la terzina simmetrica che e in prima posizione  ce il 7 e il 37  la terzina mancante è il 67
mentre in 2posizione ce 34 è 64 manca il 4 terzina simmetrica di 4-34-64
quindi nel mezzo delle due estrazioni mi stampa la condizione da giocare con le ruote cosi
cagliari milano 4-67
stessa cosa deve fare alle condizioni trovate come napoli venezia
sotto a cagliari milano mette la condizione di napoli venezia con le due terzine mancanti 42-54
e se trova altre condizioni li mette sotto
ma di solito non ne trova molte al massimo 2 o tre dovrebbe trovarne dipende
e poi nella estrazioni di destra cercare i numeri che stampa in mezzo delle estrazioni segnandoli di rosso
Title: Re: help my
Post by: TempodiBasic on August 06, 2020, 07:52:34 pm
Hi kiara87
please give a look at this program, it may be a good start to get your goal....you must add the date code like that made by Bplus and you have completed the program about AMBO ISOTOPI
https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537 (https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537)
------------------------
Ciao kiara87
potresti dare uno sguardo a questo programma, esso potrebbe essere un buon inizio per il tuo obiettivo.... tu devi aggiungere il codice per ottenere la data di estrazione come quello fatto da Bplus e così dovresti aver completato il programma su AMBO ISOTOPI.  https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537 (https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537)

Title: Re: help my
Post by: Kiara87 on August 07, 2020, 03:07:26 am
grazie @TempodiBasic


Quote from: TempodiBasic on August 06, 2020, 07:52:34 pm
Hi kiara87
please give a look at this program, it may be a good start to get your goal....you must add the date code like that made by Bplus and you have completed the program about AMBO ISOTOPI
https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537 (https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537)
------------------------
Ciao kiara87
potresti dare uno sguardo a questo programma, esso potrebbe essere un buon inizio per il tuo obiettivo.... tu devi aggiungere il codice per ottenere la data di estrazione come quello fatto da Bplus e così dovresti aver completato il programma su AMBO ISOTOPI.  https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537 (https://www.qb64.org/forum/index.php?topic=2891.msg121537#msg121537)

si questo e proprio quello che cercavo hai trovato il giusto argoritmo
nel mio caso non riuscivo anche perche non sono esperto ancora cerco di imparare
guardando i vostri progetti
come risposto nel tuo thear
devo finire questo progetto aggiungendo la data e cercando i numeri nella estrazione di destra
e dove trova la condizione stampa anche le rote
questo e un programma complesso però credo anche si cresce nella programmazione una volta riuscito a creare qualcosa del genere
bhe credo che cè sempre da imparare cose nuove
forse per creare quello che ho cercato di fare io ci vogliono tanti anni di esperienza
ecco il perchè ho chiesto qui nel forum
comunque devo farti veramente i complimenti ad aver trovato l'algoritmo giusto
adesso devo trovare per finirlo cercherò di studiarlo come faccio ogni giorno
marari riuscirò
Title: Re: help my
Post by: TempodiBasic on August 08, 2020, 03:02:14 pm
Hi kiara87
fine to see that the uncomplete code posted does what you are trying to get... but for me it has been very difficult to understand some concepts that are behind your request and are not visible until, time after time, they came out from your words...

about
Quote
devo finire questo progetto aggiungendo la data e cercando i numeri nella estrazione di destra
e dove trova la condizione stampa anche le rote
questo e un programma complesso però credo anche si cresce nella programmazione una volta riuscito a creare qualcosa del genere
bhe credo che cè sempre da imparare cose nuove

these more features are well in the range of your coding ability! But remember first design plan of the actions  then translate this last in QB64!
And I agree only writing programs you can grow...

Good continuing programming
--------------------
bene vedo che il codice incompleto pubblicato fa quello che stai cercando di ottenere ... ma per me è stato molto difficile capire alcuni concetti che stanno dietro la tua richiesta e non sono visibili finché, di volta in volta, non sono usciti dalla tua parole...
riguardo a
Quote
devo finire questo progetto aggiungendo la data e cercando i numeri nella estrazione di destra
e dove trova la condizione stampa anche le rote
questo e un programma complesso però credo anche si cresce nella programmazione una volta riuscito a creare qualcosa del genere
beh credo che cè sempre da imparare cose nuove
queste altre funzionalità rientrano nella gamma delle tue capacità di codifica! Ma ricorda prima il piano di progettazione delle azioni, quindi traduci quest'ultimo in QB64!
E sono d'accordo che solo scrivendo programmi puoi crescere ...

Buona continuazione della programmazione
Title: Re: help my
Post by: Kiara87 on September 07, 2020, 05:46:19 pm
Quote from: TempodiBasic on August 08, 2020, 03:02:14 pm
Hi kiara87

--------------------
bene vedo che il codice incompleto pubblicato fa quello che stai cercando di ottenere ... ma per me è stato molto difficile capire alcuni concetti che stanno dietro la tua richiesta e non sono visibili finché, di volta in volta, non sono usciti dalla tua parole...
riguardo a queste altre funzionalità rientrano nella gamma delle tue capacità di codifica! Ma ricorda prima il piano di progettazione delle azioni, quindi traduci quest'ultimo in QB64!
E sono d'accordo che solo scrivendo programmi puoi crescere ...

Buona continuazione della programmazione

bhe ho provato ad inserire le funzioni che ho citato fino ad oggi non riesco
eppure ho studiato le istruzioni del basic pero' per far questo genere di programma si deve essere veramente esperti
credo che tempodibasic puo aiutarmi se legge il messaggio
@TempodiBasic  se m leggi
help my

Code: QB64: [Select]
  1. ' Programma lotto di kiara87
  2. ' il programma legge i dati (numeri estratti da un file.dat)
  3. ' e permette di vedere  le estrazioni a video
  4. ' i numeri con distanza 30 sono evidenziati con colore rosso
  5. ' questi numeri vengono memorizzati e stampati
  6.  
  7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
  8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
  9.  
  10. 'nota 2: si e' scoperto che la distanza 30 e' aritmologica ossia
  11. ' in un sistema ciclico 1-90 per cui se si va oltre il limite si ritorna nel range 1-90
  12. ' invece di pensare i numeri su di una linea retta bisogna pensarli su una
  13. ' linea a cerchio per cui sottrarre o aggiungere equivale a spostarsi indietro
  14. ' o in avanti di un numero specificato di posizioni
  15.  
  16. 'nota 3: lo scopo della ricerca delle coppie di numeri distanti 30 unita'
  17. ' e' quello di individuare la terzina simmetrica con passo 30 che e' interessata
  18. ' (ossia che con 2 numeri forma un ambo) per cercare gli AMBI ISOTOPI
  19. ' (ossia due coppie di numeri che nella griglia delle estrazioni mostrano
  20. ' la stessa posizione formando un quadrilatero)
  21.  
  22. 'nota 4: la coppia di numeri di una terzina simmetrica puo' essere
  23. ' in orizzontale  ( i numeri sono nella stessa ruota di estrazione)
  24. ' in verticale ( i numeri sono nella ' stessa posizione di estrazione tipo 1 estratto,
  25. ' 2 estratto...5 estratto)
  26. ' in diagonale (i numeri appartengono a ruota estrattiva e colonna estrattiva diverse)
  27. '
  28.  
  29. ' valori COSTANTI  generali Vero e Falso
  30. CONST True = -1, False = NOT True
  31. ' le 11 ruote del lotto
  32. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
  33. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
  34. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
  35.  
  36. DIM a AS STRING ' una stringa per leggere i dati dal file
  37.  
  38. ' salta al sottoprogramma LeggiFile delimitato
  39. ' dalla Label LeggiFIle e dal RETURN
  40. GOSUB LeggiFile
  41.  
  42. ' verifica che tutto il file sia letto
  43. 'FOR b = 1 TO LEN(a) - 116 STEP 116
  44. '    PRINT MID$(a, b, 116)
  45. '    '    PRINT INSTR(b, a, CHR$(13))
  46. '    _DELAY .1
  47. 'NEXT b
  48.  
  49.  
  50.  
  51. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
  52. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
  53. b = 1 ' flag che conta la posizione di lettura nel file  per il riquadro sinistro
  54. f = 1 ' flag che conta la posizione di lettura nel file  per il riquadro destro
  55. z$ = " " ' flag per l'output a schermo del programma
  56. OPEN "distanza30.dat" FOR APPEND AS #2 ' apertura del file dei risultati
  58.     IF z$ <> "" THEN ' se non c'e' input non viene eseguito
  59.         CLS ' questo risolve un glitch di output sullo schermo
  60.         ' in alternativa alla riga sopra CLS nel sottoblocco
  61.         ' MostraEstratti va stampata la stringa estratto e
  62.         ' non il suo valore corrispondente ottenuto con VAL
  63.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
  64.         GOSUB MostraEstratti ' scrive le estrazioni
  65.         GOSUB cerca30 ' evidenzia gli ambi isotopi nella estrazione di sinistra
  66.         ' e se la terzina simmetrica e' incompleta  segnala il numero mancante
  67.     END IF
  68.     ' prende l'input dell'utente
  69.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
  70.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
  71.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
  72.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
  73.     IF z$ = "-" AND f > 116 THEN f = f - 116
  74.     IF z$ <> "" THEN riga = 0
  75. LOOP UNTIL z$ = "Q" ' esegue questo ciclo fino a che si preme q per quit
  76. CLOSE #2 ' chiude il file che memorizza i distanti 30 per ogni estrazione esaminata a video
  77.  
  78. END ' indica la fine logica del programma
  79.  
  80.  
  81. '-----------------------AREA sottoprogrammi /SUBroutines
  82.  
  83. ' questa etichetta /label indica il punto di inizio
  84. ' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
  85. ' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
  86. ' nota1: un metodo ancora piu' antico e' il salto con GOTO
  87. '        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
  88. ' nota2: un metodo migliore e' SUB nomeroutine....END SUB
  89. '        perche' permette la localizzazione delle variabili
  90. LeggiFile:
  91. 'se non trova lotto.dat segnala l'errore a video e termina il programma
  92. IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
  93. '<--------------------
  94. ' questo metodo e' piu' lento
  95. ' apre il file lotto.dat per leggere in maniera sequenziale i dati
  96. 'OPEN "lotto.dat" FOR INPUT AS #1
  97. 'LINE INPUT #1, a  ' riempe la variabile a con una riga intera di valori
  98. '<--------------------
  99.  
  100. ' apre lotto.dat per leggerlo in maniera binaria
  101. OPEN "lotto.dat" FOR BINARY AS #1
  102. a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
  103. GET #1, , a ' legge con una unica operazione il file e lo pone nella variabile a
  104. CLOSE #1 ' chiude il file appena letto
  105. ' indica il termine della SUBroutine LeggiFile
  106. ' e RITORNA alla riga di codice successiva al salto GOSUB
  108.  
  109. 'seconda SUBroutine /sottoprogramma
  110. MostraRuote:
  112. LOCATE 1, 1
  113. PRINT "DATA ESTRAZIONALE"
  114. LOCATE 2, 1
  115. PRINT "BARI"
  116. LOCATE 4, 1
  117. PRINT "CAGLIARI"
  118. LOCATE 6, 1
  119. PRINT "FIRENZE"
  120. LOCATE 8, 1
  121. PRINT "GENOVA"
  122. LOCATE 10, 1
  123. PRINT "MILANO"
  124. LOCATE 12, 1
  125. PRINT "NAPOLI"
  126. LOCATE 14, 1
  127. PRINT "PALERMO"
  128. LOCATE 16, 1
  129. PRINT "ROMA"
  130. LOCATE 18, 1
  131. PRINT "TORINO"
  132. LOCATE 20, 1
  133. PRINT "VENEZIA"
  134. LOCATE 22, 1
  135. PRINT "NAZIONALE"
  136. LOCATE 1, 49
  137. PRINT "DATA ESTRAZIONALE"
  138. LOCATE 2, 49
  139. PRINT "BARI"
  140. LOCATE 4, 49
  141. PRINT "CAGLIARI"
  142. LOCATE 6, 49
  143. PRINT "FIRENZE"
  144. LOCATE 8, 49
  145. PRINT "GENOVA"
  146. LOCATE 10, 49
  147. PRINT "MILANO"
  148. LOCATE 12, 49
  149. PRINT "NAPOLI"
  150. LOCATE 14, 49
  151. PRINT "PALERMO"
  152. LOCATE 16, 49
  153. PRINT "ROMA"
  154. LOCATE 18, 49
  155. PRINT "TORINO"
  156. LOCATE 20, 49
  157. PRINT "VENEZIA"
  158. LOCATE 22, 49
  159. PRINT "NAZIONALE"
  160.  
  161. LOCATE 23, 50
  162. PRINT "+ avanti  - indietro"
  163. LOCATE 23, 1
  164. PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
  165.  
  166. ' indica il termine della SUBroutine MostraRuote
  167. ' e RITORNA alla riga di codice successiva al salto GOSUB
  169.  
  170. 'terzo sottoprogramma o SUBroutine
  171. MostraEstratti:
  172. ' le prime 4 cifre sembrano essere il numero della estrazione
  173. LOCATE 1, 32
  174. PRINT "estraz.num "; MID$(a, b, 4)
  175. PRINT #2, "estraz.num "; MID$(a, b, 4)
  177. y = 12 ' prima posizione per il carattere da stampare
  178. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  179.     A1 = "" ' resetto a1 per il prossimo giro
  180.     FOR V = Bari TO Nazionale ' per tutte le ruote
  181.         COLOR 15, 0
  182.         'posiziona il cursore
  183.         LOCATE (V * 2 + 1) - 1, y ' prima estrazione scoperta by MCN
  184.         ' scrive il numero estratto
  185.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
  186.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
  187.     NEXT V
  188.     y = POS(0)
  190. ' indica il termine della SUBroutine MostraEstratti
  191. ' e RITORNA alla riga di codice successiva al salto GOSUB
  192. LOCATE 23, 32
  193. PRINT "estraz.num "; MID$(a, f, 4)
  194. PRINT #2, "estraz.num "; MID$(a, f, 4)
  195.  
  196. y = 60 ' prima posizione per il carattere da stampare
  197. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
  198.     A1 = "" ' resetto a1 per il prossimo giro
  199.     FOR V = Bari TO Nazionale ' per tutte le ruote
  200.         COLOR 15, 0
  201.         'posiziona il cursore
  202.         LOCATE (V * 2 + 1) - 1, y ' seconda estrazione scoperta by mcn
  203.         ' scrive il numero estratto
  204.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); " ";
  205.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
  206.     NEXT V
  207.     y = POS(0)
  209. ' indica il termine della SUBroutine MostraEstratti
  210. ' e RITORNA alla riga di codice successiva al salto GOSUB
  212.  
  213.  
  214. ' essendo la distanza30 orizzontale e la distanza30 verticale due condizioni
  215. ' particolari della distanza 30 diagonale allora bastera' calcolare questa ultima
  216. ' per calcolare anche le altre...questo trasforma la ricerca da 1 vs 1 con una
  217. ' specifica condizione (stessa riga o stessa colonna) in 1 vs 1 in cui il secondo
  218. ' appartiene al sottoinsieme ruota in esame (v) to nazionale e 1 to 5 estratti (x)
  219. ' quindi dopo aver mostrato le estrazioni va chiamata la subroutine per cercare
  220. ' un ambo con 2 numeri della terzina simmetrica con passo 30
  221. cerca30:
  222. FOR x1 = 1 TO 5 STEP 1
  223.     FOR v1 = Bari TO Venezia STEP 1
  224.         ' estraggo  il numero dall'elenco
  225.         num = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
  226.         ' calcolo il numero precedente e successivo al numero estratto
  227.         IF num < 30 THEN prev = num - 30 + 90 ELSE prev = num - 30
  228.         IF num > 60 THEN succ = num + 30 - 90 ELSE succ = num + 30
  229.         FOR x2 = x1 TO 5
  230.             FOR v2 = v1 TO Nazionale 'per le restanti ruote
  231.                 num2 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
  232.                 IF num2 = prev OR num2 = succ THEN GOSUB AmboIsotopi
  233.             NEXT v2
  234.         NEXT x2
  235.     NEXT v1
  236. NEXT x1
  238.  
  239.  
  240. AmboIsotopi:
  241. 'cerca nell'intervallo della coppia trovata
  242.  
  243. IF x1 <> x2 THEN
  244.     ' i 2 numeri sono su 2 colonne diverse
  245.     IF v1 <> v2 THEN
  246.         ' i 2 numeri sono su due righe diverse
  247.         ' quindi i 2 numeri sono in diagonale
  248.         num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
  249.         num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
  250.         IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
  251.         IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
  252.         'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
  253.         IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
  254.     ELSE
  255.         ' v1 = v2  i 2 numeri sono sulla stessa riga
  256.         FOR v3 = v1 + 1 TO v2 STEP 1
  257.             num3 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
  258.             num4 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
  259.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
  260.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
  261.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
  262.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
  263.         NEXT v3
  264.         v3 = 0
  265.     END IF
  267.     ' x1 = x2    i 2 numeri sono sulla stessa colonna
  268.     IF v1 <> v2 THEN
  269.         ' i 2 numeri sono su diverse righe
  270.         FOR x3 = x1 + 1 TO x2 STEP 1
  271.             num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
  272.             num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
  273.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
  274.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
  275.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
  276.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
  277.         NEXT x3
  278.         x3 = 0
  279.     ELSE
  280.         ' i 2 numeri sono sulla stessa riga
  281.         ' v1 = v2
  282.         ' e' il caso impossibile perche' i due numeri coincidono con uno solo
  283.     END IF
  286.  
  287.  
  288. AmboOk:
  289. ' evidenzia sulla tabella estrattiva di sinistra i numeri trovati e
  290. ' scrive al centro i numeri mancanti della terzina simmetrica
  291. IF riga < 4 THEN riga = 4 ELSE riga = riga + 2
  293. k = 11
  294. 'posiziona il cursore
  295. LOCATE (v1 * 2 + 1) - 1, k + (x1 * 3) - 2 'IL PRIMO NUMERO TROVATO COLORATO LO POSIZIONA GIUSTO BY MCN
  296. ' scrive il numero estratto
  297. PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
  298. 'posiziona il cursore
  299. LOCATE (v2 * 2 + 1) - 1, k + (x2 * 3) - 2 'IL SECONDO NUMERO TROVATO LO POSIZIONA GIUSTO E LO COLORA BY MCN
  300. ' scrive il numero estratto
  301. PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
  302. IF x1 <> x2 THEN
  303.     IF v1 <> v2 THEN
  304.         'posiziona il cursore
  305.         LOCATE (v1 * 2 + 1) - 1, (x2 * 3) + k - 2 'IL TERZO NUMERO TROVATO LO POSIZIONA E COLORA BY MCN
  306.         ' scrive il numero estratto
  307.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
  308.  
  309.         'posiziona il cursore
  310.         LOCATE (v2 * 2 + 1) - 1, (x1 * 3) - 2 + k 'QUARTO NUMERO ESTRATTO TROVATO E POSIZIONA NELL CURSORE DEL NUMERO E LO COLORA BY MCN
  311.         ' scrive il numero estratto
  312.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
  313.     ELSE
  314.         'v1 = v2
  315.         'posiziona il cursore
  316.         LOCATE (v3 * 2) - 1, (x1 * 3) - 2 + k
  317.         ' scrive il numero estratto
  318.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
  319.  
  320.         'posiziona il cursore
  321.         LOCATE (v3 * 2) - 1, (x2 * 3) - 2 + k
  322.         ' scrive il numero estratto
  323.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
  324.     END IF
  326.     ' x1 = x2
  327.  
  328.     IF v1 <> v2 THEN
  329.         'posiziona il cursore
  330.         LOCATE (v3 * 2) - 1, ((x1 - 1) * 3) - 2 + k
  331.         ' scrive il numero estratto
  332.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
  333.  
  334.         'posiziona il cursore
  335.         LOCATE (v3 * 2) - 1, ((x2 - 1) * 3) - 2 + k
  336.         ' scrive il numero estratto
  337.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
  338.     ELSE
  339.         ' v1 = v2 e' il caso impossibile
  340.     END IF
  342. LOCATE riga, 35:
  343. IF num2 = prev THEN PRINT succ; ELSE PRINT prev;
  344. PRINT "--";
  345. IF num4 = prev1 THEN PRINT succ1; ELSE PRINT prev1;
  346.  
  347. COLOR 15, 0
  348.  
  350.  
  351.  
  352.  
Title: Re: help my
Post by: TempodiBasic on September 07, 2020, 06:57:38 pm
Hi Kiara87

1. for the first step  follow this link
https://translate.google.it/?hl=it#view=home&op=translate&sl=it&tl=en&text=aiutami (https://translate.google.it/?hl=it#view=home&op=translate&sl=it&tl=en&text=aiutami) and so you can gain the right way to say aiutami

2.
your project is
Quote
devo finire questo progetto aggiungendo la data e cercando i numeri nella estrazione di destra
e dove trova la condizione stampa anche le rote
questo e un programma complesso però credo anche si cresce nella programmazione una volta riuscito a creare qualcosa del genere
beh credo che cè sempre da imparare cose nuove
-add the date in the middle of two extractions
 - search the suggested number into the  extraction on the right
 - print on the screen the wheels of that numbers

as soon as I have some time I'll post something for you.
Title: Re: help my
Post by: Kiara87 on September 07, 2020, 07:30:56 pm
Quote from: TempodiBasic on September 07, 2020, 06:57:38 pm
Hi Kiara87

1. for the first step  follow this link
https://translate.google.it/?hl=it#view=home&op=translate&sl=it&tl=en&text=aiutami (https://translate.google.it/?hl=it#view=home&op=translate&sl=it&tl=en&text=aiutami) and so you can gain the right way to say aiutami

2.
your project is -add the date in the middle of two extractions
 - search the suggested number into the  extraction on the right
 - print on the screen the wheels of that numbers

as soon as I have some time I'll post something for you.

thanks @TempodiBasic
you are really kind
Text Only | Text with Attachments