Re: Konwersja zmiennej LONG na BCD

2015-01-04T15:22:59+01:00

Kod wydaje się być w porządku, a jedynym problemem jaki może zaistnieć to jedynie ta linia:

[syntax=basic4gl]Printbin B1 ; B2 ; B3 ; B4 ; 1[/syntax]
A dokładniej to po czym sądzisz, że dane są błędnie przetwarzane?
Próbując wysłać dane w sposób binarny nie otrzymasz "poprawnej" (oczekiwanej) odpowiedzi np. w terminalu. Samo kodowanie BCD wymusza pewien specyficzny format zapisu, który nijak nie da się przedstawić w sposób typowy.

W efekcie nie otrzymasz napisu "123456780", a mimo wszystko konwersja mogła przebiec pomyślnie.

Statystyki: Napisane przez atmel — 4 sty 2015, o 15:22

Konwersja zmiennej LONG na BCD

2015-01-04T07:47:15+01:00

Witam,

Jak można zamienić zmienną typu LONG na kod BCD , mam taki kod ale on źle dzieli liczby

[syntax=basic4gl]Dim _freq As Long
Dim L As Long
Dim B As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte

_freq = 123456780
Cls
Do
'_freq is a long and the frequency value is in Hz
'split freq into 4 bcd pairs
'100/10MHZ 1MHZ/100KHz 10/1KHz 100/10Hz

'eg _freq= 123 456 780
L = _freq / 10000000 'eg L = 12
B = L 'eg b = 12
B1 = Makebcd(b) 'e.g. bcd for 1 and bcd for 2

_freq = _freq Mod 10000000 'eg _freq = 3456780
L = _freq / 100000 'eg L = 34
B = L 'eg b = 34
B2 = Makebcd(b) 'e.g. bcd for 3 and bcd for 4

_freq = _freq Mod 100000 'eg _freq = 56780
L = _freq / 1000 'eg L = 56
B = L 'eg b = 56
B3 = Makebcd(b) 'e.g. bcd for 5 and bcd for 6

_freq = _freq Mod 1000 'eg _freq = 780
L = _freq / 10 'eg L = 78
B = L 'eg b = 78
B4 = Makebcd(b) 'e.g. bcd for 7 and bcd for 8

Printbin B1 ; B2 ; B3 ; B4 ; 1[/syntax]

Statystyki: Napisane przez slawek3000 — 4 sty 2015, o 07:47

ATNEL tech-forum

Re: Konwersja zmiennej LONG na BCD

Konwersja zmiennej LONG na BCD