разбить word на два байта

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

sherman

Дата: Понедельник, 13.05.2013, 23:08 | Сообщение # 1

Группа: Проверенные

Сообщений: 55

Статус: Offline

Всем привет! В общем встала задача разбить большие данные (word, long) на отдельные байты. Как это можно сделать например для типа Word? Это как раз двухбайтный тип переменной, нужно как-то разбить его на старший и младший байты.

exersizze

Дата: Вторник, 14.05.2013, 00:23 | Сообщение # 2

Группа: Администраторы

Сообщений: 723

Статус: Offline

Это делается с помощью сдвига, командой Shift
вот простой кусок кода для вытаскивания "левого" байта из ворда

Код

$sim

Dim A As Word
A = 256                    '0000000100000000
Dim B As Byte
'сдвигаем все на 8 вправо
Shift A , Right , 8                    '0000000000000001
B = A                    '00000001
Print B                    'напечатает 1

End

аналогично и с оставшейся частью.

Петр

Дата: Вторник, 14.05.2013, 11:32 | Сообщение # 3

Группа: Проверенные

Сообщений: 47

Статус: Offline

Цитата (exersizze)

Это делается с помощью сдвига, командой Shift

Я бы использовал бы функции LOW() и HIGH().

sherman

Дата: Вторник, 14.05.2013, 12:36 | Сообщение # 4

Группа: Проверенные