Чтение и изменение бита в числе - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Столкнулся с такой проблемой - через СOM порт от контроллера получаю массив байт данных, сохраняю их в виде переменной Double.
Каждый установленный бит в числе имеет смысловую нагрузку. Вопрос -каким образом можно обращаться к отдельным битам в числе (Аналог команды в ассемблере setb Acc.N (установить бит N в "1") и clr Acc.N (установить бит N в "0")). Пока что додумался только до преобразования полученного числа в бинарный вид при помощи функции

Решение задачи: «Чтение и изменение бита в числе»

textual
Листинг программы
Private Sub Form_Load()
    Dim b As Long
    Dim index As Long
    ' Работаем с 3-м битом (индексация от 0)
    index = 3
    ' Установить бит
    b = b Or (2 ^ index)
    ' Сбросить бит
    b = b And Not (2 ^ index)
    ' Инвертировать бит
    b = b Xor (2 ^ index)
    
End Sub

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы