Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
прогеймер
5 / 5 / 5
Регистрация: 28.11.2011
Сообщений: 46
1

графика с мерцанием.

08.12.2011, 23:02. Просмотров 276. Ответов 1
Метки нет (Все метки)

помогите в программе сделать так, чтобы мегала не одна точка, а все . вот программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses graphabc;
var a,b,i,x,y:integer;
begin
Lockdrawing;
for b:=1 to 10 do
begin
floodfill(1,1,clblack);
SetPenColor(clwhite);
x:=random(900);
y:=random(900);
circle(x,y,1);
sleep(50);
end;
redraw;
for i:=1 to 10 do
begin
Lockdrawing;
floodfill(1,1,clblack);
SetPenColor(clblack);
circle(x,y,1);
sleep(50);
redraw;
Lockdrawing;
floodfill(1,1,clblack);
SetPenColor(clwhite);
circle(x,y,1);
sleep(50);
redraw;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 23:02
Ответы с готовыми решениями:

Вывести на экран сформированный массив, выделив цветом (мерцанием) указанные в варианте элементы
Люди добрые помогите, проверить доработать и дать советы в задачах: С помощью ПСП сформировать...

Графика.Цена деления графика.
Нужно доделать сие творение!Не хватает цены деления хотя бы 3 засечки по иксу в право и по игреку в...

Черный экран с мерцанием стрелки
Добрый день, установил новую материнскую плату,на компьютер, включается 1 раз пищит и верху...

Форма с компонентами загружается с мерцанием
Здравствуйте, допустим есть форма на которой находится много разных компонентов, проблема в том,...

Бегущая строка прорисовывается с мерцанием
Есть простая анимация. Например бегущая строка. Проблема в том что анимация временами дергается, не...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.12.2011, 23:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses graphabc;
 var x,y: array [1..100] of integer;
 i,j:integer;
 begin
  floodfill(1,1,clblack);
 for j:=1 to 10 do
     begin
     x[j]:=random(700);
     y[j]:=random(500);
     end;
 for i:=1 to 100 do
     begin
     SetPenColor(clwhite);
     setbrushcolor(clwhite);
     for j:=1 to 10 do
         circle(x[j],y[j],1);
     sleep(10);
     SetPenColor(clblack);
     setbrushcolor(clblack);
     for j:=1 to 10 do
         circle(x[j],y[j],1);
     sleep(10);
     end;
 end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 23:31

Вывод изображения с "мерцанием", "чередованием"
На 1 компьютере, со встроенной видеокартой, и на 1 ноутбуке проблем с изображением нет. На всех...

Рисование графика: обработка новых входящих данных и движение графика на форме
Подскажите каким способом можно вывести график частью главного окна программы, при чем график...

Chart - диаграмма: изменить точность делений графика, установить центр графика в (0,0)
Создал диаграмму (все прекрасно считается точки расставляются), но есть проблемыЖ 1. В случае...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru