Ўзбекистон республикаси олий ва ўрта махсус таълим вазирлиги бухоро муҳандислик-технология институти

Интернет сайтлари 
www.ziyonet.uz 
www.bilim.uz 
www.edu.uz 
www.olam.uz 
www.mediaobrazovaniye.ru 

---

82 
ИЛОВАЛАР 
\ 

---

83 

---

84 

---

85 

---

86 
unit main; 
interface 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, ExtCtrls, ComCtrls, MPlayer, OleCtrls, SHDocVw, 
Buttons, ImgList; 
type 
TForm1 = class(TForm) 
Panel1: TPanel; 
Animate1: TAnimate; 
MediaPlayer1: TMediaPlayer; 
WebBrowser1: TWebBrowser; 
SpeedButton1: TSpeedButton; 
SpeedButton2: TSpeedButton; 
SpeedButton3: TSpeedButton; 
Panel2: TPanel; 
SpeedButton4: TSpeedButton; 
Panel3: TPanel; 
SpeedButton5: TSpeedButton; 
Panel4: TPanel; 
SpeedButton6: TSpeedButton; 
Panel5: TPanel; 
SpeedButton7: TSpeedButton; 
ImageList1: TImageList; 
SpeedButton9: TSpeedButton; 
SpeedButton10: TSpeedButton; 
Panel7: TPanel; 
SpeedButton11: TSpeedButton; 
Panel8: TPanel; 
SpeedButton12: TSpeedButton; 
Image1: TImage; 
SpeedButton13: TSpeedButton; 
Panel6: TPanel; 
SpeedButton8: TSpeedButton; 
procedure FormCreate(Sender: TObject); 
procedure SpeedButton2Click(Sender: TObject); 
procedure SpeedButton1Click(Sender: TObject); 
procedure SpeedButton3Click(Sender: TObject); 
procedure SpeedButton4Click(Sender: TObject); 
procedure SpeedButton6Click(Sender: TObject); 
procedure SpeedButton7Click(Sender: TObject); 
procedure SpeedButton8Click(Sender: TObject); 
procedure SpeedButton5Click(Sender: TObject); 
procedure SpeedButton9Click(Sender: TObject); 
procedure SpeedButton10Click(Sender: TObject); 
procedure SpeedButton11Click(Sender: TObject); 
procedure SpeedButton12Click(Sender: TObject); 
procedure SpeedButton13Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

---

87 
var 
Form1: TForm1; 
k,kl:integer; 
s:string; 
implementation 
{$R *.dfm} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\main.swf'); 
kl:=0; 
end; 
procedure TForm1.SpeedButton2Click(Sender: TObject); 
begin 
if Form1.WindowState=wsNormal then 
begin 
WebBrowser1.Width:=1015; 
WebBrowser1.Height:=663; 
Panel1.Width:=1015; 
Panel1.Height:=663; 
Form1.WindowState:=wsMaximized; 
SpeedButton3.Left:=993; 
SpeedButton2.Left:=968; 
SpeedButton1.Left:=944; 
end 
else 
begin 
WebBrowser1.Width:=821; 
WebBrowser1.Height:=551; 
Panel1.Width:=821; 
Panel1.Height:=551; 
Form1.WindowState:=wsNormal; 
SpeedButton3.Left:=801; 
SpeedButton2.Left:=776; 
SpeedButton1.Left:=752; 
end; 
end; 
procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
Form1.WindowState:=wsMinimized; 
end; 
procedure TForm1.SpeedButton3Click(Sender: TObject); 
begin 
Close; 
end; 
procedure TForm1.SpeedButton4Click(Sender: TObject); 
begin 
if kl = 1 then 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\mainlotin.swf'); 
end 
else 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\main.swf'); 
end; 

---

88 
Panel1.Visible:=false; 
end; 
procedure TForm1.SpeedButton6Click(Sender: TObject); 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\video\video_kiril_vs.htm'); 
end; 
procedure TForm1.SpeedButton7Click(Sender: TObject); 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\test\test.htm'); 
Panel1.Visible:=false; 
end; 
procedure TForm1.SpeedButton8Click(Sender: TObject); 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\kursatma.htm'); 
end; 
procedure TForm1.SpeedButton5Click(Sender: TObject); 
begin 
if kl = 1 then 
begin 
WebBrowser1.Navigate('\video\video.htm'); 
end 
else 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\video\video_kiril.htm'); 
end; 
Panel1.Visible:=false; 
end; 
procedure TForm1.SpeedButton9Click(Sender: TObject); 
begin 
if (k>=2) then 
begin 
k:=k-1; 
MediaPlayer1.FileName:=GetCurrentDir+'\Avi\'+s+IntToStr(k)+'.avi'; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 
Animate1.Repaint; 
end; 
end; 
procedure TForm1.SpeedButton10Click(Sender: TObject); 
begin 
if (k<5) then 
begin 
k:=k+1; 
MediaPlayer1.FileName:=GetCurrentDir+'\Avi\'+s+IntToStr(k)+'.avi'; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 
Animate1.Repaint; 
end; 
end; 
procedure TForm1.SpeedButton11Click(Sender: TObject); 
begin 
WebBrowser1.GoBack; 

---

89 
end; 
procedure TForm1.SpeedButton12Click(Sender: TObject); 
begin 
WebBrowser1.GoForward; 
end; 
procedure TForm1.SpeedButton13Click(Sender: TObject); 
begin 
if kl = 0 then 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\mainlotin.swf'); 
SpeedButton7.Caption:='Test'; 
SpeedButton6.Caption:='Virtual ko`rgazmalar'; 
SpeedButton5.Caption:='Videolavhalar'; 
SpeedButton4.Caption:='Asosiy qism'; 
Panel1.Visible:=false; 
kl:=1; 
end 
else 
begin 
WebBrowser1.Navigate(GetCurrentDir+'\main.swf'); 
SpeedButton7.Caption:='Тест'; 
SpeedButton6.Caption:='Виртуал кургазмалар'; 
SpeedButton5.Caption:='Видеолавхалар'; 
SpeedButton4.Caption:='Асосий кисм'; 
Panel1.Visible:=false; 
kl:=0; 
end; 
end; 
end.