A. A. DESAIN FORM
B
KKOMPONEN FORM
Ø Page control
Ø Label
Ø Edit
Ø Comboboxt
Ø Radiobutton
Ø Radiogroup
Ø Groupboxt
Ø Checkbox
Ø Button
A. SOURCE CODE PROGRAM
var
Formkondisi: TFormkondisi;
x:integer;
spp,spp1,dpp,sks,skripsi:real;
ket:integer;
total_bayar:real;
implementation
{$R *.dfm}
procedure TFormkondisi.Button6Click(Sender: TObject);
begin
if Application.MessageBox('Apakah Anda Yakin Ingin Keluar?','INFORMASI',MB_YESNO + MB_ICONINFORMATION)=mryes then close;
end;
procedure TFormkondisi.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
spp:=500000;
Lspp.Caption:=FloatToStr(spp);
end;
procedure TFormkondisi.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true
then spp1:=1000000
else
if CheckBox1.Checked=false
then spp1:=0;
LSPP2.Caption:=FloatToStr(spp1);
end;
procedure TFormkondisi.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then
spp:=1000000;
Lspp.Caption:=FloatToStr(spp);
end;
procedure TFormkondisi.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked=true
then dpp:=2500000
else
if CheckBox2.Checked=false
then dpp:=0;
LDPP.Caption:=FloatToStr(DPP);
end;
procedure TFormkondisi.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked=true
then sks:=1700000
else
if CheckBox3.Checked=false
then sks:=0;
LSKS.Caption:=FloatToStr(sks);
end;
procedure TFormkondisi.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked=true
then skripsi:=1500000
else
if CheckBox4.Checked=false
then skripsi:=0;
LSKRIPSI.Caption:=FloatToStr(skripsi);
end;
procedure TFormkondisi.Button4Click(Sender: TObject);
begin
Edit2.Clear;
Edit3.Clear;
Edit2.SetFocus;
end;
procedure TFormkondisi.Button5Click(Sender: TObject);
begin
total_bayar:=spp1+SPP+DPP+SKS+SKRIPSI;
Label17.Caption:=FormatFloat('Rp ##,#,0',total_bayar);
end;
end.
A. PROGRAM KETIKA DIJALANKAN
A. INPUT DATA
