BlitzCoder Essentials
•
Home Page
•
About BlitzCoder
•
Contributors
•
Terms of Use
•
Email Us
Main Areas
•
BlitzCoder Chat
•
Discussions
•
Articles/Tutorials
•
Code Database
•
Link Database
•
Showcase Area
•
Worklogs
•
Competitions
Special Areas
•
Undocumented
Other Blitz Sites
•
Blitz Basic Home
•
Blitz Showcase
•
BlitzPlay Library
Forum Login
Username:
Password:
•
Register Now!
BlitzCoder Code Archives Page
Main Codes Page
"Simple scroller"
, by thechange
Pixel-precise vertical scroller using the Text command.
Code
; Simple scroller with pixel precision. Data 5 Data "Line One" Data "Line Two" Data "Line Three" Data "Line Four" Data "Line Five" ; Read Lines Read NumberOfDataLines Dim DataLines$( NumberOfDataLines ) For DataLine = 1 To NumberOfDataLines Read DataLines( DataLine ) Next ; Reset Scroller PixelLine = 0 LinesOnScreen = GraphicsHeight() / FontHeight() DataLine = -LinesOnScreen CenterX = GraphicsWidth() / 2 ; Run Scroller SetBuffer BackBuffer() Repeat PixelLine = PixelLine + 1 If PixelLine = FontHeight() Then PixelLine = 0 DataLine = DataLine + 1 End If For ArrayLine = DataLine To DataLine + LinesOnScreen If ArrayLine > NumberOfDataLines Then Exit If ArrayLine >= 1 PosY = ( ArrayLine - DataLine ) * FontHeight() - PixelLine Text CenterX , PosY , DataLines( ArrayLine ) , True , False End If Next Flip Cls Until KeyHit ( 1 ) End
Copyright(c) 2000-2004, BlitzCoder. All Rights Reserved.
Code software created by Krylar's Kreations
