PDS(7.1) Procedures

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.

SCREEN 12 DIM currency AS STRING * 8 OPEN "currency.bin" FOR BINARY AS #1 'binary file with MKC$ values created by PDS GET #1, , currency CLOSE #1 _PRINTSTRING (1, 10), "[" + currency + "]" 'show ASCII string value from file _PRINTSTRING (1, 30), STR$(CVC##(currency)) END '----------------------------------------------------------- 'converts currency string to a _FLOAT currency amount '----------------------------------------------------------- FUNCTION CVC## (CurrStr AS STRING) DIM CV AS _INTEGER64 CV = _CV(_INTEGER64, CurrStr) CVC## = CV / 10000 END FUNCTION

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.

DIM curr AS _INTEGER64, currency AS _FLOAT currency = 9876.543 curr = currency * 10000 'multiply currency value OPEN "currency.bin" FOR BINARY AS #1 'a binary file to hold PDS currency values PUT #1, , curr CLOSE #1 END

---

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.

DIM curr AS _INTEGER64, currency AS _FLOAT OPEN "currency.bin" FOR BINARY AS #1 'any binary file holding PDS currency values GET #1, , curr CLOSE #1 currency = curr / 10000 ' use any floating decimal point type within currency range PRINT currency END

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.

---

---

Attention!! - This function is outdated and provided for reference and/or education only.

---

Starting with QB64-PE v3.4.0 the functionality described here was superseded by _OPENFILEDIALOG$. Additionally since QB64-PE v3.11.0 _FILES$ can be used to read file names programmatically.

---

---

FOR i = 1 TO 2 PRINT LINE INPUT "Enter a file spec: ", spec$ file$ = DIR$(spec$) 'use a file spec ONCE to find the last file name listed PRINT DIRCount%, file$, 'function can return the file count using SHARED variable IF DIRCount% > 1 THEN DO K$ = INPUT$(1) file$ = DIR$("") 'use an empty string parameter to return a list of files! PRINT file$, LOOP UNTIL LEN(file$) = 0 'file list ends with an empty string END IF NEXT END FUNCTION DIR$ (spec$) CONST TmpFile$ = "DIR$INF0.INF", ListMAX% = 500 'change maximum to suit your needs SHARED DIRCount% 'returns file count if desired. STATIC Ready%, Index%, DirList$() IF NOT Ready% THEN REDIM DirList$(ListMAX%): Ready% = -1 'DIM array first use IF spec$ > "" THEN 'get file names when a spec is given SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$ Index% = 0: DirList$(Index%) = "": ff% = FREEFILE OPEN TmpFile$ FOR APPEND AS #ff% size& = LOF(ff%) CLOSE #ff% IF size& = 0 THEN KILL TmpFile$: EXIT FUNCTION OPEN TmpFile$ FOR INPUT AS #ff% DO WHILE NOT EOF(ff%) AND Index% < ListMAX% Index% = Index% + 1 LINE INPUT #ff%, DirList$(Index%) LOOP DIRCount% = Index% 'SHARED variable can return the file count CLOSE #ff% KILL TmpFile$ ELSE IF Index% > 0 THEN Index% = Index% - 1 'no spec sends next file name END IF DIR$ = DirList$(Index%) END FUNCTION

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%.

(Return to Table of Contents)

QB64 Programming References

Wiki Pages Main Page with Articles and Tutorials QB64 specific keywords (alphabetical) Original QBasic keywords (alphabetical) QB64 OpenGL keywords (alphabetical) Keywords by Usage Got a question about something? Frequently Asked Questions about QB64 QB64 Phoenix Edition Community Forum Links to other QBasic Sites: Pete's QBasic Forum Pete's QBasic Downloads