Delphi 7 Здравствуйте нужна полетел компьютер а мне нужно сделать листинг программы Задача такая:
Разработать проект, реализующий динамическое изображение графическими средствами канвы формы или компонента Image, и показать его преподавателю.
Солнце с 10 лучами вращается против часовой стрелки с дискретом 100/сек. Длина цикла 30 сек. Запуск движения – команда контекстного меню.

Вот сам код:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i,x,y,z: integer;
begin
Label1.Caption := IntToStr(0); Label2.Caption := IntToStr(0); Label3.Caption := IntToStr(0); Label4.Caption := IntToStr(0);
x := StrToInt(Label1.Caption);
y := StrToInt(Label2.Caption);
z := StrToInt(Label4.Caption); Image1.Canvas.Pen.Color := clRed;
For i := 1 to 10 do begin Image1.Canvas.PolyLine([Point(150+Trunc(125*Cos(2*i*Pi/10-z/360)-x), 150-Trunc(125*Sin(i*2*Pi/10-z/360)-x)), Point(150, 150)]);
end;
Image1.Canvas.Pen.Color := clYellow; Image1.Canvas.Brush.Color := clYellow; Image1.Canvas.Pie(50, 50, 250, 250, 0, 0, 0, 0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i,x,y,z: integer;
begin
x := StrToInt(Label1.Caption);
y := StrToInt(Label2.Caption);
z := StrToInt(Label4.Caption); Image1.Canvas.Pen.Color := clWhite; For i := 1 to 10 do begin Image1.Canvas.PolyLine([Point(150+Trunc(125*Cos(2*i*Pi/10-(z+1)/360)-y), 150-Trunc(125*Sin(2*i*Pi/10-(z+1)/360)-y)), Point(150, 150)]);
end; Image1.Canvas.Pen.Color := clRed; For i := 1 to 10 do begin Image1.Canvas.PolyLine([Point(150+Trunc(125*Cos(2*i*Pi/10-z/360)-x), 150-Trunc(125*Sin(i*2*Pi/10-z/360)-x)), Point(150, 150)]);
end;
Image1.Canvas.Pen.Color := clYellow; Image1.Canvas.Brush.Color := clYellow; Image1.Canvas.Pie(50, 50, 250, 250, 0, 0, 0, 0); Label4.Caption := IntToStr(z-1); end;
procedure TForm1.N1Click(Sender: TObject); begin Timer1.Enabled := True; end;
procedure TForm1.N2Click(Sender: TObject);
begin Timer1.Enabled := False;
end; p
rocedure TForm1.N3Click(Sender: TObject);
begin Close;
end;
end.

Популярно: Другие предметы

• 

  djdjsjsj

  29.10.2020 11:46
  Во для повторения 1.Как разделяются плодово-ягодные растения по характеру...
• 

  sayhun

  04.06.2022 18:45
  Надо сделать, желательно с объяснением. заранее !...
• 

  Таисия281

  28.06.2021 09:36
  Доля жінки в повісті ольги кобилянської людина напишіть твір ​...
• 

  LaimZ

  21.04.2022 11:35
  Opisz swoje przeżycia po wysłuchaniu tekstu o muzeum powstania warszawskiego​...
• 

  pop9999

  12.05.2022 17:19
  Представьте что вы богаты и хотите и умственно отсталым людям. напишите,...
• 

  Pasha2322

  24.08.2022 20:22
  Напряжение на зажимах источника в замкнутом круге u= 2.1в, опоры r1= 5 ом...
• 

  maria1020304050

  08.03.2020 10:40
  Какое из веществ, формулы которых ниже, является основанием? 1)hbr 2)nano2...
• 

  milanali

  27.04.2020 02:56
  Реши неравенства. k-67 94 8х 72 к-67=94 8*х=72 k=94+67 х=72: 8 к=161 х=9...
• 

  miraaa372

  10.05.2021 04:07
  Морфологический разбор-запоёт ,поляныч...
• 

  anisiloppoosa

  02.01.2021 14:02
  Одна девочка любит колокольчики, другая ромашки, а третья васильки...