Проверка условия

Сергейчик · **Добавлено:** Сб янв 26, 2019 3:34 pm

Что то не соображу как на пурике проверить бит на 0 и 1 в такой последовательности сначала на 0 потом на 1 :?:

:

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
a=2;2бит =0
 
If a | %00000100;=0
a=55
ElseIf a & %00000100;=1
  a=66
EndIf 
Debug a
 
a=6;2бит =1
 
If a | %00000100;=0
a=55
ElseIf a & %00000100;=1
  a=66
EndIf 
Debug a
 

По другому вроде бы работает,может ошибка из за компиляции и проверки and :roll:

?

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
a=2
 
If  a & %00000100;=1
a=55
ElseIf a | %00000100;=0
  a=66
EndIf 
Debug a
 
a=6
 
If a & %00000100;=1
a=55
ElseIf a | %00000100;=0
  a=66
EndIf 
Debug a
 

AZJIO · **Добавлено:** Сб янв 26, 2019 4:17 pm

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
a=2+4
 
If a & 4;=1
        a=55
Else
        a=66
EndIf 
Debug a
 
If Not (a & 4);=1
        a=55
Else
        a=66
EndIf 
Debug a

SereZa · **Добавлено:** Сб янв 26, 2019 4:18 pm

так Петр же делал подобную "библиотеку" для битов

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;{ битовые операции
Macro SetBit(Var, Bit) ; Установка бита.
  Var | (Bit)
EndMacro 
Macro ClearBit(Var, Bit) ; Обнуление бита.
  Var & (~(Bit))
EndMacro 
Macro TestBit(Var, Bit)
  Bool(Var & (Bit))
EndMacro
Macro NumToBit(Num) ; Позиция бита по его номеру. ; для вызова сет бит и клер бит.
  (1<<(Num))
EndMacro
Macro GetBits(Var, StartPos, EndPos)
  ((Var>>(StartPos))&(NumToBit((EndPos)-(StartPos)+1)-1))
EndMacro
;}

Пётр · **Добавлено:** Сб янв 26, 2019 4:23 pm

Сергейчик писал(а):

как на пурике проверить бит на 0 и 1 в такой последовательности сначала на 0 потом на 1

Бит может иметь другое значение кроме 0 или 1?
Если нужно проверить установлен бит или нет, сделать несложно.

Код:

1
2
3
4
x.a=%01000100
For i=0 To 7
  Debug "Бит "+i+" = "+Bool(x & (1<<i))
Next i

AZJIO · **Добавлено:** Сб янв 26, 2019 4:32 pm

Код:

1
2
3
4
5
6
7
8
a=4
 
If a ! 4;=0
        a=55
Else
        a=66
EndIf 
Debug a

Это я посмотрел по таблице
LHS | RHS | Result
------------------
0 | 0 | 0
0 | 1 | 1
1 | 0 | 1
1 | 1 | 0

почему не работает для a=6 незнаю

Сергейчик · **Добавлено:** Сб янв 26, 2019 4:46 pm

Пётр писал(а):

Сергейчик писал(а):

как на пурике проверить бит на 0 и 1 в такой последовательности сначала на 0 потом на 1

Бит может иметь другое значение кроме 0 или 1?
Если нужно проверить установлен бит или нет, сделать несложно.

Код:

1
2
3
4
x.a=%01000100
For i=0 To 7
  Debug "Бит "+i+" = "+Bool(x & (1<<i))
Next i

Оказывается логически сложно.
А процедуру можно и свою сделать. :roll:

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
a=%00000010;2бит =0
 
If Bool(a & %00000100)=0
a=55
ElseIf Bool(a &  %00000100)=1
  a=66
EndIf
 
Debug a
 
a=%00000110;2бит =1
 
If Bool(a &  %00000100)=0
a=55
ElseIf Bool(a &  %00000100)=1
  a=66
EndIf 
Debug a
 

AZJIO · **Добавлено:** Сб янв 26, 2019 4:49 pm

Сергейчик
я бы сказал в вашем примере нарушена логика. Условие проверяется многократно если значение имеет много возможных вариантов. А для 2-х вариантов (да и нет) достаточно одной проверки, вторая уже будет заведомо известна.

Код:

1
If Bool(a & %00000100)=0

ой, тут #True сравнивается с 0 для того чтобы возвратить #False. Точнее булево с 0, чтобы возвратить булево

Додумался наконец-то инверсия числа ~a

Код:

1
2
3
4
5
6
7
8
a=2+4
 
If ~a & 4;=0
        a=55
Else
        a=66
EndIf 
Debug a

Пётр · **Добавлено:** Сб янв 26, 2019 5:46 pm

Сергейчик писал(а):

Оказывается логически сложно.

Можно упростить.

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
a=%00000010;2бит =0
 
If a & %00000100=0
  a=55
Else
  a=66
EndIf
 
Debug a
 
a=%00000110;2бит =1
 
If a & %00000100=0
  a=55
Else
  a=66
EndIf 
Debug a

Сергейчик · **Добавлено:** Ср янв 30, 2019 2:35 pm

Бросил эту затею(по ней 2 младших бита отвечали за 2 своих задания)именно биты а не число 3
а остальные уже за другие задания как число(у него больше битовых вариантов)
если бы нашёл решение в одну процессорную команду управлять ими и проверять их то подумал бы
а так другое решение нашёл и счёт в переменной как положено с 0 бита.
а так как вариант можно так :roll:

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
a.i=3;0,1,2,3=первые 2 младших бита 00 01 10 11
     ;остальные применяем как число
 
For i=0 To 255 Step 1
 
  a|i<<2;устанавливаем счет от 0 с 2-го бита(2бит=счёту с младшего 0 бита);младшие ьиты 0 и 1 не трогаем
  
 ;далее условно select с case 
  If a>>2=i
    
    Debug i
    
  EndIf
Next
 
 

kvitaliy · **Добавлено:** Ср янв 30, 2019 8:31 pm

Похоже на степень числа 2, только -1

Код:

1
2
3
4
5
 
For i = 0 To 8
  n.i=Pow(2,i)-1
  Debug n
Next

Сергейчик · **Добавлено:** Чт янв 31, 2019 3:41 am

Да обнуление забыл в примере

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
a.i=3;0,1,2,3=первые 2 младших бита 00 01 10 11 каждый на отдельное действие
     ;остальные применяем как число
 
For i=0 To 255 Step 1
  a&3
  a|i<<2;устанавливаем счет от 0 с 2-го бита(2бит=счёту с младшего 0 бита);младшие ьиты 0 и 1 не трогаем
  
 ;далее условно select с case 
  If a>>2=i
    
    Debug i
    
  EndIf
Next
 

newJS · **Добавлено:** Чт янв 31, 2019 4:59 am

Сергейчик писал(а):

a.i=3;0,1,2,3=первые 2 младших бита 00 01 10 11 каждый на отдельное действие
;остальные применяем как число

а смысл связываться с битами? проверяй числа

так и непонял почему не получается наложить маску или использовать сдвиги

SereZa · **Добавлено:** Чт янв 31, 2019 5:19 am

мож у него какие изначальные ограничения

у меня например в битах кроется флаги включено\выключено требование какой-то определенной постройки. то есть 2 байта... или 3... а параметров там аж 14 штук.

AZJIO · **Добавлено:** Чт янв 31, 2019 7:50 pm

SereZa писал(а):

то есть 2 байта... или 3... а параметров там аж 14 штук.

Неужели это открытие? Я когда-то даже писал об этом страничку, только приход к этому был с другой стороны, не зная что такое битовый флаг пользуясь им.

purebasic.info

Проверка условия

Кто сейчас на форуме