No Title

Tue, 30 Nov 1999 00:11:00 EST

Martin,

You may have better luck trying the CScript module as VBScript does not have really easy bit operations. Still, I think you can try

Hi = CInt(GetVariable("COG_X") / 256 )
Lo = GetVariable("COG_X") AND 255

COG_X_HI = Hi
COG_X_LO = Lo
COG_X_10 = (Lo * 256) + Hi

SetVariable"COG_X_HI", COG_X_HI
SetVariable"COG_X_LO", COG_X_LO
SetVariable"COG_X_10", COG_X_10

which is a bit different from yours since I figured you are wanting to switch endian (ie swap the bytes) in the number and your's just regenerated the same number. Specifically the COG_X_10 was swapped around.

Note, if you plan to use this is the serial module to send it somewhere you can switch the \\ to / and that switches the transmitted endian at least in the serial module.

STeven.

merge variables

Tue, 30 Nov 1999 00:11:00 EST

Hello I need to merge two 8 bit values to a 16 bit value.
The line> COG_X_10 = Lo | Hi<<8 gives an error.

My code is:
Hi = GetVariable("COG_X")/256
Lo = GetVariable("COG_X")
COG_X_HI = Hi
COG_X_LO = Lo
COG_X_10 = Lo | Hi<<8

SetVariable"COG_X_HI", COG_X_HI
SetVariable"COG_X_LO", COG_X_LO
SetVariable"COG_X_10", COG_X_10

Thanks Martin

RoboRealm Forum

No Title

merge variables