Kirish bob Macromedia Flash 8 dasturi

II bob Flash dasturi yordamida geometrik masalalarni
tayyorlash.
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.

     BDU fizika- matematika fakulteti 4-B
     guruh talabasi Ashurova Gulchiroy
    BDU fizika- matematika fakulteti
    "Amaliy matematika va axborot texnologiyari "
    kafedrasi katta o'qituvchisi Jalolov Ozod

 
 
 
KONUS

PRAMIDA
SILINDR
SFERA
KESIK
PRAMIDA

src="ff2.files/image001.gif" alt="GEOMETRIK FIGURALAR" v:shapes="_x0000_s1028">