 KETENTUAN SOAL:
1.
Pilih kode kursus maka muncul materi dan biaya
kursus
2. pilih waktu kursus
Jika waktu kursus
yang dipilih adalah sore maka tambahan biaya 150000
Jika waktu kursus
yang dipilih pagi maka tidak ada tambahan biaya
3.
Klik tombol hitung untuk menghitung total biaya
Total biaya=
biaya + biaya tambahan
4.
Klik bersih maka form dalam keadaan bersih dan
kursor berada pada no. kursus
5.
Klik tombol close maka muncul pesan
Listing Program
procedure TForm1.ckodeChange(Sender: TObject);
begin
if
ckode.ItemIndex=0 then
begin
txtmateri.Text:='Bahasa Ingris';
txtbiaya.Text:='350000';
end
else if
ckode.ItemIndex=1 then
begin
txtmateri.Text:='Komputer';
txtbiaya.Text:='500000';
end
else
begin
txtmateri.Text:='Matematika';
txtbiaya.Text:='300000';
end;
end;
procedure TForm1.cmdhitungClick(Sender: TObject);
begin
if
rsore.Checked=true then
txttotal.Text:=inttostr(strtoint(txtbiaya.Text)
+ 150000)
else
txttotal.Text:=inttostr(strtoint(txtbiaya.Text) + 0);
end;
procedure TForm1.cmdbersihClick(Sender: TObject);
begin
txtno.Text:='';
txtnama.Text:='';
txtmateri.Text:='';
txttotal.Text:='0';
txtbiaya.Text:='0';
ckode.Text:='==PILIH
KODE==';
txtno.SetFocus;
end;
procedure TForm1.cmdcloseClick(Sender: TObject);
begin
if
(Application.MessageBox('Yakin akan Keluar','info',MB_OKCANCEL+32)=idok) then
close;
end;
//apabila
langsung dipilih waktu kursusnya tanpa ada tombol hitung
procedure TForm1.rpagiClick(Sender: TObject);
begin
txttotal.Text:=inttostr(strtoint(txtbiaya.Text)
+0 )
end;
procedure TForm1.rsoreClick(Sender: TObject);
begin
txttotal.Text:=inttostr(strtoint(txtbiaya.Text)
+ 150000)
end;
end.
| ||||||||||||
Minggu, 13 Oktober 2013
belajar DELPI
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar