Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Newcomers DBPro Corner / scrolling

Author
Message
Rocket Puppy
20
Years of Service
User Offline
Joined: 25th Jul 2004
Location:
Posted: 4th Aug 2004 13:45
Link
I was wondering how to implement text following into a program, I was wondering if you have something like

how you could make the screen follow the code down.
Back to top
Profile PM
zircher
21
Years of Service
User Offline
Joined: 27th Dec 2002
Location: Oklahoma
Posted: 5th Aug 2004 01:10
Link
The print command gives you the least control. What I would do is create an array to hold your random numbers and then use the text command to display the array.

rem create a buffer 11 lines in size
dim textBuffer$(10)

do
a$ = str$(rnd(256))

rem scroll array up from bottom
for a = 0 to 9
textBuffer$(a) = textBuffer$(a+1)
next a

rem add new number
textBuffer$(10) = a$

cls

rem display array
for a = 0 to 10
text 10, 10+(a*12), textBuffer$(a)
next a

loop

"Do you think it is wise to provoke him?" "It's what I do." -- Stargate SG-1
Back to top
Profile PM Email Website
JoelJ
21
Years of Service
User Offline
Joined: 8th Sep 2003
Location: UTAH
Posted: 5th Aug 2004 04:33
Link
you are making it too difficult:
why not just 'text' it then when it feels up the screen, cls and start from the top:



Back to top
Profile PM Website
zircher
21
Years of Service
User Offline
Joined: 27th Dec 2002
Location: Oklahoma
Posted: 5th Aug 2004 07:18
Link
That displays a random page of numbers each loop - pure noise. I figure from the 'following' comments that Rocket Puppy wanted a scrolling display where the numbers run up the screen. I just used 11 lines in my example, it can be easily changed to scroll a whole page worth of random values, if needed.
--
TAZ

"Do you think it is wise to provoke him?" "It's what I do." -- Stargate SG-1
Back to top
Profile PM Email Website
Back to top

Login to post a reply

Server time is: 2024-11-27 04:35:59
Your offset time is: 2024-11-27 04:35:59