konsep dan aplikasi pemrograman menggunakan borland c__ ...

Edit2->Text = Jumlah;
/* Diskon Langganan */
if(RadioGroup1->ItemIndex == 0)
{
Diskon1 = 0.2;
}
else
{
Diskon1 = 0;
}
/* Diskon Lunas */
if(CheckBox1->State == cbChecked)
{
Diskon2 = 0.1;
}
else
{
Diskon2 = 0;
}
TotDisk = Jumlah * (Diskon1 + Diskon2);
Total = Jumlah - TotDisk;
Edit3->Text = TotDisk;
Edit4->Text = Total;
}
//---------------------------------------------------------------------------
void __fastcall TFUtama::BitBtn2Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
43