BSI Soal UTS Borland Delphi Semester 4 Algoritma Pemrograman II

Saint Adjie    14.02    Kuliah   

Hai
Kali ini saya akan berbagi mengenai soal UTS BSI Borland Delphi pada mata kuliah Algoritma Pemrograman II tentang program penjualan / pemesanan "Sablon Kaos Anugrah"

Langsung saja ini codingnya :

procedure TForm1.bersih;
begin
estruk.clear;
enama.clear;
esatuan.clear;
ejumlah.clear;
etotal.clear;
eharga.clear;
cmbjb.clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'mm/dd/yyyy';
etanggal.Text := DateToStr(Date);
end;


procedure TForm1.bkeluarClick(Sender: TObject);
begin
 if(application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi',MB_YesNo)=ID_Yes) then
    begin
      close;
    end;
end;


procedure TForm1.cmbjbClick(Sender: TObject);
begin
if cmbjb.text='CMB' then
begin
enama.Text:='Combed 55%';
esatuan.Text:='25000';
end
else
if cmbjb.text='CRD' then
begin
enama.Text:='Cardet Rajutan';
esatuan.Text:='32000';
end
else
if cmbjb.text='TCT' then
begin
enama.Text:='Teterton Cotton Poliester';
esatuan.Text:='40000';
end
else
if cmbjb.text='CVC' then
begin
enama.Text:='Cotton 60% Viscose';
esatuan.Text:='53000';
end
else
if cmbjb.text='' then
begin
enama.Text:='-';
esatuan.Text:='0';
end
end;

procedure TForm1.rrClick(Sender: TObject);
begin
if rr.Enabled = true then
eharga.Text:= '20000';
end;

procedure TForm1.rpClick(Sender: TObject);
begin
if rp.Enabled = true then
eharga.Text:= '15000';
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
bersih;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
var
satuan,harga,jumlah,total:real;
begin
if key=#13 then
begin
harga:=strtofloat(eharga.Text);
jumlah:=strtofloat(ejumlah.Text);
satuan:=strtofloat(esatuan.Text);
total:=(satuan+harga)*jumlah;
etotal.Text:=floattostr(total);
end;
end;

Jangan lupa namanya disamakan semua seperti combo box, edit text dan button sehingga coding bisa berjalan sempurna tanpa error ketika di running programnya

Ini adalah nama dari masing-masing edit box, button dan combo box

jangan lupa tambahkan procedure bersih di deklarasi publicnya, hapus tulisan {private declarations} dan ganti dengan tulisan procedure bersih ;
seperti gambar berikut :

Biasanya jika copy paste coding akan error dan itu hanya perlu diperbaiki sedikit saja
jika anda bingung, anda bisa mengetik codingnya secara manual
namun jika anda malas, anda bisa download program + codingnya
DISINI

SEMOGA MEMBANTU

-AK-