help my

[Kiara87]

about the two statements to change the number value in the string
from these types of errors

1  https://imgur.com/0m667QA

2  https://imgur.com/GGBHMsd

my intention is this that you see in the image  --> https://imgur.com/eTR37ei

which finds a distance number 30 and then add it up

and print it

I wanted to do this I'm going crazy

I thank you for helping me six friendly


when he finds the distance 30 he colors the numbers in red the numbers must be vertical

[bplus]

First red line:

Code: QB64: [Select]

1. PRINT VAL("123ABC") 'will output 123 as number type
2.  
3. PRINT VAL("123ABC") + VAL(".563") 'should be output 123.563 but who knows what
4.  

[bplus]

After first red line, I think you will find answer in this example:

Code: QB64: [Select]

1. SCREEN 12
2.  
3. a$ = "12345678901234567890"
4. FOR i = 3 TO 20 STEP 2
5.     'ABS() 'makes all positive
6.     IF ABS(VAL(MID$(a$, 1, 2)) - VAL(MID$(a$, i, 2))) > 30 THEN COLOR 12 ELSE COLOR 15
7.     PRINT MID$(a$, 1, 2); "+"; MID$(a$, i, 2); "   SUM:"; VAL(MID$(a$, 1, 2)) + VAL(MID$(a$, i, 2))
8. NEXT
9.  

[Kiara87]

I didn't mean to print 123

I wanted to look for a distance of two numbers with distance 30 and color them as in the photo

maybe you need to do it with arrays to do this?

thanks bplus

[bplus]

Check post above your last :)

To measure distance use ABS() because distance is not a negative number 10 - 40 = -30 but distance between 10 and 40 is 30 so ABS(10-40) = 30

[Kiara87]

ok I'm testing thanks bplus

[Kiara87]

https://imgur.com/l4J5Qmt

I'm running but I can't understand why the two numbers with distance 30 don't color me red

attached image

anyone to the solution?

[bplus]

Hi @Kiara87

The a$ I used in the example for coloring represented the variable "a" you are pulling from the file = 1 row of numbers.

I didn't have a file line so I made one up to show as example.

For you, after you get "a" from the file, you will have a string of numbers that you are accessing with MID$(a, position, lengthOf2) just as you use these MID$ strings to show numbers, you use them to do calculations with VAL() to transform them into numbers to add subtract and use ABS() function.

To calculate the difference in one part of "a" with another part of "a" you have position = p for first number and position + some number for the other section of "a"   or position of first number and position of second number in "a".


You will have to do that for each and every number you want to compare and color red before you print each and every number.


To post code at this forum select all the code in QB64 IDE (editor) Copy it then here at forum Reply press the button with the QB64 icon in this forum editor you will get [ code = qb64 ][ / code ] without spaces in edit window of forum.
paste your code between the two brackets  ][  in the middle of the code tag.

st [ code = qb64 ] is before the start of your code and [ / code ] is after the end of your code. You can just type it in that way only without spaces inside the brackets.

Then maybe I can write in comments on your code for easier understanding. :)

[Kiara87]

I'm still trying
where I am wrong

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
4.  
5. 'count lines in file
6. OPEN "lotto.dat" FOR INPUT AS #1
7. WHILE NOT EOF(1)
8.     INPUT #1, a
9.     'PRINT a
10.     'INPUT " OK enter "; w$
11.     IF LEN(_TRIM$(a)) THEN count = count + 1
12. WEND
13. CLOSE #1
14. 'CLS: PRINT count '480 lines
15. 'END
16. 'CLS
17.  
18. LOCATE 1, 1
19. PRINT "BARI"
20. LOCATE 3, 1
21. PRINT "CAGLIARI"
22. LOCATE 5, 1
23. PRINT "FIRENZE"
24. LOCATE 7, 1
25. PRINT "GENOVA"
26. LOCATE 9, 1
27. PRINT "MILANO"
28. LOCATE 11, 1
29. PRINT "NAPOLI"
30. LOCATE 13, 1
31. PRINT "PALERMO"
32. LOCATE 15, 1
33. PRINT "ROMA"
34. LOCATE 17, 1
35. PRINT "TORINO"
36. LOCATE 19, 1
37. PRINT "VENEZIA"
38. LOCATE 21, 1
39. PRINT "NAZIONALE"
40.  
41. LOCATE 23, 1
42. PRINT " + to move on"
43. LOCATE 23, 16
44. PRINT "- to back"
45.  
46.  
47.  
48. lineNum = 1
49. GOSUB get_a
50.  
51.  
52. DO
53.     a$ = "12345678901234567890"
54.     Q$ = INKEY$
55.     IF Q$ = "+" THEN lineNum = lineNum + 1
56.     IF lineNum > count THEN lineNum = 1
57.  
58.     IF Q$ = "-" THEN lineNum = lineNum - 1
59.     IF lineNum < 1 THEN lineNum = count
60.  
61.     IF ABS(VAL(MID$(a$, 15, 2)) - VAL(MID$(a$, 45, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
62.  
63.     GOSUB get_a
64.  
65.  
66.     LOCATE 1, 34
67.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
68.  
69.     REM bari
70.     LOCATE 1, 13
71.     PRINT VAL(MID$(a, 5, 2))
72.     LOCATE 1, 16
73.     PRINT VAL(MID$(a, 7, 2))
74.     LOCATE 1, 19
75.     PRINT VAL(MID$(a, 9, 2))
76.     LOCATE 1, 22
77.     PRINT VAL(MID$(a, 11, 2))
78.     LOCATE 1, 25
79.     PRINT VAL(MID$(a, 13, 2))
80.  
81.     REM cagliari
82.     LOCATE 3, 13
83.     PRINT VAL(MID$(a, 15, 2))
84.     LOCATE 3, 16
85.     PRINT VAL(MID$(a, 17, 2))
86.     LOCATE 3, 19
87.     PRINT VAL(MID$(a, 19, 2))
88.     LOCATE 3, 22
89.     PRINT VAL(MID$(a, 21, 2))
90.     LOCATE 3, 25
91.     PRINT VAL(MID$(a, 23, 2))
92.  
93.     REM firenze
94.     LOCATE 5, 13
95.     PRINT VAL(MID$(a, 25, 2))
96.     LOCATE 5, 16
97.     PRINT VAL(MID$(a, 27, 2))
98.     LOCATE 5, 19
99.     PRINT VAL(MID$(a, 29, 2))
100.     LOCATE 5, 22
101.     PRINT VAL(MID$(a, 31, 2))
102.     LOCATE 5, 25
103.     PRINT VAL(MID$(a, 33, 2))
104.  
105.     REM genova
106.     LOCATE 7, 13
107.     PRINT VAL(MID$(a, 35, 2))
108.     LOCATE 7, 16
109.     PRINT VAL(MID$(a, 37, 2))
110.     LOCATE 7, 19
111.     PRINT VAL(MID$(a, 39, 2))
112.     LOCATE 7, 22
113.     PRINT VAL(MID$(a, 41, 2))
114.     LOCATE 7, 25
115.     PRINT VAL(MID$(a, 43, 2))
116.  
117.     REM milano
118.     LOCATE 9, 13
119.     PRINT VAL(MID$(a, 45, 2))
120.     LOCATE 9, 16
121.     PRINT VAL(MID$(a, 47, 2))
122.     LOCATE 9, 19
123.     PRINT VAL(MID$(a, 49, 2))
124.     LOCATE 9, 22
125.     PRINT VAL(MID$(a, 51, 2))
126.     LOCATE 9, 25
127.     PRINT VAL(MID$(a, 53, 2))
128.  
129.     REM napoli
130.     LOCATE 11, 13
131.     PRINT VAL(MID$(a, 55, 2))
132.     LOCATE 11, 16
133.     PRINT VAL(MID$(a, 57, 2))
134.     LOCATE 11, 19
135.     PRINT VAL(MID$(a, 59, 2))
136.     LOCATE 11, 22
137.     PRINT VAL(MID$(a, 61, 2))
138.     LOCATE 11, 25
139.     PRINT VAL(MID$(a, 63, 2))
140.  
141.     REM palermo
142.     LOCATE 13, 13
143.     PRINT VAL(MID$(a, 65, 2))
144.     LOCATE 13, 16
145.     PRINT VAL(MID$(a, 67, 2))
146.     LOCATE 13, 19
147.     PRINT VAL(MID$(a, 69, 2))
148.     LOCATE 13, 22
149.     PRINT VAL(MID$(a, 71, 2))
150.     LOCATE 13, 25
151.     PRINT VAL(MID$(a, 73, 2))
152.  
153.     REM roma
154.     LOCATE 15, 13
155.     PRINT VAL(MID$(a, 75, 2))
156.     LOCATE 15, 16
157.     PRINT VAL(MID$(a, 77, 2))
158.     LOCATE 15, 19
159.     PRINT VAL(MID$(a, 79, 2))
160.     LOCATE 15, 22
161.     PRINT VAL(MID$(a, 81, 2))
162.     LOCATE 15, 25
163.     PRINT VAL(MID$(a, 83, 2))
164.  
165.     REM torino
166.     LOCATE 17, 13
167.     PRINT VAL(MID$(a, 85, 2))
168.     LOCATE 17, 16
169.     PRINT VAL(MID$(a, 87, 2))
170.     LOCATE 17, 19
171.     PRINT VAL(MID$(a, 89, 2))
172.     LOCATE 17, 22
173.     PRINT VAL(MID$(a, 91, 2))
174.     LOCATE 17, 25
175.     PRINT VAL(MID$(a, 93, 2))
176.  
177.     REM venezia
178.     LOCATE 19, 13
179.     PRINT VAL(MID$(a, 95, 2))
180.     LOCATE 19, 16
181.     PRINT VAL(MID$(a, 97, 2))
182.     LOCATE 19, 19
183.     PRINT VAL(MID$(a, 99, 2))
184.     LOCATE 19, 22
185.     PRINT VAL(MID$(a, 101, 2))
186.     LOCATE 19, 25
187.     PRINT VAL(MID$(a, 103, 2))
188.  
189.     REM nazionale
190.     LOCATE 21, 13
191.     PRINT VAL(MID$(a, 105, 2))
192.     LOCATE 21, 16
193.     PRINT VAL(MID$(a, 107, 2))
194.     LOCATE 21, 19
195.     PRINT VAL(MID$(a, 109, 2))
196.     LOCATE 21, 22
197.     PRINT VAL(MID$(a, 111, 2))
198.     LOCATE 21, 25
199.     PRINT VAL(MID$(a, 113, 2))
200.  
201.     _LIMIT 30
202. LOOP
203. END
204.  
205.  
206. 'this sub retrieves a line number from file  the hard way
207. get_a:
208. num = 0
209. OPEN "lotto.dat" FOR INPUT AS #1
210. WHILE NOT EOF(1)
211.     INPUT #1, a
212.     IF LEN(_TRIM$(a)) THEN num = num + 1
213.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
214. WEND
215. CLOSE #1
216.  
217. RETURN
218.  
219.  

[bplus]

Congratulations code has been posted successfully! :)

Take just one thing you are printing for an example:

Code: QB64: [Select]

1.     REM bari
2.     LOCATE 1, 13
3.     PRINT VAL(MID$(a, 5, 2))  '<<< the 5 in here id's the number.  
4. ' I need to know what id number you want to compare this number to decide if it is red.
5. ' If all the id's are a set amount from each other, do you want to compare
6. 'MID$(a, 5, 2) to MID$(a, 35, 2)  and all the other MID$(a, x, 2) to MID$(a, x+30, 2) ????
7.  

[Kiara87]

Code: QB64: [Select]

1. REM cagliari
2.     LOCATE 3, 13
3.     PRINT VAL(MID$(a, 15, 2))  'I wanted to compare the first of Cagliari with the first of Milano that year the distance 30, and the two with the distance 30 color them red and all other numbers that remain white
4. MID$(a, 45, 2)   TO MID$

    REM cagliari
    LOCATE 3, 13
    PRINT VAL(MID$(a, 15, 2))  'I wanted to compare the first of Cagliari with the first of Milano that year the distance 30, and the two with the distance 30 color them red and all other numbers that remain white
MID$(a, 45, 2)   TO MID$

[bplus]

OK I think I have idea what you want, here is Bari started for you, you will have to do the rest (if it is right).

Code: QB64: [Select]

1. OPTION _EXPLICIT 'for typo's   yep lineMun blah!
2.  
3. DIM a AS STRING, count AS INTEGER, lineNum AS INTEGER, Q$, num AS INTEGER
4.  
5. 'count lines in file
6. OPEN "lotto.dat" FOR INPUT AS #1
7. WHILE NOT EOF(1)
8.     INPUT #1, a
9.     'PRINT a
10.     'INPUT " OK enter "; w$
11.     IF LEN(_TRIM$(a)) THEN count = count + 1
12. WEND
13. CLOSE #1
14. 'CLS: PRINT count '480 lines
15. 'END
16. 'CLS
17.  
18. LOCATE 1, 1
19. PRINT "BARI"
20. LOCATE 3, 1
21. PRINT "CAGLIARI"
22. LOCATE 5, 1
23. PRINT "FIRENZE"
24. LOCATE 7, 1
25. PRINT "GENOVA"
26. LOCATE 9, 1
27. PRINT "MILANO"
28. LOCATE 11, 1
29. PRINT "NAPOLI"
30. LOCATE 13, 1
31. PRINT "PALERMO"
32. LOCATE 15, 1
33. PRINT "ROMA"
34. LOCATE 17, 1
35. PRINT "TORINO"
36. LOCATE 19, 1
37. PRINT "VENEZIA"
38. LOCATE 21, 1
39. PRINT "NAZIONALE"
40.  
41. LOCATE 23, 1
42. PRINT " + to move on"
43. LOCATE 23, 16
44. PRINT "- to back"
45.  
46.  
47.  
48. lineNum = 1
49. GOSUB get_a
50.  
51.  
52. DO
53.     a$ = "12345678901234567890"
54.     Q$ = INKEY$
55.     IF Q$ = "+" THEN lineNum = lineNum + 1
56.     IF lineNum > count THEN lineNum = 1
57.  
58.     IF Q$ = "-" THEN lineNum = lineNum - 1
59.     IF lineNum < 1 THEN lineNum = count
60.  
61.  
62.  
63.     GOSUB get_a
64.  
65.  
66.     LOCATE 1, 34
67.     PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
68.  
69.     REM bari
70.     LOCATE 1, 13
71.     IF ABS(VAL(MID$(a, 5, 2)) - VAL(MID$(a, 15, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
72.     PRINT VAL(MID$(a, 5, 2))
73.     LOCATE 1, 16
74.     IF ABS(VAL(MID$(a, 7, 2)) - VAL(MID$(a, 17, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
75.     PRINT VAL(MID$(a, 7, 2))
76.     LOCATE 1, 19
77.     IF ABS(VAL(MID$(a, 8, 2)) - VAL(MID$(a, 19, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
78.     PRINT VAL(MID$(a, 9, 2))
79.     LOCATE 1, 22
80.     IF ABS(VAL(MID$(a, 11, 2)) - VAL(MID$(a, 21, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
81.     PRINT VAL(MID$(a, 11, 2))
82.     LOCATE 1, 25
83.     IF ABS(VAL(MID$(a, 13, 2)) - VAL(MID$(a, 23, 2))) > 30 THEN COLOR 2 ELSE COLOR 15
84.     PRINT VAL(MID$(a, 13, 2))
85.  
86.     REM cagliari
87.     LOCATE 3, 13
88.     PRINT VAL(MID$(a, 15, 2))
89.     LOCATE 3, 16
90.     PRINT VAL(MID$(a, 17, 2))
91.     LOCATE 3, 19
92.     PRINT VAL(MID$(a, 19, 2))
93.     LOCATE 3, 22
94.     PRINT VAL(MID$(a, 21, 2))
95.     LOCATE 3, 25
96.     PRINT VAL(MID$(a, 23, 2))
97.  
98.     REM firenze
99.     LOCATE 5, 13
100.     PRINT VAL(MID$(a, 25, 2))
101.     LOCATE 5, 16
102.     PRINT VAL(MID$(a, 27, 2))
103.     LOCATE 5, 19
104.     PRINT VAL(MID$(a, 29, 2))
105.     LOCATE 5, 22
106.     PRINT VAL(MID$(a, 31, 2))
107.     LOCATE 5, 25
108.     PRINT VAL(MID$(a, 33, 2))
109.  
110.     REM genova
111.     LOCATE 7, 13
112.     PRINT VAL(MID$(a, 35, 2))
113.     LOCATE 7, 16
114.     PRINT VAL(MID$(a, 37, 2))
115.     LOCATE 7, 19
116.     PRINT VAL(MID$(a, 39, 2))
117.     LOCATE 7, 22
118.     PRINT VAL(MID$(a, 41, 2))
119.     LOCATE 7, 25
120.     PRINT VAL(MID$(a, 43, 2))
121.  
122.     REM milano
123.     LOCATE 9, 13
124.     PRINT VAL(MID$(a, 45, 2))
125.     LOCATE 9, 16
126.     PRINT VAL(MID$(a, 47, 2))
127.     LOCATE 9, 19
128.     PRINT VAL(MID$(a, 49, 2))
129.     LOCATE 9, 22
130.     PRINT VAL(MID$(a, 51, 2))
131.     LOCATE 9, 25
132.     PRINT VAL(MID$(a, 53, 2))
133.  
134.     REM napoli
135.     LOCATE 11, 13
136.     PRINT VAL(MID$(a, 55, 2))
137.     LOCATE 11, 16
138.     PRINT VAL(MID$(a, 57, 2))
139.     LOCATE 11, 19
140.     PRINT VAL(MID$(a, 59, 2))
141.     LOCATE 11, 22
142.     PRINT VAL(MID$(a, 61, 2))
143.     LOCATE 11, 25
144.     PRINT VAL(MID$(a, 63, 2))
145.  
146.     REM palermo
147.     LOCATE 13, 13
148.     PRINT VAL(MID$(a, 65, 2))
149.     LOCATE 13, 16
150.     PRINT VAL(MID$(a, 67, 2))
151.     LOCATE 13, 19
152.     PRINT VAL(MID$(a, 69, 2))
153.     LOCATE 13, 22
154.     PRINT VAL(MID$(a, 71, 2))
155.     LOCATE 13, 25
156.     PRINT VAL(MID$(a, 73, 2))
157.  
158.     REM roma
159.     LOCATE 15, 13
160.     PRINT VAL(MID$(a, 75, 2))
161.     LOCATE 15, 16
162.     PRINT VAL(MID$(a, 77, 2))
163.     LOCATE 15, 19
164.     PRINT VAL(MID$(a, 79, 2))
165.     LOCATE 15, 22
166.     PRINT VAL(MID$(a, 81, 2))
167.     LOCATE 15, 25
168.     PRINT VAL(MID$(a, 83, 2))
169.  
170.     REM torino
171.     LOCATE 17, 13
172.     PRINT VAL(MID$(a, 85, 2))
173.     LOCATE 17, 16
174.     PRINT VAL(MID$(a, 87, 2))
175.     LOCATE 17, 19
176.     PRINT VAL(MID$(a, 89, 2))
177.     LOCATE 17, 22
178.     PRINT VAL(MID$(a, 91, 2))
179.     LOCATE 17, 25
180.     PRINT VAL(MID$(a, 93, 2))
181.  
182.     REM venezia
183.     LOCATE 19, 13
184.     PRINT VAL(MID$(a, 95, 2))
185.     LOCATE 19, 16
186.     PRINT VAL(MID$(a, 97, 2))
187.     LOCATE 19, 19
188.     PRINT VAL(MID$(a, 99, 2))
189.     LOCATE 19, 22
190.     PRINT VAL(MID$(a, 101, 2))
191.     LOCATE 19, 25
192.     PRINT VAL(MID$(a, 103, 2))
193.  
194.     REM nazionale
195.     LOCATE 21, 13
196.     PRINT VAL(MID$(a, 105, 2))
197.     LOCATE 21, 16
198.     PRINT VAL(MID$(a, 107, 2))
199.     LOCATE 21, 19
200.     PRINT VAL(MID$(a, 109, 2))
201.     LOCATE 21, 22
202.     PRINT VAL(MID$(a, 111, 2))
203.     LOCATE 21, 25
204.     PRINT VAL(MID$(a, 113, 2))
205.  
206.     _LIMIT 30
207. LOOP
208. END
209.  
210.  
211. 'this sub retrieves a line number from file  the hard way
212. get_a:
213. num = 0
214. OPEN "lotto.dat" FOR INPUT AS #1
215. WHILE NOT EOF(1)
216.     INPUT #1, a
217.     IF LEN(_TRIM$(a)) THEN num = num + 1
218.     IF num = lineNum THEN EXIT WHILE 'a is set on line we want
219. WEND
220. CLOSE #1
221.  
222. RETURN
223.  

Wait do you want to compare ( row, col )  to  ( row + 1, col ) and if they are different by 30 or more make them red?

Rows are 10 places apart, I edited above to compare each row and column with the next row and same column I think. Only first line Bari colored right??

Gotta go feed people :)

[Kiara87]

they must be the same vertical column the same position one below the other

and the two numbers with distance 30 I have to color them red

Note every single number comes in 90

so if there is the number 60

in the column below I find the number 90

if instead I find the number 61

in the column below I find the number 1

[bplus]

Is first row Bari colored correctly?

[Kiara87]

no because it must be colored only if the distance 30 is in the same row in the same row
the numbers must all be white, must turn red if under 82 there is 52 or 22 because 82 and 52  distance 30

22 and 52 distance 30

and 22 and 82 distance 30 going beyond  90

only the numbers with distance 30 that are one below the other in the same row must change color


I know and a somewhat complicated program, however, helps to learn new things
Thanks for your patience bplus