DELPHI LAB F PAGI RGT / USMAN
Ketentuan :
1. Isi List1 dengan kode HP sbb : N73, N95
2. Di pilih List1 maka Merk dan harga muncul
Kode HP | Merk | Harga |
N73 | Nokia N73 | 1.200.000 |
N95 | Nokia N95 | 1.500.000 |
3. Di pilih salah satu Aksesoris, Biaya Aksesoris muncul
a. Casing Bahan
b. Casing Mika
4. Tombol Hitung digunakan untuk menghitung Biaya Aksesoris tambahn jika dibeli
a. Pelindung LCD = 25.000
b. Memori 2GB = 75.000
5. Jumlah Beli di Input dan di enter maka Total Bayar muncul
Total Bayar = (Jumlah beli * harga) + Biaya Aksesoris + Biaya Aksesoris Tambahan
6. Di input uang bayar maka uang kembali muncul otomatis
Uang Kembali = uang Bayar – Total bayar
7. Tombol Input digunakan untuk membersihkan layar.
8. Tombol keluar untuk mengakhiri form yang running.
Listing Program !!
//digunakan untuk variabel, membaca saluruh listing
a,b:integer ;
implementation
{$R *.dfm}
procedure TForm1.lb_kodeClick(Sender: TObject);
begin
if lb_kode.ItemIndex=0 then
begin
emerk.Text:='Nokia 73';
eharga.Text:='800000';
end
else
if lb_kode.ItemIndex=1 then
begin
emerk.Text:='Nokia 95';
eharga.Text:='950000';
end
end;
procedure TForm1.r_bahanClick(Sender: TObject);
begin
if r_bahan.Checked =true then
begin
eaksesoris.Text:='30000';
end
end;
procedure TForm1.r_mikaClick(Sender: TObject);
begin
if r_mika.Checked=true then
begin
eaksesoris.Text:='20000';
end
end;
procedure TForm1.c_pelindungClick(Sender: TObject);
begin
if c_pelindung.Checked=true then
a:=75000
else
a:=0
end;
procedure TForm1.c_memoriClick(Sender: TObject);
begin
if c_memori.Checked = true then
b:=25000
else
b:=0
end;
procedure TForm1.b_hitungClick(Sender: TObject);
begin
etambahan.Text:=inttostr(a+b);
ejumbel.SetFocus;
end;
procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
begin etobar.Text:=currtostr(strtocurr(ejumbel.Text)*strtocurr(eharga.text)+strtocurr(etambahan.text)+strtocurr(eaksesoris.text));
eubay.SetFocus;
end
end;
procedure TForm1.eubayChange(Sender: TObject);
begin
eukem.Text:=floattostr(strtofloat(eubay.Text) - strtofloat(etobar.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
lb_kode.ClearSelection;
emerk.Clear;
eharga.Clear;
r_bahan.Checked:=false;
r_mika.Checked:=false;
c_pelindung.Checked:=false;
c_memori.Checked:=false;
eaksesoris.Clear;
etambahan.Text:='0';
etambahan.Enabled:=false;
ejumbel.Clear;
etobar.Text:='0';
eubay.Text:='0' ;
eukem.Text:='0' ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
lb_kode.ClearSelection;
r_bahan.Checked:=false;
r_mika.Checked:=false;
c_pelindung.Checked:=false;
c_memori.Checked:=false;
emerk.Clear;
eharga.Clear;
eaksesoris.Clear;
etambahan.Clear;
ejumbel.Clear;
etobar.Text :='0';
eubay.Text:='0';
eukem.Text:='0';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if(application.MessageBox('Anda akan keluar dari program ini..','Peringatan',MB_YESNOCANCEL + MB_ICONQUESTION )=idyes)then
close;
end;
Tidak ada komentar:
Posting Komentar