Курсовая работа: Разработка программного обеспечения определения стоимости почтового тарифа пересылки бандероли наложенным платежом

#pragma link "ComboCounter"

#pragma link "cspin"

#pragma link "HandTuning"

#pragma resource "*.dfm"

TForm1 *Form1;

double price[5] = {12.55, 16, 18, 21, 23.15};

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::btnExitClick(TObject *Sender)

{

this->Close();

}

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

void __fastcall TForm1::btnCalcClick(TObject *Sender)

{

htCost->Value = ceil(htWeight->Value / 500) * price[cboDistance->ItemIndex];

}

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

void __fastcall TForm1::btnClearClick(TObject *Sender)

{

htWeight->Value = 0;

htCost->Value = 0;

cboDistance->ItemIndex = 0;

}

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