На си можно просто сдвигом и сложением по маске решить вопрос...
roboforum.ru
Технический форум по робототехнике.
Помогите с VB
Помогите с VB
Уже час бьюсь над проблемой: в прогу на Вижал Бейсике снизу приходят данные. Там внизу на Си это int, при том знаковый. А наверху - два байта. Как их склеить в инт? С положительными все в порядке, но когда приходит отрицательное - что делать? Оно ж в дополнительном коде... Есть какой простой способ? Или только мониторить на предмет знакового бита и писать гору условий?
На си можно просто сдвигом и сложением по маске решить вопрос...
На си можно просто сдвигом и сложением по маске решить вопрос...
Re: Помогите с VB
сдвиг можно делением сделать, а логический операции вот
Re: Помогите с VB
Че-то у меня мозг клинит... Получил байт 208... Not 208 = -209 - бред какой-то... Должно быть 47!
Re: Помогите с VB
2Александр: А можно с примерами - какие байты во что должны превращаться? Может там функция то в 2 операции?
Добавлено спустя 2 минуты 59 секунд:
Мне кажется что вообще пусть в "x" у нас лежит полученное число.
К правильному виду оно приводится функцией if(x>n;x-m;x), где n - максимальное положительное представимое в нужном нам виде, а m - максимальное значение x, плюс единица.
Добавлено спустя 2 минуты 59 секунд:
Мне кажется что вообще пусть в "x" у нас лежит полученное число.
К правильному виду оно приводится функцией if(x>n;x-m;x), где n - максимальное положительное представимое в нужном нам виде, а m - максимальное значение x, плюс единица.
Re: Помогите с VB
Вообще идет число вида 0xABCD - его делим на AB и CD, которые передаем через ком-порт. Задача: получить обратно 0xABCD на компе имея AB и CD средствами Вижал Бейсика. Кстати там они сложены в строку...
x = Asc(Mid$(buffer, 1, 1))
x = x + Asc(Mid$(buffer, 2, 1)) * 256
Это нормально работает с положительными, но для отрицательных он в упор не хочет работать. На Си я мог легко делать со знаковым битом все что угодно, как и с любым другим. А тут видимо не пускает. Да и битовые операции работают как-то не так. Not например вместо инверсии переводит в отрицательное.
x = Asc(Mid$(buffer, 1, 1))
x = x + Asc(Mid$(buffer, 2, 1)) * 256
Это нормально работает с положительными, но для отрицательных он в упор не хочет работать. На Си я мог легко делать со знаковым битом все что угодно, как и с любым другим. А тут видимо не пускает. Да и битовые операции работают как-то не так. Not например вместо инверсии переводит в отрицательное.
Re: Помогите с VB
Дык это поди не побитовое, а логическое NOT
Re: Помогите с VB
дык при инверсии знаковый бит изменяется
Последний раз редактировалось MiBBiM 18 авг 2009, 07:24, всего редактировалось 1 раз.
Re: Помогите с VB
- Код: Выделить всё • Развернуть
x = Asc(Mid$(buffer, 1, 1))
x = x + Asc(Mid$(buffer, 2, 1)) * 256
If x > 32767 Then x = x - 65536
Re: Помогите с VB
Заработало! Всем пасибо. Забыл что integer в VB это 4 байта, а не 2, как внизу... 