Bob. Macromedia Flash dasturi

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.