#define BitSet( value, bit_number ) ((value) Or (Cast(TypeOf(Value), 1) Shl (bit_number)))

result = BitSet( value, bit_number )

value
bit_number

Возвращает целое значение с указанным битом.

Этот макрос расширяет копию целого числа value с указанным bit_number устанавливая (бит в единицу, или `1`). Ведет себя как `value Or (1 Shl bit_number)`.

Допустимый диапазон значений для bit_number зависит от размера в битах `TypeOf(value)`, который является `0` посредством `SizeOf(value) * 8 - 1`. См. Лимиты стандартных типов данных с таблицей стандартных типов данных и их размеров.

Print BitSet(4, 0)
Print Hex(BitSet(1ull, 63))

вывод:

 5
8000000000000001

• Не допускается в диалекте -lang qb , но есть псевдоним __Bitset.
  
  

• Новое в FreeBASIC.
  
  

• Bit
  
• BitReset