Aritmologia e Matematica, un esempio di programma/ Arithmology and Math, a demo

[TempodiBasic]

Hi guys and gals
I have found some time to spend to programming so I go deeper in the request of Kiara87.
The ideas about a Lotto program are many and they are not so immediately or clear to understand...
here the Arithmology sum
  [ You are not allowed to view this attachment ]  

that as you have observed it has a Cabala's fashion.

here the code that solve the issue of kiara87 about a program to search and to show the absent number of the Symmetric Triple following the AMBO ISOTOPIC . As you can see it must be joined to the date function made by Bplus to get all the specific solved.


------------------------------------ ITALIAN VERSIONE
Ciao ragazzi e ragazze
Ho trovato del tempo da dedicare alla programmazione quindi vado più a fondo nella richiesta di Kiara87.
Le idee su un programma Lotto sono tante e non sono così immediate o chiare da capire ...
qui la somma di aritmologia
   [ You are not allowed to view this attachment ]

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 "BARI"
114. LOCATE 3, 1
115. PRINT "CAGLIARI"
116. LOCATE 5, 1
117. PRINT "FIRENZE"
118. LOCATE 7, 1
119. PRINT "GENOVA"
120. LOCATE 9, 1
121. PRINT "MILANO"
122. LOCATE 11, 1
123. PRINT "NAPOLI"
124. LOCATE 13, 1
125. PRINT "PALERMO"
126. LOCATE 15, 1
127. PRINT "ROMA"
128. LOCATE 17, 1
129. PRINT "TORINO"
130. LOCATE 19, 1
131. PRINT "VENEZIA"
132. LOCATE 21, 1
133. PRINT "NAZIONALE"
134. LOCATE 1, 49
135. PRINT "BARI"
136. LOCATE 3, 49
137. PRINT "CAGLIARI"
138. LOCATE 5, 49
139. PRINT "FIRENZE"
140. LOCATE 7, 49
141. PRINT "GENOVA"
142. LOCATE 9, 49
143. PRINT "MILANO"
144. LOCATE 11, 49
145. PRINT "NAPOLI"
146. LOCATE 13, 49
147. PRINT "PALERMO"
148. LOCATE 15, 49
149. PRINT "ROMA"
150. LOCATE 17, 49
151. PRINT "TORINO"
152. LOCATE 19, 49
153. PRINT "VENEZIA"
154. LOCATE 21, 49
155. PRINT "NAZIONALE"
156.  
157. LOCATE 23, 50
158. PRINT "+ avanti  - indietro"
159. LOCATE 23, 1
160. PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
161.  
162. ' indica il termine della SUBroutine MostraRuote
163. ' e RITORNA alla riga di codice successiva al salto GOSUB
164. RETURN
165.  
166. 'terzo sottoprogramma o SUBroutine
167. MostraEstratti:
168. ' le prime 4 cifre sembrano essere il numero della estrazione
169. LOCATE 1, 32
170. PRINT "estraz.num "; MID$(a, b, 4)
171. PRINT #2, "estraz.num "; MID$(a, b, 4)
172. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
173. y = 12 ' prima posizione per il carattere da stampare
174. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
175.     A1 = "" ' resetto a1 per il prossimo giro
176.     FOR V = Bari TO Nazionale ' per tutte le ruote
177.         COLOR 15, 0
178.         'posiziona il cursore
179.         LOCATE (V * 2) - 1, y
180.         ' scrive il numero estratto
181.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
182.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
183.     NEXT V
184.     y = POS(0)
185. NEXT x
186. ' indica il termine della SUBroutine MostraEstratti
187. ' e RITORNA alla riga di codice successiva al salto GOSUB
188. LOCATE 23, 32
189. PRINT "estraz.num "; MID$(a, f, 4)
190. PRINT #2, "estraz.num "; MID$(a, f, 4)
191.  
192. y = 60 ' prima posizione per il carattere da stampare
193. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
194.     A1 = "" ' resetto a1 per il prossimo giro
195.     FOR V = Bari TO Nazionale ' per tutte le ruote
196.         COLOR 15, 0
197.         'posiziona il cursore
198.         LOCATE (V * 2) - 1, y
199.         ' scrive il numero estratto
200.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); " ";
201.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
202.     NEXT V
203.     y = POS(0)
204. NEXT x
205. ' indica il termine della SUBroutine MostraEstratti
206. ' e RITORNA alla riga di codice successiva al salto GOSUB
207. RETURN
208.  
209.  
210. ' essendo la distanza30 orizzontale e la distanza30 verticale due condizioni
211. ' particolari della distanza 30 diagonale allora bastera' calcolare questa ultima
212. ' per calcolare anche le altre...questo trasforma la ricerca da 1 vs 1 con una
213. ' specifica condizione (stessa riga o stessa colonna) in 1 vs 1 in cui il secondo
214. ' appartiene al sottoinsieme ruota in esame (v) to nazionale e 1 to 5 estratti (x)
215. ' quindi dopo aver mostrato le estrazioni va chiamata la subroutine per cercare
216. ' un ambo con 2 numeri della terzina simmetrica con passo 30
217. cerca30:
218. FOR x1 = 1 TO 5 STEP 1
219.     FOR v1 = Bari TO Venezia STEP 1
220.         ' estraggo  il numero dall'elenco
221.         num = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
222.         ' calcolo il numero precedente e successivo al numero estratto
223.         IF num < 30 THEN prev = num - 30 + 90 ELSE prev = num - 30
224.         IF num > 60 THEN succ = num + 30 - 90 ELSE succ = num + 30
225.         FOR x2 = x1 TO 5
226.             FOR v2 = v1 TO Nazionale 'per le restanti ruote
227.                 num2 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
228.                 IF num2 = prev OR num2 = succ THEN GOSUB AmboIsotopi
229.             NEXT v2
230.         NEXT x2
231.     NEXT v1
232. NEXT x1
233. RETURN
234.  
235.  
236. AmboIsotopi:
237. 'cerca nell'intervallo della coppia trovata
238.  
239. IF x1 <> x2 THEN
240.     ' i 2 numeri sono su 2 colonne diverse
241.     IF v1 <> v2 THEN
242.         ' i 2 numeri sono su due righe diverse
243.         ' quindi i 2 numeri sono in diagonale
244.         num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
245.         num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
246.         IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
247.         IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
248.         'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
249.         IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
250.     ELSE
251.         ' v1 = v2  i 2 numeri sono sulla stessa riga
252.         FOR v3 = v1 + 1 TO v2 STEP 1
253.             num3 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
254.             num4 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
255.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
256.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
257.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
258.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
259.         NEXT v3
260.         v3 = 0
261.     END IF
262. ELSE
263.     ' x1 = x2    i 2 numeri sono sulla stessa colonna
264.     IF v1 <> v2 THEN
265.         ' i 2 numeri sono su diverse righe
266.         FOR x3 = x1 + 1 TO x2 STEP 1
267.             num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
268.             num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
269.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
270.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
271.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
272.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
273.         NEXT x3
274.         x3 = 0
275.     ELSE
276.         ' i 2 numeri sono sulla stessa riga
277.         ' v1 = v2
278.         ' e' il caso impossibile perche' i due numeri coincidono con uno solo
279.     END IF
280. END IF
281. RETURN
282.  
283.  
284. AmboOk:
285. ' evidenzia sulla tabella estrattiva di sinistra i numeri trovati e
286. ' scrive al centro i numeri mancanti della terzina simmetrica
287. IF riga < 4 THEN riga = 4 ELSE riga = riga + 2
288. COLOR 4
289. k = 11
290. 'posiziona il cursore
291. LOCATE (v1 * 2) - 1, k + (x1 * 3) - 2
292. ' scrive il numero estratto
293. PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
294. 'posiziona il cursore
295. LOCATE (v2 * 2) - 1, k + (x2 * 3) - 2
296. ' scrive il numero estratto
297. PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
298. IF x1 <> x2 THEN
299.     IF v1 <> v2 THEN
300.         'posiziona il cursore
301.         LOCATE (v1 * 2) - 1, (x2 * 3) + k - 2
302.         ' scrive il numero estratto
303.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
304.  
305.         'posiziona il cursore
306.         LOCATE (v2 * 2) - 1, (x1 * 3) - 2 + k
307.         ' scrive il numero estratto
308.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
309.     ELSE
310.         'v1 = v2
311.         'posiziona il cursore
312.         LOCATE (v3 * 2) - 1, (x1 * 3) - 2 + k
313.         ' scrive il numero estratto
314.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
315.  
316.         'posiziona il cursore
317.         LOCATE (v3 * 2) - 1, (x2 * 3) - 2 + k
318.         ' scrive il numero estratto
319.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
320.     END IF
321. ELSE
322.     ' x1 = x2
323.  
324.     IF v1 <> v2 THEN
325.         'posiziona il cursore
326.         LOCATE (v3 * 2) - 1, ((x1 - 1) * 3) - 2 + k
327.         ' scrive il numero estratto
328.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
329.  
330.         'posiziona il cursore
331.         LOCATE (v3 * 2) - 1, ((x2 - 1) * 3) - 2 + k
332.         ' scrive il numero estratto
333.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
334.     ELSE
335.         ' v1 = v2 e' il caso impossibile
336.     END IF
337. END IF
338. LOCATE riga, 35:
339. IF num2 = prev THEN PRINT succ; ELSE PRINT prev;
340. PRINT "--";
341. IF num4 = prev1 THEN PRINT succ1; ELSE PRINT prev1;
342.  
343. COLOR 15, 0
344.  
345. RETURN
346.  

che come hai osservato ha un'organizzazione della Cabala.
Per completare il programma sulle specifica di Kiara87 è necessario incollare la funzione della data fatta da Bplus.

[Kiara87]

Hi guys and gals
I have found some time to spend to programming so I go deeper in the request of Kiara87.
The ideas about a Lotto program are many and they are not so immediately or clear to understand...
here the Arithmology sum
  [ You are not allowed to view this attachment ]  

that as you have observed it has a Cabala's fashion.

here the code that solve the issue of kiara87 about a program to search and to show the absent number of the Symmetric Triple following the AMBO ISOTOPIC . As you can see it must be joined to the date function made by Bplus to get all the specific solved.


------------------------------------ ITALIAN VERSIONE
Ciao ragazzi e ragazze
Ho trovato del tempo da dedicare alla programmazione quindi vado più a fondo nella richiesta di Kiara87.
Le idee su un programma Lotto sono tante e non sono così immediate o chiare da capire ...
qui la somma di aritmologia
   [ You are not allowed to view this attachment ]

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 "BARI"
114. LOCATE 3, 1
115. PRINT "CAGLIARI"
116. LOCATE 5, 1
117. PRINT "FIRENZE"
118. LOCATE 7, 1
119. PRINT "GENOVA"
120. LOCATE 9, 1
121. PRINT "MILANO"
122. LOCATE 11, 1
123. PRINT "NAPOLI"
124. LOCATE 13, 1
125. PRINT "PALERMO"
126. LOCATE 15, 1
127. PRINT "ROMA"
128. LOCATE 17, 1
129. PRINT "TORINO"
130. LOCATE 19, 1
131. PRINT "VENEZIA"
132. LOCATE 21, 1
133. PRINT "NAZIONALE"
134. LOCATE 1, 49
135. PRINT "BARI"
136. LOCATE 3, 49
137. PRINT "CAGLIARI"
138. LOCATE 5, 49
139. PRINT "FIRENZE"
140. LOCATE 7, 49
141. PRINT "GENOVA"
142. LOCATE 9, 49
143. PRINT "MILANO"
144. LOCATE 11, 49
145. PRINT "NAPOLI"
146. LOCATE 13, 49
147. PRINT "PALERMO"
148. LOCATE 15, 49
149. PRINT "ROMA"
150. LOCATE 17, 49
151. PRINT "TORINO"
152. LOCATE 19, 49
153. PRINT "VENEZIA"
154. LOCATE 21, 49
155. PRINT "NAZIONALE"
156.  
157. LOCATE 23, 50
158. PRINT "+ avanti  - indietro"
159. LOCATE 23, 1
160. PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
161.  
162. ' indica il termine della SUBroutine MostraRuote
163. ' e RITORNA alla riga di codice successiva al salto GOSUB
164. RETURN
165.  
166. 'terzo sottoprogramma o SUBroutine
167. MostraEstratti:
168. ' le prime 4 cifre sembrano essere il numero della estrazione
169. LOCATE 1, 32
170. PRINT "estraz.num "; MID$(a, b, 4)
171. PRINT #2, "estraz.num "; MID$(a, b, 4)
172. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
173. y = 12 ' prima posizione per il carattere da stampare
174. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
175.     A1 = "" ' resetto a1 per il prossimo giro
176.     FOR V = Bari TO Nazionale ' per tutte le ruote
177.         COLOR 15, 0
178.         'posiziona il cursore
179.         LOCATE (V * 2) - 1, y
180.         ' scrive il numero estratto
181.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); " ";
182.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
183.     NEXT V
184.     y = POS(0)
185. NEXT x
186. ' indica il termine della SUBroutine MostraEstratti
187. ' e RITORNA alla riga di codice successiva al salto GOSUB
188. LOCATE 23, 32
189. PRINT "estraz.num "; MID$(a, f, 4)
190. PRINT #2, "estraz.num "; MID$(a, f, 4)
191.  
192. y = 60 ' prima posizione per il carattere da stampare
193. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
194.     A1 = "" ' resetto a1 per il prossimo giro
195.     FOR V = Bari TO Nazionale ' per tutte le ruote
196.         COLOR 15, 0
197.         'posiziona il cursore
198.         LOCATE (V * 2) - 1, y
199.         ' scrive il numero estratto
200.         PRINT (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); " ";
201.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
202.     NEXT V
203.     y = POS(0)
204. NEXT x
205. ' indica il termine della SUBroutine MostraEstratti
206. ' e RITORNA alla riga di codice successiva al salto GOSUB
207. RETURN
208.  
209.  
210. ' essendo la distanza30 orizzontale e la distanza30 verticale due condizioni
211. ' particolari della distanza 30 diagonale allora bastera' calcolare questa ultima
212. ' per calcolare anche le altre...questo trasforma la ricerca da 1 vs 1 con una
213. ' specifica condizione (stessa riga o stessa colonna) in 1 vs 1 in cui il secondo
214. ' appartiene al sottoinsieme ruota in esame (v) to nazionale e 1 to 5 estratti (x)
215. ' quindi dopo aver mostrato le estrazioni va chiamata la subroutine per cercare
216. ' un ambo con 2 numeri della terzina simmetrica con passo 30
217. cerca30:
218. FOR x1 = 1 TO 5 STEP 1
219.     FOR v1 = Bari TO Venezia STEP 1
220.         ' estraggo  il numero dall'elenco
221.         num = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
222.         ' calcolo il numero precedente e successivo al numero estratto
223.         IF num < 30 THEN prev = num - 30 + 90 ELSE prev = num - 30
224.         IF num > 60 THEN succ = num + 30 - 90 ELSE succ = num + 30
225.         FOR x2 = x1 TO 5
226.             FOR v2 = v1 TO Nazionale 'per le restanti ruote
227.                 num2 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
228.                 IF num2 = prev OR num2 = succ THEN GOSUB AmboIsotopi
229.             NEXT v2
230.         NEXT x2
231.     NEXT v1
232. NEXT x1
233. RETURN
234.  
235.  
236. AmboIsotopi:
237. 'cerca nell'intervallo della coppia trovata
238.  
239. IF x1 <> x2 THEN
240.     ' i 2 numeri sono su 2 colonne diverse
241.     IF v1 <> v2 THEN
242.         ' i 2 numeri sono su due righe diverse
243.         ' quindi i 2 numeri sono in diagonale
244.         num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
245.         num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
246.         IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
247.         IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
248.         'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
249.         IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
250.     ELSE
251.         ' v1 = v2  i 2 numeri sono sulla stessa riga
252.         FOR v3 = v1 + 1 TO v2 STEP 1
253.             num3 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra))
254.             num4 = VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra))
255.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
256.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
257.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
258.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
259.         NEXT v3
260.         v3 = 0
261.     END IF
262. ELSE
263.     ' x1 = x2    i 2 numeri sono sulla stessa colonna
264.     IF v1 <> v2 THEN
265.         ' i 2 numeri sono su diverse righe
266.         FOR x3 = x1 + 1 TO x2 STEP 1
267.             num3 = VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
268.             num4 = VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra))
269.             IF num3 < 30 THEN prev1 = num3 - 30 + 90 ELSE prev1 = num3 - 30
270.             IF num3 > 60 THEN succ1 = num3 + 30 - 90 ELSE succ1 = num3 + 30
271.             'se hanno distanza 30 abbiamo trovato un   Ambo Isotopo
272.             IF num4 = prev1 OR num4 = succ1 THEN GOSUB AmboOk
273.         NEXT x3
274.         x3 = 0
275.     ELSE
276.         ' i 2 numeri sono sulla stessa riga
277.         ' v1 = v2
278.         ' e' il caso impossibile perche' i due numeri coincidono con uno solo
279.     END IF
280. END IF
281. RETURN
282.  
283.  
284. AmboOk:
285. ' evidenzia sulla tabella estrattiva di sinistra i numeri trovati e
286. ' scrive al centro i numeri mancanti della terzina simmetrica
287. IF riga < 4 THEN riga = 4 ELSE riga = riga + 2
288. COLOR 4
289. k = 11
290. 'posiziona il cursore
291. LOCATE (v1 * 2) - 1, k + (x1 * 3) - 2
292. ' scrive il numero estratto
293. PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
294. 'posiziona il cursore
295. LOCATE (v2 * 2) - 1, k + (x2 * 3) - 2
296. ' scrive il numero estratto
297. PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
298. IF x1 <> x2 THEN
299.     IF v1 <> v2 THEN
300.         'posiziona il cursore
301.         LOCATE (v1 * 2) - 1, (x2 * 3) + k - 2
302.         ' scrive il numero estratto
303.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
304.  
305.         'posiziona il cursore
306.         LOCATE (v2 * 2) - 1, (x1 * 3) - 2 + k
307.         ' scrive il numero estratto
308.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
309.     ELSE
310.         'v1 = v2
311.         'posiziona il cursore
312.         LOCATE (v3 * 2) - 1, (x1 * 3) - 2 + k
313.         ' scrive il numero estratto
314.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x1 - 1) * 2) + (b - 1), Cifra));
315.  
316.         'posiziona il cursore
317.         LOCATE (v3 * 2) - 1, (x2 * 3) - 2 + k
318.         ' scrive il numero estratto
319.         PRINT (MID$(a, (v3 - 1) * 10 + 5 + ((x2 - 1) * 2) + (b - 1), Cifra));
320.     END IF
321. ELSE
322.     ' x1 = x2
323.  
324.     IF v1 <> v2 THEN
325.         'posiziona il cursore
326.         LOCATE (v3 * 2) - 1, ((x1 - 1) * 3) - 2 + k
327.         ' scrive il numero estratto
328.         PRINT (MID$(a, (v1 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
329.  
330.         'posiziona il cursore
331.         LOCATE (v3 * 2) - 1, ((x2 - 1) * 3) - 2 + k
332.         ' scrive il numero estratto
333.         PRINT (MID$(a, (v2 - 1) * 10 + 5 + ((x3 - 1) * 2) + (b - 1), Cifra));
334.     ELSE
335.         ' v1 = v2 e' il caso impossibile
336.     END IF
337. END IF
338. LOCATE riga, 35:
339. IF num2 = prev THEN PRINT succ; ELSE PRINT prev;
340. PRINT "--";
341. IF num4 = prev1 THEN PRINT succ1; ELSE PRINT prev1;
342.  
343. COLOR 15, 0
344.  
345. RETURN
346.  

che come hai osservato ha un'organizzazione della Cabala.
Per completare il programma sulle specifica di Kiara87 è necessario incollare la funzione della data fatta da Bplus.

grazie @TempodiBasic  è questo quello che intendevo di fare
il modo e questo molto difficile ancora per me solamente vedere il codice
ho provato per pochi secondi il programma
è  cerca i numeri come chiedevo nel post
adesso però
devo mettere la data sopra alle estrazioni è  se sposto il cursore per mettere le estrazioni partendo
dalla linea 2 e mettere la data delle estrazioni nella linea 1  sarà una vera lotta perchè non vanno mai nel posto giusto
forse bplus per questo ha usato una istruzione di SMcNeill che  mi sembra questa WHILE _MOUSEINPUT: WEND
    mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY

poi devo inserire nel centro dove stampa la previsione
insieme ai due numeri che già compaiono i numeri
devo far stampare anche le ruote dove si e verificata la previsione
e poi cercare i numeri nella estrazione di destra

faccio un riepilogo
anche per farmi una idea di come devo finirlo
1)spostare le due estrazioni di una riga più sotto per inserire la data del estrazione nella prima riga
2)stampami nel mezzo delle due estrazioni dove hai stampato la previsione anche le ruote dove si è verificata la condizione
3) cercami i numeri della condizione nella estrazione di destra e colorali di altro colore