help my

[Kiara87]

@Kiara87

Can you count and list the words in this sentence?

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

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

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

  [ You are not allowed to view this attachment ]  

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

says the length of the file as in the image?

@Kiara87
GOTO  e GOSUB sono due bacchette magiche che l'apprendista stregone programmatore deve temere e ammirare. Sono potenti ma senza limiti quindi se non sai quello che stai facendo fai di certo un gran pasticcio, come topolino nell'apprendista stregone https://www.youtube.com/watch?v=U546yRNeNh4

giusto per esercizio e per comprensione  tu poi considerare GOSUB  un GOTO semplificato perchè con RETURN ti permette di ritornare indietro all'istruzione del salto senza usare una ulteriore etichetta

Code: QB64: [Select]

1. GOTO There
2. Here:
3. PRINT "Hi Guys"
4. END
5.  
6. There:
7. PRINT "I'm QB64 coder "
8. GOTO Here
9.  

is the same that

Code: QB64: [Select]

1. GOSUB There
2. PRINT "Hi Guys"
3. END
4.  
5. There:
6. PRINT "I'm QB64 coder "
7. RETURN
8.  

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

@bplus
PRINT LEN(88)
:-)

@TempodiBasic  si ho visto esempio che il gosub da un ritorno dal codice da dove era partito ritorna 1 volta nella sua postazione
sto seguendo i tuoi consigli che credo siano la soluzione per imparare a programmare scrivendo in pseudo codice
anche come spiega @SMcNeill dicendo di prendere il problema e dividerlo scomponendolo in sotto problemi
fino a qui ho percepito come mi avevi consigliato di scrivere in pseudocodice
è dividendo in sotto problemi risolvendoli uno ad uno
ma il problema poi sta come converto i problemi al  codice?
come cerco tutte le istruzioni su wiki oppure sul help dvo sempre sapere come cercare quelle istruzioni che servono per convertire il pseudo codice in codice QB64

[Kiara87]

thanks to you, you are cunning
by dividing the problem into small problems
and step by step explanation though 'I have to say it with programming code I have to understand how to convert my explanations step by step into programming language
as you did in the example of the peanut sandwich it is easy but the most difficult part is to look for the programming language commands as you said I have to look for the ingredients for the recipe
where do i find them?
on wiki or help
how should i search?

@Kiara87

Can you count and list the words in this sentence?

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

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

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

  [ You are not allowed to view this attachment ]  

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

If it helps, Kiara, remember this -- All computer programming breaks down to 3 steps:

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

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

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

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

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

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

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

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

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

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

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


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

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

I read the file with this

Code: QB64: [Select]

1. OPEN "leggi.txt" FOR INPUT AS #1
2. INPUT #1, a$
3. PRINT LEN(a$)
4. CLOSE
5.  

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

[bplus]

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

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

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

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


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

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

Code: QB64: [Select]

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

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

[bplus]

About file access when OPEN a file FOR INPUT:

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

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

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

So here is the template or pattern of code to use when you OPEN a file FOR INPUT as #fileNum
AND want to read in whole lines that might have commas in them:

Code: QB64: [Select]

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

EOF(fileNum) is a flag that is 0 = False until the last line has been read, it is then set to TRUE = NOT False usually -1

[Kiara87]

@bplus thanks bplus everything is useful to learn
I am trying to finish my lotto program
I have to try to figure out how to put the draw date again

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

Code: QB64: [Select]

1. ' Programma lotto di kiara87
2. ' il programma legge i dati (numeri estratti da un file.dat)
3. ' e permette di vedere  le estrazioni a video
4. ' i numeri con distanza 30 sono evidenziati con colore rosso
5. ' questi numeri vengono memorizzati e stampati
6.  
7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
9.  
10. ' valori COSTANTI  generali Vero e Falso
11. CONST True = -1, False = NOT True
12. ' le 11 ruote del lotto
13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
16.  
17. DIM a AS STRING ' una stringa per leggere i dati dal file
18.  
19. ' salta al sottoprogramma LeggiFile delimitato
20. ' dalla Label LeggiFIle e dal RETURN
21. GOSUB LeggiFile
22.  
23. ' verifica che tutto il file sia letto
24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
25. '    PRINT MID$(a, b, 116)
26. '    '    PRINT INSTR(b, a, CHR$(13))
27. '    _DELAY .1
28. 'NEXT b
29.  
30.  
31.  
32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
34. b = 1
35. f = 1
36. z$ = " "
37. OPEN "distanza30.dat" FOR APPEND AS #2
38. DO
39.     IF z$ <> "" THEN
40.         CLS ' questo risolve un glitch di output sullo schermo
41.         ' in alternativa alla riga sopra CLS nel sottoblocco
42.         ' MostraEstratti va stampata la stringa estratto e
43.         ' non il suo valore corrispondente ottenuto con VAL
44.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
45.         GOSUB MostraEstratti
46.     END IF
47.     ' prende l'input dell'utente
48.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
49.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
50.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
51.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
52.     IF z$ = "-" AND f > 116 THEN f = f - 116
53.  
54. LOOP UNTIL z$ = "Q"
55. CLOSE #2
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. COLOR 15
91. LOCATE 1, 1
92. PRINT "BARI"
93. LOCATE 3, 1
94. PRINT "CAGLIARI"
95. LOCATE 5, 1
96. PRINT "FIRENZE"
97. LOCATE 7, 1
98. PRINT "GENOVA"
99. LOCATE 9, 1
100. PRINT "MILANO"
101. LOCATE 11, 1
102. PRINT "NAPOLI"
103. LOCATE 13, 1
104. PRINT "PALERMO"
105. LOCATE 15, 1
106. PRINT "ROMA"
107. LOCATE 17, 1
108. PRINT "TORINO"
109. LOCATE 19, 1
110. PRINT "VENEZIA"
111. LOCATE 21, 1
112. PRINT "NAZIONALE"
113. LOCATE 1, 50
114. PRINT "BARI"
115. LOCATE 3, 50
116. PRINT "CAGLIARI"
117. LOCATE 5, 50
118. PRINT "FIRENZE"
119. LOCATE 7, 50
120. PRINT "GENOVA"
121. LOCATE 9, 50
122. PRINT "MILANO"
123. LOCATE 11, 50
124. PRINT "NAPOLI"
125. LOCATE 13, 50
126. PRINT "PALERMO"
127. LOCATE 15, 50
128. PRINT "ROMA"
129. LOCATE 17, 50
130. PRINT "TORINO"
131. LOCATE 19, 50
132. PRINT "VENEZIA"
133. LOCATE 21, 50
134. PRINT "NAZIONALE"
135.  
136. '------------------------------------
137. LOCATE 23, 60
138. PRINT "+ avanti  - indietro"
139. LOCATE 23, 1
140. PRINT "su e' giu'"
141.  
142. ' indica il termine della SUBroutine MostraRuote
143. ' e RITORNA alla riga di codice successiva al salto GOSUB
144. RETURN
145.  
146. 'terzo sottoprogramma o SUBroutine
147. MostraEstratti:
148.  
149. ' le prime 4 cifre sembrano essere in numero della estrazione
150. LOCATE 1, 32
151. PRINT "estraz.num "; MID$(a, b, 4)
152. PRINT #2, "estraz.num "; MID$(a, b, 4)
153. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
154. y = 11 ' prima posizione per il carattere da stampare
155. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
156.     A1 = "" ' resetto a1 per il prossimo giro
157.     FOR V = Bari TO Nazionale ' per tutte le ruote
158.         COLOR 15, 0
159.         'posiziona il cursore
160.         LOCATE (V * 2) - 1, y
161.         ' scrive il numero estratto
162.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
163.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
164.     NEXT V
165.     GOSUB Mostra30
166.     y = POS(0)
167. NEXT x
168. ' indica il termine della SUBroutine MostraEstratti
169. ' e RITORNA alla riga di codice successiva al salto GOSUB
170. LOCATE 23, 32
171. PRINT "estraz.num "; MID$(a, f, 4)
172. PRINT #2, "estraz.num "; MID$(a, f, 4)
173.  
174. y = 58 ' prima posizione per il carattere da stampare
175. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
176.     A1 = "" ' resetto a1 per il prossimo giro
177.     FOR V = Bari TO Nazionale ' per tutte le ruote
178.         COLOR 15, 0
179.         'posiziona il cursore
180.         LOCATE (V * 2) - 1, y
181.         ' scrive il numero estratto
182.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
183.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
184.     NEXT V
185.     GOSUB MostraCondizione
186.     y = POS(0)
187. NEXT x
188. ' indica il termine della SUBroutine MostraEstratti
189. ' e RITORNA alla riga di codice successiva al salto GOSUB
190. RETURN
191.  
192.  
193.  
194.  
195. Mostra30:
196. DIM v1 AS INTEGER, v2 AS INTEGER
197. FOR v1 = Bari TO Venezia ' per tutte le ruote
198.     FOR v2 = v1 + 1 TO Nazionale
199.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
200.             COLOR 10, 0
201.             'posiziona                                                                      il cursore
202.             LOCATE (v1 * 2) - 1, y
203.             ' scrive il numero estratto
204.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
205.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
206.             'posiziona                                                                      il cursore
207.             LOCATE (v2 * 2) - 1, y
208.             ' scrive il numero estratto
209.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
210.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
211.         END IF
212.     NEXT v2
213. NEXT v1
214. COLOR 15, 0
215. ' indica il termine della SUBroutine MostraEstratti
216. ' e RITORNA alla riga di codice successiva al salto GOSUB
217. RETURN
218.  
219. MostraCondizione:
220. DIM v3 AS INTEGER, v4 AS INTEGER
221. FOR v3 = Bari TO Venezia ' per tutte le ruote
222.     FOR v4 = v3 + 1 TO Nazionale
223.         IF ABS(VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)) - VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))) = 30 THEN
224.             COLOR 4, 0
225.             'posiziona                                                                      il cursore
226.             LOCATE (v3 * 2) - 1, y
227.             ' scrive il numero estratto
228.             PRINT VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
229.             PRINT #2, (MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
230.             'posiziona                                                                      il cursore
231.             LOCATE (v4 * 2) - 1, y
232.             ' scrive il numero estratto
233.             PRINT VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
234.             PRINT #2, MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)
235.         END IF
236.     NEXT v4
237. NEXT v3
238. COLOR 15, 0
239. ' indica il termine della SUBroutine MostraEstratti
240. ' e RITORNA alla riga di codice successiva al salto GOSUB
241. RETURN
242.  
243.  
244.  
245.  
246.  
247.  

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

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

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

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

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

thank you all

[bplus]

I have to try to figure out how to put the draw date again

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

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

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

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

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

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

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

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

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

I know, BOTH! ;-))

[bplus]

Assuming date is first 4 digits of each line in data file:

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

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

lineNum is same as row number in the data file.

Name Conflict with DATE$ sorry forgot:

Code: QB64: [Select]

1. FUNCTION LottoDate$ (lineNum)
2.     Lottodate$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
3. END FUNCTION
4.  
5.  
6.  

[bplus]

Test function, load it at bottom of code and top section of code looks like this:

Code: QB64: [Select]

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

[Kiara87]

Assuming date is first 4 digits of each line in data file:

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

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

lineNum is same as row number in the data file.

Name Conflict with DATE$ sorry forgot:

Code: QB64: [Select]

1. FUNCTION LottoDate$ (lineNum)
2.     Lottodate$ = MID$(a, 1 + (lineNum - 1) * 116, 4)  ' a = the SHARED data file string
3. END FUNCTION
4.  
5.  
6.  

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

so I found it easier to edit its code

put an example of what I walked between the two codes
source code @TempodiBasic mod kiara

Code: QB64: [Select]

1. ' Programma lotto di kiara87
2. ' il programma legge i dati (numeri estratti da un file.dat)
3. ' e permette di vedere  le estrazioni a video
4. ' i numeri con distanza 30 sono evidenziati con colore rosso
5. ' questi numeri vengono memorizzati e stampati
6.  
7. ' Nota 1: sono d'accordo con Bplus e' molto piu'
8. ' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
9.  
10. ' valori COSTANTI  generali Vero e Falso
11. CONST True = -1, False = NOT True
12. ' le 11 ruote del lotto
13. CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
14. CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
15. CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
16.  
17. DIM a AS STRING ' una stringa per leggere i dati dal file
18.  
19. ' salta al sottoprogramma LeggiFile delimitato
20. ' dalla Label LeggiFIle e dal RETURN
21. GOSUB LeggiFile
22.  
23. ' verifica che tutto il file sia letto
24. 'FOR b = 1 TO LEN(a) - 116 STEP 116
25. '    PRINT MID$(a, b, 116)
26. '    '    PRINT INSTR(b, a, CHR$(13))
27. '    _DELAY .1
28. 'NEXT b
29.  
30.  
31.  
32. ' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
33. ' rispetto a Etichetta: .... IF condizione GOTO Etichetta
34. b = 1
35. f = 1
36. z$ = " "
37. OPEN "distanza30.dat" FOR APPEND AS #2
38. DO
39.     IF z$ <> "" THEN
40.         CLS ' questo risolve un glitch di output sullo schermo
41.         ' in alternativa alla riga sopra CLS nel sottoblocco
42.         ' MostraEstratti va stampata la stringa estratto e
43.         ' non il suo valore corrispondente ottenuto con VAL
44.         GOSUB MostraRuote ' scrive il nome delle ruote del lotto
45.         GOSUB MostraEstratti
46.     END IF
47.     ' prende l'input dell'utente
48.     z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
49.     IF z$ = CHR$(0) + CHR$(72) AND b < (LEN(a) - 116) THEN b = b + 116
50.     IF z$ = CHR$(0) + CHR$(80) AND b > 116 THEN b = b - 116
51.     IF z$ = "+" AND f < (LEN(a) - 116) THEN f = f + 116
52.     IF z$ = "-" AND f > 116 THEN f = f - 116
53.  
54. LOOP UNTIL z$ = "Q"
55. CLOSE #2
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. COLOR 15
91. LOCATE 1, 1
92. PRINT "BARI"
93. LOCATE 3, 1
94. PRINT "CAGLIARI"
95. LOCATE 5, 1
96. PRINT "FIRENZE"
97. LOCATE 7, 1
98. PRINT "GENOVA"
99. LOCATE 9, 1
100. PRINT "MILANO"
101. LOCATE 11, 1
102. PRINT "NAPOLI"
103. LOCATE 13, 1
104. PRINT "PALERMO"
105. LOCATE 15, 1
106. PRINT "ROMA"
107. LOCATE 17, 1
108. PRINT "TORINO"
109. LOCATE 19, 1
110. PRINT "VENEZIA"
111. LOCATE 21, 1
112. PRINT "NAZIONALE"
113. LOCATE 1, 50
114. PRINT "BARI"
115. LOCATE 3, 50
116. PRINT "CAGLIARI"
117. LOCATE 5, 50
118. PRINT "FIRENZE"
119. LOCATE 7, 50
120. PRINT "GENOVA"
121. LOCATE 9, 50
122. PRINT "MILANO"
123. LOCATE 11, 50
124. PRINT "NAPOLI"
125. LOCATE 13, 50
126. PRINT "PALERMO"
127. LOCATE 15, 50
128. PRINT "ROMA"
129. LOCATE 17, 50
130. PRINT "TORINO"
131. LOCATE 19, 50
132. PRINT "VENEZIA"
133. LOCATE 21, 50
134. PRINT "NAZIONALE"
135.  
136. '------------------------------------
137. LOCATE 23, 60
138. PRINT "+ avanti  - indietro"
139. LOCATE 23, 1
140. PRINT CHR$(24); " avanti   "; CHR$(25); " indietro"
141.  
142. ' indica il termine della SUBroutine MostraRuote
143. ' e RITORNA alla riga di codice successiva al salto GOSUB
144. RETURN
145.  
146. 'terzo sottoprogramma o SUBroutine
147. MostraEstratti:
148.  
149. ' le prime 4 cifre sembrano essere in numero della estrazione
150. LOCATE 1, 32
151. PRINT "estraz.num "; MID$(a, b, 4)
152. PRINT #2, "estraz.num "; MID$(a, b, 4)
153. DIM x AS INTEGER, y AS INTEGER, V AS INTEGER, A1 AS STRING
154. y = 11 ' prima posizione per il carattere da stampare
155. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
156.     A1 = "" ' resetto a1 per il prossimo giro
157.     FOR V = Bari TO Nazionale ' per tutte le ruote
158.         COLOR 15, 0
159.         'posiziona il cursore
160.         LOCATE (V * 2) - 1, y
161.         ' scrive il numero estratto
162.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
163.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
164.     NEXT V
165.     GOSUB Mostra30
166.     y = POS(0)
167. NEXT x
168. ' indica il termine della SUBroutine MostraEstratti
169. ' e RITORNA alla riga di codice successiva al salto GOSUB
170. LOCATE 23, 32
171. PRINT "estraz.num "; MID$(a, f, 4)
172. PRINT #2, "estraz.num "; MID$(a, f, 4)
173.  
174. y = 58 ' prima posizione per il carattere da stampare
175. FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR e' di 5 perche' ogni ruota ha 5 estrazioni
176.     A1 = "" ' resetto a1 per il prossimo giro
177.     FOR V = Bari TO Nazionale ' per tutte le ruote
178.         COLOR 15, 0
179.         'posiziona il cursore
180.         LOCATE (V * 2) - 1, y
181.         ' scrive il numero estratto
182.         PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
183.         A1 = A1 + (MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
184.     NEXT V
185.     GOSUB MostraCondizione
186.     y = POS(0)
187. NEXT x
188. ' indica il termine della SUBroutine MostraEstratti
189. ' e RITORNA alla riga di codice successiva al salto GOSUB
190. RETURN
191.  
192.  
193.  
194.  
195. Mostra30:
196. DIM v1 AS INTEGER, v2 AS INTEGER
197. FOR v1 = Bari TO Venezia ' per tutte le ruote
198.     FOR v2 = v1 + 1 TO Nazionale
199.         IF ABS(VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)) - VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))) = 30 THEN
200.             COLOR 10, 0
201.             'posiziona                                                                      il cursore
202.             LOCATE (v1 * 2) - 1, y
203.             ' scrive il numero estratto
204.             PRINT VAL(MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
205.             PRINT #2, (MID$(a, (v1 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra))
206.             'posiziona                                                                      il cursore
207.             LOCATE (v2 * 2) - 1, y
208.             ' scrive il numero estratto
209.             PRINT VAL(MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)); "";
210.             PRINT #2, MID$(a, (v2 - 1) * 10 + 5 + ((x - 1) * 2) + (b - 1), Cifra)
211.         END IF
212.     NEXT v2
213. NEXT v1
214. COLOR 15, 0
215. ' indica il termine della SUBroutine MostraEstratti
216. ' e RITORNA alla riga di codice successiva al salto GOSUB
217. RETURN
218.  
219. MostraCondizione:
220. DIM v3 AS INTEGER, v4 AS INTEGER
221. FOR v3 = Bari TO Venezia ' per tutte le ruote
222.     FOR v4 = v3 + 1 TO Nazionale
223.         IF ABS(VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)) - VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))) = 30 THEN
224.             COLOR 4, 0
225.             'posiziona                                                                      il cursore
226.             LOCATE (v3 * 2) - 1, y
227.             ' scrive il numero estratto
228.             PRINT VAL(MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
229.             PRINT #2, (MID$(a, (v3 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra))
230.             'posiziona                                                                      il cursore
231.             LOCATE (v4 * 2) - 1, y
232.             ' scrive il numero estratto
233.             PRINT VAL(MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)); "";
234.             PRINT #2, MID$(a, (v4 - 1) * 10 + 5 + ((x - 1) * 2) + (f - 1), Cifra)
235.         END IF
236.     NEXT v4
237. NEXT v3
238. COLOR 15, 0
239. ' indica il termine della SUBroutine MostraEstratti
240. ' e RITORNA alla riga di codice successiva al salto GOSUB
241. RETURN
242.  
243.  
244.  
245.  
246.  
247.  

source code @bplus  mod 2 kiara

Code: QB64: [Select]

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

maybe this is what I edit in the beginning

Code: QB64: [Select]

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

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

I want to learn programming well

[bplus]

Here is start of problems in Kiara mod of b+ code:

Code: QB64: [Select]

1.     'get new data line
2.     a = fileDAT(lineNum)
3.  
4.     a = fileDAT(lineNum2)  ' <<<  use a2 for a separate line of data for the right hand set
5.  

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

[bplus]

Here is b+ mod of Kiara mod of b+, two independent screen or page views of lotto data AND a mouse click up or down to shift the data day for each page:

Code: QB64: [Select]

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

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

EDIT: replaced hack _DELAY .25 with Steve McNeill oldmouse trick for getting just one click response.

[Kiara87]

the date must be as in the image  --> https://imgur.com/JU9nILf

the draws are 3 times a week

the days are Tuesday Thursday and Saturday
estr. 1465 = Tuesday 6 June 2017
estr. 1466 = Thursday 8 June 2017
estr. 1467 = Saturday 10 June 2017

[bplus]

That date conversion thing is a thinker! I have to consult my calendar functions, this is like work ;(

[Kiara87]

That date conversion thing is a thinker! I have to consult my calendar functions, this is like work ;(

if you want help you can also ask

😅 :D

[bplus]

OK does anybody have a function to convert a lotto number to a day and date?

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

🤷‍♂️