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

[Solkh]

У меня тоже получилось вот программа

Code: Select all

DEF xLINE()
   maxx = SCREEN_WIDTH()
   maxy = SCREEN_HEIGHT()
   x1 = RND(maxx)
   x2 = RND(maxx)
   y1 = RND(maxy)
   y2 = RND(maxy)
   DRAW COLOR RND(1),RND(1),RND(1)
   DRAW SIZE RND(8)
   DRAW LINE x1,y1 TO x2,y2
END DEF

DEF yCIRCLE()
   maxx = SCREEN_WIDTH()
   maxy = SCREEN_HEIGHT()
   x = RND(maxx)
   y = RND(maxy)
   r = RND(50)
   FILL COLOR RND(1),RND(1),RND(1)
   FILL CIRCLE x,y SIZE r
END DEF

GRAPHICS
GRAPHICS CLEAR
SHADOW ON
RANDOMIZE
GET ORIENTATION P

IF P = 1 OR 3 THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

LINES:
xLINE()
IF xLINE.maxx <> SCREEN_WIDTH() THEN
   GOTO CIRCLES
ELSE
   GOTO LINES
END IF

CIRCLES:
yCIRCLE()
IF yCIRCLE.maxx <> SCREEN_WIDTH() THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

[Фант]

У меня тоже получилось вот программа

Code: Select all

DEF xLINE()
   maxx = SCREEN_WIDTH()
   maxy = SCREEN_HEIGHT()
   x1 = RND(maxx)
   x2 = RND(maxx)
   y1 = RND(maxy)
   y2 = RND(maxy)
   DRAW COLOR RND(1),RND(1),RND(1)
   DRAW SIZE RND(8)
   DRAW LINE x1,y1 TO x2,y2
END DEF

DEF yCIRCLE()
   maxx = SCREEN_WIDTH()
   maxy = SCREEN_HEIGHT()
   x = RND(maxx)
   y = RND(maxy)
   r = RND(50)
   FILL COLOR RND(1),RND(1),RND(1)
   FILL CIRCLE x,y SIZE r
END DEF

GRAPHICS
GRAPHICS CLEAR
SHADOW ON
RANDOMIZE
GET ORIENTATION P

IF P = 1 OR 3 THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

LINES:
xLINE()
IF xLINE.maxx <> SCREEN_WIDTH() THEN
   GOTO CIRCLES
ELSE
   GOTO LINES
END IF

CIRCLES:
yCIRCLE()
IF yCIRCLE.maxx <> SCREEN_WIDTH() THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

Все работает не плохо. Не хватает полной очистки экрана после смены ориентации экрана

[Solkh]

Все работает не плохо. Не хватает полной очистки экрана после смены ориентации экрана

Это да, но я так вначале и задумывал без очистки . И еще только заметил не работает начальная ориентация т.е. как ни поверни сначала всегда рисуются линии, а потом меняются круги с линиями наоборот. Вот не пойму почему не работает условие?

Code: Select all

GET ORIENTATION P

IF P = 1 OR 3 THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

[Solkh]

Все работает не плохо. Не хватает полной очистки экрана после смены ориентации экрана

Это да, но я так вначале и задумывал без очистки . И еще только заметил не работает начальная ориентация т.е. как ни поверни сначала всегда рисуются линии, а потом меняются круги с линиями наоборот. Вот не пойму почему не работает условие?

Code: Select all

GET ORIENTATION P

IF P = 1 OR 3 THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

Все понял ошибка в условии надо было так

Code: Select all

IF P = 1 OR P = 3 THEN

[Mr. Kibernetik]

Код:

Code: Select all

IF P = 1 OR P = 3 THEN
   GOTO LINES
ELSE
   GOTO CIRCLES
END IF

можно записать в одну строку как:

Code: Select all

IF P = 1 OR P = 3 THEN GOTO LINES ELSE GOTO CIRCLES

потому что после THEN и ELSE стоит всего по одной команде.

Или еще короче:

Code: Select all

IF P = 1 OR P = 3 THEN LINES ELSE CIRCLES

Многострочный
IF THEN
ELSE
ENDIF
можно использовать, если команд стоит несколько.

[Dionis]

Здесь нет конструкции ELSE IF ? Шокирован

[dimonnn777]

Мой вариант

Code: Select all

def F
maxx = screen_width()
maxy = screen_height()
c=0.99 'цвет
s=50 'толщина
c1=RND (c)
c2=RND (c)
c3=RND (c)
s1=RND (s)
x=RND (maxx)
y=RND (maxy)
r=(RND (maxy)+RND (maxy))/7
DRAW color c1,c2,c3 
DRAW SIZE s1
DRAW ARC x,y,r,-360,0,0
end def 

def P
maxx = screen_width()
maxy = screen_height()
c=0.99 'цвет
s=50 'толщина
c1=RND (c)
c2=RND (c)
c3=RND (c)
s1=RND (s)
x1=RND (maxx)
y1=RND (maxy)
x2=RND (maxx)
y2=RND (maxy)
r=(RND (maxy)+RND (maxy))/7
DRAW color c1,c2,c3 
DRAW SIZE s1
DRAW LINE X1,Y1 TO X2,Y2
end def 
GRAPHICS
option angle degrees
loop:
maxx = screen_width()
maxy = screen_height()
if maxx>maxy then F else P
pause 0.1
goto loop

[Mr. Kibernetik]

Мой вариант

Code: Select all

def F
maxx = screen_width()
maxy = screen_height()
c=0.99 'цвет
s=50 'толщина
c1=RND (c)
c2=RND (c)
c3=RND (c)
s1=RND (s)
x=RND (maxx)
y=RND (maxy)
r=(RND (maxy)+RND (maxy))/7
DRAW color c1,c2,c3 
DRAW SIZE s1
DRAW ARC x,y,r,-360,0,0
end def 

def P
maxx = screen_width()
maxy = screen_height()
c=0.99 'цвет
s=50 'толщина
c1=RND (c)
c2=RND (c)
c3=RND (c)
s1=RND (s)
x1=RND (maxx)
y1=RND (maxy)
x2=RND (maxx)
y2=RND (maxy)
r=(RND (maxy)+RND (maxy))/7
DRAW color c1,c2,c3 
DRAW SIZE s1
DRAW LINE X1,Y1 TO X2,Y2
end def 
GRAPHICS
option angle degrees
loop:
maxx = screen_width()
maxy = screen_height()
if maxx>maxy then F else P
pause 0.1
goto loop

А почему цвет C=0.99, а не 1?

[dimonnn777]

Почемуто думал что дробные не будет выдавать, а так действительно надо 1

[Alexxl]

Мой вариант


100
A = rnd(1000)
B = rnd(1000)

GRAPHICS
DRAW SIZE rnd(15)
DRAW COLOR A/255,B/255,A-B/255

IF SCREEN_WIDTH() < SCREEN_HEIGHT() THEN
DRAW LINE TO A,B
ELSE
DRAW CIRCLE B,A SIZE rnd(100)
END IF

PAUSE 0.2
GOTO 100