Функция устанавливает указанный бит в "1". Функция возвращает True при успешной записи, и False, если произошла ошибка установки бита.
Синтаксис | ||
SetOnBit(Value: Variant, Bit: Integer): Integer | ||
Входные параметры | ||
Имя параметра | Тип параметра | Описание |
Value | Variant | Целочисленное значение |
Bit | Integer | Номер бита(0-15) |
Выходные параметры | ||
Тип параметра | Описание | |
Boolean | Возвращаемое значение: True - успешная запись False - ошибка записи |
Var valueNumber, valueBit: Integer; s: String; res: Boolean; Begin valueNumber := 297; // в двоичной системе счисления 297 = 100101001 valueBit := 1; // нумерация начинается с конца двоичного числа, с 0 по 15 s := 'Значение числа ДО: ' + IntToStr(valueNumber) + #10; res := SetOnBit(valueNumber, valueBit); s := s + 'Значение числа ПОСЛЕ: ' + IntToStr(valueNumber); if res then WriteValue('Virtual channel 99', s) else WriteValue('Virtual channel 99', 'Ошибка установки бита!'); end. |