Dapat didownload di https://www.dropbox.com/s/y0tgllv4desc5c4/1%20LAPORAN%20AKHIR%20Pengenalan%20Delphi.docx?dl=0
CODING
begin
edit4.Text:='Makanan yang di pesan = '+edit1.Text+ ', '+edit2.Text+' dan '+edit3.Text;
end;
begin
edit4.Text:=' ';edit3.Text:=' ';edit2.Text:=' ';edit1.Text:=' ';
end;
begin
application.Terminate;
end;
end.
LOGIKA
- Logika untuk button OK adalah isi edit 4 yang kosong di isi oleh string ‘Makanan yang di pesan = ‘ di tambahkan oleh isi pada edit1, tanda koma ‘ , ‘ , isi pada edit2, string ‘dan’, kemudian isi pada edit3.
- Logika untuk button CLEAR adalah isi pada edit4, edit3, edit2, dan edit1 di ganti dengan spasi ‘ ‘.
- Logika untuk button END adalah untuk mengakhiri atau menutup program.
0 komentar:
Posting Komentar