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

[iGrok]

Ну хорошо =)
Забылся маленько.. После полудня экспериментов с печатью штрихкодов как-то в голове немного сумбурно =)

[Rojohn]

Если в OR происходит сложение, в AND - умножение, не совсем понятно, какое действие происходит в AND NOT? Судя по примеру перед умножением происходит инвертирование второго множителя. Я прав?

[tyomitch]

Прав.

[Rojohn]

Спасибки Тёмыч! Слышать это от тебя особенно приятно Кстати, открою тайну: меня тоже Тёмыч зовут

[bodja]

Всегда можно найти простое решение

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

If CBool(X And 2 ^ Y) = True Then ...


X-число
Y-номер бита (0...7)

[iGrok]

И что? Это проверка состояния. Вопрос шел об установке/снятии бита.

[tyomitch]

сравнение булевского значения с True -- чудовищная тупость.

Предлагаю, для разнообразия, следущий код:

If ((CBool(X And 2 ^ Y) = True) = True) = True Then ...

[alibek]

Ну почему-же, я иногда булевы переменные сравниваю на True или False, когда хочу, чтобы код выглядел единообразно и формально.
Другое дело, что неправильно сравнивать логическое выражение с True. Его надо сранивать на равенство/неравенство либо с нулем, либо с битовой маской, это будет правильнее.

[tyomitch]

а можно на сишный манер написать

If X And 2 ^ Y Then ...

и работать будет один-в-один так же

[bodja]

И что? Это проверка состояния. Вопрос шел об установке/снятии бита.

Поставить
If Dialog1.Check1.Value = 1 Then x = x + 2 ^ y

Снять
If Dialog1.Check1.Value = 0 Then x = x - 2 ^ y

Таже тема

сравнение булевского значения с True -- чудовищная тупость

Может быть ,я ориентируюсь на подсказках редактора.

[tyomitch]

Редактор не подсказывает тебе сравнивать булевское значение с True.

[Хакер]

tyomitch
Кстати, я проводил измерения, и результаты были таковыми, что переменные некоторых типов лучше всё таки сравнивать с True, ибо работал быстрее.

[tyomitch]

Это каких таких типов? Строковые?

[bodja]

Редактор не подсказывает тебе сравнивать булевское значение с True.

Смотрим картинку

[tyomitch]

Знак равенства тоже за тебя редактор напечатал?
Не печатай знак равенства, и никто тебя не будет смущать сбивающими с толку подсказками.

[Хакер]

tyomitch
If <Boolean> Then
If <Integer> Then
If <long> Then
If <byte> Then

bodja
Он предлагает когда ты вводишь = (равно).

Нафиг ты вводишь символ равно?

[bodja]

tyomitch

bodja
Он предлагает когда ты вводишь = (равно).

Нафиг ты вводишь символ равно?

Нафиг TRUE ,теперь нафиг = ,что мне тогда вообще вводить
Да и не всегда TRUE нужно .

[tyomitch]

Хакер, Byte сравнивал с True?

[Хакер]

tyomitch
Нет. Я выяснял, что эффективнее: писать
If GetSomeResult Then ... Else ...
или
If GetSomeResult = 0 Then ... Else ...

для некоторых типов не было разницы, для некоторых - второй вариант работал быстрее.

Проверял очень давно - сейчас уже не помню, зачем и какие конкретно результаты получились.

[t116]

Разрешите мне cунуть в эту тему свои 5 копеек.

У меня когда-то была подобная проблема.
Решил я ее примерно так:

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

Function Dec2Bin(Value) As String

Dim i, j$

i = Value

Do
If i Mod 2 = 1 Then j = "1" + j Else j = "0" + j
i = Fix(i / 2)
Loop Until i = 0

Dec2Bin = j

End Function

Function Bin2Dec(Value As String)

Dim i, j

For i = 0 To Len(Value) - 1 Step 1
If Mid(Value, i + 1, 1) = "1" Then j = j + (2 ^ (Len(Value) - 1) - i)
Next i

Bin2Dec = j

End Function


Это функции для преобразования в биты и обратно.

В общем, я использовал функцию Dec2Bin, заменял нужные мне биты при помощи функции mid, затем при помощи Bin2Dec преобразовал обратно в byte.

[Хакер]

1) Названия функций неадекватные (если говорить конкретно - они перепутаны).

2) Способ ужасен. В лучших традициях xenomorph-а

[t116]

Какой есть способ лучше? Просвети.

[Хакер]

And, Or, Xor

И без перекодирования в String.

[t116]

And, Or, Xor

И без перекодирования в String.

Это-то я понял.
Я думал ты имеешь в виду преобразование Bin2Dec и Dec2Bin.

[tyomitch]

And, Or, Xor

И без перекодирования в String.

Это-то я понял.
Я думал ты имеешь в виду преобразование Bin2Dec и Dec2Bin.

Эти преобразования никогда не нужны. Вообще никогда.

[Wildwhiteash]

а можно вставить свои 5 копеек?
Если с LPT нужна побитная работа то я в свое время решил так
http://www.geekhideout.com/iodll.shtml - доступ к железяке
и

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

Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean

в общем вот.
Не совсем корректно в плане винды, она тупит, если лезет в то же место, но вполне работоспособно.
Хотя можно и так как выше написано, побитно раскладывать

[X-hacker]

Чтобы сделать биты равными одному проще перевести число в бинарную форму, переделать и вернуть всё в байты ->

Байт Биты
0 = 000
1 = 001
2 = 010
3 = 011
4 = 100
65535 = 11111111
Я думаю домыслить ничего не стоит.
Тему перевода чисел именно по информатике мы прошли в 9-м классе

НО, это сначала и только для понимания принципа а уж после недолгих экспериментов юзать логические операции ИМХО последнее быстрее...

Мне кажется, что автор (вопроса) для решения проблемы должен твёрдо уяснить для себя что:
байт = 8бит
2 байта = слово (WORD)
4 байта = двойное слово (Double Word, DWORD)
1024 байта = 1 Килобайт КБ
1024 КБ = 1 МБ
1024 МБ = 1 ГБ
200 с копейками гигабайт = 1 терабайт (но, вроде не 1024)
1 километр = 1024 метра... ой... а может и 1000

[Glyckmen]

X-hacker

65535 = 11111111

а ты уверен что правильно написал, в информатике принято 1 байт(11111111) равен 255, а 65535 это 2-х байтовое число(1111111111111111)

[Viper]

200 с копейками гигабайт = 1 терабайт (но, вроде не 1024)

С чего бы нет то? 1 терабайт = 1024 гигабайт, как ему по должности и положено!

[Rojohn]

Дамс, не думал, что мой топик окажется таким посещаемым
Вот в продолжение его ещё вопросик:
В обычном IF я бы написал так:

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

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


Но Not - уже является логическим оператором и сбивает само условие. Как в таком случае правильнее написать в одном IF несколько проверок на 1 и 0-е биты байтовой переменной? Т.е. надо проверить, например, стоит ли в 7-м бите 0 и в 6 - 1, не нагородив при этом лестницу из IF-ов.
Спасибо!