[zibazon]

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

Код:

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 129 130 131 132

unit Main;   interface   uses   SysUtils, Windows, Messages, Classes, Graphics, Controls,   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus; const   n = 8; type   TMainForm = class(TForm)     Button1: TButton;     Stop: TButton;     Label1: TLabel;     Edit1: TEdit;     Timer1: TTimer;     Start: TButton;     Clear: TButton;     procedure Button1Click(Sender: TObject);     procedure StopClick(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure StartClick(Sender: TObject);     procedure ClearClick(Sender: TObject);   end;  mas=array[1..n] of integer; var   MainForm: TMainForm;   x,y:mas;   Radius,Alfa,Alfa2,dl:integer;   implementation   {$R *.DFM}       procedure TMainForm.StopClick(Sender: TObject); begin  if timer1.Enabled=true then timer1.Enabled:=false; end;   procedure TMainForm.Timer1Timer(Sender: TObject);  const   xc:integer=150;   yc:integer=150;  var   dx,dy,dx2,dy2,dx3,dy3,dx4,dy4,scale:real; begin  // Стираемо лопасті   with MainForm, Canvas do    begin     Pen.Width:=3;     Pen.Color:=clGreen;     Brush.Color:=clGreen;     Polygon([Point(xc,yc),Point(x[1],y[1]), Point(x[5],y[5]),            Point(x[7],y[7]), Point(x[3],y[3]), Point(xc,yc),            Point(x[2],y[2]), Point(x[6],y[6]), Point(x[8],y[8]),            Point(x[4],y[4]), Point(xc,yc)]);    end;   // Малюємо основу млина    with MainForm, Canvas do     begin      Pen.Width:=2;      Pen.Color:=clBlack;      Brush.Color:=clGray;      Polygon([Point(100,250), Point(150,110), Point(200,250)]);     end;   // Знаходимо дійсні координати точок   dx := Radius * cos((Pi/180)*Alfa);   dy := Radius * sin((Pi/180)*Alfa);    dx2 := Radius * cos((Pi/180)*Alfa2);    dy2 := Radius * sin((Pi/180)*Alfa2);     dx3 := Radius * cos((Pi/180)*(Alfa - 30));     dy3 := Radius * sin((Pi/180)*(Alfa - 30));      dx4 := Radius * cos((Pi/180)*(Alfa2 - 30));      dy4 := Radius * sin((Pi/180)*(Alfa2 - 30));   // Знаходимо екранні координати точок   x[1] := Round(xc + dx);     y[1] := Round(yc - dy);   x[2] := Round(xc + dx2);    y[2] := Round(yc - dy2);   x[3] := Round(xc - dx);     y[3] := Round(yc + dy);   x[4] := Round(xc - dx2);    y[4] := Round(yc + dy2);    x[5] := Round(xc + dx3);    y[5] := Round(yc - dy3);    x[6] := Round(xc + dx4);    y[6] := Round(yc - dy4);    x[7] := Round(xc - dx3);    y[7] := Round(yc + dy3);    x[8] := Round(xc - dx4);    y[8] := Round(yc + dy4);   // Малюємо лопасті по координатах   with MainForm, Canvas do   begin     Pen.Width := 3;     Pen.Color := clBlack;     Brush.Color := clWhite;     Polygon([Point(xc,yc), Point(x[1],y[1]), Point(x[5],y[5]),              Point(x[7],y[7]), Point(x[3],y[3]), Point(xc,yc),              Point(x[2],y[2]), Point(x[6],y[6]), Point(x[8],y[8]),              Point(x[4],y[4]), Point(xc,yc)]);   end;   // До кожного значення кута додаємо значення введене користувачем в поле Edit    Alfa := Alfa + dl;    Alfa2 := Alfa2 + dl; end;   procedure TMainForm.StartClick(Sender: TObject); var   s: string; begin    s := Edit1.Text;   if Length(s) > 0 then   begin     dl := StrToInt(S);     if (dl >= 0)and(dl <= 20) then     begin       Radius := 70;       timer1.Enabled := true;     end     else ShowMessage('Скорость ветра: [0,20]');     Alfa:=0;     Alfa2:=90;   end; end;   procedure TMainForm.ClearClick(Sender: TObject); begin   Refresh;   Timer1.Enabled:=false; end;   procedure TMainForm.Button1Click(Sender: TObject); begin  Close; end;   end.

Админ: Пользуемся тегами и не меняем размер шрифта без необходимости!

Спасибо всем за своевременную помощь.

[lmikle]

n = 6 в начале программы и соотв. Alfa := 120.
А вообще проще полностью переписать на динамический расчет лопастей. Больно много менять.

[zibazon]

Снимок.JPG
вот такое получается, помогите пож, на завтра надо.

[AND_REY]

Я бы лопасти нарисовал в общ. виде так:

Код:

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

Const   N = 3;     // к-во лопастей   Xo = 150;  // Центр вентилятора   Yo = 150;  // Центр вентилятора   R = 100;   // Радиус лопасти   v = 20;    // Толщина лопасти   Var   M1, M2: TPoint;   W, u: Real;   procedure TForm1.FormActivate(Sender: TObject); begin  Form1.Canvas.Pen.Width:= 3; end;   procedure TForm1.Button1Click(Sender: TObject); begin  Timer1.Enabled:= Not(Timer1.Enabled); end;   procedure TForm1.Timer1Timer(Sender: TObject); Var  i: Integer; begin  W:= W + 5;  u:= 0;  Form1.Canvas.Pen.Color:= clBtnFace;  Form1.Canvas.Brush.Color:= clBtnFace;  Form1.Canvas.Rectangle(Xo-R-5, Yo-R-5, Xo+R+5, Yo+R+5);  For i:= 0 To N - 1 Do   begin    u:= u + 360/N;    M1.X:= Xo+Round(R*Cos((Pi/180)*(W+u)));    M1.Y:= Yo+Round(R*Sin((Pi/180)*(W+u)));    M2.X:= Xo+Round(R*Cos((Pi/180)*(W+u+v)));    M2.Y:= Yo+Round(R*Sin((Pi/180)*(W+u+v)));    Form1.Canvas.Pen.Color:= clBlack;    Form1.Canvas.Brush.Color:= clRed;    Form1.Canvas.Polygon([     Point(Xo,Yo),     Point(M1.X,M1.Y),     Point(M2.X,M2.Y)]);   end; end;

[zibazon]

Спасибо огромное, а вы бы не могли бы выложить архив с программой, а то у меня чего то не работает(маловато опыта).

[AND_REY]

Вот исходник откуда я брал вышеприведенный код: Мельница v1.0 5.10.09.rar.

[zibazon]

Спасибо за помощь, очень помогли.
Тему можно закрывать.