Pomoč pri razčlenjevanju

[rizzo]

Potreboval bi pomoč pri naslednjem primeru.

Koda: Izberi vse


Dim Koncni_rezultat as dword
Dim K(4) as byte

Koncni rezultat = 4c5c6c7c

.....

K(1)=7c
K(2)=6c
K(3)=5c
K(4)=4c



Sedaj me zanima to. Kako priti iz končnega_rezultata do k(1), k(2), k(3), k(4)? Kako razčleniti neko vrednost na array?

[gumby]

Vzameš spodnji byte, nato pa deliš z 256 (ali shift v desno za 8 bitov) in ponoviš.

[zanka]

Lahko se uporabi tudi ostanek pri deljenju z 256. Ta bo vrnil zadnja 2 znaka v šestnajstiškem zapisu.

[gumby]

Računanje ostanka je preveč potratno v tem primeru... bitni OR z 255 ena operacija v assemblerju.

[rizzo]

Hvala za namig. Nevem kje sem imel glavo

Koda: Izberi vse

 

      Ar(4) = Koncni

      J = Koncni

      Shift J , Right , 8

      Ar(3) = J
        .....



Kam so izginili gumbi za zahvalo? Hvala obema za hiter odgovor.