Безкінечний круг з вибором кольору
Безкінечний круг з вибором кольору
Embedded Files
SCREEN 9
INPUT "COLOR (1-16)", col
cls
10
c = c + 1
CIRCLE (320, 170), c, col
GOTO 10
Безкінечний круг з вибором кольору (фіксований)
Безкінечний круг з вибором кольору (фіксований)
SCREEN 9
dr = 1
c = 3
INPUT "COLOR (1-16)", col
CLS
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
CIRCLE (320, 170), c, col
GOTO 10
Безкінечний круг (різнокольоровий)
Безкінечний круг (різнокольоровий)
CLS
SCREEN 9
10
col = col + 1
c = c + 1
CIRCLE (320, 170), c, col
GOTO 10
Безкінечний круг (різнокольоровий) (фіксований)
Безкінечний круг (різнокольоровий) (фіксований)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
CIRCLE (320, 170), c, col
GOTO 10
Безкінечний круг (різнокольоровий) (фіксований) (чорний)
Безкінечний круг (різнокольоровий) (фіксований) (чорний)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
CIRCLE (320, 170), c, col
CIRCLE (320, 170), c, 0
GOTO 10
Робота з координатами
Робота з координатами
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
10
x = x + 1
y = y + 1
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
CIRCLE (x, y), c, col
GOTO 10
Робота з координатами (чорний)
Робота з координатами (чорний)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
10
x = x + 1
y = y + 1
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
CIRCLE (x, y), c, col
CIRCLE (x, y), c, 0
GOTO 10
Робота з координатами (фіксований)
Робота з координатами (фіксований)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
CIRCLE (x, y), c, col
GOTO 10
Робота з координатами (фіксований) (чорний)
Робота з координатами (фіксований) (чорний)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
CIRCLE (x, y), c, col
CIRCLE (x, y), c, 0
GOTO 10
Робота з координатами (фіксація колору і радіуса)
Робота з координатами (фіксація колору і радіуса)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
IF dr = 1 THEN col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
CIRCLE (x, y), c, col
GOTO 10
Робота з координатами (фіксація колору і радіуса) (чорний)
Робота з координатами (фіксація колору і радіуса) (чорний)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
IF dr = 1 THEN col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
CIRCLE (x, y), c, col
CIRCLE (x, y), c, 0
GOTO 10
Коло і лінія
Коло і лінія
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
IF dr = 1 THEN col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
CIRCLE (x, y), c, col
LINE (320, 175)-(x, y)
GOTO 10
Коло і лінія (звук)
Коло і лінія (звук)
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
IF dr = 1 THEN col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
sf = col * 100
SOUND sf, .3
CIRCLE (x, y), c, col
LINE (320, 175)-(x, y)
GOTO 10
Звук - візуалізація
Звук - візуалізація
SCREEN 9
CLS
col = 1
dr = 1
c = 3
x = 3
y = 3
xd = 1
yd = 1
10
c = c + dr
IF c > 100 THEN dr = dr * -1
IF c < 2 THEN dr = dr * -1
IF dr = 1 THEN col = col + 1
IF col > 16 THEN col = col + 1
x = x + xd
y = y + yd
IF x > 640 THEN xd = xd * -1
IF x < 2 THEN xd = xd * -1
IF y > 350 THEN yd = yd * -1
IF y < 2 THEN yd = yd * -1
sf = col * 100
PRINT col
SOUND sf, .3
CIRCLE (x, y), c, col
LINE (320, 175)-(x, y)
GOTO 10
Page updated
Google Sites
Report abuse