Работа с битами в VB60...

[tyomitch]

как вариант:
If (Not CBool(LPTValue And 2 ^ 7)) Or (LPTValue And 2 ^ 6) Then

[Aquarius]

Но Not - уже является логическим оператором и сбивает само условие.

Смею поправить, в VB нет логических операторов, только побитовые.

Т.е. надо проверить, например, стоит ли в 7-м бите 0 и в 6 - 1, не нагородив при этом лестницу из IF-ов.

Проверка на то что бит установлен AND + макска
Установка бита OR + маска
Инвертирование бита XOR + маска.

Соответственно если нужно проверить что бит сброшен нужно использовть Var And маска = false или Not (Var And маска)

в твоем случае.

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

If (Not (LPTValue And 2 ^ 7)) And (LPTValue And 2 ^ 6) Then

т.е. проверяем что 7-й бит равен 0 и одновременно 6-й бит = 0.
Я правильно понял?

LPTValue And 2 ^ 7

Никогда так не делай, в смысле вот это ^.

[tyomitch]

Not (Var And маска)

Нет, так нельзя.

[Rojohn]

Маска - это, конечно хорошо, но мне надо не все биты вместе проверять, а по-отдельности. Т.е. какой-нибудь из них может быть 1 (оператор OR). Если писать по маске, то этих масок будет 2 штуки, т.е. ничем не лучше этого примера... А чем тебе не нравится оператор ^?

tyomitch

как вариант:
If (Not CBool(LPTValue And 2 ^ 7)) Or (LPTValue And 2 ^ 6) Then

А Or будет правильно работать? Или вторую скобку тоже надо заCBoolить?

[tyomitch]

Будет. Только с Not косяки, потому что для всех значений x, кроме 0 и -1, x и Not x одновременно истинны.

[Rojohn]

А как лучше сделать, чтоб без косяков?

[Aquarius]

проверяем что 7-й бит равен 0 и одновременно 6-й бит = 0.

я имел в виду проверяем что 7-й бит равен 0 и одновременно 6-й бит = 1.

2 tyomitch
Нет, так нельзя.

Если ты имеешь в виду нельзя использовать имя Var то я согласен.

[Aquarius]

2 tyomitch
Виноват, конечно, нельзя.

Нужно сравнивать с 0.
Not не прокатит.