Search found 26 matches
- Tue Mar 10, 2015 7:22 am
- Forum: Уроки по программированию
- Topic: Программирование на smart BASIC. Урок 5
- Replies: 71
- Views: 41140
Re: Программирование на smart BASIC. Урок 5
В условиях задачи не было такого условия, обозначить "вход". Поэтому он у меня генерируется каждый раз в случайном месте так же как и выход.
- 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
- Fri Feb 06, 2015 7:38 pm
- Forum: Уроки по программированию
- Topic: Программирование на smart BASIC. Урок 5
- Replies: 71
- Views: 41140
Re: Программирование на smart BASIC. Урок 5
Спасибо. Буду теперь осмысливать.
- Fri Feb 06, 2015 7:19 pm
- Forum: Уроки по программированию
- Topic: Программирование на smart BASIC. Урок 5
- Replies: 71
- Views: 41140
- 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...
- Wed Feb 04, 2015 7:59 pm
- Forum: Другие темы
- Topic: Помощь новичкам
- Replies: 60
- Views: 51141
Re: Помощь новичкам
Добавил эти две строки, получается всё равно как я описывал. Я вам привел в пример этот код не для того, чтобы вы его просто вставили в программу, а чтобы вам было понятно, как оно в принципе работает. Раз у вас в программе рисует в координате 0,0, значит вы именно в эту координату рисуете. Нужно н...
- Wed Feb 04, 2015 4:31 pm
- Forum: Другие темы
- Topic: Помощь новичкам
- Replies: 60
- Views: 51141
Re: Помощь новичкам
)) У меня уже есть простейшая программа рисовалка, вчера получилась, когда команду GET TOUCH опробывал, с изменением толщины линии и цвета )) и очисткой экрана и даже теоретически с сохранением рисунка в файл(не сохранилось просто пока), но вот отвязать перо от -1,-1 у меня вчера не получилось) Ну я...
- 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
Спасибо!)
- 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
- Wed Feb 04, 2015 3:04 pm
- Forum: Другие темы
- Topic: Помощь новичкам
- Replies: 60
- Views: 51141
Re: Помощь новичкам
Да вот, если я использую команду DRAW TO в приведенном выше примере, то перо вначале устанавливается а потом первым шагом возвращается в 0,0 и оттуда начинает строить линию..