VisualBasic. Работа с битами перемнной

VisualBasic. Работа с битами перемнной

Сообщение GAD » 09 дек 2016, 10:28

Данные функции использовал с глобальными переменными
Код: Выделить всё
Sub sBit(val As Variant, N As Integer)                                      'Установка бита
    val = val Or 2 ^ N
End Sub

Sub uBit(val As Variant, N As Integer)                                      'Снятие бита
    val = Not (Not val Or 2 ^ N)
End Sub

Function rBit(val As Variant, N As Integer)                                 'Чтение бита
    rBit = 0
    If (val And 2 ^ N) > 0 Then rBit = 1
End Function
GAD
Администратор
 
Сообщения: 15
Зарегистрирован: 30 мар 2014, 16:17

Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron