Информатика -продвинутый курс
ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ - часть 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
