Биты

[meren]

Как програмно обработать байт побитно
10100000 A0
11111010 FA

10101100 AC
11001010 CA
инверсия плюс перемещение 0_го бита на 8_е, 1_го на 7_е место и т.д

[ism]

Насчет инверсии i

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

i=not i


Сдвиг i в на n разрядов право вроде бы так, он иногда глюки с округлением деления

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

i=i / (2 ^ n)

Как очень тупой, но работающий способ вставка на АСМе с NOT,ROL,ROR, SHL и SHR. Или еще в строку, строку переделать и обратно.

Для обратного порядка можно так

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

Function BinZad(n As Byte) As Byte
Dim res As Byte
For i = 1 To Len(n) * 8
If n And 2 ^ (i - 1) Then res = res Or 2 ^ (8 - i)
Next
BinZad = res
End Function


[meren]

Последний как по маслу ....
Спасибо

способ вставка на АСМе - если есть любой примерчик, было бы
не дурно.

[GSerg]

Если было бы недурно, то в Кирпичах есть.

[d3drm]

нда, ГСерж, как всегда в своем репертуаре =)