Home | Reviews | GUIpedia | Forum | Fun500
| jasonwoodland | Scrowlling text up screenHi all,
I have come back to DOS programming after beeing away from it for 10years.
I have no idea how to acheve what i want.
Basicly I want to list things on the screen as they are entered
when a new item is entered the list would move up one line and add the new item to the list.
any idea's how I can do this?
Thanks
Andy | 2009-10-25 | 12:55 PM |
| SonicBrit | Re:Scrowlling text up screenHave you looked into using VBDOS as your programming platform,its similar to visual basic on windows but runs in text mode.
I'm assuming you want a list box, with a textbox above it which an item can be entered in and then added to the list box? | 2009-10-27 | 9:00 PM |
| jasonwoodland | Re:Scrowlling text up screenI would use VBDOS but I can not get graphics to work.
What I need is really a area (say 20lines) and each time a item is entered it will move up one (if it get to the top then it will be removed the next time it moves up)
So it would look a bit like this
ITEM One £1.57 A
then enter next item
ITEM One £1.57 A
ITEM Two £5.79 B
and so on | 2009-10-27 | 9:27 PM |
| trolly | Re:Scrowlling text up screensomething like this?:
DIM item(1 TO 10) AS STRING
FOR k = 1 TO 10
GOSUB redraw
LOCATE 20
INPUT item(k)
NEXT k
SLEEP
END
redraw:
CLS
FOR i = 1 TO 10
PRINT item(i)
NEXT i
RETURN | 2009-10-28 | 5:33 PM |
| jasonwoodland | Re:Scrowlling text up screentrolly,
You are a star :)
if I want to max the range bigger I just simply change the 20 to the number I need (example 25) | 2009-10-29 | 8:48 PM |
| twilightsentry | Re:Scrowlling text up screenQB is perfectly happy to do the scrolling for you ;).
[code]
Total = 20
Digits = LOG(Total) LOG(10) + 1
VIEW PRINT 5 TO 15 ' Restrict scrolled part of screen
FOR N = 1 TO Total
Num$ = LTRIM$(STR$(N))
PRINT "Item "; Num$; ": ";
LOCATE , 8 + Digits
LINE INPUT Somewhere$
NEXT
VIEW PRINT ' Print to and scroll full screen
[/code] | 2009-10-30 | 8:13 AM |
BASIC Programming Help
2021 Brandon Cornell
