CodeMercs Forum

Hi Robert
I have fixed my problem by reassigning N (Long) to a new variable, M (Integer). I’m not sure of the reason but the following code appears to work properly now !!

N = Report(2) ' The “And &HFF” does not work
N = N * 256
N = N Or Report(3)

N = N / 16 ' value is upper 12 bits of 16 ...

Hi Robert
Thanks for your prompt reply.
Unfortunately, although the program doesn't crash now, it is OK for 0 to 2.50 volts (ie 50% input) but displays decreasing negative values for input voltages in the range 2.50 to 5.00 volts. Could be something to do with the shift right / shift left function ...

I have started a project using Max127 and VB6
There is a problem in this Code area.

Dim N As Long
Dim Report(8) As Byte

' MAXIM127 control byte
' START, I = Channel index, 0-5 V = RNG 1 and BIP 1, normal operation
Report(3) = &H80 Or (I * 16)

Ret = IowKitWrite(IOWarrior, IOW_PIPE_SPECIAL ...