Listing Program
unit DaftarMakanan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lblPesanan: TMemo;
btnBakso: TButton;
btnMieAyam: TButton;
btnMieGoreng: TButton;
btnEsTeh: TButton;
Memo1: TMemo;
lblTotal: TLabel;
btnTotal: TButton;
Label2: TLabel;
lblHarga: TMemo;
btnReset: TButton;
lblRestoRylovta: TLabel;
procedure pilihPesanan(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.pilihpesanan(Sender: TObject);
var
a,b,c,d:Integer ;
begin
a:=5000;
b:=4000;
c:=7000;
d:=1000;
if TComponent(Sender).Name = 'btnBakso' then begin
lblpesanan.Lines.Text:= lblpesanan.Lines.Text+'Bakso';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp' +IntToStr(a);
lblharga.Lines.add('');
a:=a+5000;
end
else if TComponent(Sender).Name = 'btnMieAyam' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Mie Ayam';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(b);
lblharga.Lines.add('');
b:=b+4000;
end
else if TComponent(Sender).Name = 'btnMieGoreng' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Mie Goreng';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(c);
lblharga.Lines.add('');
c:=c+7000;
end
else if TComponent(Sender).Name = 'btnEsTeh' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Es teh';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(d);
lblharga.Lines.add('');
d:=d+1000;
end
else if TComponent(Sender).Name = 'btnTotal' then begin
lblTotal.Caption:='Rp ' +IntToStr(a+b+c+d);
end
else if TComponent(Sender).Name = 'btnReset' then begin
lblTotal.Caption:='';
lblpesanan.Lines.Text :='';
lblharga.Lines.Text:='';
end
end;
end.
Logika Program
Pada program kali ini kita akan membuat program “Daftar Makanan” dengan menggunakan bahasa pemograman delphi. Langsung saja kita masuk ke dalam coding programnya, yaitu :
unit DaftarMakanan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Maksud dari koding diatas adalah mendeskripsikan tentang nama form. Pada koding diatas form nya di beri nama ‘Daftar Makanan’.
Lalu kita masuk pada koding selanjutnya :
type
TForm1 = class(TForm)
lblPesanan: TMemo;
btnBakso: TButton;
btnMieAyam: TButton;
btnMieGoreng: TButton;
btnEsTeh: TButton;
Memo1: TMemo;
lblTotal: TLabel;
btnTotal: TButton;
Label2: TLabel;
lblHarga: TMemo;
btnReset: TButton;
procedure pilihPesanan(Sender:TObject);
private
{ Private declarations }
public { Public declarations }
end;
Maksud dari koding diatas adalah mendeskripsikan tentang type-type yang digunakan pada form yang kita buat. Pada koding diatas ditampilkan macam-macam nama yang kita gunakan pada form yang telah kita buat. Misalnya saja terdapat terdapat btnBakso, btnMieAyam, btnMieGoreng dan sebagainya itu semua merupakan tombol. Pada koding ini juga terdapat pendeklarasian. Pendeklarasiannya yaitu private dan public.
Lalu kita masuk pada koding selanjutnya :
procedure TForm1.pilihpesanan(Sender: TObject);
var
a,b,c,d:Integer ;
begin
a:=5000;
b:=4000;
c:=7000;
d:=1000;
maksud dari koding diatas adalah mendeskripsikan tentang procedur ‘procedure TForm1.pilihpesanan(Sender:TObject);. ini berarti program yang ini mempunyai nama prosedur pilihPesanan pada form1. Program ini dibuat sebagai induk program. Pada koding diatas juga terdapat varr yang berarti pendeklarasian variable. Pada koding diatas kita membuat variable yang bertipe data integer. Dan kita memulainya dengan menetapkan harga awal pada program.
Lalu kita masuk pada koding selanjutnya :
if TComponent(Sender).Name = 'btnBakso' then begin
lblpesanan.Lines.Text:= lblpesanan.Lines.Text+'Bakso';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp' +IntToStr(a);
lblharga.Lines.add('');
a:=a+5000;
end
Maksud dari koding diatas adalah mendeskripsikan tentang kondisi. Pada koding diatas terdapat statement if TComponent(Sender).Name = 'btnBakso' then begin yang menjelaskan tentang kondisi. Maksudnya adalah jika kita meng-click tombol Bakso maka akan berlanjut pada proses selanjutnya. Misalnya jika kita mengclick tombol btnBakso, pertama program akan mencetak pada memo yang telah kita buat lalu akan dicetak sesuai dengan data. Lalu terdapat statement lblpesanan.Lines.add(''); yang merupakan perintah untuk mencetak kebawah. Lalu proses akan berlanjut yaitu akan mencetak harga pada memo yang telah kita buat, dan akan menambahkan harga awal.
Lalu kita masuk pada koding selanjutnya :
else if TComponent(Sender).Name = 'btnMieAyam' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Mie Ayam';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(b);
lblharga.Lines.add('');
b:=b+4000;
end
maksud dari koding diatas adalah mendeskripsikan tentang kondisi else if TComponent(Sender).Name = 'btnMieAyam' then begin , maksud dari statement ini adalah menjelaskan tentang suatu kondisi jika kita mengclick tombol btnMieAyam maka akan berlanjut pada proses selanjutnya. Misalnya jika kita mengclick tombol btnMieAyam, pertama program akan mencetak pada memo yang telah kita buat lalu akan dicetak sesuai dengan data. Lalu terdapat statement lblpesanan.Lines.add(''); yang merupakan perintah untuk mencetak kebawah. Lalu proses akan berlanjut yaitu akan mencetak harga pada memo yang telah kita buat, dan akan menambahkan harga awal.
Lalu kita masuk pada koding selanjutnya :
else if TComponent(Sender).Name = 'btnMieGoreng' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Mie Goreng';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(c);
lblharga.Lines.add('');
c:=c+7000;
end
maksud dari koding diatas adalah mendeskripsikan tentang kondisi else if TComponent(Sender).Name = 'btnMieGoreng' then begin , maksud dari statement ini adalah menjelaskan tentang suatu kondisi jika kita mengclick tombol btnMieGoreng maka akan berlanjut pada proses selanjutnya. Misalnya jika kita mengclick tombol btnMieGoreng, pertama program akan mencetak pada memo yang telah kita buat lalu akan dicetak sesuai dengan data. Lalu terdapat statement lblpesanan.Lines.add(''); yang merupakan perintah untuk mencetak kebawah. Lalu proses akan berlanjut yaitu akan mencetak harga pada memo yang telah kita buat, dan akan menambahkan harga awal.
Lalu kita masuk pada koding selanjutnya :
else if TComponent(Sender).Name = 'btnEsTeh' then begin
lblpesanan.Lines.Text := lblpesanan.Lines.Text+'Es teh';
lblpesanan.Lines.add('');
lblharga.Lines.Text:=lblharga.Lines.Text+' Rp'+IntToStr(d);
lblharga.Lines.add('');
d:=d+1000;
end
maksud dari koding diatas adalah mendeskripsikan tentang kondisi else if TComponent(Sender).Name = 'btnEsTeh' then begin , maksud dari statement ini adalah menjelaskan tentang suatu kondisi jika kita mengclick tombol btnEsTeh maka akan berlanjut pada proses selanjutnya. Misalnya jika kita mengclick tombol btnEsTeh, pertama program akan mencetak pada memo yang telah kita buat lalu akan dicetak sesuai dengan data. Lalu terdapat statement lblpesanan.Lines.add(''); yang merupakan perintah untuk mencetak kebawah. Lalu proses akan berlanjut yaitu akan mencetak harga pada memo yang telah kita buat, dan akan menambahkan harga awal.
Lalu kita masuk pada koding selanjutnya :
else if TComponent(Sender).Name = 'btnTotal' then begin
lblTotal.Caption:='Rp ' +IntToStr(a+b+c+d);
end
else if TComponent(Sender).Name = 'btnReset' then begin
lblTotal.Caption:='';
lblpesanan.Lines.Text :='';
lblharga.Lines.Text:='';
end
end;
end.
maksud dari koding diatas adalah mendeskripsikan tentang kondisi if TComponent(Sender).Name = 'btnTotal' then begin, maksud dari statement ini adalah menjelaskan tentang suatu kondisi jika kita mengclick tombol btnTotal maka akan berlanjut pada proses selanjutnya. Misalnya jika kita mengclick tombol btnTotal, pertama program akan mencetak pada memo yang telah kita buat lalu akan dicetak sesuai dengan data. Lalu terdapat statement else if TComponent(Sender).Name = 'btnReset' then begin, statement ini yang merupakan perintah untuk mencetak kebawah. Lalu akan diproses dengan mencetak blank pada memo dan label.
.
0 komentar:
Posting Komentar