Dastur kodi
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
typedef char tur[40] ;
typedef struct
{
int soni;
tur nomi[10];
} combo;
combo a1={7,{"Metr","Kilometr","Millimetr","Santimetr","Dyum","Fut","Mil"}},
a2={5,{"Kilogramm","Gramm","Tonna","Pud","Karrat"}},
a3={6,{"Metr-kvadrat","Kilometr-kvadrat","Gektar","Ar","Dyum-
kvadrat","Fut-kvadrat"}},
44
a4={6,{"Metr-kub","Kilometr-kub","Santimetr-kub","ditsimetr-
kub","Litr","Gallon"}},
a5={3,{"Selsiy","Kelvin","Faringeyt"}};
double uz[7][7]= {{1 , 0.001 , 1000 , 100 , 39.3710,3.2808 ,0.0005399},
{1000 , 1 , 1000000, 100000, 3937.1 ,3280.8 ,0.1690},
{0.001 , 0.00001 , 1 , 0.1 , 0.03937,0.0032808,0.000001609},
{0.01 , 0.0001 , 10 , 1 , 0.39371,0.032808 ,0.00001609},
{0.0254, 0.000254, 25.4 , 2.54 , 1 ,0.083 ,0.0000408},
{0.3048, 0.003048, 304.8 , 30.48 , 12 ,1 ,0.0049},
{1852 , 0.6215 , 621500 , 62150 , 72519,6076.05 ,1}},
vn[5][5]= {{1,1,1,1,1},
{1,1,1,1,1},
{1,1,1,1,1},
{1,1,1,1,1},
{1,1,1,1,1}},
yu[6][6]= {{1,0.000001,0.001,0.01,1549.9,10.764},
{100000,1,1,1,1,1},
{1000,1,1,1,1,1},
{100,1,1,1,1,1},
{0.0006452,1,1,1,1,1},
{0.0929,1,1,1,1,1}},
hm[6][6]= {{1,1,1,1,1,1},
45
{1,1,1,1,1,1},
{1,1,1,1,1,1},
{1,1,1,1,1,1},
{1,1,1,1,1,1},
{1,1,1,1,1,1}},
ta[3][3]= {{1,1,1},
{1,1,1},
{1,1,1}};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
switch (ComboBox1->ItemIndex)
{
case 0:
{
ComboBox2->Clear();
ComboBox3->Clear();
46
for (int i=0; i < a1.soni; i++)
{
ComboBox2->Items->Add(a1.nomi[i]);
ComboBox3->Items->Add(a1.nomi[i]);
}
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
Image1->Picture->LoadFromFile("1.jpg"); break;
}
case 1:
{
ComboBox2->Clear();
ComboBox3->Clear();
for (int i=0; i < a2.soni; i++)
{
ComboBox2->Items->Add(a2.nomi[i]);
ComboBox3->Items->Add(a2.nomi[i]);
}
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
Image1->Picture->LoadFromFile("2.jpg"); break;
}
47
case 2:
{
ComboBox2->Clear();
ComboBox3->Clear();
for (int i=0; i < a3.soni; i++)
{
ComboBox2->Items->Add(a3.nomi[i]);
ComboBox3->Items->Add(a3.nomi[i]);
}
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
Image1->Picture->LoadFromFile("3.jpg"); break;
}
case 3:
{
ComboBox2->Clear();
ComboBox3->Clear();
for (int i=0; i < a4.soni; i++)
{
ComboBox2->Items->Add(a4.nomi[i]);
ComboBox3->Items->Add(a4.nomi[i]);
}
48
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
Image1->Picture->LoadFromFile("4.jpg"); break;
}
case 4:
{
ComboBox2->Clear();
ComboBox3->Clear();
for (int i=0; i < a5.soni; i++)
{
ComboBox2->Items->Add(a5.nomi[i]);
ComboBox3->Items->Add(a5.nomi[i]);
}
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
Image1->Picture->LoadFromFile("5.jpg"); break;
}
}
}
//---------------------------------------------------------------------------
49
void __fastcall TForm1::FormActivate(TObject *Sender)
{
ComboBox2->Clear();
ComboBox3->Clear();
for (int i=0; i < a1.soni; i++) {
ComboBox2->Items->Add(a1.nomi[i]);
ComboBox3->Items->Add(a1.nomi[i]);
}
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
double x = StrToFloat(Edit1->Text), b;
switch (ComboBox1->ItemIndex)
{
case 0: b = x * uz[ComboBox2->ItemIndex][ComboBox3-
>ItemIndex]; break;
case 1: b = x * vn[ComboBox2->ItemIndex][ComboBox3-
>ItemIndex]; break;
50
case 2: b = x * yu[ComboBox2->ItemIndex][ComboBox3-
>ItemIndex]; break;
case 3: b = x * hm[ComboBox2->ItemIndex][ComboBox3-
>ItemIndex]; break;
case 4: b = x * ta[ComboBox2->ItemIndex][ComboBox3-
>ItemIndex]; break;
}
Edit2->Text = FloatToStr(b);
}
//---------------------------------------------------------------------------
|