| 12valera12 | Дата: Суббота, 17.01.2015, 21:35 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 11
Статус: Offline
| Dim i As Byte = 33
Dim L As Short
Open "d:\1.bin" For Binary As #4
Put #4,99,i
For L=1 to L=20
SEEk #4,L
Put #4,,i
Next L
Close #4
sleep 1
Sleep 10
почему программа после компилляции пишет только раз на 99 место . любые попытки записи в файл находясь внутри цикла не получаются
Сообщение отредактировал 12valera12 - Суббота, 17.01.2015, 21:54 |
| |
| |
| haav | Дата: Воскресенье, 18.01.2015, 06:02 | Сообщение # 2 |
 Генералиссимус
Группа: Администраторы
Сообщений: 1376
Статус: Offline
| Привет!
Ошибка в этой строке:
Надо так:
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
| |
| |
