Web-sahifalarda Animatsiyalar va ularni o’rnatish

2.1.Planimetriya bo’limiga doir masalalarni tayyolash. 

Malakaviy bitiruv ishini II bobini tayyolashda Macromedia Flash,Delphi dasturi va web texnalogiya usullardan foydalanib quyidagi ko’rinishda tayyorladim. 
1-rasm.Bitiruv malakaviy ishini umumiy ko’runishi.

unit asos;

interface
uses 

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

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, ComCtrls, OleCtrls, SHDocVw;
type
Tas1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
WebBrowser1: TWebBrowser;
SpeedButton4: TSpeedButton;
WebBrowser2: TWebBrowser;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton6: TSpeedButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
private 

{ Private declarations }

public 

{ Public declarations }

end; 

var
as1: Tas1;

S:STRING;
implementation
{$R *.dfm}
procedure Tas1.SpeedButton4Click(Sender: TObject);
begin
s:=ExtractFilePath(Application.ExeName);

S:=S+'mundarija\Mundarija.mht';

webbrowser1.Navigate(S);
end;
procedure Tas1.SpeedButton1Click(Sender: TObject);

begin
s:=ExtractFilePath(Application.ExeName);

S:=S+'reklama\reklama.swf';
webbrowser1.Navigate(S);
end;
procedure Tas1.FormCreate(Sender: TObject);

begin
s:=ExtractFilePath(Application.ExeName);

S:=S+'reklama\reklama.swf';
webbrowser1.Navigate(S);
s:=ExtractFilePath(Application.ExeName);
S:=S+'reklama\2\WWW.HTM';
webbrowser2.Navigate(S);
end; 

procedure Tas1.SpeedButton2Click(Sender: TObject);

begin 

s:=ExtractFilePath(Application.ExeName);

S:=S+'muallif\m.htm';
webbrowser1.Navigate(S);
end; 

procedure Tas1.SpeedButton10Click(Sender: TObject);

begin 

WebBrowser1.GoBack;

end; 

procedure Tas1.SpeedButton11Click(Sender: TObject);

begin 

WebBrowser1.GoForward;

end; 

procedure Tas1.ComboBox1Change(Sender: TObject);

begin 

s:=ExtractFilePath(Application.ExeName);

if ComboBox1.Text='1' then
S:=S+'Mundarija\PL\f1.swf';
if ComboBox1.Text='2' then
S:=S+'Mundarija\PL\f2.swf';
if ComboBox1.Text='3' then
S:=S+'Mundarija\PL\f3.swf';
if ComboBox1.Text='4' then
S:=S+'Mundarija\PL\f4.swf';
if ComboBox1.Text='5' then
S:=S+'Mundarija\PL\f5.swf';
webbrowser1.Navigate(S);
end; 
procedure Tas1.ComboBox2Change(Sender: TObject);
begin 

s:=ExtractFilePath(Application.ExeName);

if ComboBox2.Text='1' then
S:=S+'Mundarija\ST\figura.htm';
if ComboBox2.Text='2' then
S:=S+'Mundarija\ST\f2.swf';
if ComboBox2.Text='3' then
S:=S+'Mundarija\ST\f3.swf';
webbrowser1.Navigate(S);
end;
procedure Tas1.SpeedButton9Click(Sender: TObject);

begin
s:=ExtractFilePath(Application.ExeName);

S:=S+'Mundarija\adabiyot.mht';
webbrowser1.Navigate(S);
end; end.
Mualliflar bo’limi html tilida quyidagicha tayyorlandi.