Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 07.06.2021
Сообщений: 1
1

На форме имеются пять пронумерованных кругов разного цвета

07.06.2021, 15:24. Показов 859. Ответов 8
Метки нет (Все метки)

на форме имеются пять пронумерованных кругов разного цвета. Во внешнем файле записаны целые числа от 1 до 5.При нажатии на кнопку пуск происходит считывание чисел из файла и круги загораются и тут же гаснут в соотвествии с числом,указанном в файле.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2021, 15:24
Ответы с готовыми решениями:

Имеется семь окон разного цвета, определить пять окон разного цвета
Помогите пожалуйста! Задание: Имеется семь окон разного цвета, определить пять окон разного...

Необходимо начертить 5 кругов разного цвета с одним центром, указанным курсором на экране
Здравствуйте. Не знаю, имею ли я право обратиться к специалистам с просьбой сделать программку на...

Имеются n досок разного цвета. Необходимо выбрать из них не менее k досок одного цвета длиной не менее h сантиметров
На лесопилке имеются n досок разного цвета. Необходимо выбрать из них не менее k досок одного цвета...

Вывести на форме n отрезков разного цвета
помогите создать приложение,вывести на форме н отрезков разного цвета, кол-во отрезков задавать...

8
Эксперт Pascal/Delphi
6750 / 4529 / 4797
Регистрация: 05.06.2014
Сообщений: 22,351
07.06.2021, 15:54 2
Цитата Сообщение от Valerakun Посмотреть сообщение
Во внешнем файле записаны целые числа от
Файл где?
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
08.06.2021, 09:04 3
Например так.
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
type krug=record   //круг
          nm:integer;//номер
          x:integer; //абцисса центра
          cp:TColor; //цвет  пера
          cb:TColor;//цвет  кисти
          end;
const n=5;
      cl:array[1..n] of TColor=(clPurple,clBlue,clGreen,clAqua,clLime);
var
  Form1: TForm1;
  f:TextFile;//файл с числами
  kr:array[1..n] of krug;//массив кругов
  r,y:integer;//радиус и ордината центра кругов
  a:integer;//считываемые числа
implementation
 
{$R *.lfm}
 
 
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
r:=40;
y:=2*r;
for i:=1 to n do
with kr[i] do
 begin
  nm:=i;
  x:=(3*i-1)*r;
  cp:=cl[i];
  cb:=clBtnFace;
 end;
clientwidth:=16*r;
position:=poScreenCenter;
Timer1.Enabled:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'chisla.txt');//файл в папке с программой
reset(f);
Timer1.Enabled:=true;
Timer1.Interval:=1000;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
for i:=1 to n do
with Canvas do
 begin
  pen.Width:=3;
  font.Style:=[fsBold];
  font.Size:=12;
  font.Color:=clRed;
  pen.Color:=kr[i].cp;
  brush.Color:=kr[i].cb;
  ellipse(kr[i].x-r,y-r,kr[i].x+r,y+r);
  textout(kr[i].x-8,y-10,inttostr(i));
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
read(f,a);
kr[a].cb:=kr[a].cp;
repaint;
sleep(500);
Application.ProcessMessages;
kr[a].cb:=clBtnFace;
if eof(f) then
 begin
  closefile(f);
  Timer1.Enabled:=false;
  end;
repaint;
end;
1
0 / 0 / 0
Регистрация: 12.06.2021
Сообщений: 2
12.06.2021, 17:24 4
я вот вставил в procedure TForm1.Timer1Timer(Sender: TObject); код и он пишет ошибку.Ошибки тут
Delphi
1
2
read(f,a);
kr[a].cb:=kr[a].cp;
тут:
Delphi
1
2
kr[a].cb:=clBtnFace;
if eof(f) then
и тут:
Delphi
1
closefile(f);
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.06.2021, 17:27 5
Архив проекта приложите.
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.06.2021, 17:33 6
Или лучше посмотрите мой проект
1
Вложения
Тип файла: zip Круги_5.zip (127.4 Кб, 2 просмотров)
0 / 0 / 0
Регистрация: 12.06.2021
Сообщений: 2
15.06.2021, 09:46 7
а почему кружков нету на форме а когда запускаешь программу они появляются?
0
Модератор
7167 / 4674 / 1967
Регистрация: 21.01.2014
Сообщений: 19,821
Записей в блоге: 3
15.06.2021, 09:49 8
Цитата Сообщение от Papich1337 Посмотреть сообщение
кружков нету на форме а когда запускаешь программу они появляются?
Это магия!
а если серьезно, Вы что, даже краем уха такого понятия не слышали, как "рисование на канве"?
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
15.06.2021, 11:25 9
Цитата Сообщение от Papich1337 Посмотреть сообщение
а когда запускаешь программу они появляются?
Потому что программа начинает работать только после запуска.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2021, 11:25

с пояснением . На форме располагаются: шесть панелей с номерами от 10 до 20 (шаг 2) разного цвета
На форме располагаются: шесть панелей с номерами от 10 до 20 (шаг 2) разного цвета (размер шрифта...

Имеются N человек, пронумерованных последовательно от 1 до N
Имеются N человек, пронумерованных последовательно от 1 до N. Задан список знакомств в виде M...

Нарисовать несколько окон разного цвета и разного размера в разных местах
Нарисовать несколько окон разного цвета и разного размера в разных местах.

Рисование квадратов разного размера, разного цвета и появляющихся в произвольных местах экрана
Помогите пжл с задачкой: 1) Рисование квадратов разного размера, разного цвета и появляющихся в...

Сформировать на экране N кругов (красного цвета) и N ромбов (синего цвета)
с клавиатуры набирается число N. Сформировать на экране N кругов (красного цвета) и N ромбов(синего...

Изобразить три вертикальные полосы разного цвета на экране, которые меняют свои цвета
Прохожу учебную практику, имеется порядка 30 задач. С этими возникли трудности 1)модуль crt ...


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

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

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