Proszę o pomoc w rozwiązaniu problemu z połączeniem młodszych bajtów ze starszymi w bascomie. Mam napisaną procedure zapisu do eeproma liczby long wszystko ok lecz z odczytem jest gorzej:
Dim Dana As Long
Dim Dana1 As Long
Dim Slowo_high As Word
Dim Slowo_low As Word
Dim Bajt1_high As Byte
Dim Bajt2_low As Byte
Dim Bajt3_high As Byte
Dim Bajt4_low As Byte
Dim 2bajty_starsze As Word
Dim 2bajty_mlodsze As Word
Input Dana (naprzykład: 89431)
Slowo_high = Highw(dana)
Slowo_low = Loww(dana)
Bajt1_high = High(slowo_high)
Bajt2_low = Low(slowo_high)
Bajt3_high = High(slowo_low)
Bajt4_low = Low(slowo_low)
nastepnie bajty od 1 do 4 zapisuje w eepromie 24c04
po odczycie z eeproma loncze je po dwa bajty starsze i dwa mlodsze
2bajty_mlodsze = Makeint(bajt4_low , Bajt3_high)
2bajty_starsze = Makeint(bajt2_low , Bajt1_high)
i w tym miejscu stoje. JAK POŁĄCZYĆ TE BAJTY ZA SOBĄ?
Próbowałem przez HIGH(2bajty_mlodsze)=2bajty_starsze lecz to funkcja
odnosi się do zmiennych dwu bajtowych a nie cztero.
Dim Dana As Long
Dim Dana1 As Long
Dim Slowo_high As Word
Dim Slowo_low As Word
Dim Bajt1_high As Byte
Dim Bajt2_low As Byte
Dim Bajt3_high As Byte
Dim Bajt4_low As Byte
Dim 2bajty_starsze As Word
Dim 2bajty_mlodsze As Word
Input Dana (naprzykład: 89431)
Slowo_high = Highw(dana)
Slowo_low = Loww(dana)
Bajt1_high = High(slowo_high)
Bajt2_low = Low(slowo_high)
Bajt3_high = High(slowo_low)
Bajt4_low = Low(slowo_low)
nastepnie bajty od 1 do 4 zapisuje w eepromie 24c04
po odczycie z eeproma loncze je po dwa bajty starsze i dwa mlodsze
2bajty_mlodsze = Makeint(bajt4_low , Bajt3_high)
2bajty_starsze = Makeint(bajt2_low , Bajt1_high)
i w tym miejscu stoje. JAK POŁĄCZYĆ TE BAJTY ZA SOBĄ?
Próbowałem przez HIGH(2bajty_mlodsze)=2bajty_starsze lecz to funkcja
odnosi się do zmiennych dwu bajtowych a nie cztero.