Pomoč pri razčlenjevanju

Bascom, pa ne le ta tudi vsi jeziki tipa Basic

Moderator: tilz0R

Pomoč pri razčlenjevanju

OdgovorNapisal/-a rizzo » 14 Apr 2020, 17:42

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?
rizzo
 
Prispevkov: 9
Pridružen: 05 Avg 2015, 10:29
Zahvalil se je: 6 krat
Prejel zahvalo: 1 krat
Uporabnika povabil: Iztok
Število neizkoriščenih povabil: 0

Re: Pomoč pri razčlenjevanju

OdgovorNapisal/-a gumby » 14 Apr 2020, 17:54

Vzameš spodnji byte, nato pa deliš z 256 (ali shift v desno za 8 bitov) in ponoviš.
my brain hurts
Uporabniški avatar
gumby
 
Prispevkov: 2602
Pridružen: 14 Jan 2015, 19:49
Kraj: Lendava
Zahvalil se je: 110 krat
Prejel zahvalo: 618 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 63

Re: Pomoč pri razčlenjevanju

OdgovorNapisal/-a zanka » 14 Apr 2020, 18:22

Lahko se uporabi tudi ostanek pri deljenju z 256. Ta bo vrnil zadnja 2 znaka v šestnajstiškem zapisu.
Uporabniški avatar
zanka
 
Prispevkov: 2668
Pridružen: 17 Mar 2016, 01:16
Zahvalil se je: 115 krat
Prejel zahvalo: 264 krat
Uporabnika povabil: DusanK
Število neizkoriščenih povabil: 52

Re: Pomoč pri razčlenjevanju

OdgovorNapisal/-a gumby » 14 Apr 2020, 18:30

Računanje ostanka je preveč potratno v tem primeru... bitni OR z 255 ena operacija v assemblerju.
my brain hurts
Uporabniški avatar
gumby
 
Prispevkov: 2602
Pridružen: 14 Jan 2015, 19:49
Kraj: Lendava
Zahvalil se je: 110 krat
Prejel zahvalo: 618 krat
Uporabnika povabil: Vrtni palček
Število neizkoriščenih povabil: 63

Re: Pomoč pri razčlenjevanju

OdgovorNapisal/-a rizzo » 14 Apr 2020, 19:22

Hvala za namig. Nevem kje sem imel glavo :D

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.
rizzo
 
Prispevkov: 9
Pridružen: 05 Avg 2015, 10:29
Zahvalil se je: 6 krat
Prejel zahvalo: 1 krat
Uporabnika povabil: Iztok
Število neizkoriščenih povabil: 0


Vrni se na Bascom

Kdo je na strani

Po forumu brska: 0 registriranih uporabnikov in 1 gost