Как работать с битами?

Насколько мне известно в байте 8 бит, и каждый находится в состояние ВКЛ/ВЫКЛ. Как не используя неудобные

Код:

Dim A As Byte
If A>64 Then A-=64
' 1111 1111 (255=128+64+32+16+8+4+2+1) -> 1111 1101 (191=128+32+16+8+4+2+1)


добираться до каждого бита?

p.s. я к тому же не уверен, работает ли пример - там странно как-то
p.p.s. Я ещё что-то насчёт Or Xor And Not слышал - там раскладывали номер цвета на R,G,B

Bit
BitSet
BitReset

dim as uinteger x = 453

'проверим бит 3
if x and (2^3) then
...
end if

Наложить биты из двух констант.

Код:


const c1 as uinteger = 1
const c2 as uinteger = 2

dim a as uinteger = 0

a = c1 or c2

print a


Должно вывестись 3

Именно этим эффектом пользуються для ключей.
А проверять оператором and как уже сказано выше.

Код:


if a and c1 then print "c1"
if a and c2 then print "c2"


Есть ещё lsha и rsha. Если не ошибаюсь. Для сдвига влево и в право.

Так же xor, not и другие

ну-ну... Запугали человека.

Сам виноват. Какой вопрос, такой и ответ.

На вопрос:
"как мне написать программу?"
Тыкнут пальцем в шкаф с книжками по программированию и скажут: "читай".

А на вопрос:
"как мне написать программу, на freebasic, которая в консольном окне будет выводить слово 'Привет!', без лишних заморочек?".

Ему ответят:
так

Код:


print "Привет!"


И можно обойтись без чтения шкафа с книжками.

Хотя вероятно подразумевалось одно и тоже. Но...
"Какой вопрос, такой и ответ"