Author Topic: help my (Read 19632 times)

bplus · « **Reply #60 on:** July 03, 2020, 05:17:30 pm »

Quote from: TempodiBasic on July 03, 2020, 05:09:30 pm

@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 · « **Reply #61 on:** July 03, 2020, 07:39:38 pm »

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]

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

Code: QB64: [Select]

loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
rowCnt = 1: y = 1
FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
    lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
    IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
NEXT
COLOR 10 'blue marker  seacrh through columes for  30's
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
    FOR row = 1 TO 10 'for each of the rows of dat
        FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
            IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
                LOCATE row * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, row)));
                LOCATE rowPlus * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, rowPlus)));
            END IF
        NEXT
    NEXT
NEXT
RETURN
 

test

Code: QB64: [Select]

OPTION _EXPLICIT 'for typo's   yep lineMun blah!
 
DEFINT A-Z ' everything is integer unless DIM or suffix
CONST nRows = 11 'rows of 5 data points in each line of fileDat
DIM a AS STRING, count, i, lineNum ' for file and array access
DIM Q$ '                             for INKEY$
DIM row, col, aPlace '               for screening Data from a string
DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
 
'count lines in file
OPEN "lotto.dat" FOR INPUT AS #1
WHILE NOT EOF(1)
    INPUT #1, a
    '          debug check inputs from file
    'PRINT a
    'INPUT " OK enter "; w$
    IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
WEND
CLOSE #1
 
'now we now size of file so ready an array to load file Data
DIM fileDAT(1 TO count) AS STRING
OPEN "lotto.dat" FOR INPUT AS #1
FOR i = 1 TO count
    INPUT #1, a
    IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
NEXT
CLOSE #1
 
' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
 
GOSUB labelScreen
 
'set first line and get a data string from the FileDAT array
lineNum = 1
a = fileDAT(lineNum)
DO
    Q$ = INKEY$
    IF Q$ = "+" THEN lineNum = lineNum + 1
    IF lineNum > count THEN lineNum = 1
    IF Q$ = "-" THEN lineNum = lineNum - 1
    IF lineNum < 1 THEN lineNum = count
 
    'get new data line
    a = fileDAT(lineNum)
 
    'print out the data from the new line
    CLS
    GOSUB labelScreen
    GOSUB screenDataLine
    GOSUB loadLineDAT_Mark30s
    _DISPLAY
    _LIMIT 30
LOOP
END
 
 
loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
rowCnt = 1: y = 1
FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
    lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
    IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
NEXT
COLOR 10 'blue marker  seacrh through columes for  30's
FOR col = 4 TO 8 'for each of the columes of data
    FOR row = 1 TO 10 'for each of the rows of dat
        FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
            IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
                LOCATE row * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, row)));
                LOCATE rowPlus * 2, col * 3 - 2: PRINT VAL(DD$(lineDAT(col, rowPlus)));
            END IF
        NEXT
    NEXT
NEXT
RETURN
 
 
screenDataLine:
COLOR 15
LOCATE 1, 34
PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
aPlace = 5
FOR row = 1 TO 11
    FOR col = 4 TO 8
        LOCATE row * 2, col * 3 - 2: PRINT VAL(MID$(a, aPlace, 2));
        aPlace = aPlace + 2
    NEXT
NEXT
 
'=========================== the above does this ==============================
'LOCATE 1, 34
'PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum)
 
'REM bari
'LOCATE 1, 13
'PRINT VAL(MID$(a, 5, 2))
'LOCATE 1, 16
'PRINT VAL(MID$(a, 7, 2))
'LOCATE 1, 19
'PRINT VAL(MID$(a, 9, 2))
'LOCATE 1, 22
'PRINT VAL(MID$(a, 11, 2))
'LOCATE 1, 25
'PRINT VAL(MID$(a, 13, 2))
 
'REM cagliari
'LOCATE 3, 13
'PRINT VAL(MID$(a, 15, 2))
'LOCATE 3, 16
'PRINT VAL(MID$(a, 17, 2))
'LOCATE 3, 19
'PRINT VAL(MID$(a, 19, 2))
'LOCATE 3, 22
'PRINT VAL(MID$(a, 21, 2))
'LOCATE 3, 25
'PRINT VAL(MID$(a, 23, 2))
 
'REM firenze
'LOCATE 5, 13
'PRINT VAL(MID$(a, 25, 2))
'LOCATE 5, 16
'PRINT VAL(MID$(a, 27, 2))
'LOCATE 5, 19
'PRINT VAL(MID$(a, 29, 2))
'LOCATE 5, 22
'PRINT VAL(MID$(a, 31, 2))
'LOCATE 5, 25
'PRINT VAL(MID$(a, 33, 2))
 
'REM genova
'LOCATE 7, 13
'PRINT VAL(MID$(a, 35, 2))
'LOCATE 7, 16
'PRINT VAL(MID$(a, 37, 2))
'LOCATE 7, 19
'PRINT VAL(MID$(a, 39, 2))
'LOCATE 7, 22
'PRINT VAL(MID$(a, 41, 2))
'LOCATE 7, 25
'PRINT VAL(MID$(a, 43, 2))
 
'REM milano
'LOCATE 9, 13
'PRINT VAL(MID$(a, 45, 2))
'LOCATE 9, 16
'PRINT VAL(MID$(a, 47, 2))
'LOCATE 9, 19
'PRINT VAL(MID$(a, 49, 2))
'LOCATE 9, 22
'PRINT VAL(MID$(a, 51, 2))
'LOCATE 9, 25
'PRINT VAL(MID$(a, 53, 2))
 
'REM napoli
'LOCATE 11, 13
'PRINT VAL(MID$(a, 55, 2))
'LOCATE 11, 16
'PRINT VAL(MID$(a, 57, 2))
'LOCATE 11, 19
'PRINT VAL(MID$(a, 59, 2))
'LOCATE 11, 22
'PRINT VAL(MID$(a, 61, 2))
'LOCATE 11, 25
'PRINT VAL(MID$(a, 63, 2))
 
'REM palermo
'LOCATE 13, 13
'PRINT VAL(MID$(a, 65, 2))
'LOCATE 13, 16
'PRINT VAL(MID$(a, 67, 2))
'LOCATE 13, 19
'PRINT VAL(MID$(a, 69, 2))
'LOCATE 13, 22
'PRINT VAL(MID$(a, 71, 2))
'LOCATE 13, 25
'PRINT VAL(MID$(a, 73, 2))
 
'REM roma
'LOCATE 15, 13
'PRINT VAL(MID$(a, 75, 2))
'LOCATE 15, 16
'PRINT VAL(MID$(a, 77, 2))
'LOCATE 15, 19
'PRINT VAL(MID$(a, 79, 2))
'LOCATE 15, 22
'PRINT VAL(MID$(a, 81, 2))
'LOCATE 15, 25
'PRINT VAL(MID$(a, 83, 2))
 
'REM torino
'LOCATE 17, 13
'PRINT VAL(MID$(a, 85, 2))
'LOCATE 17, 16
'PRINT VAL(MID$(a, 87, 2))
'LOCATE 17, 19
'PRINT VAL(MID$(a, 89, 2))
'LOCATE 17, 22
'PRINT VAL(MID$(a, 91, 2))
'LOCATE 17, 25
'PRINT VAL(MID$(a, 93, 2))
 
'REM venezia
'LOCATE 19, 13
'PRINT VAL(MID$(a, 95, 2))
'LOCATE 19, 16
'PRINT VAL(MID$(a, 97, 2))
'LOCATE 19, 19
'PRINT VAL(MID$(a, 99, 2))
'LOCATE 19, 22
'PRINT VAL(MID$(a, 101, 2))
'LOCATE 19, 25
'PRINT VAL(MID$(a, 103, 2))
 
'REM nazionale
'LOCATE 21, 13
'PRINT VAL(MID$(a, 105, 2))
'LOCATE 21, 16
'PRINT VAL(MID$(a, 107, 2))
'LOCATE 21, 19
'PRINT VAL(MID$(a, 109, 2))
'LOCATE 21, 22
'PRINT VAL(MID$(a, 111, 2))
'LOCATE 21, 25
'PRINT VAL(MID$(a, 113, 2))
'========================================================================
RETURN
 
labelScreen:
COLOR 15
' setup screen labels for reporting data
LOCATE 2, 1
PRINT "BARI"
LOCATE 4, 1
PRINT "CAGLIARI"
LOCATE 6, 1
PRINT "FIRENZE"
LOCATE 8, 1
PRINT "GENOVA"
LOCATE 10, 1
PRINT "MILANO"
LOCATE 12, 1
PRINT "NAPOLI"
LOCATE 14, 1
PRINT "PALERMO"
LOCATE 16, 1
PRINT "ROMA"
LOCATE 18, 1
PRINT "TORINO"
LOCATE 20, 1
PRINT "VENEZIA"
LOCATE 22, 1
PRINT "NAZIONALE"
'some directions
LOCATE 24, 1
PRINT " + to move on";
LOCATE 24, 16
PRINT "- to back";
RETURN
 
FUNCTION DD$ (number) 'convert a number into a 2 digit string$
    DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
END FUNCTION
 
FUNCTION diff30in90 (a, b) 'default integers a-z
    DIM hi, lo
    IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
    IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
    IF hi - lo = 30 THEN
        diff30in90 = -1
    ELSE
        IF ABS(hi - lo) = 60 THEN diff30in90 = -1
    END IF
END FUNCTION
 
 
 

bplus · « **Reply #62 on:** July 03, 2020, 07:57:27 pm »

Quote

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]

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

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]

 OPTION _EXPLICIT 'for typo's   yep lineMun blah!
 
DEFINT A-Z ' everything is integer unless DIM or suffix
CONST nRows = 11 'rows of 5 data points in each line of fileDat
DIM a AS STRING, count, i, lineNum ' for file and array access
DIM Q$ '                             for INKEY$
DIM row, col, aPlace '               for screening Data from a string
DIM rowCnt, x, y, d, rowPlus '       for loading lineDAT() from a file string
DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an  array to load from each line from DAT
DIM shiftRight
shiftRight = 20
 
'count lines in file
OPEN "lotto.dat" FOR INPUT AS #1
WHILE NOT EOF(1)
    INPUT #1, a
    '          debug check inputs from file
    'PRINT a
    'INPUT " OK enter "; w$
    IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
WEND
CLOSE #1
 
'now we now size of file so ready an array to load file Data
DIM fileDAT(1 TO count) AS STRING
OPEN "lotto.dat" FOR INPUT AS #1
FOR i = 1 TO count
    INPUT #1, a
    IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
NEXT
CLOSE #1
 
' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data
 
GOSUB labelScreen
 
'set first line and get a data string from the FileDAT array
lineNum = 1
a = fileDAT(lineNum)
DO
    Q$ = INKEY$
    IF Q$ = "+" THEN lineNum = lineNum + 1
    IF lineNum > count THEN lineNum = 1
    IF Q$ = "-" THEN lineNum = lineNum - 1
    IF lineNum < 1 THEN lineNum = count
 
    'get new data line
    a = fileDAT(lineNum)
 
    'print out the data from the new line
    CLS
    GOSUB labelScreen
    GOSUB screenDataLine
    GOSUB loadLineDAT_Mark30s
    _DISPLAY
    _LIMIT 30
LOOP
END
 
 
loadLineDAT_Mark30s: 'this  loads the lineDAT array, so we can sweep through the columes and mark 30's
rowCnt = 1: y = 1
FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
    lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
    rowCnt = rowCnt + 1 ' increase column if at 6 start new row
    IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
NEXT
COLOR 9 'blue marker  seacrh through columes for  30's
FOR col = 1 TO 5 'for each of the columes of data
    FOR row = 1 TO 10 'for each of the rows of dat
        FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
            IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
                LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
                LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
            END IF
        NEXT
    NEXT
NEXT
RETURN
 
 
screenDataLine:
COLOR 15
LOCATE 1, 34
PRINT "estraz.num "; LEFT$(a, 4); "   lineNum:"; STR$(lineNum);
aPlace = 5
FOR row = 1 TO 11
    FOR col = 1 TO 5
        LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
        aPlace = aPlace + 2
    NEXT
NEXT
RETURN
 
labelScreen:
COLOR 15
' setup screen labels for reporting data
LOCATE 1, 1
PRINT "BARI"
LOCATE 3, 1
PRINT "CAGLIARI"
LOCATE 5, 1
PRINT "FIRENZE"
LOCATE 7, 1
PRINT "GENOVA"
LOCATE 9, 1
PRINT "MILANO"
LOCATE 11, 1
PRINT "NAPOLI"
LOCATE 13, 1
PRINT "PALERMO"
LOCATE 15, 1
PRINT "ROMA"
LOCATE 17, 1
PRINT "TORINO"
LOCATE 19, 1
PRINT "VENEZIA"
LOCATE 21, 1
PRINT "NAZIONALE"
'some directions
LOCATE 24, 1
PRINT " + to move on";
LOCATE 24, 16
PRINT "- to back";
RETURN
 
FUNCTION DD$ (number) 'convert a number into a 2 digit string$
    DD$ = RIGHT$("00" + _TRIM$(STR$(number)), 2)
END FUNCTION
 
FUNCTION diff30in90 (a, b) 'default integers a-z
    DIM hi, lo
    IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
    IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
    IF hi - lo = 30 THEN
        diff30in90 = -1
    ELSE
        IF ABS(hi - lo) = 60 THEN diff30in90 = -1
    END IF
END FUNCTION
 
 
 

Kiara87 · « **Reply #63 on:** July 04, 2020, 09:35:16 am »

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

Quote from: bplus on July 03, 2020, 07:57:27 pm

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

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]
OPTION _EXPLICIT 'for typo's yep lineMun blah!

DEFINT A-Z ' everything is integer unless DIM or suffix
CONST nRows = 11 'rows of 5 data points in each line of fileDat
DIM a AS STRING, count, i, lineNum ' for file and array access
DIM Q$ ' for INKEY$
DIM row, col, aPlace ' for screening Data from a string
DIM rowCnt, x, y, d, rowPlus ' for loading lineDAT() from a file string
DIM lineDAT(1 TO 5, 1 TO nRows) AS INTEGER 'an array to load from each line from DAT
DIM shiftRight
shiftRight = 20

'count lines in file
OPEN "lotto.dat" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, a
' debug check inputs from file
'PRINT a
'INPUT " OK enter "; w$
IF LEN(_TRIM$(a)) THEN count = count + 1 'don't want empty lines _TRIM$ removes spaces or other nonsense
WEND
CLOSE #1

'now we now size of file so ready an array to load file Data
DIM fileDAT(1 TO count) AS STRING
OPEN "lotto.dat" FOR INPUT AS #1
FOR i = 1 TO count
INPUT #1, a
IF LEN(_TRIM$(a)) THEN fileDAT(i) = a 'don't want empty lines _TRIM$ removes spaces or other nonsense
NEXT
CLOSE #1

' NOW all the data if loaded into fileDAT() array, 480 strings of Lottory data

GOSUB labelScreen

'set first line and get a data string from the FileDAT array
lineNum = 1
a = fileDAT(lineNum)
DO
Q$ = INKEY$
IF Q$ = "+" THEN lineNum = lineNum + 1
IF lineNum > count THEN lineNum = 1
IF Q$ = "-" THEN lineNum = lineNum - 1
IF lineNum < 1 THEN lineNum = count

'get new data line
a = fileDAT(lineNum)

'print out the data from the new line
CLS
GOSUB labelScreen
GOSUB screenDataLine
GOSUB loadLineDAT_Mark30s
_DISPLAY
_LIMIT 30
LOOP
END

loadLineDAT_Mark30s: 'this loads the lineDAT array, so we can sweep through the columes and mark 30's
rowCnt = 1: y = 1
FOR i = 5 TO LEN(a) STEP 2 ' is marking off the start of each data 2 digit integer
lineDAT(rowCnt, y) = VAL(MID$(a, i, 2)) 'convert data item to integer
rowCnt = rowCnt + 1 ' increase column if at 6 start new row
IF rowCnt = 6 THEN y = y + 1: rowCnt = 1
NEXT
COLOR 9 'blue marker seacrh through columes for 30's
FOR col = 1 TO 5 'for each of the columes of data
FOR row = 1 TO 10 'for each of the rows of dat
FOR rowPlus = row + 1 TO 11 'compare the next rows for diff 30 with current col, row
IF diff30in90(lineDAT(col, row), lineDAT(col, rowPlus)) THEN
LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, row));
LOCATE rowPlus * 2, col * 3 - 2 + shiftRight: PRINT DD$(lineDAT(col, rowPlus));
END IF
NEXT
NEXT
NEXT
RETURN

screenDataLine:
COLOR 15
LOCATE 1, 34
PRINT "estraz.num "; LEFT$(a, 4); " lineNum:"; STR$(lineNum);
aPlace = 5
FOR row = 1 TO 11
FOR col = 1 TO 5
LOCATE row * 2, col * 3 - 2 + shiftRight: PRINT MID$(a, aPlace, 2);
aPlace = aPlace + 2
NEXT
NEXT
RETURN

labelScreen:
COLOR 15
' setup screen labels for reporting data
LOCATE 1, 1
PRINT "BARI"
LOCATE 3, 1
PRINT "CAGLIARI"
LOCATE 5, 1
PRINT "FIRENZE"
LOCATE 7, 1
PRINT "GENOVA"
LOCATE 9, 1
PRINT "MILANO"
LOCATE 11, 1
PRINT "NAPOLI"
LOCATE 13, 1
PRINT "PALERMO"
LOCATE 15, 1
PRINT "ROMA"
LOCATE 17, 1
PRINT "TORINO"
LOCATE 19, 1
PRINT "VENEZIA"
LOCATE 21, 1
PRINT "NAZIONALE"
'some directions
LOCATE 24, 1
PRINT " + to move on";
LOCATE 24, 16
PRINT "- to back";
RETURN

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

FUNCTION diff30in90 (a, b) 'default integers a-z
DIM hi, lo
IF a > 90 OR b > 90 OR a < 1 OR b < 1 OR a = b THEN EXIT FUNCTION 'no diff return 0
IF a > b THEN hi = a: lo = b ELSE hi = b: lo = a
IF hi - lo = 30 THEN
diff30in90 = -1
ELSE
IF ABS(hi - lo) = 60 THEN diff30in90 = -1
END IF
END FUNCTION

bplus · « **Reply #64 on:** July 04, 2020, 12:28:41 pm »

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

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

I better test that...

Update: OK this works fine too:

Code: QB64: [Select]

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

TempodiBasic · « **Reply #65 on:** July 04, 2020, 08:06:36 pm »

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

TempodiBasic · « **Reply #66 on:** July 05, 2020, 09:37:59 pm »

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

' Programma lotto di kiara87
' il programma legge i dati (numeri estratti da un file.dat)
' e permette di vedere  le estrazioni a video
' i numeri con distanza 30 sono evidenziati con colore reosso
' questi numeri vengono memorizzati e stampati
 
' Nota 1: sono d'accordo con Bplus e' molto piu'
' rapido lavorare con dati in RAM che con dati su Disco HDD/SSD/USB/CD/DVD
 
' valori COSTANTI  generali Vero e Falso
CONST True = -1, False = NOT True
' le 11 ruote del lotto
CONST Bari = 1, Cagliari = 2, Firenze = 3, Genova = 4, Milano = 5
CONST Napoli = 6, Palermo = 7, Roma = 8, Torino = 9, Venezia = 10, Nazionale = 11
CONST Cifra = 2 ' ogni numero estratto e' una cifra di due caratteri (01-90)
 
DIM a AS STRING ' una stringa per leggere i dati dal file
 
' salta al sottoprogramma LeggiFile delimitato
'dalla Label LeggiFIle e dal RETURN
GOSUB LeggiFile
 
' il ciclo DO...LOOP UNTIL condizione e' un modo piu' moderno
' rispetto a Etichetta: .... IF condizione GOTO Etichetta
DO
    ' prende l'input dell'utente
    z$ = UCASE$(INKEY$) ' Z$ mantiene il maiuscolo di Inkey$
    GOSUB MostraRuote ' scrive il nome delle ruote del lotto
    GOSUB MostraEstratti
 
LOOP UNTIL z$ = "Q"
 
 
END ' indica la fine logica del programma
 
 
'-----------------------AREA sottoprogrammi /SUBroutines
 
' questa etichetta /label indica il punto di inizio
' del sottoprogramma (SUBroutine) LeggiFile scritto con vecchio stile GOSUB
' che usa una etichetta/label e un RETURN per riprendere da dove si era interotto
' nota1: un metodo ancora piu' antico e' il salto con GOTO
'        che richiede una seconda etichetta per ritornare nel MAIN o programma principale
' nota2: un metodo migliore e' SUB nomeroutine....END SUB
'        perche' permette la localizzazione delle variabili
LeggiFile:
'se non trova lotto.dat segnala l'errore a video e termina il programma
IF NOT _FILEEXISTS("lotto.dat") THEN PRINT "File non trovato": END
' apre il file lotto.dat per leggere in maniera sequenziale i dati
OPEN "lotto.dat" FOR INPUT AS #1
a = SPACE$(LOF(1)) ' riempe la variabile a di spazi fino alla grandezza in byte del file aperto
INPUT #1, a ' legge con una unica operazione il file e lo pone nella variabiel a
CLOSE #1 ' chiude il file appena letto
' indica il termine della SUBroutine LeggiFile
' e RITORNA alla riga di codice successiva al salto GOSUB
RETURN
 
'seconda SUBroutine /sottoprogramma
MostraRuote:
COLOR 7, 6
LOCATE 1, 1
PRINT "BARI"
LOCATE 3, 1
PRINT "CAGLIARI"
LOCATE 5, 1
PRINT "FIRENZE"
LOCATE 7, 1
PRINT "GENOVA"
LOCATE 9, 1
PRINT "MILANO"
LOCATE 11, 1
PRINT "NAPOLI"
LOCATE 13, 1
PRINT "PALERMO"
LOCATE 15, 1
PRINT "ROMA"
LOCATE 17, 1
PRINT "TORINO"
LOCATE 19, 1
PRINT "VENEZIA"
LOCATE 21, 1
PRINT "NAZIONALE"
LOCATE 23, 1
PRINT "premi q per terminare"
 
' indica il termine della SUBroutine MostraRuote
' e RITORNA alla riga di codice successiva al salto GOSUB
RETURN
 
'terzo sottoprogramma o SUBroutine
MostraEstratti:
 
' le prime 4 cifre sembrano essere in numero della estrazione
LOCATE 1, 40
PRINT "estraz.num "; LEFT$(a, 4)
 
DIM x AS INTEGER, y AS INTEGER, V AS INTEGER
y = 13 ' prima posizione per il carattere da stampare
FOR x = 1 TO 5 STEP 1 ' questo ciclo   FOR è di 5 perche' lo e' il tuo esempio
    FOR V = Bari TO Nazionale ' per tutte le ruote
        'posiziona il cursore
        LOCATE (V * 2) - 1, y
        ' verifica la condizione + o - 30
        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
        ' scrive il numero estratto
        PRINT VAL(MID$(a, (V - 1) * 10 + 5 + ((x - 1) * 2), Cifra)); " ";
    NEXT V
    y = POS(0)
NEXT x
' indica il termine della SUBroutine MostraEstratti
' e RITORNA alla riga di codice successiva al salto GOSUB
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 · « **Reply #67 on:** July 05, 2020, 11:10:32 pm »

@TempodiBasic

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

TempodiBasic · « **Reply #68 on:** July 06, 2020, 12:34:19 pm »

@bplus
Also I hope so! :-))

TempodiBasic · « **Reply #69 on:** July 06, 2020, 01:18:10 pm »

@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 · « **Reply #70 on:** July 08, 2020, 04:38:39 pm »

@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 · « **Reply #71 on:** July 08, 2020, 07:17:36 pm »

Hi @Kiara87

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

Kiara87 · « **Reply #72 on:** July 09, 2020, 09:48:30 am »

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 · « **Reply #73 on:** July 09, 2020, 11:30:29 am »

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.

Quote

I won't give up

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

Kiara87 · « **Reply #74 on:** July 09, 2020, 04:54:24 pm »

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?

News:

Author Topic: help my (Read 19632 times)

bplus

Re: help my

Kiara87

Re: help my

bplus

Re: help my

Kiara87

Re: help my

bplus

Re: help my

TempodiBasic

Re: help my

TempodiBasic

Re: help my

bplus

Re: help my

TempodiBasic

Re: help my

TempodiBasic

Re: help my

Kiara87

Re: help my

bplus

Re: help my

Kiara87

Re: help my

bplus

Re: help my

Kiara87

Re: help my