Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/64: Рейтинг темы: голосов - 64, средняя оценка - 4.55
1 / 1 / 0
Регистрация: 10.11.2011
Сообщений: 51

Графика: мигающая "мигалка" (задержка)

11.11.2011, 00:26. Показов 12503. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
вот рисунок в паскале(сам рисовал))) хочу сделать мигающую мигалку)) неважно какие цвета будут мигать.. много читал во всемирной паутине мусора о задержке но ничего не понял..
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

program mashina;
uses graphabc;
begin
      line(150,150,400,150);
      line(150,150,50,250);
      line(50,250,50,350);
      line(50,350,100,350);
      circle(150,350,50);
      line(200,350,500,350);
      circle(550,350,50);
      line(400,150,500,250);
      line(500,250,650,280);
      line(650,280,650,330);
      line(625,350,600,350);
      line(50,250,500,250);
      line(500,250,500,350);
      line(200,250,200,350);
      line(160,160,80,240);
      line(80,240,480,240);
      line(480,240,400,160);
      LINE(400,160,160,160);
      LINE(200,160,120,240);
      LINE(210,160,130,240);
      LINE(350,160,350,240);
      LINE(340,160,340,240);
      LINE(345,160,345,350);
      LINE(50,300,650,300);
      LINE(650,330,625,350);
      CIRCLE(150,350,15);
      LINE(150,335,150,300);
      LINE(165,350,200,350);
      LINE(150,365,150,400);
      LINE(185,350,100,350);
      LINE(160,340,185,315);
      LINE(160,360,185,385);
      LINE(140,360,110,385);
      LINE(140,340,115,315);
      CIRCLE(550,350,15);
      LINE(560,340,585,315);
      LINE(560,360,585,385);
      LINE(540,360,510,385);
      LINE(540,340,515,315);
      LINE(500,350,600,350);
      LINE(480,230,650,280);
      LINE(210,160,210,240);
      LINE(215,160,215,240);
      circle(550,350,30);
      CIRCLE(550,350,15);
      circle(150,350,30);
      CIRCLE(150,350,15);
      line(50,270,30,280);
      line(30,280,30,300);
      line(30,300,50,310);
      line(260,255,225,255);
      line(225,255,225,270);
      line(225,270,260,270);
      line(260,270,260,255);
      line(225,262,260,262);
      line(375,255,410,255);
      line(375,255,375,270);
      line(375,270,410,270);
      line(410,270,410,255);
      line(375,262,410,262);
      floodfill(250,200,clblack);
      floodfill(400,200,clblack);
      floodfill(200,200,clblack);
      floodfill(150,200,clblack);
      floodfill(250,320,clred);
      floodfill(350,270,clred);
      floodfill(300,270,clred);
      floodfill(400,320,clred);
      floodfill(250,320,clred);
      floodfill(550,270,clred);
      floodfill(505,305,clred);
      floodfill(605,305,clred);
      floodfill(540,250,clred);
      floodfill(150,260,clred);
      floodfill(195,305,clred);
      floodfill(80,340,clred);
      floodfill(300,152,clyellow);
      floodfill(40,290,clltgray);
      floodfill(150,350,clBLUE);
      floodfill(150,330,clBLUE);
      floodfill(145,310,clBLUE);
      floodfill(180,360,clBLUE);
      floodfill(180,340,clBLUE);
      floodfill(160,310,clBLUE);
      floodfill(155,390,clBLUE);
      floodfill(140,390,clBLUE);
      floodfill(105,360,clBLUE);
      floodfill(540,310,clBLUE);
      floodfill(590,340,clBLUE);
      floodfill(590,360,clBLUE);
      floodfill(560,390,clBLUE);
      floodfill(505,360,clBLUE);
      floodfill(552,352,clBLUE);
      floodfill(552,330,clBLUE);
      CIRCLE(350,110,20);
      Rectangle(330,110,370,150);
      floodfill(352,95,clBLUE);
      floodfill(352,145,clBLUE);
      floodfill(100,50,CLWHITE);
      LINE(620,350,599,350);
      floodfill(602,320,clred);
      Rectangle(55,255,100,275);
      floodfill(60,260,clblack);
 
      
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 11.11.2011, 00:26
Ответы с готовыми решениями:

Круглая/мигающая разными цветами кнопка
Собственно вопрос: Как сделать круглую кнопку? и как заставить ее мигать разными цветами, например...

Мигающая гирлянда
Хэлп! :( Нужна помощь :( в именно код (модуль программы турбо паскаль) - мигающая гирлянда

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

6
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 00:31
Задержка -
Pascal
1

sleep(100)
, значение в скобках - доли секунды, не помню какие.
После чего надо очистить экран
Pascal
1

 clearWindow;
и перерисовать картинку -
Pascal
1

redraw;
Сейчас прикину к программе
1
1 / 1 / 0
Регистрация: 10.11.2011
Сообщений: 51
11.11.2011, 00:36  [ТС]
хорошо)
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 00:40
Слушай, проще сделать через цикл!
В раздел описания переменных добавляешь:
Pascal
1

var i: integer;
для счетчика цикла, а в конце программы (до end, разумеется) - такую конструкцию
Pascal
1
2
3
4
5
6
7
8
9
10
11
12

for i:=1 to 1000 do
 
    begin
 
         floodfill(352,95,clBLUE);
         floodfill(352,145,clBLUE);
         sleep(100);
         
         floodfill(352,95,clred);
         floodfill(352,145,clred);
         sleep(100);
    end;
1
1 / 1 / 0
Регистрация: 10.11.2011
Сообщений: 51
11.11.2011, 00:44  [ТС]
и всё??)) ппц) спасибо) а я думал что только в модуле crt можно использовать циклы и т.д..

Добавлено через 28 секунд
а машина на девятку похожа хоть чуть?)))
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 01:01
Похожа. Держи, поехала твоя девятка. Правда, мигалка отключилась. Буду думать.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

program mashina;
uses graphabc;
var i, x, j: integer;
begin
lockdrawing;
     x:=-100;
     for j:=1 to 100 do
     begin
     clearwindow;
 
line(x+150,150,x+400,150);
line(x+150,150,x+50,250);
line(x+50,250,x+50,350);
line(x+50,350,x+100,350);
circle(x+150,350,50);
line(x+200,350,x+500,350);
circle(x+550,350,50);
line(x+400,150,x+500,250);
line(x+500,250,x+650,280);
line(x+650,280,x+650,330);
line(x+625,350,x+600,350);
line(x+50,250,x+500,250);
line(x+500,250,x+500,350);
line(x+200,250,x+200,350);
line(x+160,160,x+80,240);
line(x+80,240,x+480,240);
line(x+480,240,x+400,160);
LINE(x+400,160,x+160,160);
LINE(x+200,160,x+120,240);
LINE(x+210,160,x+130,240);
LINE(x+350,160,x+350,240);
LINE(x+340,160,x+340,240);
LINE(x+345,160,x+345,350);
LINE(x+50,300,x+650,300);
LINE(x+650,330,x+625,350);
CIRCLE(x+150,350,15);
LINE(x+150,335,x+150,300);
LINE(x+165,350,x+200,350);
LINE(x+150,365,x+150,400);
LINE(x+185,350,x+100,350);
LINE(x+160,340,x+185,315);
LINE(x+160,360,x+185,385);
LINE(x+140,360,x+110,385);
LINE(x+140,340,x+115,315);
CIRCLE(x+550,350,15);
LINE(x+560,340,x+585,315);
LINE(x+560,360,x+585,385);
LINE(x+540,360,x+510,385);
LINE(x+540,340,x+515,315);
LINE(x+500,350,x+600,350);
LINE(x+480,230,x+650,280);
LINE(x+210,160,x+210,240);
LINE(x+215,160,x+215,240);
circle(x+550,350,30);
CIRCLE(x+550,350,15);
circle(x+150,350,30);
CIRCLE(x+150,350,15);
line(x+50,270,x+30,280);
line(x+30,280,x+30,300);
line(x+30,300,x+50,310);
line(x+260,255,x+225,255);
line(x+225,255,x+225,270);
line(x+225,270,x+260,270);
line(x+260,270,x+260,255);
line(x+225,262,x+260,262);
line(x+375,255,x+410,255);
line(x+375,255,x+375,270);
line(x+375,270,x+410,270);
line(x+410,270,x+410,255);
line(x+375,262,x+410,262);
floodfill(x+250,200,clblack);
floodfill(x+400,200,clblack);
floodfill(x+200,200,clblack);
floodfill(x+150,200,clblack);
floodfill(x+250,320,clred);
floodfill(x+350,270,clred);
floodfill(x+300,270,clred);
floodfill(x+400,320,clred);
floodfill(x+250,320,clred);
floodfill(x+550,270,clred);
floodfill(x+505,305,clred);
floodfill(x+605,305,clred);
floodfill(x+540,250,clred);
floodfill(x+150,260,clred);
floodfill(x+195,305,clred);
floodfill(x+80,340,clred);
floodfill(x+300,152,clyellow);
floodfill(x+40,290,clltgray);
floodfill(x+150,350,clBLUE);
floodfill(x+150,330,clBLUE);
floodfill(x+145,310,clBLUE);
floodfill(x+180,360,clBLUE);
floodfill(x+180,340,clBLUE);
floodfill(x+160,310,clBLUE);
floodfill(x+155,390,clBLUE);
floodfill(x+140,390,clBLUE);
floodfill(x+105,360,clBLUE);
floodfill(x+540,310,clBLUE);
floodfill(x+590,340,clBLUE);
floodfill(x+590,360,clBLUE);
floodfill(x+560,390,clBLUE);
floodfill(x+505,360,clBLUE);
floodfill(x+552,352,clBLUE);
floodfill(x+552,330,clBLUE);
CIRCLE(x+350,110,20);
Rectangle(x+330,110,x+370,150);
floodfill(x+352,95,clBLUE);
floodfill(x+352,145,clBLUE);
floodfill(x+100,50,CLWHITE);
LINE(x+620,350,x+599,350);
floodfill(x+602,320,clred);
Rectangle(x+55,255,x+100,275);
floodfill(x+60,260,clblack);
 
 
for i:=1 to 5 do
    begin
         floodfill(x+352,95,clBLUE);
         floodfill(x+352,145,clBLUE);
         floodfill(x+352,95,clred);
         floodfill(x+352,145,clred);
    end;
    sleep(10);
    x:=x+10;
    redraw;
    end;
 
end.
1
1 / 1 / 0
Регистрация: 10.11.2011
Сообщений: 51
11.11.2011, 14:22  [ТС]
спасибо))=)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 11.11.2011, 14:22
Помогаю со студенческими работами здесь

Паскаль графика (построения графика функции)
как поставить х и у буквами в графике и пронумеровать ось рисками от 1... подскажите пож вот...

Графика: построить 2 графика в одной координатной плоскости
Нужно построить 2 графика в одной координатной плоскости, но для начала нужно протабулировать...

Написать программу построения графика функции.(Графика)
Написать программу построения графика функции y= x2 +2x-cos x на отрезке . Помогите...

Графика: построение графика по данным из файла
В общем нужно из файла в который я ранее внес значения сделать график и отобразить на нем точки. Я...

Задержка в Паскале
Привет всем! Подскажите как релизовать задержку(delay) на паскале? На самом простом примере:...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
Контроль уникальности заводского номера - вариант №2
Maks 24.03.2026
В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
 Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
 Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru