Жануартану пәніне мультимедиялық анимация процессін жасау Кіріспе

жүктеу/скачать 2,62 Mb.

бет	16/24
Дата	15.12.2022
өлшемі	2,62 Mb.
	#57573

1 ... 12 13 14 15 16 17 18 19 ... 24

end;
end.

15 сурет – Интерактивті оқыту беті
unit Unit5;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, ComCtrls;
type
TForm5 = class(TForm)
Open1: TOpenDialog;
TrackBar1: TTrackBar;
Button1: TButton;
Flash1: TShockwaveFlash;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
flash1.Visible:=true;
if open1.Execute then begin
flash1.Movie:=open1.FileName;
trackbar1.Max:=flash1.TotalFrames;
end;
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
flash1.Stop;
end;
end.

16 сурет – Кесте түрінде көрсету беті

unit Unit7;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm7 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Timer1: TTimer;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.Image2Click(Sender: TObject);
begin
image7.Visible:=true;
end;
procedure TForm7.Image3Click(Sender: TObject);
begin
image8.Visible:=true;
end;

procedure TForm7.Image4Click(Sender: TObject);

begin
image9.Visible:=true;
end;
procedure TForm7.Image5Click(Sender: TObject);
begin
image10.Visible:=true;
end;
procedure TForm7.Image6Click(Sender: TObject);
begin
image11.Visible:=true;
end;
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
image7.Visible:=false;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
image11.Visible:=false;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
lael2.Left:=label2.Left-1;
if label2.Left=-length(label2.Caption)*12 then label2.Left:=form7.ClientWidth;
label3.Left:=label3.Left-1;

if label3.Left=-length(label3.Caption)*12 then label3.Left:=form7.ClientWidth;

label4.Left:=label4.Left-1;

if label4.Left=-length(label4.Caption)*12 then label4.Left:=form7.ClientWidth;

label1.Left:=label1.Left-1;

if label1.Left=-length(label1.Caption)*12 then label1.Left:=form7.ClientWidth;

end;
end.

17 сурет – Аннотация беті

жүктеу/скачать 2,62 Mb.

Достарыңызбен бөлісу:

1 ... 12 13 14 15 16 17 18 19 ... 24