ZX-Ревю 1991 №2 1990 г.

Раздел для начинающих - Бейсик шаг за шагом.


БЕЙСИК ШАГ ЗА ШАГОМ

Этот раздел для начинающих подготовлен нашим читателем из г. Дубна тов. Скитевым Б.Н. Мы планируем сделать эту рубрику постоянной и приносим ему благодарность за предоставленный материал.

10 PRINT "*"; 20 GO TO 10

Попробуйте вместо точки с запятой ввести запятую или вообще ничего не вводить.

10 FOR A = 1 ТО 704 20 PRINT "*"; 30 NEXT A

Экран может содержать не более 704 символов, так как 32х22=704

Issue #2: To The Stars

40 PAUSE

50 FOR S = 5 ТО 16

60 PRINT AT S, 10; " "

70 NEXT S

Добавим к предыдущей программе эту, вырежем на экране окно. Отметим, что в строке 60- 12 пробелов.

10 BORDER 1 20 INK RND * 7 30 PRINT "SPECTRUM"; 40 GO TO 10

Выбираем цвета бордюра (возможны цифры от 0 до 7). Компьютер случайным образом выбирает цвет знаков.

10 LET A = RND*255 20 LET B = RND*175 30 PLOT INK RND*6;A^ 40 GO TO 10

Заполняем экран точками, координаты точек генерируются случайным образом командой RND.

Мозаика из разноцветных квадратов.

20 BORDER 1 30 INK RND * 6 40 PRINT "(": 70 GO TO 20

Квадрат в строке 40 рисуем в графическом режиме.

10 LET C = 0

50 IF C = 703 THEN STOP

60 LET C = C + 1

Если Вы хотите, чтобы программа остановилась сразу после заполнения экрана, то введите эти строки просто дописав их.

10 BORDER 0 20 PAPER 5 30 CLS

40 LET X = 1

50 FOR L = 0 ТО 21

60 FOR C = 1 TO 7

70 PRINT INK C; AT L,C+X;" |

80 NEXT C

90 LET X = X + 1

95 NEXT L

Рисуем "лесенку", цвет бордюра и экрана можно выбрать любым.

10 CLS

20 FOR N = 1 ТО 1000

30 LET C = RND*6

40 LET X = RND*21

50 LET Y = RND*31

60 LET A$ = CHR$(RND*133)+32)

70 PRINT AT X,Y; INK C: A$

80 NEXT N

Заполнение экрана случайным образом, случайными символами (конфетти). Программа остановится после того, как выведет на экран 1000 символов.

Бегущая буква.

10 FOR F = 0 ТО 3; 20 PRINT AT 10, F; "A 30 PAUSE 5 35 BEEP .01,20

40 PRINT AT 10,F:" " 50 NEXT F

Буква пробегает только одну строку 10. Попробуйте заставить букву пробегать другую строчку или несколько строк.

Горизонтальные цветные полосы.

10 FOR N = 1 ТО 2

20 FOR M = 0 TO 7

30 DIM P$ (32)

40 PRINT PAPER M; P$

50 NEXT M

60 NEXT N

Вертикальные цветные полосы.

10 FOR F = 7 ТО 0 STEP -1 20 PRINT INK F: "ЦЦ" 30 NEXT F 40 GO TO 10

Вводим 4 квадрата в графическом режиме.

Геометрические узоры.

10 FOR A = 127 ТО 254 STEP 4

20 CLS

30 INK RND * 6

40 PLOT 60,40

50 DRAW 126,88, PI*(2*A-1)

60 NEXT A

Звук и цвет.

10 FOR F = 1 TO 30 20 BEEP .1, RND * 20 + 20 30 BORDER RND * 7 40 NEXT F

Звуки.

10 FOR X = 12 TO 36 20 BEEP .O1.X 30 BEEP .01,24-X 40 NEXT X

Клавиатура - музыкальный инструмент.

10 LET P = CODE INKEY$ 20 IF P = 0 THEN GO TO 10 30 BEEP .04, (P-30)/2 40 GO TO 10

Эта программа позволяет Вам самим рисовать на экране.

10 CLS

20 PLOT 25,25 30 LET X = 5 40 INPUT K$

50 IF K$ = "Q"

THEN

DRAW

0,X

60 IF K$ = "А"

THEN

DRAW

0,-X

70 IF K$ = "P"

THEN

DRAW

Х,0

8O IF K$ = "О"

THEN

DRAW

-X,0

90 IF K$ = "С"

THEN

CLS

100 GO TO 40

Клавиша Q - вверх, клавиша A - вниз, клавиша P - вправо, клавиша O - влево, клавиша C - стереть все.




СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Вы спрашиваете - Можно ли яйца красить кисточкой ?
For Coderz - Вычисление тригонометрических и алгебраических функций в языках высокого уровня.
События - 8th оf маrсh.

В этот день...   23 октября