FreeBasic
Главная
Вход
Регистрация
Пятница, 29.03.2024, 17:20Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Вопросы по языку FreeBasic » ЗАпись в файл в цикле не работает (вопрос по записи в файл)
ЗАпись в файл в цикле не работает
12valera12Дата: Суббота, 17.01.2015, 21:35 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 9
Репутация: 0
Статус: 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
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Привет!

Ошибка в этой строке:

Код
For L=1 to L=20  


Надо так:

Код
For L=1 to 20


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Вопросы по языку FreeBasic » ЗАпись в файл в цикле не работает (вопрос по записи в файл)
  • Страница 1 из 1
  • 1
Поиск: