Программирование на smart BASIC. Урок 4

[Dedjto]

Спасибо, за подсказку.
Изменила graphics clear. Теперь все на черном экране, спасибо еще раз. Тест прошел нормально, раз 10 переворачивала IPad, все нормально и с кругами и с линиями...

[niks26]

Спасибо, за подсказку.
Изменила graphics clear. Теперь все на черном экране, спасибо еще раз. Тест прошел нормально, раз 10 переворачивала IPad, все нормально и с кругами и с линиями...

Если начинать с кругов (горизонтально) остаются одни круги. У меня и того не получилось... И пока никак.

[Фант]

Всем привет!
Решил тоже поучавствовать
Мой вариант:

Code: Select all

graphics
randomize

loop:
sl
GET ORIENTATION P 
if p=1 or p=3 then
fill color sl.r,sl.g,sl.b
fill circle sl.x,sl.y size sl.rad
else
draw size sl.siz
draw color sl.r,sl.g,sl.b
draw line sl.x,sl.y to sl.x1,sl.y1
endif
goto loop

def sl
if maxx<> screen_width() then graphics clear 0,0,0
maxx = screen_width()
maxy = screen_height()
r=rnd(1)
g=rnd(1)
b=rnd(1)
x=rnd(maxx)
y=rnd(maxy)
x1=rnd(maxx)
y1=rnd(maxy)
rad=rnd(50)+5
siz=rnd (10)+1
end def

[Фант]

Обратите внимание на то, где находится команда GET ORIENTATION P у меня и у вас и подумайте как она работает

[Mr. Kibernetik]

Для разнообразия предлагаю попробовать включить тени: SHADOW ON.

[Фант]

Для разнообразия предлагаю попробовать включить тени: SHADOW ON.

Но при этом желательно осветлить фон

[niks26]

Обратите внимание на то, где находится команда GET ORIENTATION P у меня и у вас и подумайте как она работает

Обратите внимание: круги горизонтально, линии вертикально. По условиям задания

Code: Select all

graphics
randomize

def sl
if maxx<> screen_width() then graphics clear 0,0,0
maxx = screen_width()
maxy = screen_height()
r=rnd(1)
g=rnd(1)
b=rnd(1)
x=rnd(maxx)
y=rnd(maxy)
x1=rnd(maxx)
y1=rnd(maxy)
rad=rnd(50)+5
siz=rnd (10)+1
end def

loop:
sl
GET ORIENTATION P 
if p=2 or p=4 then
fill color sl.r,sl.g,sl.b
fill circle sl.x,sl.y size sl.rad
else
draw size sl.siz
draw color sl.r,sl.g,sl.b
draw line sl.x,sl.y to sl.x1,sl.y1
endif
goto loop

Вот так, видимо (я ф-цию наверх перенес, так понятней стало), спасибо за пример и урок.

[Фант]

Обратите внимание на то, где находится команда GET ORIENTATION P у меня и у вас и подумайте как она работает

Обратите внимание: круги горизонтально, линии вертикально. По условиям задания

согласен что задание я прочитал не внимательно
Но здесь я обращал внимание на принцип работы команды GET ORIENTATION P ...

[Dedjto]

GRAPHICS
RANDOMIZE
DEF LR
if maxy <> screen_height() then graphics clear 0,0,0
maxx = screen_width()
maxy = screen_height()
x1 = rnd(maxx)
y1 = rnd(maxy)
x2 = rnd(maxx)
y2 = rnd(maxy)
r = rnd(1)
g = rnd(1)
b = rnd(1)
rad = rnd(7)
siz = rnd(7)
END DEF

LABEL1:
LR
GET ORIENTATION P

IF P = 1 or P = 3 then
draw color LR.r,LR.g,LR.b
draw size LR.siz
draw line LR.x1, LR.y1 to LR.x2, LR.y2
ELSE
draw color LR.r,LR.g,LR.b
draw circle LR.x1, LR.y1 size LR.rad
END IF
GOTO LABEL1
Вот так у меня. Спасибо за пример и подсказку

[Фант]

Ну и хорошо, что все получилось
Шишки набить на ошибках полезно)