Двоичная система

[v-adix]

Привет!
Имеется два положительных числа A и B (Integer), которые могуг принимать значения от 0 до 15. И имеется переменная Result типа Byte. Нужно эти 2 числа А и B сохранить в переменной типа Byte.
Вот как вытащить из Byte-а 2 числа я вроде додумался (если неверно, поправьте плз):
B = Result & 16;
A = (Result & 240) / 16;
А как вот запихнуть 2 числа в Байт не могу додуматься!
ЗЫ Сорри мож я немного ошибся форумом... Просто подходящего форума не нашел чтоб такой вопрос задать...

[GSerg]

А ты в хекс маски переведи. Сразу очень просто станет.

[keks-n]

В байт:
bt = a * &HF + b
Из него:
b = ((bt Or &HF0) Xor &HF0)
a = ((bt - b) / &HF)

[v-adix]

Ну если в хекс там понятно 0x[число А][число B]
Но так у меня ж Интегеры!

[v-adix]

Ок щас попробую

[v-adix]

keks-n
Не работает твой пример

[keks-n]

Пардон, ошибся:
В байт:
bt = a * 16 + b
Из него:
b = ((bt Or &HF0) Xor &HF0)
a = ((bt - b) / 16)

А поскольку целые числа от 0 до 15-тип данных роли не играет.

[GSerg]

b = ((bt Or &HF0) Xor &HF0)

А не проще bt And &h0F?

a = ((bt - b) / &HF)

А не проще bt \ &h10?

[v-adix]

Кулл, пашет!
Спасибо

[v-adix]

GSerg
Проще, так сделаю Спасибо

[v-adix]

Народ, а вот допустим у меня массив типа int, в котором хранится изображение (1 элемент массива = 1 точка изображения). Хранится в формате ARGB, в таком виде:

Код: Выделить всё

00000000     11111111    00000000    11111111
A (alpha)    R (red)    G (green)  B (blue)


мне нужно вытащить оттуда составляющую A. как сделать? подскажите!

[GSerg]

А вот это в поиск...

[v-adix]

В поиске только по RGB нашел

[GSerg]

А этого не достаточно?

[v-adix]

Ну там 3 а у меня 4 составляющие

[GSerg]

А глядя на принцип получения трёх, ты четвёртую не можешь понять?

[v-adix]

Вот в том то и проблема
не понимаю как это работает Был бы рад если б кто нибудь не только конкретное решение дал, но и разьяснил что и как!

[Хакер]

Hex(RGB(255,255,255) = &hFFFFFF
Hex(ARGB(0,255,255,255) = &h00FFFFFF

следовательно Mid поможет тебы вытащить две нужные буквы хекс формата. а перевести их в Integer труда не составит

[GSerg]

Хакер
За этот совет можно банить.

[v-adix]

Хакер
&h00FFFFFF во первых это не строка
а во вторых, медленно

[Хакер]

GSerg, что на так?

[Хакер]

Хакер
&h00FFFFFF во первых это не строка

Да ну, блин
А что у нас функция Hex вернёт если её RGB(255,255,255) скормить???

а во вторых, медленно

И что тут медленного. Hex иди Mid$ или может быть тебе писать это всё медленно

[v-adix]

Не знаю что вернет Я вообще не на VB Это пишу Меня интересует как сделать это работая с числами а не через Хекс, Мекс или хз что

[alibek]

Хакер, в третьих, это неправильно и глупо. Неправильно, потому что Hex ведущие нули не возвращает. Глупо, потому что глупо преобразовывать число в строку затем, чтобы из нее снова получить число.

[v-adix]

Ну даже если так можно, какая будет скорость работы! Для меня каждая мс на счету
ну кто нибудь подскажите как это сделать работая с числами?

[alibek]

v-adix, чтобы получить отдельные биты из числа, ты используешь логические операции (например, RGB And &h0000FF00). Для того, чтобы сместить биты вверх или вниз на нужное число разрядов, ты умножаешь или делишь на степени двойки (например, (RGB And &h0000FF00) \ &h000000FF).

[Хакер]

ну тогда юзай or, and, xor, not и прочую гадость

[v-adix]

Значит, если надо отсюда:
10101011 10101000
вытащить первые 8 бит (10101011), то я:
1. [исходное число] AND 11111111 00000000
получаю: 10101011 00000000
2. полученное делю на 10000000
и получаю 10101011
теперь всё ясно !!! спасибо !!

ну тогда юзай or, and, xor, not и прочую гадость

Если чего то не понимаешь, лучше попроси помощи у других как это делаю я

[alibek]

2. Делишь не на 10000000, а на 100000000. Я в примере чуть неправильно написал, надо так: (RGB And &h0000FF00) \ &h00000100

[v-adix]

Окей, ясно, спасибо!