konsep dan aplikasi pemrograman menggunakan borland c__ ...

#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TFUtama *FUtama;
//---------------------------------------------------------------------------
__fastcall TFUtama::TFUtama(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFUtama::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->Text == "PENA")
{
Edit1->Text = 10000;
}
else if(ComboBox1->Text == "PENSIL")
{
Edit1->Text = 7000;
}
else if(ComboBox1->Text == "PENGHAPUS")
{
Edit1->Text = 4000;
}
else
{
Edit1->Text = 0;
}
}
//---------------------------------------------------------------------------
void __fastcall TFUtama::BitBtn1Click(TObject *Sender)
{
float Jumlah, Total;
float Diskon1,Diskon2,TotDisk;
/* Jumlah awal */
Jumlah = StrToInt(Edit1->Text) * StrToInt(CSpinEdit1->Text);
42