Циклический сдвиг на n бит

[Sun07]

Скажите пожалуйста, какие в VB есть функции циклического сдвига на n бит значения переменной вправо или влево? Надо сдвинуть биты в байтовой переменной.

[GSerg]

Первый топик в Кирпичах об этом, мой внимательный друг...

[Sun07]

Мда, я ничего не понял там. И комментариев нет. Пришлось опять самому:

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

Public Function RotateRightByte(b As Byte, nBit As Byte) As Byte
    Dim i As Byte
    if nbit=0 then 10
    For i = 1 To nBit
    b = Fix(b / 2) + (b Mod 2) * &H80
    Next
10   RotateRightByte = b
End Function

Самое интересное, что здесь можно циклически сдвинуть байт на 200 бит

[GSerg]

Ты не понял, как вызвать одну функцию с тремя параметрами, чьи имена говорят сами за себя?

[Sun07]

там куча функций с кучами параметров. Надо было написать, что каждая функция делает. Например, я понял, что там есть функция для вылеления, скажем, из Long старшего и младшего слова. Но, глядя на код, мне проще написать свой, чем понять представленный. Я не люблю использовать код, не разобравшись. Да и как не разобравшись можно его использовать? Циклический сдвиг я так и не нашёл, и не понял, где он делается (хотя я тщательно не разбирался, да и некоторые моменты мне совсем непонятны). Короче, это код НЕ ДЛЯ НОВИЧКА (хоть я уже и не новичёк, но понять с ходу что делается в строке "DWORD = (High And &H7FFF) * &H10000 Or &H80000000 Or Low" с точки зрения логики я не могу (может, я неправильно понял назначение функции?)

[alibek]

word AND &h7FFF - выделить все биты слова, кроме старшего (15-го бита).
word * &h10000 - сдвинуть бита на 16 разрядов влево.
dword OR &h80000000 - установить старший бит двойного слова (31-ый бит).
high*&h10000 OR low - из двух слов (high и low) собрать двойное слово, high будет верхним словом, low будет нижним словом.

[Sun07]

понятно, значит это ф-я сцеления двух слов в двойное. Интересно, а зачем снимать старший бит перед сдвигом, а потом снова его устанавливать? Вроде старший бит не теряется при сдвиге и отрицательные числа умножаются нормально.

[GSerg]

До сдвига оно было положительным, что и вызовет переполнение при умножении.

[Sun07]

не, если старший бит установлен - это отрицательное число. Никакого переполнения не будет:

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

Private Sub Form_Load()
Dim a As Integer, b As Long
a = &HFFFF
MsgBox a
b = a * &H10000
c = &HFFFF0000
MsgBox b & " = " & c
End
End Sub

[alibek]

Зато &H10000 - Long и результат приводится к Long.
Умножь на &h0FFF.

[Sun07]

Alibek, мы же сдвигаем на 16 бит и результат ДОЛЖЕН быть Long. Если умножить на &h0FFF - понятно, что переполнение. А зачем, спрашивается, нам умножать на &h0FFF?

[GSerg]

Это в WORD оно нужно, поскольку байт беззнаковый.
Во-вторых, в MSDN вот так...
И в-третьих, мне кажется, когда-то я собирался передавать туда "типа unsigned short" в виде лонгов, где была бы нужна такая фишка.

А так нет...