GetBit

Функция возвращает значение указанного бита заданного значения.

Синтаксис
GetBit(Value: Variant, Bit: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
Value	Variant	Целочисленного значение
Bit	Integer	Номер бита (диапазон зависит от типа переменной)
Выходные параметры
Тип параметра		Описание
Integer		Возвращаемое значение: "1" или "0"

Пример вызова:

Var
     valueNumber, valueBit, res: Word;

Begin
     // valueNumber := ReadValue('Регистр'); // считываем значение регистра прибора (предположим оно равно "297")
     valueNumber := 297;   // в двоичной системе счисления 297 = 100101001
     valueBit := 3;              // нумерация начинается с конца двоичного числа (для типа переменной Word с 0 по 15)
     res := GetBit(valueNumber, valueBit);
     WriteValue('Virtual channel 99', 'Значение бита №' + IntToStr(valueBit) + ' равно: ' + IntToStr(res));
end.

Пример использования функции GetBit() для формирования битовой маски в группе виртуальных каналов.