Va kommunikatsiyalarini rivojlantirish vazirligi toshkent axborot texnologiyalari universiteti

Unit 11 

//--------------------------------------------------------------------------- 

#include  

#pragma hdrstop 

#include "Unit1.h" 

#include "Unit2.h" 

#include "Unit3.h" 

#include "Unit4.h" 

#include "Unit5.h" 

#include "Unit6.h" 

#include "Unit7.h" 

#include "Unit8.h" 

#include "Unit9.h" 

#include "Unit10.h" 

#include "Unit11.h" 

#include "Unit12.h" 

//--------------------------------------------------------------------------- 

#pragma package(smart_init) 

#pragma resource "*.dfm" 

TForm11 *Form11; 

//--------------------------------------------------------------------------- 

__fastcall TForm11::TForm11(TComponent* Owner) 

        : TForm(Owner) 

{ 

} 

//--------------------------------------------------------------------------- 

 

void __fastcall TForm11::Button4Click(TObject *Sender) 

{ 

        Form1->Close(); 

} 

//--------------------------------------------------------------------------- 

void __fastcall TForm11::Button1Click(TObject *Sender) 

{ 

        Form10->Show(); 

        Form11->Close(); 

} 

//--------------------------------------------------------------------------- 

 

int t = 1; 

 

void __fastcall TForm11::SpeedButton1Click(TObject *Sender) 

{ 

        if(t == 2){ 

---

65 

                Image1->Visible = true; 

                Image2->Visible = false; 

                SpeedButton1->Enabled = false; 

        } 

        if(t == 3){ 

                Image2->Visible = true; 

                Image3->Visible = false; 

        } 

        if(t == 4){ 

                Image3->Visible = true; 

                Image4->Visible = false; 

                SpeedButton2->Enabled = true; 

        } 

        t --; 

} 

//--------------------------------------------------------------------------- 

 

void __fastcall TForm11::SpeedButton2Click(TObject *Sender) 

{ 

        if(t == 1){ 

                Image2->Visible = true; 

                Image1->Visible = false; 

                SpeedButton1->Enabled = true; 

        } 

        if(t == 2){ 

                Image3->Visible = true; 

                Image2->Visible = false; 

        } 

        if(t == 3){ 

                Image4->Visible = true; 

                Image3->Visible = false; 

                SpeedButton2->Enabled = false; 

        } 

        t ++; 

} 

//--------------------------------------------------------------------------- 

 

 

---

66 

Unit 12 

#include  

#pragma hdrstop 

#include "Unit1.h" 

#include "Unit2.h" 

#include "Unit3.h" 

#include "Unit4.h" 

#include "Unit5.h" 

#include "Unit6.h" 

#include "Unit7.h" 

#include "Unit8.h" 

#include "Unit9.h" 

#include "Unit10.h" 

#include "Unit11.h" 

#include "Unit12.h" 

//--------------------------------------------------------------------------- 

#pragma package(smart_init) 

#pragma resource "*.dfm" 

TForm12 *Form12; 

//--------------------------------------------------------------------------- 

__fastcall TForm12::TForm12(TComponent* Owner) 

        : TForm(Owner) 

{ 

} 

//--------------------------------------------------------------------------- 

 

void __fastcall TForm12::Button1Click(TObject *Sender) 

{ 

        Form10->Show(); 

        Form12->Close(); 

} 

//--------------------------------------------------------------------------- 

void __fastcall TForm12::Button4Click(TObject *Sender) 

{ 

        Form1->Close(); 

} 

//--------------------------------------------------------------------------- 

 

int t = 1; 

 

void __fastcall TForm12::SpeedButton1Click(TObject *Sender) 

{ 

        if(t == 2){ 

                Image1->Visible = true; 

---

67 

                Image2->Visible = false; 

                SpeedButton1->Enabled = false; 

        } 

        if(t == 3){ 

                Image2->Visible = true; 

                Image3->Visible = false; 

        } 

        if(t == 4){ 

                Image3->Visible = true; 

                Image4->Visible = false; 

        } 

        if(t == 5){ 

                Image4->Visible = true; 

                Image5->Visible = false; 

                SpeedButton2->Enabled = true; 

        } 

        t --; 

} 

//--------------------------------------------------------------------------- 

 

void __fastcall TForm12::SpeedButton2Click(TObject *Sender) 

{ 

        if(t == 1){ 

                Image2->Visible = true; 

                Image1->Visible = false; 

                SpeedButton1->Enabled = true; 

        } 

        if(t == 2){ 

                Image3->Visible = true; 

                Image2->Visible = false; 

        } 

        if(t == 3){ 

                Image4->Visible = true; 

                Image3->Visible = false; 

        } 

        if(t == 4){ 

                Image5->Visible = true; 

                Image4->Visible = false; 

                SpeedButton2->Enabled = false; 

        } 

        t ++; 

} 

//---------------------------------------------------------------------------