SCREEN 0 and _PRINTSTRING

[TempodiBasic]

Hi Guys

please can tell me where I make a mistake to get this screen half up blue and half down black?

Code: QB64: [Select]

1. SCREEN 0
2. COLOR , 1
3. CLS
4. SLEEP 1
5. COLOR 14, 7
6. interface
7. COLOR , 1
8.  
9. END
10.  
11. SUB interface
12.     DIM col AS INTEGER
13.     _PRINTSTRING (34, 6), "ÉÍÍÍÍÍÍÍÍÍÍÍ»"
14.     FOR col = 1 TO 20 STEP 1
15.         _PRINTSTRING (34, 6 + col), "º           º"
16.     NEXT col
17.     _PRINTSTRING (34, 6 + col), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
18. END SUB
19.  

Thanks

[bplus]

Not that many rows in screen 0, this works because I cut 10:

Code: QB64: [Select]

1. SCREEN 0
2. COLOR , 1
3. CLS
4. SLEEP 1
5. COLOR 14, 7
6. interface
7. COLOR , 1
8.  
9. END
10.  
11. SUB interface
12.     DIM col AS INTEGER
13.     _PRINTSTRING (24, 6), "ÉÍÍÍÍÍÍÍÍÍÍÍ»"
14.     FOR col = 1 TO 10 STEP 1
15.         _PRINTSTRING (24, 6 + col), "º           º"
16.     NEXT col
17.     _PRINTSTRING (24, 6 + col), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
18. END SUB
19.  
20.  

When print exceeds the amount of rows that fit the font is changed to smaller to try and fit the additional rows.

[FellippeHeitor]

With _PRINTSTRING the order of parameters is first column then row, opposite to LOCATE which has row first then column. That's likely your mistake.

[bplus]

Yeah, where he says col, he means row because that is how he used it to draw the frame.

[FellippeHeitor]

Actually Tempodi already got the order of parameters right; it's the FOR...NEXT loop that's going beyond SCREEN 0 dimensions:

You could just make SCREEN 0 bigger. Either with WIDTH:

Code: QB64: [Select]

1. SCREEN 0
2. WIDTH 80, 27 'this changes the default 25 rows to 27, so your box is displayed with no errors
3. COLOR , 1
4. CLS
5. COLOR 14, 7
6. interface
7. COLOR , 1
8. SLEEP
9. END
10.  
11. SUB interface
12.     DIM col AS INTEGER
13.     _PRINTSTRING (34, 6), "ÉÍÍÍÍÍÍÍÍÍÍÍ»"
14.     FOR col = 1 TO 20 STEP 1
15.         _PRINTSTRING (34, 6 + col), "º           º"
16.     NEXT col
17.     _PRINTSTRING (34, 6 + col), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
18. END SUB
19.  

Or with _NEWIMAGE:

Code: QB64: [Select]

1. SCREEN 0
2. SCREEN _NEWIMAGE(80, 27, 0) 'this also changes the default 25 rows to 27, so your box is displayed with no errors
3. COLOR , 1
4. CLS
5. COLOR 14, 7
6. interface
7. COLOR , 1
8. SLEEP
9. END
10.  
11. SUB interface
12.     DIM col AS INTEGER
13.     _PRINTSTRING (34, 6), "ÉÍÍÍÍÍÍÍÍÍÍÍ»"
14.     FOR col = 1 TO 20 STEP 1
15.         _PRINTSTRING (34, 6 + col), "º           º"
16.     NEXT col
17.     _PRINTSTRING (34, 6 + col), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
18. END SUB
19.  

[bplus]

Yeah, that's why I cut 10 lines out of loop, too many rows for screen 0 and why part gets colored and part doesn't, might even be a bug??? (ie why didn't color hold?)

Here is a framer I just modified from his code:

Code: QB64: [Select]

1. SCREEN 0
2. COLOR , 1
3. CLS
4. COLOR 11, 2
5. framed 10, 5, 60, 10
6.  
7. END
8.  
9. SUB framed (x, y, w, h)
10.     _PRINTSTRING (x, y), "É"
11.     FOR i = 1 TO w
12.         _PRINTSTRING (x + i, y), "Í"
13.     NEXT
14.     _PRINTSTRING (x + i, y), "»"
15.     FOR i = 1 TO h
16.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
17.     NEXT
18.     _PRINTSTRING (x, y + i), "È"
19.     FOR j = 1 TO w
20.         _PRINTSTRING (x + j, y + i), "Í"
21.     NEXT
22.     _PRINTSTRING (x + j, y + i), "¼"
23. END SUB
24.  

Of course you have to be mindful of the screen dimensions of screen 0 or what ever screen being used.

[bplus]

Now I center messages in the frame:

Code: QB64: [Select]

1. _TITLE "Frame message for QB64 B+ 2018-11-10"
2. SCREEN 0
3.  
4. s$ = "Hi TempodiBasic," + CHR$(10)
5. s$ = s$ + CHR$(10) + "How are you tonight?"
6. s$ = s$ + CHR$(10) + "I hope this message is not too long, I am working from modified code of my messageBox$ function."
7. s$ = s$ + " Testing adding a line that takes this beyond box height."
8.  
9. WHILE _KEYDOWN(27) = 0
10.     COLOR 7, 0
11.     CLS
12.     COLOR 11, 2
13.     framed 10, 5, 20, 5
14.     centerPrint 10, 5, 20, 5, s$
15.     _DELAY 1
16.     COLOR 14, 4
17.     framed 25, 13, 40, 10
18.     centerPrint 25, 13, 40, 10, s$
19.     _DELAY 1
20.     COLOR 7, 1
21.     framed 1, 1, 60, 6
22.     centerPrint 1, 1, 60, 6, s$
23.     _DELAY 1
24. WEND
25. END
26.  
27. SUB framed (x, y, w, h)
28.     _PRINTSTRING (x, y), "É"
29.     FOR i = 1 TO w
30.         _PRINTSTRING (x + i, y), "Í"
31.     NEXT
32.     _PRINTSTRING (x + i, y), "»"
33.     FOR i = 1 TO h
34.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
35.     NEXT
36.     _PRINTSTRING (x, y + i), "È"
37.     FOR j = 1 TO w
38.         _PRINTSTRING (x + j, y + i), "Í"
39.     NEXT
40.     _PRINTSTRING (x + j, y + i), "¼"
41. END SUB
42.  
43. SUB centerPrint (x, y, w, h, m$)
44.  
45.     'setup t$() to store strings with ti as index, limit w chars per line max, b$ is for build
46.     REDIM t$(0): ti = 0: limit = w: b$ = ""
47.     FOR i = 1 TO LEN(m$)
48.         c$ = MID$(m$, i, 1)
49.         'are there any new line signals, CR, LF or both? take CRLF or LFCR as one break but dbl LF or CR means blank line
50.         SELECT CASE c$
51.             CASE CHR$(13) 'load line
52.                 IF MID$(m$, i + 1, 1) = CHR$(10) THEN i = i + 1
53.                 t$(ti) = b$: b$ = "": ti = ti + 1: REDIM _PRESERVE t$(ti)
54.             CASE CHR$(10)
55.                 IF MID$(m$, i + 1, 1) = CHR$(13) THEN i = i + 1
56.                 t$(ti) = b$: b$ = "": ti = ti + 1: REDIM _PRESERVE t$(ti)
57.             CASE ELSE
58.                 IF c$ = CHR$(9) THEN c$ = SPACE$(4): add = 4 ELSE add = 1
59.                 IF LEN(b$) + add > limit THEN
60.                     tail$ = "": ff = 0
61.                     FOR j = LEN(b$) TO 1 STEP -1 'backup until find a space, save the tail end for next line
62.                         d$ = MID$(b$, j, 1)
63.                         IF d$ = " " THEN
64.                             t$(ti) = MID$(b$, 1, j - 1): b$ = tail$ + c$: ti = ti + 1: REDIM _PRESERVE t$(ti)
65.                             ff = 1 'found space flag
66.                             EXIT FOR
67.                         ELSE
68.                             tail$ = d$ + tail$ 'the tail grows!
69.                         END IF
70.                     NEXT
71.                     IF ff = 0 THEN 'no break? OK
72.                         t$(ti) = b$: b$ = c$: ti = ti + 1: REDIM _PRESERVE t$(ti)
73.                     END IF
74.                 ELSE
75.                     b$ = b$ + c$ 'just keep building the line
76.                 END IF
77.         END SELECT
78.     NEXT
79.     t$(ti) = b$
80.     IF ti > h - 1 THEN stopper = h - 1 ELSE stopper = ti
81.     IF ti < h - 1 THEN starter = (h - 1 - ti) \ 2 ELSE starter = 0
82.     FOR r = 0 TO stopper
83.         col = x + (w - LEN(t$(r))) / 2 + 1
84.         _PRINTSTRING (col, y + r + starter + 1), t$(r)
85.     NEXT
86. END SUB
87.  

[Pete]

@BPlus: Have you at least considered trying an online dating service?

[TempodiBasic]

Hi friends
thanks to show me that the bug was in my mind!
Yes I have forgotten that SCREEN 0 is 80 columns for 25 rows if I don't set it otherwise.
 :-)
 Great, the only obstacle between the idea and its realization as a good software is my mind .
:-))
As consequence I mustn't think but coding to have success!
Well this last seems a zen sentence about programmers.

[Pete]

WIDTH 80, 25 is the default window for SCREEN 0.

If you want more width, but the same font size, use...

WIDTH 80, 42

Note the length parameter does not affect the font size.

One under interesting one is WIDTH 80, 50. This will cause the window to be the same size as WIDTH 80, 25, but the font size will be half size. These widths were all based on QB45 actions.

Pete

[TempodiBasic]

@Pete
you're right, yesterday night my memory doesn't remember me that notion which we learn as one of the first to know to use SCREEN 0, in Qbasic it is 80x25 by default!

@Bplus
hey but you don't like STRING$ statement and you prefer to use FOR NEXT loop

Code: QB64: [Select]

1. SUB framed (x, y, w, h)
2.     _PRINTSTRING (x, y), "É"
3.     '    FOR i = 1 TO w
4.     _PRINTSTRING (x + 1, y), STRING$(w, "Í")
5.     '   NEXT
6.     _PRINTSTRING (x + 1 + w, y), "»"
7.     FOR i = 1 TO h
8.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
9.     NEXT
10.     _PRINTSTRING (x, y + i), "È"
11.     '    FOR j = 1 TO w
12.     _PRINTSTRING (x + 1, y + i), STRING$(w, "Í")
13.     '   NEXT
14.     _PRINTSTRING (x + j, y + i), "¼"
15. END SUB
16.  

Fine example of message box in ASCII!

[bplus]

Yes STRING$ works great, here is code fixed for miss placed bottom right corner:

Code: QB64: [Select]

1. SUB framed (x, y, w, h)
2.     _PRINTSTRING (x, y), "É" + STRING$(w, "Í") + "»"
3.     FOR i = 1 TO h
4.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
5.     NEXT
6.     _PRINTSTRING (x, y + h + 1), "È" + STRING$(w, "Í") + "¼"
7. END SUB
8.  
9.  

I have an idea for coding alignment of strings for centerPrint messages so that you have choice of left, right or center alignments.

EDIT: more efficiency dreamed up overnight.

[SMcNeill]

I have an idea for coding alignment of strings for centerPrint messages so that you have choice of left, right or center alignments.

Just use my little text frame library?  ;D

[bplus]

Is your little text frame library less than one sub 58 lines long?  (Knowing you, it might be!)  ;)

Code: QB64: [Select]

1. _TITLE "Frame message for QB64 B+ 2018-11-10"
2. '2018-11-11 frame mod with STRING$
3. '2018-11-12 more frame improvement, embed into centerPrint and setup for text alignment
4.  
5. SCREEN 0
6.  
7. s$ = CHR$(1) + "Hi TempodiBasic," + CHR$(10)
8. s$ = s$ + CHR$(10) + "How are you tonight?" + CHR$(10)
9. s$ = s$ + CHR$(10) + CHR$(9) + "I hope this message is too long, to test fitting a very long line into a box. I am working from modified code of my messageBox$ function."
10. s$ = s$ + " Testing adding a line that takes this beyond box height."
11.  
12. h$ = CHR$(3) + "November 12, 2018 " + CHR$(10) + CHR$(10)
13. h$ = h$ + CHR$(2) + "Instructions for alignment with centerPrint sub:" + CHR$(10) + CHR$(10) + CHR$(1)
14. h$ = h$ + CHR$(9) + "Use CHR$(1) for left alignments." + CHR$(10)
15. h$ = h$ + CHR$(9) + "Use CHR$(2) for center alignments." + CHR$(10)
16. h$ = h$ + CHR$(9) + "Use CHR$(3) for right alignments." + CHR$(10)
17. h$ = h$ + CHR$(9) + "Use CHR$(9) to insert 4 spaces with left alignment." + CHR$(10)
18. h$ = h$ + CHR$(9) + "Use CHR$(10) or CHR$(13) or one + other, to start new line." + CHR$(10)
19. h$ = h$ + CHR$(9) + "Use Chr$(10) or CHR$(13) twice in row for blank line." + CHR$(10) + CHR$(10) + CHR$(3)
20. h$ = h$ + "bplus "
21.  
22. 'WHILE _KEYDOWN(27) = 0
23. COLOR 7, 0
24. CLS
25. COLOR 11, 2
26. 'framed 10, 5, 20, 5
27. 'check full fill
28. centerPrint 1, 17, 20, 5, "Test full fill right in here!"
29. _DELAY 3
30. centerPrint 1, 17, 20, 5, "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
31. _DELAY 1
32. COLOR 14, 4
33. 'framed 25, 13, 40, 10
34. centerPrint 25, 15, 40, 8, s$
35. _DELAY 1
36. COLOR 7, 1
37. 'framed 1, 1, 60, 10
38. centerPrint 1, 1, 60, 13, h$
39. _DELAY 5
40. 'WEND
41. END
42.  
43.  
44. SUB framed (x, y, w, h)
45.     _PRINTSTRING (x, y), "É" + STRING$(w, "Í") + "»"
46.     FOR i = 1 TO h
47.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
48.     NEXT
49.     _PRINTSTRING (x, y + h + 1), "È" + STRING$(w, "Í") + "¼"
50. END SUB
51.  
52. SUB centerPrint (x, y, w, h, m$)
53.     'embed framed into code, so only one call needed
54.     _PRINTSTRING (x, y), "É" + STRING$(w, "Í") + "»"
55.     FOR i = 1 TO h
56.         _PRINTSTRING (x, y + i), "º" + SPACE$(w) + "º"
57.     NEXT
58.     _PRINTSTRING (x, y + h + 1), "È" + STRING$(w, "Í") + "¼"
59.  
60.     'setup t$() to store strings with ti as index, limit w chars per line max, b$ is for build
61.     DIM t$(100), a(100) AS _BYTE: ti = 0: b$ = "": align = 2
62.     FOR i = 1 TO LEN(m$)
63.         c$ = MID$(m$, i, 1)
64.         'are there any new line signals, CR, LF or both? take CRLF or LFCR as one break but dbl LF or CR means blank line
65.         SELECT CASE c$
66.             CASE CHR$(1): align = 1
67.             CASE CHR$(2): align = 2
68.             CASE CHR$(3): align = 3
69.             CASE CHR$(13) 'load line
70.                 IF MID$(m$, i + 1, 1) = CHR$(10) THEN i = i + 1
71.                 t$(ti) = b$: b$ = "": a(ti) = align: ti = ti + 1
72.             CASE CHR$(10)
73.                 IF MID$(m$, i + 1, 1) = CHR$(13) THEN i = i + 1
74.                 t$(ti) = b$: b$ = "": a(ti) = align: ti = ti + 1
75.             CASE ELSE
76.                 IF c$ = CHR$(9) THEN c$ = SPACE$(4): add = 4 ELSE add = 1
77.                 IF LEN(b$) + add > w THEN
78.                     tail$ = "": ff = 0
79.                     FOR j = LEN(b$) TO 1 STEP -1 'backup until find a space, save the tail end for next line
80.                         d$ = MID$(b$, j, 1)
81.                         IF d$ = " " THEN
82.                             t$(ti) = MID$(b$, 1, j - 1): b$ = tail$ + c$: a(ti) = align: ti = ti + 1
83.                             ff = 1 'found space flag
84.                             EXIT FOR
85.                         ELSE
86.                             tail$ = d$ + tail$ 'the tail grows!
87.                         END IF
88.                     NEXT
89.                     IF ff = 0 THEN 'no break? OK
90.                         t$(ti) = b$: b$ = c$: a(ti) = align: ti = ti + 1
91.                     END IF
92.                 ELSE
93.                     b$ = b$ + c$ 'just keep building the line
94.                 END IF
95.         END SELECT
96.     NEXT
97.     t$(ti) = b$: a(ti) = align
98.     IF ti > h - 1 THEN stopper = h - 1 ELSE stopper = ti
99.     IF ti < h - 1 THEN starter = (h - 1 - ti) \ 2 ELSE starter = 0
100.     FOR r = 0 TO stopper
101.         IF a(r) = 1 THEN 'left
102.             col = x + 1
103.         ELSEIF a(r) = 2 THEN 'center
104.             col = x + (w - LEN(t$(r))) / 2 + 1
105.         ELSE ' right
106.             col = x + w - LEN(t$(r)) + 1
107.         END IF
108.         _PRINTSTRING (col, y + r + starter + 1), t$(r)
109.     NEXT
110. END SUB
111.  
112.