Информатика -продвинутый курс


ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ - часть 2


100 CIRCLE (0, 0), .5, 15 : PAINT (0, 0), 12, 15

 

Допустим, что в компьютерной демонстрации надо обратить внимание на какую-либо точку графического образа. В этом сл>чае точку делают мигающей. Для этого меняют с определенной частотой ее цвет.

 

Программа 62

10 '*************** чистый лист **********************

20 SCREEN 9

30 WINDOW (-16, -12) - (16, 12)

40 COLOR 14, 1

50 '*************** мигающая точка *******************

60 FOR 1=1 TO 5

70 CIRCLE (0. 0), .5, 15 : PAINT (0, 0), 14, 15 : DELAY .2

80 'FOR k=l TO 200 : NEXT k

90 CIRCLE (0, 0),.5, 15 : PAINT (0, 0), 12, 15 : DELAY .5

100 'FOR k=l TO 500 : NEXT k

110 NEXT I

 

Обратим внимание на то, что в этой программе время выдержки красного цвета (12) полсекунды (DELAY .5, либо пустой цикл), а желтого цвета (14) - две десятых секунды. В результате получается красная мигающая точка.

Для акцентирования внимания мигание точки можно сопроводить звуковыми сигналами. Для этого используют оператор ВЕЕР стандартной частоты и длительности. Для издания звукового сигнала заданной частоты и длительности применяют оператор SOUND cl,t, где cl - частота сигнала, t -длительность.

 

Программа 63

10   ************** Клаксон **************************

20 SCREEN 9

30 WINDOW (-16, -12) - (16,12)

40 COLOR 14, 1

110 '***** мигающие точки со звуковым сигналом ВЕЕР *******

120 FOR i=l TO 5

130 CIRCLE (-5, -5), .25, 15 : PAINT (-5, -5), 6, 15

140 CIRCLE (-5, 5), .25. 15 : PAINT (-5, 5), 6, 15

150 CIRCLE (5, 5), .25, 15 : PAINT (5, 5). 6, 15

160 CIRCLE (5, -5), .25, 15 : PAINT (5, -5), 6, 15

170 DELAY .2 : BEEP

180 CIRCLE (-5, -5), .25, 15 : PAINT (-5, -5), 10, 15

190 CIRCLE (-5, 5), .25, 15 : PAINT (-5, 5), 10, 15

200 CIRCLE (5. 5), .25, 15 : PAINT (5, 5), 10, 15

210 CIRCLE (5, -5), .25, 15 : PAINT (5, -5). 10, 15

220 DELAY .5

230 NEXT i

240 '***** Мигающая точка со звуковым сигналом SOUND ******

250 FOR i=l TO 5

260 CIRCLE (0, 0), .5, 15 : PAINT (0, 0), 14, 15

270 SOUND 600, .2 : DELAY .2




Начало  Назад  Вперед



Книжный магазин