Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
CORBA
-
- Продвинутый пользователь

-
-
- Сообщения: 179
- Зарегистрирован: 22.11.2003 (Сб) 13:41
- Откуда: Ukraine-Crimea-Feodosia
-
CORBA » 22.11.2003 (Сб) 13:44
Помогите советом как организовать запись в файл по-битно

-
Vitaly1
-
- Брехман

-
-
- Сообщения: 1578
- Зарегистрирован: 30.12.2002 (Пн) 16:35
- Откуда: Russia, Mosсow
Vitaly1 » 22.11.2003 (Сб) 15:57
'файл надо объявить как как двоичный
Open "Имя" For Binary Access Write As #1
n=0
k=0
.
.
.
.
'Копишь биты в байтовую переменную
n=n+бит*2^k
if k=7 then
'запись очередного байта
Put #1, ,N
n=0
k=0
end if
'в конце программы
if k<>0 then
'запись последнего байта
Put #1, ,N
end if
ну вот примерно так

-
Mikle
-
- Изобретатель велосипедов

-

-
- Сообщения: 4159
- Зарегистрирован: 25.03.2003 (Вт) 14:02
- Откуда: Туапсе
Mikle » 23.11.2003 (Вс) 11:45
Или для доступа к произвольному биту:
- Код: Выделить всё
sub PutBit (nf as integer, adrByte as long, adrBit as integer, Value as boolean)
dim d as byte
get#nf,adrByte,d
if Value then
d=d or 2^adrBit
else
d=d and (255 xor 2^adrBit)
end if
put#nf,adrByte,d
end sub
Sorry, если где-то ошибся - проверить не на чем.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9