Search found 26 matches

by Alexxl
Tue Mar 10, 2015 7:22 am
Forum: Уроки по программированию
Topic: Программирование на smart BASIC. Урок 5
Replies: 71
Views: 41140

Re: Программирование на smart BASIC. Урок 5

В условиях задачи не было такого условия, обозначить "вход". Поэтому он у меня генерируется каждый раз в случайном месте 8-) так же как и выход.
by Alexxl
Thu Mar 05, 2015 1:06 pm
Forum: Уроки по программированию
Topic: Программирование на smart BASIC. Урок 5
Replies: 71
Views: 41140

Re: Программирование на smart BASIC. Урок 5

Всем привет) Мой вариант: GRAPHICS OPTION BASE 1 DIM L(10,10) FOR i = 1 TO 10 FOR j = 1 TO 10 L(i,j) = rnd(2) NEXT j NEXT i DRAW SIZE 25 DRAW LINECAP ROUND FOR i = 1 TO 10 x += 50 y = 50 FOR j = 1 TO 10 IF L(i,j) = 0 THEN DRAW LINE x,y TO x,y+50 ELSE DRAW LINE x,y TO x+50,y END IF y +=50 NEXT j NEXT i
by Alexxl
Fri Feb 06, 2015 7:38 pm
Forum: Уроки по программированию
Topic: Программирование на smart BASIC. Урок 5
Replies: 71
Views: 41140

Re: Программирование на smart BASIC. Урок 5

Спасибо. Буду теперь осмысливать.
by Alexxl
Fri Feb 06, 2015 6:49 pm
Forum: Уроки по программированию
Topic: Программирование на smart BASIC. Урок 5
Replies: 71
Views: 41140

Re: Программирование на smart BASIC. Урок 5

Вот тоже пытаюсь разобраться как пользоваться массивом, тоже хочу лабиринт построить. Можете показать, вот как бы например вот эта запись, если использовать массив выглядела? Ну или подсказку пример дать. Не понимаю как вот эти координаты в массив записать. GRAPHICS DRAW RECT 0,0 to 100,100 DRAW REC...
by Alexxl
Wed Feb 04, 2015 7:59 pm
Forum: Другие темы
Topic: Помощь новичкам
Replies: 60
Views: 51141

Re: Помощь новичкам

Добавил эти две строки, получается всё равно как я описывал. Я вам привел в пример этот код не для того, чтобы вы его просто вставили в программу, а чтобы вам было понятно, как оно в принципе работает. Раз у вас в программе рисует в координате 0,0, значит вы именно в эту координату рисуете. Нужно н...
by Alexxl
Wed Feb 04, 2015 4:31 pm
Forum: Другие темы
Topic: Помощь новичкам
Replies: 60
Views: 51141

Re: Помощь новичкам

)) У меня уже есть простейшая программа рисовалка, вчера получилась, когда команду GET TOUCH опробывал, с изменением толщины линии и цвета )) и очисткой экрана и даже теоретически с сохранением рисунка в файл(не сохранилось просто пока), но вот отвязать перо от -1,-1 у меня вчера не получилось) Ну я...
by Alexxl
Wed Feb 04, 2015 3:37 pm
Forum: Другие темы
Topic: Помощь новичкам
Replies: 60
Views: 51141

Re: Помощь новичкам

Фант wrote:Рисуем пальцем по экрану линиями:
graphics
loop:
get touch 0 as x,y
if x>-1 then
draw to x,y
goto 10
endif
goto loop
10 get touch 0 as x,y
if x=-1 then loop
draw line to x,y
goto 10

Спасибо!)
by Alexxl
Wed Feb 04, 2015 3:15 pm
Forum: Другие темы
Topic: Помощь новичкам
Replies: 60
Views: 51141

Re: Помощь новичкам

Mr. Kibernetik wrote:
Alexxl wrote:Да вот, если я использую команду DRAW TO в приведенном выше примере, то перо вначале устанавливается а потом первым шагом возвращается в 0,0 и оттуда начинает строить линию..

Code: Select all

graphics
draw to 100,100
draw line to 200,200
image.jpg
image.jpg (24.84 KiB) Viewed 12591 times
Добавил эти две строки, получается всё равно как я описывал.
by Alexxl
Wed Feb 04, 2015 3:04 pm
Forum: Другие темы
Topic: Помощь новичкам
Replies: 60
Views: 51141

Re: Помощь новичкам

Да вот, если я использую команду DRAW TO в приведенном выше примере, то перо вначале устанавливается а потом первым шагом возвращается в 0,0 и оттуда начинает строить линию..