 RFO BASIC<< 1 ... 98 99 100 101 102 ... 272 >>  18.08.2016 / 15:07 | | 19Ram84  Пользователь
 Сейчас: Offline
Регистрация: 30.08.2015
| Попытался сделать операцию цикла, не вышло  В чем ошибка? BYTE.OPEN r,file1,"1.txt"%Открываем файл чтения FOR file1=1 TO 10 STEP 1 BYTE.READ.BYTE file1%читаем байт NEXT file1 BYTE.OPEN w,file2,"2.txt" FOR file2=1 TO 10 STEP 1 BYTE.WRITE.BYTE file2 %вписывается байты NEXT file2 PRINT a6,a5,a4,a3,a2,a1,a %Выводим на экран BYTE.CLOSE file2 %Закрываем файл PRINT "готово"
|
| 18.08.2016 / 15:53 | | vh180477 Пользователь
Сейчас: Offline
Имя: Валерка
Откуда: Костомукша
Регистрация: 03.11.2015
| Пытался уровень сделать: Открыть спойлер Закрыть спойлер GR.OPEN 255,0,0,0,0,1 GR.SCREEN x_res,y_res pka=x_res/22 %Поправка на сколько двигать пузырёк x_r=x_res/10 %Радиус пузырька x_et=(x_res/2)-(x_r/2) %Эталанный икс (середина) y_et=(y_res/2)-(x_r/2) %Эталонный игрек x=x_et %Где появится пузырёк y=y_et SENSORS.OPEN 1:2 %Открываем аксилометр !Рисуем пузырёк GR.COLOR 255,255,0,0,1 GR.OVAL puz,x,y,x+x_r,y+x_r !Крестик GR.COLOR 255,255,255,255,1 GR.LINE kr1,x_res/2,0,x_res/2,y_res GR.LINE kr2,0,y_res/2,x_res,y_res/2 DO SENSORS.READ 1,x1,y1,z %Читаем показания аксилометра x=x_et+x1*pka %На сколько отклонился телефон по оси икс y=y_et+(y1*-1)*pka %Отклонение по игреку x2=x+x_r %Вторая координата для овала y2=y+x_r GR.MODIFY puz,"left",x,"top",y,"right",x2,"bottom",y2 %Двигаем пузырёк GR.RENDER %Рисуем UNTIL 2=5
Изменено vh180477 (18.08 / 15:59) (всего 1 раз)
Прикрепленные файлы:  уровень.bas  (1 кб.) Скачано 2041 раз |
| 18.08.2016 / 15:54 | | vh180477 Пользователь
Сейчас: Offline
Имя: Валерка
Откуда: Костомукша
Регистрация: 03.11.2015
| 19Ram84, Ты в качестве счётчика в цикле FOR NEXT используешь ссылку на файл. Так нельзя!!
|
| 18.08.2016 / 16:05 | | 19Ram84 Пользователь
Сейчас: Offline
Регистрация: 30.08.2015
| vh180477, А если так? FOR file1=1 TO 10 STEP 1 BYTE.OPEN r,file1,"1.txt"%Открываем файл BYTE.READ.BYTE file1,a%читаем байт NEXT file1 FOR file2=1 TO 10 STEP 1 BYTE.OPEN w,file2,"2.txt" BYTE.WRITE.BYTE file2,a %вписывается байты NEXT file2 PRINT a,b,c,d,e,f,g %Выводим на экран !BYTE.CLOSE file1 %Закрываем файл !BYTE.CLOSE file2 PRINT "готово"
Тоже не работает. |
| 18.08.2016 / 16:09 | | vh180477 Пользователь
Сейчас: Offline
Имя: Валерка
Откуда: Костомукша
Регистрация: 03.11.2015
| Открываешь файл и ссылка(номер потока в мобиле басик) у тебя переменная file1. Дальше ты как будто фантазии нету эту же переменную используешь в качестве счётчика в цикле FOR file1=1 . Можно же допустим использовать переменную q или x.  И вообще в цикле открывать файл 10 раз !!! зачем файл можно открыть перед циклом и прочитать из него 10 байт.
Изменено vh180477 (18.08 / 16:15) (всего 2 раза) |
| 18.08.2016 / 16:18 | | 19Ram84 Пользователь
Сейчас: Offline
Регистрация: 30.08.2015
| vh180477, Ну вот сделал, все равно не работает =) FOR x=1 TO 10 STEP 1 BYTE.OPEN r,file1,"1.txt"%Открываем файл BYTE.READ.BYTE file1,a%читаем байт NEXT x FOR y=1 TO 10 STEP 1 BYTE.OPEN w,file2,"2.txt" BYTE.WRITE.BYTE file2,a %вписывается байты NEXT y PRINT a,b,c,d,e,f,g %Выводим на экран !BYTE.CLOSE file1 %Закрываем файл !BYTE.CLOSE file2 PRINT "готово"
|
| 18.08.2016 / 16:19 | | vh180477 Пользователь
Сейчас: Offline
Имя: Валерка
Откуда: Костомукша
Регистрация: 03.11.2015
| А так ? BYTE.OPEN r,file1,"1.txt"%Открывать файл надо снаружи цикла FOR q=1 TO 10 STEP 1 BYTE.READ.BYTE file1,a%читать внутри 10 раз, а открвать файл 10 раз внутри цикла плохо NEXT q BYTE.OPEN w,file2,"2.txt" FOR q=1 TO 10 STEP 1 BYTE.WRITE.BYTE file2,a %вписывается байты NEXT q PRINT a,b,c,d,e,f,g %Выводим на экран !BYTE.CLOSE file1 %Закрываем файл !BYTE.CLOSE file2 PRINT "готово"
Только файл 1.тхт должен уже существовать иначе будет ошибка.
Изменено vh180477 (18.08 / 16:22) (всего 2 раза) |
| 18.08.2016 / 16:29 | | 19Ram84 Пользователь
Сейчас: Offline
Регистрация: 30.08.2015
| vh180477, Не Работает.
Точнее работает, но копирует не считанные Байты, а. какие то свои hhhhhhh
Что то не то
И почему у тебя, на разные потоки, одинаковые переменные циклов?
|
| 18.08.2016 / 16:34 | | vh180477 Пользователь
Сейчас: Offline
Имя: Валерка
Откуда: Костомукша
Регистрация: 03.11.2015
| 19Ram84, Скажи точно что ты хочешь получить в итоге? Я напишу как. Просто читаешь всё в одну переменную a
BYTE.READ.BYTE номер потока(ссылка на открытый файл),переменная в которую прочитать(у тебя переменная a,в неё всё и читается)
|
| 18.08.2016 / 16:44 | | 19Ram84 Пользователь
Сейчас: Offline
Регистрация: 30.08.2015
| vh180477, Ладно.
Нужно открыть файл 1.txt, считать оттуда скажем 40 байтов, затем открыть файл 2.txt и вписать туда эти байты, а затем вывести командой принт, считанные байты из 2.txt.
Зачем нужен цикл?
Потому что в реальной ситуации нужно считывать не меньше 100000байт
|
<< 1 ... 98 99 100 101 102 ... 272 >>  Всего сообщений: 2715  Фильтровать сообщения
Поиск по теме
 Файлы топика (510)
|
Скопировать ссылку
Перейти к посту