Битовые операции

[xqz_me]

Всем привет! Есть один вопрос.

Есть число (от 0 до 255), надо разложить его на биты, какие-то биты отключить, какие-то включить и снова получить нормальное число. Как это сделать? Подскажите, пожалуйста (у меня Visual Basic 6.0).

[vvs_adm]

А зачем тебе его раскладывать? Что бы отключить\подключить биты, тебе достаточно сделать :
1) подключить YourNum = YourNum OR YourConst (подключаемый бит =1)
2) отключить YourNum = YourNum AND YourConst (отключаемый бит =0)

[Ennor]

Код: Выделить всё

dim BitMask as Byte
BitMask = 0
' Установим биты 0 и 3 в единицу, остальные оставим нулями
BitMask = 2^0 Or 2^3
' А теперь добавим бит 6
BitMask = BitMask Or 2^6
' Инвертируем бит 7
BitMask = BitMask Xor 2^7
' Снимем бит 3
BitMask = BitMask And (Not 2^3)
' Проверим, есть ли совпадения с другой битовой маской
If (BitMask And 147) > 0 Then
  Msgbox "Совпадения есть"
Else
  Msgbox "Совпадений нет"
End If


[xqz_me]

Спасибо! Не очень понял, что значит "Инвертируем бит" - сменим статус на противоположенный что ли?

И последний вопрос: как проверить, активирован ли в заданном числе какой-либо бит. И как шестнадцатеричное число перевести в десятичное (как наооборот, я знаю).

[Ennor]

Не очень понял, что значит "Инвертируем бит" - сменим статус на противоположенный что ли?

Да. Существительное - "инверсия".

[GM]

И как шестнадцатеричное число перевести в десятичное (как наооборот, я знаю).

val("&H" & chislo)