Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: TempodiBasic on November 10, 2018, 07:35:24 pm

Title: SCREEN 0 and _PRINTSTRING
Post by: TempodiBasic on November 10, 2018, 07:35:24 pm
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]
  2. COLOR , 1
  5. COLOR 14, 7
  6. interface
  7. COLOR , 1
  8.  
  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), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
  19.  
Thanks
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 10, 2018, 07:41:04 pm
Not that many rows in screen 0, this works because I cut 10:

Code: QB64: [Select]
  2. COLOR , 1
  5. COLOR 14, 7
  6. interface
  7. COLOR , 1
  8.  
  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), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
  19.  
  20.  
When print exceeds the amount of rows that fit the font is changed to smaller to try and fit the additional rows.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: FellippeHeitor on November 10, 2018, 07:49:12 pm
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.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 10, 2018, 08:02:14 pm
Yeah, where he says col, he means row because that is how he used it to draw the frame.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: FellippeHeitor on November 10, 2018, 08:21:42 pm
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]
  2. WIDTH 80, 27 'this changes the default 25 rows to 27, so your box is displayed with no errors
  3. COLOR , 1
  5. COLOR 14, 7
  6. interface
  7. COLOR , 1
  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), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
  19.  

Or with _NEWIMAGE:
Code: QB64: [Select]
  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
  5. COLOR 14, 7
  6. interface
  7. COLOR , 1
  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), "ÈÍÍÍÍÍÍÍÍÍÍͼ"
  19.  
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 10, 2018, 08:30:25 pm
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]
  2. COLOR , 1
  4. COLOR 11, 2
  5. framed 10, 5, 60, 10
  6.  
  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), "¼"
  24.  

Of course you have to be mindful of the screen dimensions of screen 0 or what ever screen being used.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 10, 2018, 10:02:52 pm
Now I center messages in the frame:
Code: QB64: [Select]
  1. _TITLE "Frame message for QB64 B+ 2018-11-10"
  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
  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), "¼"
  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
  87.  
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: Pete on November 10, 2018, 10:36:38 pm
@BPlus: Have you at least considered trying an online dating service?
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: TempodiBasic on November 11, 2018, 01:34:11 pm
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.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: Pete on November 11, 2018, 05:19:52 pm
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
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: TempodiBasic on November 11, 2018, 05:45:37 pm
@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), "¼"
  16.  

Fine example of message box in ASCII!
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 11, 2018, 08:32:11 pm
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, "Í") + "¼"
  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.
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: SMcNeill on November 12, 2018, 02:21:25 pm
Quote from: bplus on November 11, 2018, 08:32:11 pm
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
Title: Re: SCREEN 0 and _PRINTSTRING
Post by: bplus on November 12, 2018, 04:08:48 pm
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.  
  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
  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!"
  30. centerPrint 1, 17, 20, 5, "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
  32. COLOR 14, 4
  33. 'framed 25, 13, 40, 10
  34. centerPrint 25, 15, 40, 8, s$
  36. COLOR 7, 1
  37. 'framed 1, 1, 60, 10
  38. centerPrint 1, 1, 60, 13, h$
  40. 'WEND
  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, "Í") + "¼"
  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
  111.  
  112.  
Text Only | Text with Attachments