help my

[TempodiBasic]

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

[bplus]

"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
24. END FUNCTION
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
10. END FUNCTION
11.  

[TempodiBasic]

Yes Arithmology https://it.wikipedia.org/wiki/Aritmologia#:~:text=L%27aritmologia%20(dal%20greco%20ἀριθμός,%2C%20dualità%2C%20ovvero%20nozioni%20astratte. 
Good Stuff Bplus!

[bplus]

@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
5. _SCREENMOVE _MIDDLE
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
81. WHILE NOT EOF(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
87. WEND
88. CLOSE #1
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
96. NEXT
97. CLOSE #1
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.  
111.     WHILE _MOUSEINPUT: WEND
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
128. LOOP
129. END
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
142. END SUB
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
159. END SUB
160.  
161. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
162.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
163. END FUNCTION
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
227. END SUB
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
240. END SUB
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))
255. END FUNCTION
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, "
261. END FUNCTION
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
272. END FUNCTION
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
284. END FUNCTION  
285.  

  [ You are not allowed to view this attachment ]  

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

[Kiara87]

@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
5. _SCREENMOVE _MIDDLE
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
81. WHILE NOT EOF(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
87. WEND
88. CLOSE #1
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
96. NEXT
97. CLOSE #1
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.  
111.     WHILE _MOUSEINPUT: WEND
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
128. LOOP
129. END
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
142. END SUB
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
159. END SUB
160.  
161. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
162.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
163. END FUNCTION
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
227. END SUB
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
240. END SUB
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))
255. END FUNCTION
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, "
261. END FUNCTION
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
272. END FUNCTION
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
284. END FUNCTION  
285.  

  [ You are not allowed to view this attachment ]  

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

[bplus]

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.

[Kiara87]

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

[TempodiBasic]

@Kiara87
riguardo a

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?

[Kiara87]

@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

[TempodiBasic]

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

[Kiara87]

grazie @TempodiBasic

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

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ò

[TempodiBasic]

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

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

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

[Kiara87]

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
57. DO
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
107. RETURN
108.  
109. 'seconda SUBroutine /sottoprogramma
110. MostraRuote:
111. COLOR 15
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
168. RETURN
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)
176. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
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)
189. NEXT x
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)
208. NEXT x
209. ' indica il termine della SUBroutine MostraEstratti
210. ' e RITORNA alla riga di codice successiva al salto GOSUB
211. RETURN
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
237. RETURN
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
266. ELSE
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
284. END IF
285. RETURN
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
292. COLOR 4
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
325. ELSE
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
341. 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.  
349. RETURN
350.  
351.  
352.  

[TempodiBasic]

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 and so you can gain the right way to say aiutami

2.
your project is

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.

[Kiara87]

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