
//--------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//--------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//-------------------------------------------------------------------

//--------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
//--------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm2 *Form2;
//--------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------
void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->Text=="Indomie")
{
Edit1->Text= 2000;
}
else if(ComboBox1->Text=="Sarimie")
{
Edit1->Text= 1250;
}
else if(ComboBox1->Text=="Supermie")
{
Edit1->Text= 1500;
}
else if(ComboBox1->Text=="Mie Sedap")
{
Edit1->Text= 1750;
}
else
{
Edit1->Text= 0;
}
}
//--------------------------------------------------------------------
void __fastcall TForm2::ComboBox2Change(TObject *Sender)
{
if(ComboBox2->Text=="Sirup ABC")
{
Edit2->Text= 12000;
}
else if(ComboBox2->Text=="Sirup Marjan")
{
Edit2->Text= 10000;
}
else
{
Edit2->Text= 0;
}
}
//--------------------------------------------------------------------
void __fastcall TForm2::ComboBox3Change(TObject *Sender)
{
if(ComboBox3->Text=="Kecap Bango")
{
Edit3->Text= 8000;
}
else if(ComboBox3->Text=="Kecap ABC")
{
Edit3->Text= 5000;
}
else
{
Edit3->Text= 0;
}
}
//--------------------------------------------------------------------
void __fastcall TForm2::ComboBox4Change(TObject *Sender)
{
if(ComboBox4->Text=="Sabun Giv")
{
Edit4->Text= 1500;
}
else if(ComboBox4->Text=="Sabun Lifeboy")
{
Edit4->Text= 2000;
}
else if(ComboBox4->Text=="Sabun Lux")
{
Edit4->Text= 1800;
}
else
{
Edit4->Text= 0;
}
}
//--------------------------------------------------------------------
void __fastcall TForm2::ComboBox5Change(TObject *Sender)
{
if(ComboBox5->Text=="Sampo Clear")
{
Edit5->Text= 400;
}
else if(ComboBox5->Text=="Sampo Pantene")
{
Edit5->Text= 250;
}
else if(ComboBox5->Text=="Sampo Sunslik")
{
Edit5->Text= 200;
}
else if(ComboBox5->Text=="Sampo Lifeboy")
{
Edit5->Text= 300;
}
else if(ComboBox5->Text=="Sampo Zinc")
{
Edit5->Text= 350;
}
else
{
Edit5->Text= 0;
}
}
//--------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Close();
}
//--------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
float Jumlah;
Jumlah = StrToInt(Edit1->Text)*StrToInt(CSpinEdit1->Text)+
StrToInt(Edit2->Text)*StrToInt(CSpinEdit2->Text)+
StrToInt(Edit3->Text)*StrToInt(CSpinEdit3->Text)+
StrToInt(Edit4->Text)*StrToInt(CSpinEdit4->Text)+
StrToInt(Edit5->Text)*StrToInt(CSpinEdit5->Text);
Edit6->Text = Jumlah;
}
//--------------------------------------------------------------------