Mikroelektronika MIKROE-350 データシート

483

- SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD

CHAPTER 6

sub function Dec2Bcd(dim decnum as byte) as byte

Converted BCD value.

Converts input number to its appropriate BCD representation. 

Parameters : 

- 

decnum:

number to be converted 

Nothing.

dim a, b as byte
...

a = 22
b = Dec2Bcd(a) ' b equals 34

sub function Bcd2Dec16(dim bcdnum as word) as word

Converted decimal value.

Converts 16-bit BCD numeral to its decimal equivalent.

Parameters : 

- 

bcdnum:

16-bit BCD numeral to be converted 

Nothing.

dim a, b as word
...
a = 0x1234        ' a equals 4660
b = Bcd2Dec16(a)  ' b equals 1234