help my

[Kiara87]

Looking for 67 and 4 in a line on the right side for this pair of 30's on left side?
  [ You are not allowed to view this attachment ]  

Correct?

EXACT 

JUST SO

[bplus]

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
70. WHILE NOT EOF(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
76. WEND
77. CLOSE #1
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
85. NEXT
86. CLOSE #1
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.  
108.     WHILE _MOUSEINPUT: WEND
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
139. LOOP
140. END
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
148. NEXT
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
199. NEXT
200.  
201. RETURN
202.  
203. screenDataLine:
204. COLOR 15
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
216. NEXT
217. RETURN
218.  
219. labelScreen:
220. COLOR 15
221. FOR i = 1 TO 11
222.     LOCATE i * 2 + 1, 1: PRINT labels(i)
223.     LOCATE i * 2 + 1, 55: PRINT labels(i)
224. NEXT
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
229. RETURN
230.  
231. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
232.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
233. END FUNCTION
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
244. END FUNCTION
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
269. END FUNCTION
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))
284. END FUNCTION
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, "
290. END FUNCTION
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
301. END FUNCTION
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
313. END FUNCTION
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.

[Kiara87]

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
70. WHILE NOT EOF(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
76. WEND
77. CLOSE #1
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
85. NEXT
86. CLOSE #1
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.  
108.     WHILE _MOUSEINPUT: WEND
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
139. LOOP
140. END
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
148. NEXT
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
199. NEXT
200.  
201. RETURN
202.  
203. screenDataLine:
204. COLOR 15
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
216. NEXT
217. RETURN
218.  
219. labelScreen:
220. COLOR 15
221. FOR i = 1 TO 11
222.     LOCATE i * 2 + 1, 1: PRINT labels(i)
223.     LOCATE i * 2 + 1, 55: PRINT labels(i)
224. NEXT
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
229. RETURN
230.  
231. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
232.     DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
233. END FUNCTION
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
244. END FUNCTION
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
269. END FUNCTION
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))
284. END FUNCTION
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, "
290. END FUNCTION
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
301. END FUNCTION
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
313. END FUNCTION
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

[bplus]

Well good luck with all those numbers!

[Kiara87]

Well good luck with all those numbers!

what do i have to change to do that?

an advice?

[bplus]

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.

[Kiara87]

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

[bplus]

Thanks, I look forward to seeing you get what you want from the lotto data. :)

[TempodiBasic]

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!

[TempodiBasic]

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
38. DO
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
86. RETURN
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
130. RETURN
131.  
132. 'terzo sottoprogramma o SUBroutine
133. MostraEstratti:
134.  
135. ' le prime 4 cifre sembrano essere in numero della estrazione
136. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
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
176. RETURN
177.  
178.  
179.  
180.  
181. Mostra30:
182. DIM v1 AS INTEGER, v2 AS INTEGER
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
203. RETURN
204.  

[Kiara87]

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

[TempodiBasic]

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

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.
  [ You are not allowed to view this attachment ]  

[Kiara87]

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

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.
  [ You are not allowed to view this attachment ]

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

[TempodiBasic]

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  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/ forse è per questo che mi riesce difficile capire quello che ti serve una mia naturale allergia al campo del lotto.

[Kiara87]

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