You do NOT "pass information to a SLL" (or DLL for that matter).
You DO pass information to Procedures ( or interface METHODs).
You DO pass information to Procedures ( or interface METHODs).
#COMPILE SLL #DIM ALL TYPE SIDEANGLE length AS DOUBLE oppangle AS DOUBLE opprdns AS DOUBLE END TYPE TYPE TRIANGLE A AS SIDEANGLE B AS SIDEANGLE C AS SIDEANGLE END TYPE DECLARE FUNCTION Radians(angleindegrees AS DOUBLE) COMMON AS DOUBLE SUB AngleSideAngle(ang1 AS DOUBLE, leng AS DOUBLE, ang2 AS DOUBLE, tasa AS TRIANGLE) COMMON tasa.A.oppangle = ang1 tasa.A.opprdns = Radians (ang1) tasa.B.oppangle = ang2 tasa.B.opprdns = Radians (ang2) tasa.C.oppangle = 180- tasa.A.oppangle- tasa.B.oppangle tasa.C.opprdns = Radians (tasa.C.oppangle) tasa.C.length = leng tasa.A.length = tasa.C.length/SIN(tasa.A.opprdns)/SIN(tasa.C.opprdns) tasa.B.length = tasa.C.length/SIN(tasa.B.opprdns)/SIN(tasa.C.opprdns) END SUB
Creating a Static Link Library |
#COMPILE SLL $OBJECT_NAME = "ABCDEFG" %OBJECT_SIZE = 1028& FUNCTION CreateMMF () LOCAL szFileName AS ASCIIZ * %MAX_PATH szFileName = $OBJECT_NAME hFileMapping = CreateFileMapping (%INVALID_HANDLE_VALUE, BYVAL %NULL, %PAGE_READWRITE , %NULL, %OBJECT_SIZE, szFileName) Put some values into the mapped object DO NOT CLOSE THE HANDLE END FUNCTION
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment