LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
06 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Как испол...
Тема: Как использовать поле типа Long для хранения флаго
15.06.2007 21:02:40
rafa
7 сообщения
Тема: Как использовать поле типа Long для хранения флаго
Как использовать поле типа Long для хранения флагов. 32 бита - это же 32 логических значения - 32 логических поля не нужно заводить!
Сейчас сам думаю, чего нибудь надумаю, покажу.
Это скорее всего должна быть функция: установить, сбросить, проверить определенный бит.
P.S. Обсуждение разных тем
Автор:
rafa
от 25.06.2002 18:25:31
Источник ...
15.06.2007 21:02:40
All
4316 сообщения
RE: Как использовать поле типа Long для хранения флаго
А какие проблеммы - с числами можно проводить логические операции AND OR, соответственно установка первого бита в 1 : ЧИСЛО Or Hex(1)
P.S. Обсуждение разных тем
Автор:
Николай
от 0:00:00
Источник ...
15.06.2007 21:02:41
All
4316 сообщения
RE: Как использовать поле типа Long для хранения флаго
Предыдущий пример не совсем "того".
Для подбора чисел лучше использовать "маску" (1111)(1111)(1111)(1111)
Затем замените нужный разряд на 0 (для сброса флага) и запишите полученное число
Для установки флага используйте "маску" с нулями
Пример:
Sub TT()
Dim X As Long, mask As Long
Dim result As Long
'установка в "1" пятого разряда
X = X Or &H10
'проверка пятого разряда
result = IIf((X And &H10) = 0, 0, 1)
'установка в "0" пятого разряда
X = X And (&HFFFF - &H10)
'проверка пятого разряда
result = IIf((X And &H10) = 0, 0, 1)
End Sub
P.S. Обсуждение разных тем
Автор:
Николай
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Как испол...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования