BCD & Decimal Converter

AlecTek · Nov 17, 2010

Can anyone give me a script to convert BCD number in Decimal, or vice versa?

for ex. 0x300 <-> 300 (decimal).

AlecTek · Nov 17, 2010

Forget it. I got it work.

Mickey · Nov 17, 2010

Care to share your solution. It may help others in the future.

AlecTek · Nov 17, 2010

The solution is simple: add :B after the tag.

I thought I had to program it in LookoutDirect to display a value in DL260.

Mark- · Nov 17, 2010

Hello,

> Care to share your solution.

Something to chew on:

result:=(value and $F);
result:=result + (((value shr 4) and $F) * 10);
result:=result + (((value shr 8) and $F) * 100);
result:=result + (((value shr 12) and $F) * 1000);

Good luck,

Mark
http://www.peakhmi.com/

AlecTek · Nov 17, 2010

Thank you Mark.

LookoutDirect doesn't support bit operations...I 'm thinking if I have a communication driver for directLogics I might use VB next time.

Mark- said:
Hello,

> Care to share your solution.

Something to chew on:

result:=(value and $F);
result:=result + (((value shr 4) and $F) * 10);
result:=result + (((value shr 8) and $F) * 100);
result:=result + (((value shr 12) and $F) * 1000);

Good luck,

Mark
http://www.peakhmi.com/

BCD & Decimal Converter

AlecTek

Member

AlecTek

Member

Mickey

Lifetime Supporting Member

AlecTek

Member

Mark-

Lifetime Supporting Member

AlecTek

Member

Similar Topics