QB64 was created to be compatible with QB 4.5 or lower versions. PDS(7.1) is not supported. The following sub-procedures have been created to do things that were available in PDS versions of QuickBASIC 7.0 and 7.1.
CURRENCY
MKC$
- PDS could use the CURRENCY variable type and had the MKC$ function to convert those values into 8 byte ASCII string values.
- QB64 can convert _FLOAT currency amounts to strings using _MK$ with _INTEGER64 values:
SCREEN 12
DIM value AS _FLOAT
value = 12345678901234.6789 'any currency value with up to 4 decimal point places
_PRINTSTRING (1, 50), "[" + MKC$(value) + "]" 'show ASCII string value
END
'-----------------------------------------------
'converts currency amount to PDS currency string
'-----------------------------------------------
FUNCTION MKC$ (CurrVal AS _FLOAT)
DIM CVal AS _INTEGER64
CVal = CurrVal * 10000
MKC$ = _MK$(_INTEGER64, CVal)
END FUNCTION
|
- Note
- The _FLOAT currency amount must be multiplied by 10000 before it is converted to the ASCII string value.
CVC
- PDS also had the CVC function to convert MKC$ currency string values back to currency amounts.
- QB64 can use _CV with _INTEGER64 to convert those 8 byte values back to _FLOAT currency values.
- In this example the procedure gets the currency string from a file.
- Note
- The _FLOAT currency amount must be divided by 10000 to create up to 4 decimal point places.
PUT
- Currency values can be PUT directly into BINARY or RANDOM files using an _INTEGER64 variable value.
- Remember to multiply the currency value by 10000 before putting to file.
GET
- When currency values are PUT directly into a BINARY or RANDOM file, _INTEGER64 can GET them directly.
- Remember to divide the currency value by 10000 after getting from file.
- Note
- The currency value can be any SINGLE, DOUBLE or _FLOAT floating decimal point value that will hold the range of values.
(Return to Table of Contents)
DIR$
- Attention
- Not to be confused with QB64's _DIR$ function.
- This PDS(7.1) derived DIR$ function returns a filename or a list when more than one exist.
- The file specification (spec$) can use a path and/or wildcards.
Code by Ted Weissgerber
Explanation
The function will verify that a file exists (even if it is
empty) by returning it's name or it returns an empty string
if no file exists. It can return a list of file names by using
an empty string parameter("") after sending a wildcard spec to
get the first file name. The number of file names found is
returned by using the SHARED variable, DIRCount%. Unlike
the PDS DIR$ function, it MUST use an empty string parameter
until QB64 supports optional parameters! The function does
NOT delete empty files.
|
(Return to Table of Contents)
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link