roboforum.ru

[-= Александр =-]

Уже час бьюсь над проблемой: в прогу на Вижал Бейсике снизу приходят данные. Там внизу на Си это int, при том знаковый. А наверху - два байта. Как их склеить в инт? С положительными все в порядке, но когда приходит отрицательное - что делать? Оно ж в дополнительном коде... Есть какой простой способ? Или только мониторить на предмет знакового бита и писать гору условий?

На си можно просто сдвигом и сложением по маске решить вопрос...

[MiBBiM]

сдвиг можно делением сделать, а логический операции вот

[-= Александр =-]

Че-то у меня мозг клинит... Получил байт 208... Not 208 = -209 - бред какой-то... Должно быть 47!

[=DeaD=]

2Александр: А можно с примерами - какие байты во что должны превращаться? Может там функция то в 2 операции?

Добавлено спустя 2 минуты 59 секунд:
Мне кажется что вообще пусть в "x" у нас лежит полученное число.

К правильному виду оно приводится функцией if(x>n;x-m;x), где n - максимальное положительное представимое в нужном нам виде, а m - максимальное значение x, плюс единица.

[-= Александр =-]

Вообще идет число вида 0xABCD - его делим на AB и CD, которые передаем через ком-порт. Задача: получить обратно 0xABCD на компе имея AB и CD средствами Вижал Бейсика. Кстати там они сложены в строку...

x = Asc(Mid$(buffer, 1, 1))
x = x + Asc(Mid$(buffer, 2, 1)) * 256

Это нормально работает с положительными, но для отрицательных он в упор не хочет работать. На Си я мог легко делать со знаковым битом все что угодно, как и с любым другим. А тут видимо не пускает. Да и битовые операции работают как-то не так. Not например вместо инверсии переводит в отрицательное.

[=DeaD=]

Дык это поди не побитовое, а логическое NOT

[MiBBiM]

дык при инверсии знаковый бит изменяется

[blindman]

Код: Выделить всё • Развернуть

x = Asc(Mid$(buffer, 1, 1))
x = x + Asc(Mid$(buffer, 2, 1)) * 256
If x > 32767 Then x = x - 65536

[-= Александр =-]

Заработало! Всем пасибо. Забыл что integer в VB это 4 байта, а не 2, как внизу...