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 :
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
jika anda bingung, anda bisa mengetik codingnya secara manual
namun jika anda malas, anda bisa download program + codingnya
DISINI
SEMOGA MEMBANTU
-AK-
