« previous next »
Pages: [1]   Go Down

Author Topic: Re: how to print string from array on screen from bottom to top?  (Read 515 times)

0 Members and 1 Guest are viewing this topic.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: how to print string from array on screen from bottom to top?
« on: July 14, 2020, 02:58:50 pm »
Hi @ron77

Saw this at that other place! ;-)) translated it for QB64.

Code: QB64: [Select]
  1. ' save this file as test.bas
  2.  
  3. 'ref: https://www.freebasic.net/forum/viewtopic.php?f=2&t=28589#p272611
  4. REDIM lines(0) AS STRING
  5. readfile "test.bas", lines()
  6. upper lines()
  8.  
  9. 'append to the string array the string item
  10. SUB sAppend (arr() AS STRING, item AS STRING)
  11.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1)
  12.     arr(UBOUND(arr)) = item
  14.  
  15. SUB readfile (f AS STRING, lines() AS STRING)
  16.     DIM fline AS STRING
  17.     OPEN f FOR INPUT AS #1
  18.     WHILE NOT EOF(1)
  19.         LINE INPUT #1, fline
  20.         sAppend lines(), fline
  21.     WEND
  22.     CLOSE #1
  24.  
  25. SUB upper (lines() AS STRING)
  26.     'dim as integer h = hiword(width()) 'num columns on display
  27.     'print closing credits
  28.     FOR i = 0 TO UBOUND(lines)
  29.         LOCATE 24, 1
  30.         PRINT lines(i)
  31.         _LIMIT 1
  32.     NEXT
  33.     'clear screen
  34.     FOR i = 1 TO 25
  35.         PRINT
  36.         _LIMIT 1
  37.     NEXT
  39.  
  40.  
  41.  

This sol'n seems kind of jerky to me.
« Last Edit: July 14, 2020, 03:06:00 pm by bplus »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: how to print string from array on screen from bottom to top?
« Reply #1 on: July 14, 2020, 03:30:43 pm »
Better!
Code: QB64: [Select]
  1. ' save this file as test.bas
  2.  
  3. 'ref: https://www.freebasic.net/forum/viewtopic.php?f=2&t=28589#p272611
  4.  
  5. SCREEN _NEWIMAGE(640, 400, 32)
  6. REDIM lines(0) AS STRING
  7. readfile "test.bas", lines()
  8. upper lines()
  9. _PRINTSTRING (252, 184), "That's all folks."
  12.  
  13. 'append to the string array the string item
  14. SUB sAppend (arr() AS STRING, item AS STRING)
  15.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1)
  16.     arr(UBOUND(arr)) = item
  18.  
  19. SUB readfile (f AS STRING, lines() AS STRING)
  20.     DIM fline AS STRING
  21.     OPEN f FOR INPUT AS #1
  22.     WHILE NOT EOF(1)
  23.         LINE INPUT #1, fline
  24.         sAppend lines(), fline
  25.     WEND
  26.     CLOSE #1
  28.  
  29. SUB upper (lines() AS STRING)
  30.     'dim as integer h = hiword(width()) 'num columns on display
  31.     'print closing credits
  32.     FOR y = 405 TO -16 * UBOUND(lines) STEP -1
  33.         CLS
  34.         FOR i = 0 TO UBOUND(lines)
  35.             _PRINTSTRING (10, y + i * 16), lines(i)
  36.         NEXT
  37.         _PRINTSTRING (600, 10), STR$(y)
  38.         _DISPLAY
  39.         _LIMIT 60
  40.     NEXT
  42.  
  43.  
  44.  

_PRINTSTRING is such a relief from errors when trying to print off screen (compared to LOCATE & PRINT BUT! who wants to go over graphics and SCREENs with really green newbie?)
« Last Edit: July 14, 2020, 03:47:00 pm by bplus »
Logged

FellippeHeitor

  • Guest
Re: how to print string from array on screen from bottom to top?
« Reply #2 on: July 14, 2020, 04:48:19 pm »
My take on it:

Code: QB64: [Select]
  1. DEFLNG A-Z
  2.  
  3. CONST true = -1, false = 0
  4. CONST w = 800, h = 600
  5.  
  6. SCREEN _NEWIMAGE(w, h, 32)
  7.  
  8. RESTORE credits
  9. READ lineCount
  10. DIM text$(1 TO lineCount)
  11. FOR i = 1 TO lineCount
  12.     READ text$(i)
  14.  
  15. DIM y AS SINGLE, speed AS SINGLE
  16. y = h
  17. speed = .5
  18. centered = true
  20.     CLS
  21.  
  22.     y = y - speed
  23.     i = INT(y)
  24.     FOR t = 1 TO lineCount
  25.         IF centered THEN
  26.             leftside = (w - _PRINTWIDTH(text$(t))) / 2
  27.         ELSE
  28.             leftside = 150
  29.         END IF
  30.  
  31.         IF i >= -_FONTHEIGHT AND i <= h THEN
  32.             _PRINTSTRING (leftside, i), text$(t)
  33.         END IF
  34.         i = i + _FONTHEIGHT
  35.         IF i >= h THEN EXIT FOR
  36.     NEXT
  37.  
  38.     _DISPLAY
  39.     _LIMIT 60
  41.  
  42. credits:
  43. DATA 188
  44. DATA "DIRECTED,"
  45. DATA "PRODUCED & EDITED BY"
  46. DATA "Jonathan Goodman Levitt"
  47. DATA ""
  48. DATA "CO-EDITOR"
  49. DATA "& STORY CONSULTANT"
  50. DATA "Carla Ruff"
  51. DATA ""
  52. DATA "MUSIC BY"
  53. DATA "David Schweitzer"
  54. DATA "Zack Martin"
  55. DATA ""
  56. DATA "STARRING"
  57. DATA "David Beauregard, Jr."
  58. DATA "Nicholas Troiano"
  59. DATA "Benjamin Trump"
  60. DATA ""
  61. DATA "FEATURING"
  62. DATA "(IN ORDER OF APPEARANCE)"
  63. DATA "Senator Ted Kennedy"
  64. DATA "Louis & Denise Troiano"
  65. DATA "Diane Beauregard"
  66. DATA "Kathryn Braisted"
  67. DATA "Kevin Gallagher"
  68. DATA "Vicky Trump"
  69. DATA "David Beauregard, Sr."
  70. DATA "Governor Deval Patrick"
  71. DATA "Governor Mike Dukakis (MA Boys State, 1950)"
  72. DATA "State Senator Ken Cuccinelli"
  73. DATA "Professor Alison Thomas"
  74. DATA "Doug Bailey"
  75. DATA "Congresswoman Niki Tsongas"
  76. DATA "Professor Jay Aronson"
  77. DATA "Mayor Mike Bloomberg"
  78. DATA "Senator Chris Dodd"
  79. DATA "Senator Hillary Clinton"
  80. DATA "Senator Sam Brownback (KS Boys State, 1973)"
  81. DATA "Pastor Anthony Milas"
  82. DATA "President Bill Clinton (AK Boys State, 1963)"
  83. DATA "Chris Golden"
  84. DATA ""
  85. DATA "FILMED & RECORDED BY"
  86. DATA "Jonathan Goodman Levitt"
  87. DATA ""
  88. DATA "GRAPHICS"
  89. DATA "Producer: Emily Branham"
  90. DATA "Facilities Provided By: Edgeworx Studios & The Mill"
  91. DATA ""
  92. DATA "Design & Animation: Dave Tecson, Cassidy Gearhart & Emily Branham"
  93. DATA ""
  94. DATA "SOUND MIXING"
  95. DATA "De Lane Lea, Sound & Vision, London"
  96. DATA "Head of Production: Michael Hamilton"
  97. DATA "Dubbing Mixer: Adam Severs"
  98. DATA "Dubbing Fixer: Tony Curran"
  99. DATA ""
  100. DATA "Re-recording Mixer, New York:"
  101. DATA "Rob Daly"
  102. DATA ""
  103. DATA "CONSULTING EDITORS"
  104. DATA "Adam Zucker"
  105. DATA "Pagan Harleman"
  106. DATA "Nancy Kennedy"
  107. DATA ""
  108. DATA "ASSOCIATE EDITOR"
  109. DATA "Emiliano Battista"
  110. DATA ""
  111. DATA "COLOR CORRECTION"
  112. DATA "Pedro Padilla"
  113. DATA ""
  114. DATA "SOUND EDITING BY"
  115. DATA "Barbara Parks & Alex Noyes, Splash Studios"
  116. DATA "Rob Daly"
  117. DATA ""
  118. DATA "ADDITIONAL CINEMATOGRAPHY"
  119. DATA "Alex Stikich"
  120. DATA ""
  121. DATA "Additional Cameras, Election Day Shoot:"
  122. DATA "Slawomir Grunberg"
  123. DATA "Nadia Hallgren"
  124. DATA ""
  125. DATA "Research Shoot: James Rogan"
  126. DATA ""
  127. DATA "Additional Production Stills:"
  128. DATA "Jean-Christophe Vincent Couet"
  129. DATA ""
  130. DATA "ADDITIONAL GRAPHICS"
  131. DATA "Gap Sangpattharamatee, Mi-Sook Cho & Tim Van Horn"
  132. DATA ""
  133. DATA "Retouching:"
  134. DATA "Akwasi Poku & Randall Krueger"
  135. DATA ""
  136. DATA "Additional Color Correction:"
  137. DATA "Sam Wolfson, Edgeworx Studios"
  138. DATA ""
  139. DATA "Logo Design: Eugene Kolb"
  140. DATA ""
  141. DATA "ADDITIONAL SCORE"
  142. DATA "Tim Goalen"
  143. DATA "Erik Janson"
  144. DATA ""
  145. DATA "MUSIC CONSULTANTS"
  146. DATA "Jonathan Zalben"
  147. DATA "Derek Syverud"
  148. DATA ""
  149. DATA "ADDITIONAL MUSIC EDITING"
  150. DATA "Derek Syverud"
  151. DATA ""
  152. DATA "FEATURED SONG"
  153. DATA "'Don't Say Oh Well'"
  154. DATA "Written by Christian Zucconi,"
  155. DATA "Ryan Rabin, Hannah Hooper & Sean Gadd"
  156. DATA "Performed by Grouplove"
  157. DATA "Courtesy of Grouplove LLC"
  158. DATA ""
  159. DATA "LEGAL SERVICES"
  160. DATA "Shatzkin & Mayer, P.C."
  161. DATA "Karen Shatzkin & Debra Mayer"
  162. DATA ""
  163. DATA "Frankfurt Kurnit Klein & Selz, P.C."
  164. DATA "Tara Pietri & Victoria Cook"
  165. DATA ""
  166. DATA "PRODUCTION ASSISTANCE"
  167. DATA "Janet Goodman (US)"
  168. DATA "Anna Maconochie (UK)"
  169. DATA "Julie Sharon (NL)"
  170. DATA ""
  171. DATA "TRANSCRIPTIONS"
  172. DATA "Charlie Gershman"
  173. DATA "Amy Kessler"
  174. DATA "Cory Ness"
  175. DATA ""
  176. DATA "TRANSCRIPTIONS &"
  177. DATA "ADDITIONAL RESEARCH"
  178. DATA "Rob Hatch-Miller"
  179. DATA ""
  180. DATA "ARCHIVE COURTESY OF"
  181. DATA "MCTV: Karen Hayden"
  182. DATA "U.S. Army Central: Media Relations Group, Brittani White"
  183. DATA "Reagan Presidential Library: Steve Branch"
  184. DATA "Center for Defense Information: Mark Sugg"
  185. DATA "Great Projects Film Co., Inc.: Kenneth Mandel"
  186. DATA "Broadcast DelVal et al: Ryan Balton"
  187. DATA "Politics Now: Nick Troiano, Graham Vyse, Kristen Cleveland, Jason Cunningham, Chris Golden & Bharat Krishnan"
  188. DATA ""
  189. DATA "STILL PHOTOGRAPHS"
  190. DATA "COURTESY OF"
  191. DATA "Ben Trump & Family"
  192. DATA "D.J. Beauregard & Family"
  193. DATA "Graham Vyse"
  194. DATA "Nick Troiano & Family"
  195. DATA ""
  196. DATA "HOUSING PROVIDED BY"
  197. DATA "Arjen de Vries & Cathelijn Timmers"
  198. DATA "Carol Martin-Sperry & Michael Maconochie"
  199. DATA "Dori & Jeb Sophia"
  200. DATA "Fran Andreae"
  201. DATA "Janet Goodman"
  202. DATA "Judy & Rich Lapping"
  203. DATA "Katharine Szamuely"
  204. DATA "Louie Stowell & Karen Lawler"
  205. DATA "Minou Norouzi"
  206. DATA "Patrick Hazard"
  207. DATA ""
  208. DATA "DEVELOPED IN THE"
  209. DATA "Discovery Campus Masterschool, 2007"
  210. DATA ""
  211. DATA "PRODUCED IN ASSOCIATION WITH"
  212. DATA "Channel Four Television, UK"
  213. DATA ""
  214. DATA "SVT"
  215. DATA "Sveriges Television, Sweden"
  216. DATA "Commissioning Editor Axel Arnö"
  217. DATA ""
  218. DATA "NRK"
  219. DATA "Norsk Rikskringkasting, Norway"
  220. DATA "Commissioning Editor Tore Tomter"
  221. DATA ""
  222. DATA "DR"
  223. DATA "Danmarks Radio, Denmark"
  224. DATA "Commissioning Editor Mette Hoffman Meyer"
  225. DATA ""
  226. DATA "DISTRIBUTED BY"
  227. DATA "Kim Christiansen, DR International Sales"
  228. DATA ""
  229. DATA "FOR MY MOM"
  230. DATA "and other teachers"
  231. DATA "who lead by example"
« Last Edit: July 14, 2020, 04:53:35 pm by FellippeHeitor »
Logged

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
    • View Profile
Re: how to print string from array on screen from bottom to top?
« Reply #3 on: July 14, 2020, 07:31:11 pm »
Quote from: FellippeHeitor on July 14, 2020, 04:48:19 pm
My take on it:

That made me hum Star Wars music while I watched it.
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: how to print string from array on screen from bottom to top?
« Reply #4 on: July 14, 2020, 11:46:46 pm »
I added a fading MOD to @FellippeHeitor Code
Code: QB64: [Select]
  1. 'By Fellippe
  2. 'Fading MOD by Ashish
  3. DEFLNG A-Z
  4.  
  5. CONST true = -1, false = 0
  6. CONST w = 800, h = 600
  7.  
  8. SCREEN _NEWIMAGE(w, h, 32)
  9.  
  10. RESTORE credits
  11. READ lineCount
  12. DIM text$(1 TO lineCount)
  13. FOR i = 1 TO lineCount
  14.     READ text$(i)
  16.  
  17. DIM y AS SINGLE, speed AS SINGLE
  18. DIM img&
  19. img& = _NEWIMAGE(w, h, 32)
  20. _DEST img&
  21. FOR i = 0 TO 128
  22.     LINE (x, i)-(w, i), _RGBA(0, 0, 0, 255 - (i * 2))
  23.     LINE (x, h - i)-(w, h - i), _RGBA(0, 0, 0, 255 - (i * 2))
  26. y = h
  27. speed = .5
  28. centered = true
  30.     CLS
  31.  
  32.     y = y - speed
  33.     i = INT(y)
  34.     FOR t = 1 TO lineCount
  35.         IF centered THEN
  36.             leftside = (w - _PRINTWIDTH(text$(t))) / 2
  37.         ELSE
  38.             leftside = 150
  39.         END IF
  40.  
  41.         IF i >= -_FONTHEIGHT AND i <= h THEN
  42.             _PRINTSTRING (leftside, i), text$(t)
  43.         END IF
  44.         i = i + _FONTHEIGHT
  45.         IF i >= h THEN EXIT FOR
  46.     NEXT
  47.     _PUTIMAGE , img&
  48.     _DISPLAY
  49.     _LIMIT 60
  51.  
  52. credits:
  53. DATA 188
  54. DATA "DIRECTED,"
  55. DATA "PRODUCED & EDITED BY"
  56. DATA "Jonathan Goodman Levitt"
  57. DATA ""
  58. DATA "CO-EDITOR"
  59. DATA "& STORY CONSULTANT"
  60. DATA "Carla Ruff"
  61. DATA ""
  62. DATA "MUSIC BY"
  63. DATA "David Schweitzer"
  64. DATA "Zack Martin"
  65. DATA ""
  66. DATA "STARRING"
  67. DATA "David Beauregard, Jr."
  68. DATA "Nicholas Troiano"
  69. DATA "Benjamin Trump"
  70. DATA ""
  71. DATA "FEATURING"
  72. DATA "(IN ORDER OF APPEARANCE)"
  73. DATA "Senator Ted Kennedy"
  74. DATA "Louis & Denise Troiano"
  75. DATA "Diane Beauregard"
  76. DATA "Kathryn Braisted"
  77. DATA "Kevin Gallagher"
  78. DATA "Vicky Trump"
  79. DATA "David Beauregard, Sr."
  80. DATA "Governor Deval Patrick"
  81. DATA "Governor Mike Dukakis (MA Boys State, 1950)"
  82. DATA "State Senator Ken Cuccinelli"
  83. DATA "Professor Alison Thomas"
  84. DATA "Doug Bailey"
  85. DATA "Congresswoman Niki Tsongas"
  86. DATA "Professor Jay Aronson"
  87. DATA "Mayor Mike Bloomberg"
  88. DATA "Senator Chris Dodd"
  89. DATA "Senator Hillary Clinton"
  90. DATA "Senator Sam Brownback (KS Boys State, 1973)"
  91. DATA "Pastor Anthony Milas"
  92. DATA "President Bill Clinton (AK Boys State, 1963)"
  93. DATA "Chris Golden"
  94. DATA ""
  95. DATA "FILMED & RECORDED BY"
  96. DATA "Jonathan Goodman Levitt"
  97. DATA ""
  98. DATA "GRAPHICS"
  99. DATA "Producer: Emily Branham"
  100. DATA "Facilities Provided By: Edgeworx Studios & The Mill"
  101. DATA ""
  102. DATA "Design & Animation: Dave Tecson, Cassidy Gearhart & Emily Branham"
  103. DATA ""
  104. DATA "SOUND MIXING"
  105. DATA "De Lane Lea, Sound & Vision, London"
  106. DATA "Head of Production: Michael Hamilton"
  107. DATA "Dubbing Mixer: Adam Severs"
  108. DATA "Dubbing Fixer: Tony Curran"
  109. DATA ""
  110. DATA "Re-recording Mixer, New York:"
  111. DATA "Rob Daly"
  112. DATA ""
  113. DATA "CONSULTING EDITORS"
  114. DATA "Adam Zucker"
  115. DATA "Pagan Harleman"
  116. DATA "Nancy Kennedy"
  117. DATA ""
  118. DATA "ASSOCIATE EDITOR"
  119. DATA "Emiliano Battista"
  120. DATA ""
  121. DATA "COLOR CORRECTION"
  122. DATA "Pedro Padilla"
  123. DATA ""
  124. DATA "SOUND EDITING BY"
  125. DATA "Barbara Parks & Alex Noyes, Splash Studios"
  126. DATA "Rob Daly"
  127. DATA ""
  128. DATA "ADDITIONAL CINEMATOGRAPHY"
  129. DATA "Alex Stikich"
  130. DATA ""
  131. DATA "Additional Cameras, Election Day Shoot:"
  132. DATA "Slawomir Grunberg"
  133. DATA "Nadia Hallgren"
  134. DATA ""
  135. DATA "Research Shoot: James Rogan"
  136. DATA ""
  137. DATA "Additional Production Stills:"
  138. DATA "Jean-Christophe Vincent Couet"
  139. DATA ""
  140. DATA "ADDITIONAL GRAPHICS"
  141. DATA "Gap Sangpattharamatee, Mi-Sook Cho & Tim Van Horn"
  142. DATA ""
  143. DATA "Retouching:"
  144. DATA "Akwasi Poku & Randall Krueger"
  145. DATA ""
  146. DATA "Additional Color Correction:"
  147. DATA "Sam Wolfson, Edgeworx Studios"
  148. DATA ""
  149. DATA "Logo Design: Eugene Kolb"
  150. DATA ""
  151. DATA "ADDITIONAL SCORE"
  152. DATA "Tim Goalen"
  153. DATA "Erik Janson"
  154. DATA ""
  155. DATA "MUSIC CONSULTANTS"
  156. DATA "Jonathan Zalben"
  157. DATA "Derek Syverud"
  158. DATA ""
  159. DATA "ADDITIONAL MUSIC EDITING"
  160. DATA "Derek Syverud"
  161. DATA ""
  162. DATA "FEATURED SONG"
  163. DATA "'Don't Say Oh Well'"
  164. DATA "Written by Christian Zucconi,"
  165. DATA "Ryan Rabin, Hannah Hooper & Sean Gadd"
  166. DATA "Performed by Grouplove"
  167. DATA "Courtesy of Grouplove LLC"
  168. DATA ""
  169. DATA "LEGAL SERVICES"
  170. DATA "Shatzkin & Mayer, P.C."
  171. DATA "Karen Shatzkin & Debra Mayer"
  172. DATA ""
  173. DATA "Frankfurt Kurnit Klein & Selz, P.C."
  174. DATA "Tara Pietri & Victoria Cook"
  175. DATA ""
  176. DATA "PRODUCTION ASSISTANCE"
  177. DATA "Janet Goodman (US)"
  178. DATA "Anna Maconochie (UK)"
  179. DATA "Julie Sharon (NL)"
  180. DATA ""
  181. DATA "TRANSCRIPTIONS"
  182. DATA "Charlie Gershman"
  183. DATA "Amy Kessler"
  184. DATA "Cory Ness"
  185. DATA ""
  186. DATA "TRANSCRIPTIONS &"
  187. DATA "ADDITIONAL RESEARCH"
  188. DATA "Rob Hatch-Miller"
  189. DATA ""
  190. DATA "ARCHIVE COURTESY OF"
  191. DATA "MCTV: Karen Hayden"
  192. DATA "U.S. Army Central: Media Relations Group, Brittani White"
  193. DATA "Reagan Presidential Library: Steve Branch"
  194. DATA "Center for Defense Information: Mark Sugg"
  195. DATA "Great Projects Film Co., Inc.: Kenneth Mandel"
  196. DATA "Broadcast DelVal et al: Ryan Balton"
  197. DATA "Politics Now: Nick Troiano, Graham Vyse, Kristen Cleveland, Jason Cunningham, Chris Golden & Bharat Krishnan"
  198. DATA ""
  199. DATA "STILL PHOTOGRAPHS"
  200. DATA "COURTESY OF"
  201. DATA "Ben Trump & Family"
  202. DATA "D.J. Beauregard & Family"
  203. DATA "Graham Vyse"
  204. DATA "Nick Troiano & Family"
  205. DATA ""
  206. DATA "HOUSING PROVIDED BY"
  207. DATA "Arjen de Vries & Cathelijn Timmers"
  208. DATA "Carol Martin-Sperry & Michael Maconochie"
  209. DATA "Dori & Jeb Sophia"
  210. DATA "Fran Andreae"
  211. DATA "Janet Goodman"
  212. DATA "Judy & Rich Lapping"
  213. DATA "Katharine Szamuely"
  214. DATA "Louie Stowell & Karen Lawler"
  215. DATA "Minou Norouzi"
  216. DATA "Patrick Hazard"
  217. DATA ""
  218. DATA "DEVELOPED IN THE"
  219. DATA "Discovery Campus Masterschool, 2007"
  220. DATA ""
  221. DATA "PRODUCED IN ASSOCIATION WITH"
  222. DATA "Channel Four Television, UK"
  223. DATA ""
  224. DATA "SVT"
  225. DATA "Sveriges Television, Sweden"
  226. DATA "Commissioning Editor Axel Arnö"
  227. DATA ""
  228. DATA "NRK"
  229. DATA "Norsk Rikskringkasting, Norway"
  230. DATA "Commissioning Editor Tore Tomter"
  231. DATA ""
  232. DATA "DR"
  233. DATA "Danmarks Radio, Denmark"
  234. DATA "Commissioning Editor Mette Hoffman Meyer"
  235. DATA ""
  236. DATA "DISTRIBUTED BY"
  237. DATA "Kim Christiansen, DR International Sales"
  238. DATA ""
  239. DATA "FOR MY MOM"
  240. DATA "and other teachers"
  241. DATA "who lead by example"
  242.  
  243.  
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

FellippeHeitor

  • Guest
Re: how to print string from array on screen from bottom to top?
« Reply #5 on: July 15, 2020, 12:01:02 am »
Nice!
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: how to print string from array on screen from bottom to top?
« Reply #6 on: July 15, 2020, 01:39:54 am »
Aren't you guys over complicating a very simple process, for a learner?  Isn't this more or less what Ron was asking about -- "i have an array of string i wish to print the the string line after line from the bottom of the screen to the top like an ending title of a movie..."

Code: QB64: [Select]
  1. DIM TextArray(100) AS STRING
  2. FOR I = 0 TO 100
  3.     TextArray(I) = "Hello World" + STR$(I) ' a string
  4.     TextArray(I) = TextArray(I) + SPACE$(_WIDTH - LEN(TextArray(I))) 'with enough spaces to fill the entire line
  5.     'so we're certain that we erase anything that was written previously on the line.
  7.  
  8. FOR I = 0 TO UBOUND(TextArray) + _HEIGHT
  9.     LOCATE _HEIGHT - 1, 1 'print on the bottom few lines will scroll the screen automatically
  10.     IF I <= 100 THEN PRINT TextArray(I) ELSE PRINT 'so print the array + enough blank lines to continue to scroll it off the screen.
  11.     _DELAY .2

There's more comments in the above than there is code, and it seems to fulfill the original post's criteria.  ;)
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!
Pages: [1]   Go Up
« previous next »