Basic Data Stuff

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|511\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Article Home -> Coding Basics

Jayenkai	Created : 29 December 2007 System : Windows Language : Blitz Basic Data Stuff Storing data with Data.
This code shows how to use basic data statements to store bits of information. Use Restore to get the next data from the line stated, then use Read to get each chunk of data. I'll show you three seperate ways to store a list of binary digits, but as you can probably tell, this can EASILY be tweaked to store more than just 1's and 0's. I'll probably follow this up with a more complex data tutorial later. Graphics 800,600,32,2 SetBuffer BackBuffer() Gosub Version_1 ;Gosub Version_2 ;Gosub Version_3 WaitKey() End Function Do(in$) Select Asc(in$) Case Asc("1") Print "This is a One!!" Case Asc("0") Print "This is a Nuffin!!" End Select End Function .Version_1 Restore Version_1 Repeat Read in$ If in$<>"END" Then Do(in$) Until in$="END" Return ; Style 1, a series of data bits. Data 1,1,1,1,0,0,1,1,0,1,1,1,0 Data 1,1,1,0 Data "END" .Version_2 Restore Version_2 Repeat Read in$ If in$<>"END" For x=1 To Len(in$) bit$=Mid$(in$,x,1) Do(bit$) Next EndIf Until in$="END" Return ; Style 2, a text chunk with bits in. Data "11101010001011" Data "10101" Data "END" .Version_3 Restore Version_3 Repeat Read in$ If in$<>"END" For x=1 To 8 bit$=Mid$(Bin$(in$),33-x,1) Do(bit$) Next EndIf Until in$="END" Return ; Style 3, using binary bits from integers. Data 79 Data 255 Data %10001011 Data "END" --v

Comments
Saturday, 29 December 2007, 11:30
garand	Yey! Go Jay!

Comments