Требуется помощь по баллистической игре

[Евгений_А]

При запуске программы не всегда срабатывает анимация, я где то напортачил, и не могу понять где ткните носом пожалуйста)
Смысл игры в следующем Трэкбаром задаем угол и скорость полета снаряда, жмем кнопку выстрел и начинается полет снаряда проверка на попал, не попал и появление соответствующей надписи

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, ComCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  x,y,x1,x2,y1,y2,tn,v,t,a:real;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 t:=t+0.2;
 x:=v*cos(a)*t;
  y:=172-(v*sin(a)*t-(9*t*t)/2);
  shape1.Left:=trunc(x);
  shape1.Top:=trunc(y);
  if t>tn then
  begin
    t:=0;
    timer1.Enabled:=false;
    shape1.top:=216;
    shape1.Left:=72;
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Edit1.Text:=inttostr(Trackbar1.Position);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
    Edit2.Text:=inttostr(Trackbar2.Position);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  v:=Trackbar2.Position;
  a:=Trackbar1.Position;

  tn:=(2*v*sin(a))/9;
  x:=v*cos(a)*tn;
  y:=172-(v*sin(a)*tn-(9*tn*tn)/2);
  timer1.Enabled:=true;
  if (x>x1) and (x<x2) and (y>y1) and (y<y2)
  then
    Label3.Caption:='Победа!'
    else Label3.Caption:='Промах';
    end;




procedure TForm1.FormCreate(Sender: TObject);
begin
  v:=strtofloat(edit2.text);
  x1:=240;
  y1:=172;
  x2:=395;
  y2:=247;
   a:=strtofloat(edit1.text);
   t:=0;
end;

end.

[phomm]

uses Math;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  t := t + 0.02;
  x := v * cos(a) * t;
  y := (v * sin(a) * t - (9 * t * t) / 2);
  shape1.Left := trunc(x*40);
  shape1.Top := trunc(y1 - y*40);
  if t > tn then
  begin
    t := 0;
    timer1.Enabled := False;
    shape1.Top := 216;
    shape1.Left := 72;
    if (x > x1) and (x < x2) and (y > y1) and (y < y2) then
      Label3.Caption := 'Победа!'
    else
      Label3.Caption := 'Промах';
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Edit1.Text := IntToStr(Trackbar1.Position);
  a := DegToRad(Trackbar1.Position);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  v := Trackbar2.Position;
  Edit2.Text := FloatToStr(v);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  tn := (2 * v * sin(a)) / 9;
//  x := v * cos(a) * tn;
//  y := y1 - (v * sin(a) * tn - (9 * tn * tn) / 2);
  timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x1 := 240;
  y1 := 172;
  x2 := 395;
  y2 := 247;
  t := 0;
  Trackbar2.Position := 12;
  Trackbar1.Position := 12;
end;

Пока такое вот решение. Будет время, накачу нормальное. Нормальное, это когда не 100500 глобальных переменных и незначащих циферок, а когда каждая сущность определяется чётким набором данных и имеет методы по управлению этими этой сущностью (и/или данными в ней, непосредственно или опосредованно) с максимально простым интерфейсом. В данном случае, объект ядро (с данными: вектор позиции, вектор начальной скорости, вектор текущей скорости, и метод Update), объект пушка (по сути только вектор стартовой позиции ядра), объект цель (область попадания), объект "полигон" (он знает про пушку, ядро, цель, сам имеет размер "зоны" и инициирует необходимые методы, запуск ядра, возврат ядра, итерацию ядра, проверку попадания).

В Вашем же решении было пару существенных ошибок. 1. использования углов там, где функции берут аргументы в радианах (косинус и синус) 2. Ошибки масштабирования решения в координаты формы. 3. Ошибки инициализации и изменения данных.
Сами формулы вроде как верные, т.к. в моём решении ядро летает по баллистической кривой.

[Евгений_А]

Спасибо за помощь, учту свои ошибки