Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: ROL, ROR Добавлено: 19.10.04 02:15  

Автор вопроса:  CyRax  | Web-сайт: basicproduction.nm.ru | ICQ: 204447456 

Ответить

  Ответы Всего ответов: 23  

Номер ответа: 16
Автор ответа:
 Fallout



Вопросов: 10
Ответов: 387
 Web-сайт: mudator.by.ru
 Профиль | | #16
Добавлено: 19.10.04 15:40
Помоему извращение.... не прощели использовать АСМ?... ну там незнаю.. CyRax .... ты же делал свой ассемблер так почему не пользуешь ?.... и SHL и SHR и ROL ROR всё это в асм стандартно +)... чтож ты так...

Ответить

Номер ответа: 17
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #17
Добавлено: 20.10.04 00:27
Fallout,
 А ты знаешь, довольно быстро работает. Тем более что возведение в степень делается через сопроцессор. А мой асм его к сожалению не поддерживает. Я это кстати случайно обнаружил. Попробуй возвести какое нибудь число в большую степень. Там явно лимит не 32 бита. Я упаковщик Integer'ов в байтах сделал на таком принципе.

Ответить

Номер ответа: 18
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #18
Добавлено: 20.10.04 04:24
Тогда ещё вопрос. А как бы мне отобразить биты зеркально. Ну типа первый стал последним, а последний первым; второй предпоследним, а предпоследний вторым. Типа такого:
01100100 -> 00100110

Ответить

Номер ответа: 19
Автор ответа:
 Fallout



Вопросов: 10
Ответов: 387
 Web-сайт: mudator.by.ru
 Профиль | | #19
Добавлено: 20.10.04 10:48
ненаю быстро не быстро самое главное чтоб было коректно ... да и не люблю я изврат =)

Ответить

Номер ответа: 20
Автор ответа:
 cresta



Вопросов: 117
Ответов: 1538
 Профиль | | #20 Добавлено: 20.10.04 16:08
Function ReversBits(Value As Byte) As Byte
    Dim i As Long, s As Long
    For i = 0 To 7
        s = s + (2 ^ (7 - i) * (Value And (2 ^ i)) \ (2 ^ i))
    Next i
    ReversBits = s
End Function

Ответить

Номер ответа: 21
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #21
Добавлено: 21.10.04 01:23
Fallout,
 VB - это уже сам по себе изврат и эти невинные шалости изврата не прибавят. Ну а по поводу ассемблера, как сказал админ VbStreets, ассемблер в VB не нужен. Ну и правильно, зачем ламерам ассемблер? :)

Ответить

Номер ответа: 22
Автор ответа:
 Fallout



Вопросов: 10
Ответов: 387
 Web-сайт: mudator.by.ru
 Профиль | | #22
Добавлено: 21.10.04 09:16
я думаю ты прав... кто знает асм тот сам всё сделает....

Ответить

Номер ответа: 23
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #23
Добавлено: 24.10.04 04:41
Мне и возразить нечего ;) Ну как на Си кодится? Легче чем на Бейсике. А то я так и не выучил этот язык. И Паскаль кстати тоже.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам