Вниз  RFO BASIC
<< 1 ... 99 100 101 102 103 ... 272 >>
- 18.08.2016 / 16:55
#469622
vh180477
  Пользователь
vh180477 
Сейчас: Offline
19Ram84,

  1. DIM bait[40]
  2.  
  3. BYTE.OPEN w,file1,"1.txt"%В начале создадим файл 1.тхт
  4. FOR q=1 TO 40
  5.     BYTE.WRITE.BYTE file1,5 %Запишем байт "5" 40 раз
  6. NEXT q
  7. BYTE.CLOSE file1 %Закрываем файл
  8.  
  9. BYTE.OPEN r,file1,"1.txt"%Откроем этот же файл для чтения
  10. FOR q=1 TO 40
  11.     BYTE.READ.BYTE file1,bait[q] %Прочитаем 40 байт в массив
  12. NEXT q
  13. BYTE.CLOSE file1 %Закрываем файл
  14.  
  15. BYTE.OPEN w,file1,"2.txt"%Открываем другой файл для записи
  16. FOR q=1 TO 40
  17.     BYTE.WRITE.BYTE file1,bait[q] %вписывается байты
  18. NEXT q
  19. BYTE.CLOSE file1 %Закрываем файл
  20.  
  21. FOR q=1 TO 40
  22.     PRINT bait[q] %Выводим на экран
  23. NEXT q
  24. PRINT "готово"

- 18.08.2016 / 17:15
#469623
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
vh180477, Не получилось, цикл работает, но вписывает что то свое, при этом в оба файла, стирает в первом все, затем записывает туда свои байты, а потом вписывает их во второй. :-)
Прочитал клиенты в программе, для чего вписал 40 раз байт 5?
Ммм, именно нужно было считать их из 1.txt
Но спасибо конечно, основная суть ясна ;-)
Изменено 19Ram84 (18.08 / 17:19) (всего 1 раз)
- 18.08.2016 / 18:18
#469631
vh180477
  Пользователь
vh180477 
Сейчас: Offline
Рад если помог. Только не забывай что байт это максимум 256 (8 бит всего).
- 18.08.2016 / 18:21
#469632
vh180477
  Пользователь
vh180477 
Сейчас: Offline
Es1841, Андрей а как ставки делать на скачках? В той игрушке что ты выложил?
Изменено vh180477 (18.08 / 18:21) (всего 1 раз)
- 18.08.2016 / 18:26
#469633
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
vh180477, Помог то помог, но дальше дело не пошло, а ты не мог бы выложить исправленный код, где бы было вписывание не этих 5 на 40 раз, а байты считанные из 1.txt?
- 18.08.2016 / 18:29
#469634
vh180477
  Пользователь
vh180477 
Сейчас: Offline
19Ram84, Легко :)

  1. DIM bait[40]
  2.  
  3. BYTE.OPEN r,file1,"1.txt"%Откроем этот же файл для чтения
  4. FOR q=1 TO 40
  5.     BYTE.READ.BYTE file1,bait[q] %Прочитаем 40 байт в массив
  6. NEXT q
  7. BYTE.CLOSE file1 %Закрываем файл
  8.  
  9. BYTE.OPEN w,file1,"2.txt"%Открываем другой файл для записи
  10. FOR q=1 TO 40
  11.     BYTE.WRITE.BYTE file1,bait[q] %вписывается байты
  12. NEXT q
  13. BYTE.CLOSE file1 %Закрываем файл
  14.  
  15. FOR q=1 TO 40
  16.     PRINT bait[q] %Выводим на экран
  17. NEXT q
  18. PRINT "готово"

- 18.08.2016 / 18:36
#469635
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
vh180477, Спасибо ;-)
А теперь можешь усложнить?
Надо считать не с самого начала, а пропустить 10 начальных байт из файла 1.txt
- 18.08.2016 / 18:43
#469636
vh180477
  Пользователь
vh180477 
Сейчас: Offline
19Ram84, Легко ;-)
  1. DIM bait[40]
  2.  
  3. BYTE.OPEN r,file1,"1.txt"%Откроем этот же файл для чтения
  4. BYTE.POSITION.SET file1,10 %Начать читать с 10 позции
  5. FOR q=1 TO 40
  6.     BYTE.READ.BYTE file1,bait[q] %Прочитаем 40 байт в массив
  7. NEXT q
  8. BYTE.CLOSE file1 %Закрываем файл
  9.  
  10. BYTE.OPEN w,file1,"2.txt"%Открываем другой файл для записи
  11. FOR q=1 TO 40
  12.     BYTE.WRITE.BYTE file1,bait[q] %вписывается байты
  13. NEXT q
  14. BYTE.CLOSE file1 %Закрываем файл
  15.  
  16. FOR q=1 TO 40
  17.     PRINT bait[q] %Выводим на экран
  18. NEXT q
  19. PRINT "готово"

- 18.08.2016 / 18:45
#469638
Es1841
  Пользователь
Es1841 
Сейчас: Offline
vh180477, Это ведь концепт. Там голая идея, никакого оформления и усложнения.
А хелпа в RFO практически нет. А так я помню только чуть больше 10 команд и функций.
Изменено Es1841 (18.08 / 18:50) (всего 1 раз)
- 18.08.2016 / 18:48
#469639
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
vh180477, Мда, ловко) :-D
<< 1 ... 99 100 101 102 103 ... 272 >>
Наверх  Всего сообщений: 2716
Фильтровать сообщения
Поиск по теме
Файлы топика (511)