Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Top:=Label18.Top-116;
Label9.Top:=Label9.Top-117;
Label11.Top:=Label11.Top-125;
Label14.Top:=Label14.Top-130;
Label15.Top:=Label15.Top-137;
Label12.Top:=Label12.Top-140;
end;
1024)and(Form1.Height>768)then">if (Form1.width>1024) and (Form1.Height>768) then
begin
LabeledEdit4.Height:=LabeledEdit4.Height+5;
LabeledEdit4.Width:=LabeledEdit4.Width+5;
LabeledEdit1.Height:=LabeledEdit1.Height+5;
LabeledEdit1.Width:=LabeledEdit1.Width+5;
LabeledEdit2.Height:=LabeledEdit2.Height+5;
LabeledEdit2.Width:=LabeledEdit2.Width-5;
LabeledEdit3.Height:=LabeledEdit3.Height+5;
LabeledEdit3.Width:=LabeledEdit3.Width+5;
LabeledEdit5.Height:=LabeledEdit5.Height+5;
LabeledEdit5.Width:=LabeledEdit5.Width-5;
LabeledEdit6.Height:=LabeledEdit6.Height+5;
LabeledEdit6.Width:=LabeledEdit6.Width+5;
LabeledEdit7.Height:=LabeledEdit7.Height+5;
LabeledEdit7.Width:=LabeledEdit7.Width+5;
LabeledEdit8.Height:=LabeledEdit8.Height+5;
LabeledEdit8.Width:=LabeledEdit8.Width+5;
LabeledEdit4.Top:=LabeledEdit4.Top+15;
LabeledEdit1.Top:=LabeledEdit1.Top+58;
LabeledEdit2.Top:=LabeledEdit2.Top+78;
LabeledEdit3.Top:=LabeledEdit3.Top+30;
LabeledEdit5.Top:=LabeledEdit5.Top+23;
LabeledEdit6.Top:=LabeledEdit6.Top+53;
LabeledEdit7.Top:=LabeledEdit7.Top+80;
LabeledEdit8.Top:=LabeledEdit8.Top+82;
StaticText2.Top:=StaticText2.Top+6;
StaticText6.Top:=StaticText6.Top+125;
StaticText7.Top:=StaticText7.Top+130;
StaticText1.Top:=StaticText1.Top+135;
StaticText3.Top:=StaticText3.Top+135;
StaticText4.Top:=StaticText4.Top+135;
StaticText5.Top:=StaticText5.Top+135;
StaticText8.Top:=StaticText8.Top+135;
StaticText9.Top:=StaticText9.Top+135;
BitBtn2.Top:=BitBtn2.Top+157;
BitBtn3.Top:=BitBtn3.Top+157;
BitBtn4.Top:=BitBtn4.Top+165;
BitBtn1.Top:=BitBtn1.Top+165;
BitBtn1.Height:=BitBtn1.Height+5;
BitBtn1.Width:=BitBtn1.Width+5;
BitBtn2.Height:=BitBtn2.Height+5;
BitBtn2.Width:=BitBtn2.Width+5;
BitBtn3.Height:=BitBtn3.Height+5;
BitBtn3.Width:=BitBtn3.Width+5;
BitBtn4.Height:=BitBtn4.Height+5;
BitBtn4.Width:=BitBtn4.Width+5;
Label16.Top:=Label16.Top+125;
Label17.Top:=Label17.Top+130;
Label18.Top:=Label18.Top+135;
Label9.Top:=Label9.Top+135;
Label11.Top:=Label11.Top+135;
Label14.Top:=Label14.Top+135;
Label15.Top:=Label15.Top+135;
Label12.Top:=Label12.Top+135;
end;
tend:=10;
fi0:=StrToFloat(LabeledEdit2.Text);
Chart2.BottomAxis.Maximum:=tend;
Chart2.LeftAxis.Maximum:=fi0;
Chart2.LeftAxis.Minimum:=-fi0;
Chart3.BottomAxis.Maximum:=tend;
Chart4.BottomAxis.Maximum:=tend;
fi0:=fi0*PI/180;
LVector:=2;
X_O:=5;
Y_O:=6;
OT := 0;
B_Close:=false;
X:=X_O+dl*sin(fi0);
Y:=Y_O-dl*cos(fi0);
if (fi < 0) then
begin
fiFc:=90;
Xfc:=X+1*sin((fiFc*180)/PI);
Yfc:=Y-1*cos((fiFc*180)/PI);
end
else
begin
fiFc:=-90;
Xfc:=X+1*sin((fiFc*180)/PI);
Yfc:=Y-1*cos((fiFc*180)/PI);
end;
Series1.AddXY(4,6,,clBlack);
Series1.AddXY(6,6,,clBlack);
Series5.AddXY(X_O,Y_O,,clBlack);
Series5.AddXY(5,0.5,,clBlack);
Series2.AddXY(X_O,Y_O,,clBlack);
Series2.AddXY(X,Y,,clBlack);
Series3.AddXY(X,Y,,clRed);
//Силы, действующие на тело
X1:=X_O+LVector*sin(fi0);
Y1:=Y_O-LVector*cos(fi0);
Series6.AddArrow(X,Y,X1,Y1);
Series7.AddArrow(X,Y,X,Y-LVector);
Series8.AddXY(X1+0.5,Y1,T);
Series9.AddXY(X+0.5,Y-LVector,G);
Series13.AddArrow(X,Y,X,Y+1);
Series14.AddArrow(X,Y,Xfc,Yfc);
Series15.AddXY(X+0.5,Y+1,Fa);
Series16.AddXY(Xfc+0.5,Yfc,Fc);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
B_Close:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
OT:=1;
end;
procedure TForm1.BStopClick(Sender: TObject);
begin
Form4.LabeledEdit4.Enabled:=false;
Chart3.LeftAxis.RoundFirstLabel:=true;
Chart2.LeftAxis.RoundFirstLabel:=true;
BitBtn3.Enabled:=false;
if BitBtn3.Enabled=false then
begin
BitBtn2.Enabled:=true;
BitBtn4.Enabled:=false;
B_Close:=true
end else exit;
end;
procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit4KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit5KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit6KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit7KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.LabeledEdit8KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
#8,0..9,,:;
else Key:=Chr(0);
end;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
if MessageDlg(Вы действительно хотите выйти из программы?,MtConfirmation,[MbYes,mbNo],0)=MrYes then Form1.Close;
end;
//очистить графики
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form4.LabeledEdit4.Enabled:=true;
Chart3.LeftAxis.Maximum:=3;
Chart3.LeftAxis.Minimum:=-3;
Chart2.LeftAxis.Maximum:=85;
Chart2.LeftAxis.Minimum:=-85;
Chart4.LeftAxis.Maximum:=2;
Chart4.LeftAxis.Minimum:=0;
BitBtn2.Enabled:=false;
BitBtn3.Enabled:=true;
BitBtn4.Enabled:=false;
Timer1.Enabled := false ;
Chart4.LeftAxis.AutomaticMaximum:=false;
Chart4.LeftAxis.AutomaticMinimum:=false;
Chart2.LeftAxis.AutomaticMaximum:=false;
Chart2.LeftAxis.AutomaticMinimum:=false;
LabeledEdit1.Enabled:=true;
LabeledEdit2.Enabled:=true;
LabeledEdit3.Enabled:=true;
LabeledEdit4.Enabled:=true;
LabeledEdit5.Enabled:=true;
LabeledEdit6.Enabled:=true;
LabeledEdit7.Enabled:=true;
LabeledEdit8.Enabled:=true;
Chart2.Series[0].Clear;
Chart3.Series[0].Clear;
Chart4.Series[0].Clear;
B_Close:=true;
LVector:=2;
fi0:=StrToFloat(LabeledEdit2.Text);
fi0:=fi0*PI/180;
X_O:=5;
Y_O:=6;
OT := 0;
B_Close:=false;
X:=X_O+dL*sin(fi0);
Y:=Y_O-dL*cos(fi0);
//очистить прошлый кадр
Series2.Clear; //нить
Series3.Clear; // шар
Series6.Clear; // стрелка красная
Series7.Clear; // стрелка синяя
Series8.Clear; // T
Series9.Clear; // G
// рисуем нить и шарик
Series2.AddXY(X_O,Y_O,,clBlack);
Series2.AddXY(X,Y,,clBlack);
Series3.AddXY(X,Y,,clRed);
//Силы действующие на тело
X1:=X_O+LVector*sin(fi0);
Y1:=Y_O-LVector*cos(fi0);
Series6.AddArrow(X,Y,X1,Y1);
Series7.AddArrow(X,Y,X,Y-LVector);
Series8.AddXY(X1+0.5,Y1,T);
Series9.AddXY(X+0.5,Y-LVector,G);
Series13.Clear;
Series14.Clear;
Series15.Clear;
Series16.Clear;
Series13.AddArrow(X,Y,X,Y+1); //Fa стрелка
Series15.AddXY(X+0.5,Y+1,Fa); // Fa
fiFc:=-90;
Xfc:=X+1*sin((fiFc*180)/PI);
Yfc:=Y-1*cos((fiFc*180)/PI);
Series14.AddArrow(X,Y,Xfc,Yfc);
Series16.AddXY(Xfc+0.5,Yfc,Fc);
end;
proced