Вниз  Mobile Basic 1.9.1
<< 1 ... 230 231 232 233 234 ... 269 >>
- 3.09.2015 / 20:35
#426051
Vapigor
  Пользователь
Vapigor 
Сейчас: Offline
19Ram84, Быстрее рисует объекты, теперь в играх не будет никаких морганий.
__________________
 Делай шум!
- 5.09.2015 / 12:27
#426262
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
Напишите пожалуйста, пример открытия file.txt из jar? :)
- 5.09.2015 / 17:24
#426282
HoldFast
  Пользователь
HoldFast 
Сейчас: Offline
  1. 5 TEXT$ =""
  2. 10 OPEN #1,"/file.txt","input"
  3. 20 TRAP 60
  4. 30 GET #1,B%
  5. 40 TEXT$ = TEXT$ + CHR$ (B % )
  6. 50 GOTO 30
  7. 60 CLOSE #1
  8. 70 PRINT TEXT$
  9. 80 REPAINT

__________________
 Да, детка, я - Король Ящериц!!!
- 5.09.2015 / 17:56
#426294
Gifo_Gsoul
  Пользователь
Gifo_Gsoul 
Сейчас: Offline
Кстати, давно хотел спросить. Открытие файла из ФС - при попытке чтения, данные из файла удаляются и он весит 0 байт. Как тогда открывать файлы для чтения из ФС?
__________________
 </Твой код отражает эволюцию твоего мышления .../>
- 5.09.2015 / 17:57
#426297
HoldFast
  Пользователь
HoldFast 
Сейчас: Offline
:кек: Да?
__________________
 Да, детка, я - Король Ящериц!!!
- 5.09.2015 / 17:59
#426298
Gifo_Gsoul
  Пользователь
Gifo_Gsoul 
Сейчас: Offline
HoldFast, угу, если файл открывать внутри JAR, то всё норм читает, а из ФС к чертям обнуляет файл. Вот таки делы
__________________
 </Твой код отражает эволюцию твоего мышления .../>
- 5.09.2015 / 18:00
#426299
HoldFast
  Пользователь
HoldFast 
Сейчас: Offline
Кириман преде, код исправе
если че, потом выложу фикс
__________________
 Да, детка, я - Король Ящериц!!!
Изменено HoldFast (5.09 / 18:00) (всего 1 раз)
- 5.09.2015 / 18:09
#426303
DominaN
  Пользователь
DominaN 
Сейчас: Offline
Gifo_Gsoul, хм, а ты точно на input его открываешь?
- 5.09.2015 / 18:28
#426304
Gifo_Gsoul
  Пользователь
Gifo_Gsoul 
Сейчас: Offline
DominaN, да.
Не стану сокращать код, просто кину как есть для просмотра

  1. 0 NOM$="":NAME$="":MEM$=""
  2. 1 OPEN #0,"file://root/log.txt","INPUT"
  3. 10 GET #0,A%
  4. 12 IF CHR$(A%)="/" THEN GOTO 30
  5. 20 NOM$=NOM$+CHR$(A%):GOTO 10
  6. 30 NN%=VAL(NOM$):DIM filename$(NN%):DIM filenom%(NN%)
  7. 40 FOR T%=1 TO NN%
  8. 50 GET #0,A%:IF CHR$(A%)="/" THEN filename$(T%-1)=NAME$:NAME$="":GOTO 70
  9. 60 NAME$=NAME$+CHR$(A%):GOTO 50
  10. 70 GET #0,A%:IF CHR$(A%)="/" THEN filenom%(T%-1)=VAL(MEM$):MEM$="":GOTO 90
  11. 80 MEM$=MEM$+CHR$(A%):GOTO 70
  12. 90 NEXT T%
  13. 100 CLOSE #0
  14. 110 CLS
  15. 120 PRINT NN%
  16. 130 FOR T%=0 TO NN%-1
  17. 140 PRINT filename$(T%)
  18. 150 PRINT filenom%(T%)
  19. 160 NEXT T%
  20. 170 REPAINT
  21. 180 SLEEP 5000
  22. 190 END

Ну и файлик, чтобы поэксперементировать:
__________________
 </Твой код отражает эволюцию твоего мышления .../>
Изменено Gifo_Gsoul (5.09 / 18:29) (всего 1 раз)

Прикрепленные файлы:
log.txt (0.06 кб.) Скачано 400 раз
- 5.09.2015 / 19:38
#426311
19Ram84
  Пользователь
19Ram84 
Сейчас: Offline
Цитата HoldFast:
  1. 5 TEXT$ =""
  2. 10 OPEN #1,"/file.txt","input"
  3. 20 TRAP 60
  4. 30 GET #1,B%
  5. 40 TEXT$ = TEXT$ + CHR$ (B % )
  6. 50 GOTO 30
  7. 60 CLOSE #1
  8. 70 PRINT TEXT$
  9. 80 REPAINT
Спасибо :) Я уже так начало написал, спойлер в начальном топике форума открыл.
А в мб есть оператор нескольких повторов(циклов)?
А то я один байтный считыватель написал, так там, одну и туже процедуру пришлось, несколько сот раз писать :gg:
<< 1 ... 230 231 232 233 234 ... 269 >>
Наверх  Всего сообщений: 2690
Фильтровать сообщения
Поиск по теме
Файлы топика (109)