PureBasic Forums - English

I have researched the forums and have seen many ways to pass a value by reference and am now confused as the which is the best method. In VisualBasic 6 and PowerBasic you can specify the keyword "ByRef", so I am simply looking for the equivalent way in PureBasic. :D

The following works, but is it ...

As another quick test, I tried the following code which returns "112596307.00"

Hi srod, thanks for your correction. Now I have it exactly like yours. The output from 3rd party app is "0". Here is the output from the log file:

2012-06-09, 16:27:59:: v20120609-1424 AddFloat:3.1400001049 + 2.1500000954 = 5.2899999619, PeekL=1084835758




EnableExplicit

#DebugLog = 1 ; Off=0 ...

Thanks srod for the suggestion. Unfortunately, it did not work. Here's the snippet of modified code. I put in your changes and also output some info to a log file:

ProcedureDLL.f AddFloat(num1.f, num2.f)
Protected Mysum.f
Mysum = num1 + num2
CompilerIf #DebugLog=1
PrintToFile("v20120609-1417 ...

I wrote the following simple 64 bit DLL and am unable to get it to work with a 3rd party application called Multicharts64. The problem seems to be when I try to return a double or float. I'm using PB64 v4.61.


EnableExplicit

; These 4 procedures are Windows specific
;

; This procedure is called ...

Yikes, a newbie mistake.

I justed wanted to let Addict know his old post was still useful and appreciated. It's a great forum and offers tons of great knowledge.

Addict,

Thank you for your great VB to PB example. It is much appreciated and works perfect.

The 3rd party app is passing me an array of doubles. The array is multi purpose whereby sometimes the values in the array are to be used as doubles in math calculations, yet other times, as in my case, as an array index.

Is this more efficient?

Thank you Addict for the code for Logical And on doubles.

I would appreciate your input on my array index question also. Sorry if it seems silly, but I'm new to PB and am just trying to make sure I'm not coding it inefficiently.

Thank you.

The following causes compiler to hiccup:

Define d1.d
Dim MyArray.d(10)

d1 = 2.0
MyArray( d1 ) = 123.45


So I changed it to this which works:

Define d1.d
Dim MyArray.d(10)

d1 = 2.0
MyArray( Int(d1) ) = 123.45


Question:
My snippet is just to demonstrate the issue where my index is being ...

I am trying to do the following:


Define d1.d, d2.d, d3.d
d1 = Int(d2) & Int(d3)


Which throws compiler error "Can't use any of the following operands with floats: <<,>>,&..."

If I change it to this it works:

Procedure.d Double( MyInt.i )
ProcedureReturn MyInt
EndProcedure

Define d1.d, d2.d ...

Thank you for your excellent replies.

I need the function Log2 and came up with the following:


Define x.d, num.d
x = 8
num = Log(x)/Log(2)


which gives num = 2.99999999999996 which is close but not exact. The exact answer is 3 which is 2^3 = 8 or Log2(8) = 3. Perhaps this difference is due to floating point error.

QUESTION:
Is ...