help my

[bplus]

@bplus
great job to modularize the code!

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

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

Thanks @TempodiBasic  But the translations to Italian not so good? They were brought to you by Bing BTW.

[Kiara87]

Thank you so much bplus

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

i'm studying your code so i learn something 

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

Code: QB64: [Select]

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

Code: QB64: [Select]

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

test

Code: QB64: [Select]

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

[bplus]

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

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

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

It is Locate Row, Col  so maybe Col plus the amount you want to shift right say 20 characters
Set a variable called shiftRight = 20 will move text over 20 characters

Code: QB64: [Select]

1. FOR col = 1 TO 5 'for each of the columes of data
2.     FOR row = 1 TO 10 'for each of the rows of dat
3.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
4.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
5.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, row)));  '>>>>>the VAL you added defeats the DD$ format
6.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, rowPlus)));'>>>>>the VAL you added defeats the DD$ format
7.             END IF
8.         NEXT
9.     NEXT
10. NEXT
11.  
12.  

Remember to do it in the other print section also.

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

Code: QB64: [Select]

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

[Kiara87]

many thanks now i try to finish the program thanks you helped me a lot

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

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

It is Locate Row, Col  so maybe Col plus the amount you want to shift right say 20 characters
Set a variable called shiftRight = 20 will move text over 20 characters

Code: QB64: [Select]

1. FOR col = 1 TO 5 'for each of the columes of data
2.     FOR row = 1 TO 10 'for each of the rows of dat
3.         FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
4.             IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
5.                 LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, row)));  '>>>>>the VAL you added defeats the DD$ format
6.                 LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT VAL(DD$(lineDAT(col, rowPlus)));'>>>>>the VAL you added defeats the DD$ format
7.             END IF
8.         NEXT
9.     NEXT
10. NEXT
11.  
12.  

Remember to do it in the other print section also.

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

Code: QB64: [Select]

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

[bplus]

@Kiara87

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

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

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

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

Alternate pad with spaces, assuming positive numbers for number 0 <= number < 100

Code: QB64: [Select]

1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
2.     IF number = 0 THEN DD$ = " 0" ELSE DD$ = RIGHT$("  " + _TRIM$(STR$(number)), 2)
3. END FUNCTION

I better test that...

Update: OK this works fine too:

Code: QB64: [Select]

1. FUNCTION DD$ (number) 'convert a number into a 2 digit string$
2.     DD$ = RIGHT$("  " + _TRIM$(STR$(number)), 2)
3. END FUNCTION

[TempodiBasic]

example of program planning   [ You are not allowed to view this attachment ]  

[TempodiBasic]

@Kiara87
Ciao
ecco una versione del programma seguendo le vaghe indicazioni che hai fornito in questo thread.

1. è una versione che usa una sola stringa per caricare il file in memoria e poi analizzarlo.
2. esegue l'operazione sul file che hai fornito quindi cambiando file (lunghezza o tipo di dati registrati dentro) va adattato
3. ho seguito le impostazioni di Bplus usando i GOSUB più facili da comprendere e usare rispetto alle SUB e alle FUNCTION
ecco il codice sorgente in QB64

Code: QB64: [Select]

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

@bplus
I have written this code to give an impulse to kiara87 to come nearer to programming world. The only goal has been to give a simple code with more comments into her native language because it seems that kiara87 has not so skills for english at this moment and she is newborn to programming world.

[bplus]

@TempodiBasic

Well I hope your Italian is better than my English ;-))

[TempodiBasic]

@bplus
Also I hope so! :-))

[TempodiBasic]

@Kiara87
Salve, benvenuta nella community di QB64!

Usando il tuo lotto.dat io ho questo output allo schermo
  [ You are not allowed to view this attachment ]  

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

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

Good Luck!


@bplus
Yes man, your look is more insightful than mine! :-))

[Kiara87]

@TempodiBasic  and bplus
siete bravissimi tutti e due

you are both very good


ps:  vi invidio


I envy you


non so se google traduttore traduce bene questa parola in inglese

[bplus]

Hi @Kiara87

Still practicing with lottery example? Have you tried arrays on anything else?

[Kiara87]

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

I won't give up

[bplus]

It is step by step logic. I play Sudoku allot to practice step by step logic frame of mind.

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

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

I won't give up

Yes but do give up on the way that isn't working ;-))

[Kiara87]

with this game you learn to program  --> https://www.sudoku-it.com/

other people have also told me with  --> Torre de Hanoi 
source 

&t=1447s

these two games teach programming

yes or no?