Вопрос к Фанту, программка про словарные слова - с чего начать?

[Flower]

Уважаемый Фант!
Можно несколько вопросов:

1) GRAPHICS ! GRAPHICS CLEAR - получается фон в светло-коричневый "рябчик". см приложенную картинку. Это на всех устройствах потом будет такой фон ? Как сделать текстурный фон? Как задать картинку в качестве фона?

2) где можно найти список шрифтов, которые можно использовать в графическом режиме?

3) как считывать определенную строчку из отдельного файла (в котором словарные слова лежат) и потом выводить это слово на экран?

Спасибо.

[Фант]

1. Graphics clear эффективно очищает фон. Изображение картона в СБ заложено разработчиком в варианте skin установленного на Вашем устройстве(он стоит по умолчанию). Вы можете его поменять на один из вариантов описанных в примере или создать свой командами описанным в разделе НАСТРОЙКИ.
В программах Вам нужен конечно же не этот фон...вы должны его создавать сами графическими командами описанными в разделе ГРАФИКА.
2. Список шрифтов Вашего устройства:
option base 1
LIST FONTS TO A$,N
for i=1 to n
print a$(i)
next i
3. Посмотрите раздел ФАЙЛЫ.
Считывать информацию из файла можно как минимум двумя вариантами-выберите для себя оптимальный вариант. Если чтото не получится-спрашивайте-поможем

[Flower]

Спасибо! Пошла разбираться!

[Flower]

Фант,
не могу понять как работает эта команда:FILE N$ READLINE X$

Не могли бы вы дать пример, чтобы понять, а где здесь указывается строчка.
Спасибо.

Нужно взять пятую строку из файла и напечатать её.
Название файла - Slova.txt

То есть:
File Slova.txt readline x$ (где указать номер строки?)
Print x$

[Фант]

Можно так
File "..." Readline a$,...,...,...,e$
Print e$
'e$-5 строка


Можно так:
For i=1 to 10
File "..." Readline a$
If i=5 then print a$ ' a$-5 строка
Next i

[Flower]

2. Список шрифтов Вашего устройства:
option base 1
LIST FONTS TO A$,N
for i=1 to n
print a$(i)
next i

А что такое option base 1 ? Что это дает?
Спасибо.

[Фант]

Посмотрите раздел документации:РАЗНОЕ.

[Flower]

Можно так
File "..." Readline a$,...,...,...,e$
Print e$
'e$-5 строка


Можно так:
For i=1 to 10
File "..." Readline a$
If i=5 then print a$ ' a$-5 строка
Next i

Супер, получилось!
Спасибо.

[Flower]

Фант! Добрый вечер!

1) А как начать читать текстовый фаил (со словами для заучивания) заново, если он уже просчитан программой до середины?
Использую перебор по одной строке.

2) прочитала в инструкции что есть additional keyboard, на которой есть кнопки undo /redo. А как эту дополнительную раскладку клавиатуры включить?

3) и можно я пошлю вам личным сообщением кусочек программы, а то не пойму, где у меня ошибка. Спасибо.

[Flower]

3) и можно я пошлю вам личным сообщением кусочек программы, а то не пойму, где у меня ошибка. Спасибо.

Не дождалась ответа. Ниже кусок программы и проблема в том, что при исполнении она пролетает нужную ссылку. То есть если буква "и" - это правильный ответ, а программа вместо исполнения строчки 111, пролетает до строки 2222 и издает звук, что у меня является "символом" ошибки. ( то что перескакивает на строчку 2222 определяю по появлению надписи draw text "2и").

Иногда все работает правильно, а иногда нет.

loop1:
if a2$="и" then goto 111
if a2$="е" then goto 222
if a2$="о" then goto 333



111 if button_pressed("и") then
DRAW IMAGE "tetrad.jpg" AT 220,150
draw text a3$ at maxx/2,(maxy/2-100)! pause 2
button "дальше" show!
goto 19
endif

if button_pressed("е") then
music 1 play! mistake=mistake+1
draw text "1е" at maxx-50, maxy-50
!goto 150 ! endif

if button_pressed("о") then
music 1 play! mistake=mistake+1
draw text "1о" at maxx-50, maxy-50
!goto 150 ! endif

if button_pressed("а") then
music 1 play! mistake=mistake+1
draw text "1а" at maxx-50, maxy-50
!goto 150 ! endif
''



'g'
222 if button_pressed("е") then
DRAW IMAGE "tetrad.jpg" AT 220,150
draw text a3$ at maxx/2,(maxy/2-100)! pause 2
'draw text "2е" at maxx-50, maxy-50
button "дальше" show! goto 19
endif


2222 if button_pressed("и") then
music 1 play! mistake=mistake+1
draw text "2и" at maxx-50, maxy-50
!goto 150 ! endif

if button_pressed("o") then
music 1 play! mistake=mistake+1 !
draw text "2o" at maxx-50, maxy-50
goto 150 ! endif

if button_pressed("а") then
music 1 play! mistake=mistake+1
draw text "2a" at maxx-50, maxy-50
goto 150 ! endif

'goto 222
''
'r'
333 if button_pressed("о") then
DRAW IMAGE "tetrad.jpg" AT 220,150
draw text a3$ at maxx/2,(maxy/2-100)! pause 2
button "дальше" show!
goto 19
endif

if button_pressed("е") and a2$<>"е" then
music 1 play! mistake=mistake+1 !
draw text "3е" at maxx-50, maxy-50

goto 150 ! endif

if button_pressed("и") and a2$<>"и" then
music 1 play! mistake=mistake+1 !
draw text "3и" at maxx-50, maxy-50
goto 150
endif

if button_pressed("а") then
music 1 play! mistake=mistake+1 !
draw text "3а" at maxx-50, maxy-50
goto 150 ! endif

''

.....
Goto loop1