mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 07:40:17 +00:00
81 lines
No EOL
3.3 KiB
Text
81 lines
No EOL
3.3 KiB
Text
The [[DATA]] statement creates a line of fixed program information separated by commas. The DATA can be later READ by the program at runtime.
|
|
|
|
|
|
{{PageSyntax}}
|
|
: [[DATA]] [value1, value2, ...]
|
|
|
|
|
|
{{PageDescription}}
|
|
* DATA is used at the beginning of every data field line with commas separating the values that follow.
|
|
* Values can be any '''literal''' [[STRING]] or numerical type. '''Variables cannot be used.'''
|
|
* DATA fields can be placed and READ consecutively in the main program code body with or without line labels for [[RESTORE]].
|
|
* DATA is best placed after the main program code.
|
|
** '''QB64''' DATA can be placed inside a [[SUB]] or [[FUNCTION]] procedures.
|
|
* [[RESTORE]] will only read the first data field if the DATA is not labeled or no label is specified in a RESTORE call.
|
|
* When using multiple DATA fields, label each data field with a line label so that each data pointer can be reset for multiple reads with '''[[RESTORE]] ''linelabel'''''.
|
|
* QBasic comma separations were flexible to allow column alignments when creating them. QB64 removes spacing between commas.
|
|
* [[STRING]] DATA values with end spaces, QBasic keywords and values that include the comma character must be enclosed in quotation marks.
|
|
* DATA fields can only be created by the programmer and cannot be changed by a user or lost.
|
|
* Comments after a data line require a colon before the comment.
|
|
* If a [[READ]] statement attempts to read past the last data value, an [[ERROR Codes|"Out of Data" error]] will occur. Use end of data markers when necessary.
|
|
* '''[[DATA]] fields can be placed after [[SUB]] or [[FUNCTION]] procedures, but line labels are not allowed.'''
|
|
|
|
|
|
{{PageExamples}}
|
|
''Example 1:'' Creating two DATA fields that can be [[READ]] repeatedly using [[RESTORE]] with the appropriate line label.
|
|
{{CodeStart}} '' ''
|
|
{{Cl|RESTORE}} Database2
|
|
{{Cl|READ}} A$, B$, C$, D$ 'read 4 string values from second DATA field
|
|
PRINT A$ + B$ + C$ + D$ 'note that quoted strings values are spaced
|
|
|
|
{{Cl|RESTORE}} Database1
|
|
FOR i = 1 TO 18
|
|
{{Cl|READ}} number% 'read first DATA field 18 times only
|
|
PRINT number%;
|
|
NEXT
|
|
|
|
END
|
|
|
|
Database1:
|
|
{{Cl|DATA}} 1, 0, 0, 1, 1, 0, 1, 1, 1
|
|
{{Cl|DATA}} 2, 0, 0, 2, 2, 0, 2, 2, 2 : ' DATA line comments require a colon
|
|
|
|
Database2:
|
|
{{Cl|DATA}} "Hello, ", "world! ", Goodbye, work! '' ''
|
|
{{CodeEnd}}
|
|
{{OutputStart}}Hello world! Goodbyework!
|
|
1 0 0 1 1 0 1 1 1 2 0 0 2 2 0 2 2 2
|
|
{{OutputEnd}}
|
|
|
|
|
|
''Example 2:'' How to [[RESTORE]] and [[READ]] DATA in a [[SUB]] procedure in QB64. Line labels can be used for multiple DATA fields.
|
|
{{CodeStart}} '' ''
|
|
{{Cl|DIM}} {{Cl|SHARED}} num(10) 'shared array or must be passed as a parameter
|
|
ReadData 2 '<<<<<<< change value to 1 to read other data
|
|
{{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 10
|
|
{{Cl|PRINT}} num(i);
|
|
{{Cl|NEXT}}
|
|
{{Cl|END}}
|
|
|
|
{{Cl|SUB}} ReadData (mode)
|
|
{{Cl|IF...THEN|IF}} mode = 1 {{Cl|THEN}} {{Cl|RESTORE}} mydata1 {{Cl|ELSE}} {{Cl|RESTORE}} mydata2
|
|
{{Cl|FOR...NEXT|FOR}} i = 1 {{Cl|TO}} 10
|
|
{{Cl|READ}} num(i)
|
|
{{Cl|NEXT}}
|
|
|
|
mydata1:
|
|
{{Cl|DATA}} 1,2,3,4,5,6,7,8,9,10
|
|
mydata2:
|
|
{{Cl|DATA}} 10,9,8,7,6,5,4,3,2,1
|
|
{{Cl|END SUB}} '' ''
|
|
{{CodeEnd}}
|
|
{{OutputStart}} 10 9 8 7 6 5 4 3 2 1 {{OutputEnd}}
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[READ]]
|
|
* [[RESTORE]]
|
|
* [[SUB]], [[FUNCTION]]
|
|
|
|
|
|
{{PageNavigation}} |