|
|
|
Название |
BitShift |
Автор |
Fallout |
Размер |
4 кб |
Дата |
11/20/2003 11:12:00 AM |
Описание |
От автора: На сайте был уже выложен пример битового сдвига.. но ксожилениюон имеет существенные недостатки 1) Возведение в степень это небыстрый процесс 2) Это не совсем коректный способ сдвига... (есть на Вб функции которые делают его коректно но опять же.... скорость .....) я предлагаю использовать мою ДЛЛ написана она на ассемблере и предлагает вам следующие функции vbShl(byVal value as long, byVal shift as long) vbShr(byVal value as long, byVal shift as long) vbSal(byVal value as long, byVal shift as long) vbSar(byVal value as long, byVal shift as long) максимальное значение сдвига от 0 до 31... соотсвенно .... (почемуже для звига тип ЛОНГ ? могу сделать и байт .... но как то неочень .... смотрится +)) Коректно и быстро.... (ДЛЛ занимет 2.5 Кб...) П.С: Прилагается пример... |
Кол-во загрузок: |
1831 |
Скачать
|
|
|
|
|
|
|