Custom control that replaces Visual Basic's standard Text Box control with an enhanced version that supports masked entry, limited length fields, justification and acceptable character tables.
QPRO.DLL
N/A
Custom control for entry of time data.
QPRO.DLL
N/A
Reports if the Ctrl key is currently depressed.
Declare Function CtrlKey% Lib "QPRO.DLL" ()
X% = CtrlKey%()
Custom control that allows the continuous display of the current time with settable zone offset, alarm functions and a three-dimensional frame.
QPRO.DLL
N/A
Accepts an IEEE number in string form and returns the equivalent currency value.
Declare Function CvC@ Lib "QPRO.DLL" (Number$)
X@ = CvC@(Number$)
Accepts an IEEE number in string form and returns the equivalent double precision value.
Declare Function CvD# Lib "QPRO.DLL" (Number$)
X# = CvD#(Number$)
Accepts a Microsoft Binary Format (MBF) number in string form and returns the equivalent double precision value.
Declare Function CvDMbf# Lib "QPRO.DLL" (Number$)
X# = CvDMbf#(Number$)
Accepts an IEEE number in string form and returns the equivalent integer value.
Declare Function CvI% Lib "QPRO.DLL" (Number$)
X% = CvI%(Number$)
Accepts an IEEE number in string form and returns the equivalent long integer value.
Declare Function CvL& Lib "QPRO.DLL" (Number$)
X& = CvL&(Number$)
Accepts an IEEE number in string form and returns the equivalent single precision value.
Declare Function CvS! Lib "QPRO.DLL" (Number$)
X! = CvS!(Number$)
Accepts a Microsoft Binary Format (MBF) number in string form and returns the equivalent single precision value.
Declare Function CvSMbf! Lib "QPRO.DLL" (Number$)
X! = CvSMbf!(Number$)
Accepts a date string, and returns the appropriate day of the week (1-7).
DATE2DAY.BAS
Day = Date2Day%(DateString$)
Converts a date in string form to an equivalent integer variable to allow date arithmetic.
Declare Function Date2Num% Lib "QPRO.DLL" (ByVal Dat$)
X% = Date2Num%(Dat$)
Accepts an integer value between 1 and 7, and returns the eqivalent day name as a string in the form "Mon", "Tue", etc.
Declare Function DayName$ Lib "QPRO.DLL" (ByVal Number%)
X$ = DayName$(Number%)
Reports the number of directories under the current directory that match a particular specification.
Declare Function DCount% Lib "QPRO.DLL" (ByVal DirSpec$)
X% = DCount%(DirSpec$)
Removes an element from a conventional (not fixed-length) string array.
Declare Sub DeleteStr Lib "QPRO.DLL" (Array$, ByVal NumEls%)
DeleteStr Array$(0), NumEls%
Removes an element from a fixed-length string or Type array.
Declare Sub DeleteT Lib "QPRO.DLL" (Array As Any, ByVal ElSize%, ByVal NumEls%)
DeleteT Array(0), ElSize%, NumEls%
Counts the number of delimiters in a string, by matching against a second string that contains a table of valid delimiters.
FNOTHER.BAS
Count = Delimit%(Work$, Table$)
Draws a frame around an area within a Picture Box.
FRAMES.BAS
DepthFrameCtrl CtrlName, DF
Draws a frame around an area within a Form.
FRAMES.BAS
DepthFrameFrm FormName, DF
Creates a BASIC string that will be used to hold a Bit array.
Assigns all of the elements in a specified portion of an integer array to any value.
Declare Sub Fill2 Lib "QPRO.DLL" (Array%, ByVal Value%, ByVal NumEls%)
Fill2 Array%(0), Value%, NumEls%
Assigns all of the elements in a specified portion of a long integer or single precision array to any value.
Declare Sub Fill4 Lib "QPRO.DLL" (Array As Any, Value As Any, ByVal NumEls%)
Fill4 Array(0), Value, NumEls%
Assigns all of the elements in a specified portion of a currency or double precision array to any value.
Declare Sub Fill8 Lib "QPRO.DLL" (Array As Any, Value As Any, ByVal NumEls%)
Fill8 Array(0), Value, NumEls%
Searches all or part of a conventional (not fixed-length) string array foreward looking for the first occurrence of a string or sub-string.
Declare Sub Find Lib "QPRO.DLL" (Array$, NumEls%, Search$)
Find Array$(0), NumEls%, Search$
Same as Find, except Find2 honors capitalization.
Declare Sub Find2 Lib "QPRO.DLL" (Array$, NumEls%, Search$)
Find2 Array$(0), NumEls%, Search$
Same as Find, except FindB searches backwards.
Declare Sub FindB Lib "QPRO.DLL" (Array$, NumEls%, Search$)
FindB Array$(0), NumEls%, Search$
Same as Find, except FindB searches backwards and honors capitalization.
Declare Sub FindB2 Lib "QPRO.DLL" (Array$, NumEls%, Search$)
FindB2 Array$(0), NumEls%, Search$
Searches an entire conventional (not fixed-length) string array foreward for an exact match. Unlike Find, Find2, and FindB, and the other "Find" routines, this one requires an exact match.
Declare Sub FindExact Lib "QPRO.DLL" (Array$, NumEls%, Search$)
FindExact Array$(0), NumEls%, Search$
Scans a conventional (not fixed-length) string array backwards for the last non-blank element.
Declare Function FindLast% Lib "QPRO.DLL" (Array$, ByVal NumEls%)
X% = FindLast%(Array$(0), NumEls%)
Searches all or part of a fixed-length string array for any string or sub-string.
Declare Sub FindT Lib "QPRO.DLL" (Array As Any, ByVal ElSize%, NumEls%, Search$)
FindT Array(0), ElSize%, NumEls%, Search$
Same as FindT, except FindT2 honors capitalization.
Declare Sub FindT2 Lib "QPRO.DLL" (Array As Any, ByVal ElSize%, NumEls%, Search$)
FindT2 Array(0), ElSize%, NumEls%, Search$
Same as FindT, except FindTB searches backwards.
Declare Sub FindTB Lib "QPRO.DLL" (Array As Any, ByVal ElSize%, NumEls%, Search$)
FindTB Array(0), ElSize%, NumEls%, Search$
Same as FindT, except FindTB2 searches backwards and honors capitalization.
Declare Sub FindTB2 Lib "QPRO.DLL" (Array As Any, ByVal ElSize%, NumEls%, Search$)
FindTB2 Array(0), ElSize%, NumEls%, Search$
Reads a line of data from a file opened with the QuickPak Professional FOpen routine.
Declare Function FLInput$ Lib "QPRO.DLL" (ByVal Handle, Buffer$)
X$ = FLInput$(Handle, Buffer$)
Reports the current DOS file pointer for files opened with the QuickPak Professional FOpen routine.
Declare Function Floc& Lib "QPRO.DLL" (ByVal Handle%)
X& = Floc&(Handle%)
Returns the length of a file opened with the QuickPak Professional FOpen routine.
Declare Function FLof& Lib "QPRO.DLL" (ByVal Handle%)
X& = FLof&(Handle%)
Reads CMOS memory and returns the type of floppy disks installed on a system.
Declare Sub FloppyType Lib "QPRO.DLL" (DriveA%, DriveB%)
FloppyType DriveA%, DriveB%
Controls the manner in which numeric, date and time custom controls are displayed.
CSCurrency, CSDate, CSDouble, CSLong, CSTime
[form.][control].FmtControl[ = integer%]
Specifies the currency symbol that is used by the CSCurrency custom control.
CSCurrency
[form.]CSCurrency.FmtCurrency[ = string$]
Specifies whether or not the day portion of a date should be displayed in a CSDate custom control.
CSDate
[form.]CSDate.FmtDay[ = integer%]
Specifies the number of digits to the right of the decimal point in a numeric Edit control.
CSCurrency, CSDouble
[form.][control.]FmtDecDigits[ = integer%]
Specifies the character that is used for the decimal place in a numeric Edit control's display.
CSCurrency, CSDouble
[form.][control.]FmtDecimal[ = string$]
Specifies the number of allowable whole number digits to the left of the decimal point in the display of a numeric Edit control.
CSCurrency, CSDouble, CSLong
[form.][control.]FmtIntDigits[ = integer%]
Specifies how the month portion of a date is displayed in the CSDate custom control.
CSDate
[form.]CSDate.FmtMonth[ = integer%]
Specifies the separator character used between the components of a date or time field when using the CSDate or CSTime controls.
CSDate, CSTime
[form.][control.]FmtSeparator[ = string$]
Specifies the character that is used for the thousands separator in a numeric Edit control's display.
CSCurrency, CSDouble, CSLong
[form.][control.]FmtThousands[ = string$]
Specifies how the year portion of a date is displayed in the CSDate custom control.
CSDate
[form.]CSDate.FmtYear[ = integer%]
Opens a disk file in preparation for reading or writing data.
Declare Sub FOpen Lib "QPRO.DLL" (ByVal FileName$, Handle%)
FOpen FileName$, Handle%
Opens a disk file for any access mode including all of the variations required for a network.
Places in order all or a specified portion of a conventional (not fixed-length) string array by sorting a parallel index array (ascending or descending order).
Accepts an integer value between 1 and 12, and returns an equivalent month name as a string in the form, "Jan", "Feb", etc.
Declare Function MonthName$ Lib "QPRO.DLL" (ByVal Number%)
X$ = MonthName$(Number%)
Causes a custom List Box to display items in a snaking multi-column format.
QPList
Design Time Only
Re-names a directory.
Declare Sub NameDir Lib "QPRO.DLL" (ByVal OldName$, ByVal NewName$)
NameDir OldName$, NewName$
Re-names a file.
Declare Sub NameFile Lib "QPRO.DLL" (ByVal OldName$, ByVal NewName$)
NameFile OldName$, NewName$
Returns a local network machine name if your program is running on a network compatible with the NetBios standard.
Declare Function NetName$ Lib "QPRO.DLL" ()
X$ = NetName$()
Returns the offset of the first character in a string that does not match any of the charachters in another.
Declare Function NotInstr% Lib "QPRO.DLL" (ByVal Start%, Source$, Table$)
X% = NotInstr%(Start%, Source$, Table$)
Reports if a specified string is either null (0 length), or is filled with blank or Chr (0) characters.
Declare Function Null% Lib "QPRO.DLL" (Work$)
X% = Null%(Work$)
Converts a number into an equivalent binary string with a fixed length of 16 digits.
Declare Function Num2Bin$ Lib "QPRO.DLL" (ByVal Value%)
X$ = Num2Bin$(Value%)
Same as Num2Bin, except Num2Bin2 returns only as many digits as required to represent the number.
Declare Function Num2Bin2$ Lib "QPRO.DLL" (ByVal Value%)
X$ = Num2Bin2$(Value%)
Converts a previously encoded integer date to an equivalent date string.
Declare Function Num2Date$ Lib "QPRO.DLL" (ByVal X%)
X$ = Num2Date$(X%)
Accepts an integer number that represents a date in the QuickPak Professional format, and returns the appropriate day of the week (1-7).
Declare Function Num2Day% Lib "QPRO.DLL" (ByVal X%)
X% = Num2Day%(X%)
Converts a long integer that represents the number of seconds past midnight to an equivalent time in string form.
Declare Function Num2Time$ Lib "QPRO.DLL" (X&)
X$ = Num2Time$(X&)
Reports if the NumLock key is currently on or off.
Declare Function NumLock% Lib "QPRO.DLL" ()
X% = NumLock%()
Turns off the NumLock key status.
Declare Sub NumOff Lib "QPRO.DLL" ()
NumOff
Turns on the NumLock key status.
Declare Sub NumOn Lib "QPRO.DLL" ()
NumOn
Visual Basic replacement for the DOS BASIC routine of the same name, used to write directly to a machine port.
Declare Sub Out Lib "QPRO.DLL" (ByVal Port%, ByVal bData%)
Out Port%, bData%
Custom event that is triggered whenever an Edit control looses focus, and the value of its contents is outside the range specified in the MaxValue or MinValue properties.
CSCurrency, CSDate, CSDouble, CSLong, CSTime
Adds leading zeros to a number, padding it to a specified number of digits.
FNOTHER.BAS
Padded$ = Pad$(Number!, Digits%)
Draws a concave (top and left are grey, bottom and right are white) frame around a control within a Form.
FRAMES.BAS
PaintFrameCtrl FormName, CtrlName
Draws a convex (top and left are white, bottom and right are grey) frame around a Form. This causes forms to appear to have thickness.
FRAMES.BAS
PaintFrameFrm FormName
Extracts individual components from a string, and places each into a separate elements of a string array.
FNOTHER.BAS
Parse Work$, Delim$, Array$()
Accepts an incoming string that contains numbers separated by commas, and returns a new string consisting of equivalent ASCII characters.
FNOTHER.BAS
Code$ = ParseStr$(List$)
Accepts a string containing delimited information and returns portions of the string each time it is invoked.
Declare Function ParseString$ Lib "QPRO.DLL" (CurPos%, Work$, Delimit$)
X$ = ParseString$(CurPos%, Work$, Delimit$)
Reads one byte from a specified segment and address and returns its value.
Declare Function Peek1% Lib "QPRO.DLL" (ByVal Segment%, ByVal Address%)
X% = Peek1%(Segment%, Address%)
Reads a word (two bytes) at a specified segment and address, and returns its value.
Declare Function Peek2% Lib "QPRO.DLL" (ByVal Segment%, ByVal Address%)
X% = Peek2%(Segment%, Address%)
Visual Basic replacement for DOS BASIC PLAY statement.
Declare Function Play% Lib "QPRO.DLL" (Tune$)
X% = Play%(Tune$)
Writes a new byte to a specified segment and address.
Raises any number to a power specified without using floating point math.
Declare Function Power% Lib "QPRO.DLL" (ByVal Mantissa%, ByVal Exponent%)
X% = Power%(Mantissa%, Exponent%)
Raises the number 2 to a power specified without using floating point math.
Declare Function Power2% Lib "QPRO.DLL" (ByVal Exponent%)
X% = Power2%(Exponent%)
Converts the first letter of each word in a string to upper case.
Declare Sub ProperName Lib "QPRO.DLL" (PName$)
ProperName PName$
Creates or renames a disk volume label.
Declare Sub PutVol Lib "QPRO.DLL" (ByVal Drive$, ByVal Label$)
PutVol Drive$, Label$
Lets you design password entry fields that do not display their contents.
CSText
[form.]CSText.PWCharacter[ = string$]
Loads a QBSaved file into memory much like DOS BASIC's BLOAD.
Declare Sub QBLoad Lib "QPRO.DLL" (ByVal FileName$, Array%)
QBLoad FileName$, Array%(0)
Saves an array of data to disk.
Declare Sub QBSave Lib "QPRO.DLL" (ByVal FileName$, Array%, ASize&)
QBSave FileName$, Array%(0), ASize&
Serves the same purpose as Visual Basic's InStr function, except it accepts any number of wild cards.
Declare Function QInstr% Lib "QPRO.DLL" (ByVal Start%, Source$, Search$)
X% = QInstr%(Start%, Source$, Search$)
Same as QInstr, except QInstr2 is case-insensitive.
Declare Function QInstr2% Lib "QPRO.DLL" (ByVal Start%, Source$, Search$)
X% = QInstr2%(Start%, Source$, Search$)
Same as QInstr, except it searches the source string backwards.
Declare Function QInstrB% Lib "QPRO.DLL" (ByVal Start%, Source$, Search$)
X% = QInstrB%(Start%, Source$, Search$)
Same as QInstr, except it searches the source string backwards, and is case-insensitive.
Declare Function QInstrB2% Lib "QPRO.DLL" (ByVal Start%, Source$, Search$)
X% = QInstrB2%(Start%, Source$, Search$)
Returns the Arc cosine of X.
FNSPREAD.BAS
ACos# = QPACOS#(x#)
Returns the Arc sine of X.
FNSPREAD.BAS
ASin# = QPASIN#(x#)
Returns the 4-quadrant arc tangent of Y/X.
FNSPREAD.BAS
ATan# = QPATAN2#(X#, Y#)
Returns the average of the values in an array.
FNSPREAD.BAS
Avg# = QPAVG#(Array#())
Finds the future value of a savings account drawing compound interest.
FNSPREAD.BAS
Cint@ = QPCint@(pv@, Intr#, Term%)
Returns the number of entries in an array.
FNSPREAD.BAS
Count% = QPCount%(Array#())
Determines the number of compounding periods it will take an investment to grow to a pre-determined value.
FNSPREAD.BAS
CTerm# = QPCTerm#(pv@, fv@, Intr#)
Calculates double declining balance depreciation.
FNSPREAD.BAS
DDB@ = QPDDB@(Cost@, Sal@, Life%, Per%, M!)
Calculates the future value of an annuity (sinking fund).
FNSPREAD.BAS
FV@ = QPFV@(pmt@, Intr#, Term%)
Calculates the future value of an annuity due.
FNSPREAD.BAS
FVD@ = QPFVD@(pmt@, Intr#, Term%)
Calculates the term (number of payments) of a sinking fund.
FNSPREAD.BAS
FVN# = QPFVN#(fv@, pmt@, Intr#)
Calculates the term (number of payments) of an annuity due/FV.
FNSPREAD.BAS
FVND# = QPFVND#(fv@, pmt@, Intr#)
Calculates the payment amount of a sinking fund.
FNSPREAD.BAS
FVP@ = QPFVP@(fv@, Intr#, Term%)
Calculates the payment amount of an annuity due/FV.
FNSPREAD.BAS
FVPD@ = QPFVPD@(fv@, Intr#, Term%)
Alternate version of Visual Basic's Hex function that returns a string padded to a specified number of digits.
Declare Function QPHex$ Lib "QPRO.DLL" (Number As Any, ByVal Digits%)
X$ = QPHex$(Number, Digits%)
(Control) Replaces Visual Basic's horizontal Scroll Bar control.
QPRO.DLL
N/A
Calculates the internal rate of return.
FNSPREAD.BAS
IRR# = QPIRR#(Intr#, Array#())
Example code version of Visual Basic's Len function.
Declare Function QPLen% Lib "QPRO.DLL" (A$)
X% = QPLen%(A$)
Custom control that replaces Visual Basic's standard List Box control.
QPRO.DLL
N/A
Returns log of X base 10.
FNSPREAD.BAS
LOG10# = QPLOG10#(X#)
Returns the highest value in a list.
FNSPREAD.BAS
Max# = QPMAX#(Array#())
Returns the lowest value in an array.
FNSPREAD.BAS
Min# = QPMIN#(Array#())
Calculates the net present value of future cash flows.
FNSPREAD.BAS
NPV# = QPNPV#(Intr#, Array#())
Calculates loan payment (ordinary annuity).
FNSPREAD.BAS
PMT@ = QPPMT@(pv@, Intr#, Term%, bal@)
Calculates lease payments (annuity due).
FNSPREAD.BAS
PMTD@ = QPPMTD@(pv@, Intr#, Term%, bal@)
Calculates present value of an ordinary annuity.
FNSPREAD.BAS
PV@ = QPPV@(pmt@, Intr#, Term%, bal@)
Calculates the present value of an annuity due.
FNSPREAD.BAS
PVD@ = QPPVD@(pmt@, Intr#, Term%, bal@)
Calculates the term (number of payments) of an ordinary annuity.
FNSPREAD.BAS
PVN# = QPPVN#(pmt@, Intr#, pv@, bal@)
Calculates the term (number of payments) of an annuity due.
FNSPREAD.BAS
PVND# = QPPVND#(pmt@, Intr#, pv@, bal@)
Obtains the periodic interest rate required for an investment to grow to a pre-determined value in a specified time.
FNSPREAD.BAS
Rate# = QPRate#(pv@, fv@, Term%)
Rounds a number to a specified number of decimal places.
FNSPREAD.BAS
ROUNDED$ = QPROUND$(Ammount#, Places%)
Returns the segmented address of a numeric or Type variable.
Declare Function QPSegAdr& Lib "QPro.DLL" (Array As Any)
X& = QPSegAdr&(Array(0))
Calculates straight line depreciation.
FNSPREAD.BAS
SLN@ = QPSLN@(Cost@, Sal@, Life%)
Returns the population deviation of items in a list.
FNSPREAD.BAS
STD# = QPSTD#(Array#())
Returns the sum of all values in an array.
FNSPREAD.BAS
Sum# = QPSUM#(Array#())
Calculates sum-of-years-digits depreciation.
FNSPREAD.BAS
SYD@ = QPSYD@(Cost@, Sal@, Life%, Per%)
Returns the low-word portion of a long integer.
Declare Function QPUSI% Lib "QPRO.DLL" (ByVal LongInt&)
X% = QPUSI%(LongInt&)
Returns the population variance of values in a list.
FNSPREAD.BAS
Var# = QPVAR#(Array#())
Custom control that replaces Visual Basic's vertical Scroll Bar control.
QPRO.DLL
N/A
Returns the day of the week (1-7) given a legal DOS date in string form.
Declare Function QPWeekDay% Lib "QPRO.DLL" (D$)
X% = QPWeekDay%(D$)
Returns the contents of a masked entry Edit control without data deliminators.
CSDate, CSTime, CSText
[form.][control].RawData[ = string$]
Obtains a list of directory names from disk and loads them into a conventional (not fixed-length) string array.
Declare Sub ReadDir Lib "QPRO.DLL" (DirArray$)
ReadDir DirArray$(0)
Accepts a file specification with wild cards and returns the full path and file information for every matching file on the specified drive.
READDIRS.BAS
ReadDirs
Obtains a list of directory names from disk and loads them into a Type array.
Declare Sub ReadDirT Lib "QPRO.DLL" (ByVal Spec$, DirArray As Any)
ReadDirT Spec$, DirArray(0)
Obtains a list of file names from disk and loads them into a conventional (not fixed-length) string array.
Declare Sub ReadFile Lib "QPRO.DLL" (FileArray$)
ReadFile FileArray$(0)
Obtains a list of file names, sizes, dates and times from disk, formats them and loads them into a conventional string array.
Declare Sub ReadFileI Lib "QPRO.DLL" (FileArray$)
ReadFileI FileArray$(0)
Obtains a list of file names from disk and loads them into a Type array.
Declare Sub ReadFileT Lib "QPRO.DLL" (ByVal Spec$, FileArray As Any)
ReadFileT Spec$, FileArray(0)
Obtains a list of file names, sizes, dates and times from disk and loads them into separate components of a Type array.
Declare Sub ReadFileX Lib "QPRO.DLL" (ByVal Spec$, DirSize&, FullInfo As Any)
ReadFileX Spec$, DirSize&, FullInfo
Reads the contents of any disk sector into a conventional (not fixed-length) string.
Declare Sub ReadSect Lib "QPRO.DLL" (ByVal Drive$, Info$, ByVal Sector&)
ReadSect Drive$, Info$, Sector&
Reports whether a specified disk drive is ready for reading.
Declare Function ReadTest% Lib "QPRO.DLL" (ByVal Drive$)
X% = ReadTest%(Drive$)
Scans through a given string and replaces any control characters with a specified new character.
Declare Sub RemCtrl Lib "QPRO.DLL" (X$, Replace$)
RemCtrl X$, Replace$
Determines if a drive is a floppy drive.
Declare Function Removable% Lib "QPRO.DLL" (ByVal Drive$)
X% = Removable%(Drive$)
Replaces all occurrences of a specified character with a different character.
Declare Sub ReplaceChar Lib "QPRO.DLL" (Work$, Old$, New$)
ReplaceChar Work$, Old$, New$
Same as ReplaceChar, except it is case-insensitive.
Declare Sub ReplaceChar2 Lib "QPRO.DLL" (Work$, Old$, New$)
ReplaceChar2 Work$, Old$, New$
Returns the near address of the data associated with a variable length string.
Declare Function Sadd% Lib "QPRO.DLL" (A$)
X% = Sadd%(A$)
Scans a file for a particular string.
SCANFILE.BAS
Found = ScanFile&(FileName$, Text$, Start&)
Reports if the Scroll lock key is currently on or off.
Declare Function ScrolLock% Lib "QPRO.DLL" ()
X% = ScrolLock%()
Turns the Scroll Lock key off.
Declare Sub ScrollOff Lib "QPRO.DLL" ()
ScrollOff
Turns the Scroll Lock key on.
Declare Sub ScrollOn Lib "QPRO.DLL" ()
ScrollOn
Scans all or a portion of a numeric array to find the first match of a given value. Searching may be performed either foreward or backwards, and the match may be specified to be exact, less than or equal to, or greater than or equal to.
Declare Sub Find2 Lib "QPRO.DLL" (Array$, NumEls%, Search$)
Find2 Array$(0), NumEls%, Search$
Specifies a string to search for, and also triggers a search within a custom List Box.
QPList
[form.]QPList.SearchString = string$
Allows you to search for any type of data (numeric or string) in a Type array and is case sensitive.
Declare Function SearchT% Lib "QPRO.DLL" (Array As Any, ByVal NumEls%, Match As Any, ByVal Direc%, ByVal Code%, ByVal Strsize%, ByVal MemOf%, ByVal Memsize%)
Visual Basic replacement for the DOS BASIC SOUND statement, which produces a tone of a given frequency and duration.
Declare Function Sound% Lib "QPRO.DLL" (ByVal Frequency%, ByVal Duration%)
X% = Sound%(Frequency%, Duration%)
Returns a "sounds like" code that can be used to see if two strings sound alike.
Declare Function Soundex$ Lib "QPRO.DLL" (Work$)
X$ = Soundex$(Work$)
Accepts a number in the form of a string such as "12345" and returns a spelled-out English equivalent in the form of "Twelve Thousand Three Hundred Forty Five".
SPELLNUM.BAS
English$ = SpellNumber$(Str$(Number%))
Splits a Windows long integer color value into its component RGB (Red, Green, Blue) values.
Declare Sub SplitColor Lib "QPRO.DLL" (Red%, Green%, Blue%, OrigColr&)
SplitColor Red%, Green%, Blue%, OrigColr&
Returns the segment portion (of a far address) of a variable length string's data.
Declare Function SSeg% Lib "QPRO.DLL" (A$)
X% = SSeg%(A$)
Specifies the first item to search when using the SearchString property to locate a string within a custom List Box control.
QPList
[form.]QPList.StartSearch[ = integer%]
Returns the Windows system directory name (including its drive).
Declare Function SysDir$ Lib "QPRO.DLL" ()
X$ = SysDir$()
Obtains the current system time through DOS, and returns it in a string formatted to the hundredth of a second.
Declare Sub SysTime Lib "QPRO.DLL" (t$)
SysTime t$
Visual Basic replacement for the DOS BASIC SWAP command which exchanges the contents of two variables.
Declare Sub Swap Lib "QPRO.DLL" (Data1 As Any, Data2 As Any, ByVal TypeCode%)
Swap Data1, Data2, TypeCode%
Sets or returns the current Tab width in a Single Column List Box control.
QPList
[form.]QPList.TabWidth[ = long&]
Converts a time in string form to an equivalent number of seconds after midnight to allow time arithmetic.
Declare Function Time2Num& Lib "QPRO.DLL" (ByVal Tim$)
X& = Time2Num&(Tim$)
Controls the format of the time that is displayed by a CurTime custom control.
CurTime
[form.]CurTime.TimeMode[ = integer%]
Multiplies an integer variable times 2, without causing an overflow if the value exceeds 32,767.
Declare Function Times2% Lib "QPRO.DLL" (ByVal NumberX%)
X% = Times2%(NumberX%)
Sets or returns the index of the item displayed at the top of a custom List Box control.
QPList
[form.]QPList.TopRow[ = integer%]
Constrains an incoming value to a specified upper and lower range limit.