Ketentuan Program :
1. Biaya pendaftaran dan Bonus :
Paket
|
Biaya Pendaftaran
|
Bonus
|
Reguler
|
Rp. 50.000
|
Flash Disk 512 MB
|
Intensif
|
Rp. 65.000
|
Flash Disk 1 GB
|
Private
|
Rp. 70.000
|
Flash Disk 2 GB
|
2. Biaya Materi :
Materi
|
Biaya
|
Visual Basic
|
Rp. 25.000/pertemuan
|
Web Programming
|
Rp. 30.000/pertemuan
|
Delphi
|
Rp. 35.000/pertemuan
|
2. Pilih Jumlah pertemuan maka Total Biaya akan tampil.
Total Biaya = Total Biaya Kursus x Jumlah Pertemuan.
3. Pilih Cara Pembayaran.
Jika Lunas maka Uang Muka dan Sisa Angsuran nonaktif.
Jika Angsur maka setfocus ada di Uang Muka, Input Uang Muka maka Sisa Angsuran akan tampil.
Sisa Angsuran = Total Biaya – Uang Muka.
Script Program :
procedure TForm_Kursus.FormActivate(Sender: TObject);
begin
lspaket.Items.Add('Reguler');
lspaket.Items.Add('Intensif');
lspaket.Items.Add('Private');
cmbcaba.Items.Add('Lunas');
cmbcaba.Items.Add('Angsur');
end;
procedure TForm_Kursus.lspaketClick(Sender: TObject);
begin
if lspaket.ItemIndex = 0 then
begin
ebiadaf.Text := '50000';
ebonus.Text := 'Flas Disk 512 MB';
end
else
if lspaket.ItemIndex = 1 then
begin
ebiadaf.Text := '65000';
ebonus.Text :='Flash Disk 1 GB';
end
else
begin
ebiadaf.Text := '70000';
ebonus.Text := 'Flash Disk 2 GB';
end;
end;
procedure TForm_Kursus.cvbClick(Sender: TObject);
begin
if cvb.Checked = true then
ebiayavb.Text := '25000'
else
ebiayavb.Text := '0';
end;
procedure TForm_Kursus.cwebClick(Sender: TObject);
begin
if cweb.Checked = true then
ebiayaweb.Text := '30000'
else
ebiayaweb.Text := '0';
end;
procedure TForm_Kursus.cdelphiClick(Sender: TObject);
begin
if cdelphi.Checked = true then
ebiayadelphi.Text := '35000'
else
ebiayadelphi.Text := '0';
end;
procedure TForm_Kursus.r12kaliClick(Sender: TObject);
begin
etotbiaya.Text := inttostr ((strtoint (ebiayavb.Text) *12)+(strtoint(ebiayaweb.Text)*12)+(strtoint (ebiayadelphi.Text)*12)+strtoint(ebiadaf.Text))
end;
procedure TForm_Kursus.r24kaliClick(Sender: TObject);
begin
etotbiaya.Text := inttostr((strtoint (ebiayavb.Text) *24)+(strtoint(ebiayaweb.Text)*24)+(strtoint (ebiayadelphi.Text)*24)+strtoint(ebiadaf.Text))
end;
procedure TForm_Kursus.cmbcabaClick(Sender: TObject);
begin
if cmbcaba.Text = 'Lunas' then
begin
euangmuka.Enabled := false;
esisaang.Enabled := false;
end
else
begin
euangmuka.Enabled := true;
esisaang.Enabled := true;
euangmuka.SetFocus;
end
end;
procedure TForm_Kursus.euangmukaChange(Sender: TObject);
begin
esisaang.Text := inttostr(strtoint(etotbiaya.Text)-strtoint(euangmuka.Text))
end;
procedure TForm_Kursus.bbersihClick(Sender: TObject);
begin
enama.Text := '';
lspaket.Selected[0] := false;
ebiadaf.Text := '0';
ebonus.Text := '';
cvb.Checked := false;
cweb.Checked := false;
cdelphi.Checked :=false;
r12kali.Checked :=false;
r24kali.Checked :=false;
etotbiaya.Text :='0';
euangmuka.Text :='0';
esisaang.Text :='0';
enama.SetFocus;
end;
procedure TForm_Kursus.bcloseClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Mau Keluar...?','Konfirmasi',mb_yesno)=idyes) then
close;
end;
0 komentar:
Post a Comment