LA ap2a pertemuan 1

Coding:

unit badan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btnT: TButton;
lblY: TLabel;
btnReset: TButton;
btnBody: TButton;
btnRight: TButton;
btnLeft: TButton;
btnLeftkick: TButton;
btnRightkick: TButton;
procedure btnTClick(Sender: TObject);
procedure btnResetClick(Sender: TObject);
procedure btnBodyClick(Sender: TObject);
procedure btnRightClick(Sender: TObject);
procedure btnLeftClick(Sender: TObject);
procedure btnRightkickClick(Sender: TObject);
procedure btnLeftkickClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnTClick(Sender: TObject);
begin
lblY.Caption:=’kepala ini namanya’;
end;
procedure TForm1.btnResetClick(Sender: TObject);
begin
lblY.Caption:=”;
end;
procedure TForm1.btnBodyClick(Sender: TObject);
begin
lblY.Caption:=’ini badan gw’;
end;
procedure TForm1.btnRightClick(Sender: TObject);
begin
lblY.Caption:=’tangan kanan ini namanya’;
end;
procedure TForm1.btnLeftClick(Sender: TObject);
begin
lblY.Caption:=’tangan kiri ini namanya’;
end;
procedure TForm1.btnRightkickClick(Sender: TObject);
begin
lblY.Caption:=’kaki kanan ini namanya’;
end;
procedure TForm1.btnLeftkickClick(Sender: TObject);
begin
lblY.Caption:=’kaki kiri ini namanya’;
end;
end.

Logika Program
unit badan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
[ Pada blok diatas dijelaskan tentang nama form yaitu *unit badan*]
type
TForm1 = class(TForm)
btnT: TButton;
lblY: TLabel;
btnReset: TButton;
btnBody: TButton;
btnRight: TButton;
btnLeft: TButton;
btnLeftkick: TButton;
btnRightkick: TButton;
procedure btnTClick(Sender: TObject);
procedure btnResetClick(Sender: TObject);
procedure btnBodyClick(Sender: TObject);
procedure btnRightClick(Sender: TObject);
procedure btnLeftClick(Sender: TObject);
procedure btnRightkickClick(Sender: TObject);
procedure btnLeftkickClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
[blok diatas memiliki penjelasan dimana nama dari dari button dan label dan caption dari button dan label, lalu semua button ada penjelasan bila di click akan terkirim ke objek. Kelas private dan public pun di deklarasikan tetapi belum diisi karena tak terpakai]
procedure TForm1.btnTClick(Sender: TObject);
begin
lblY.Caption:=’kepala ini namanya’;
end;
procedure TForm1.btnResetClick(Sender: TObject);
begin
lblY.Caption:=”;
end;

procedure TForm1.btnBodyClick(Sender: TObject);
begin
lblY.Caption:=’ini badan gw’;
end;

procedure TForm1.btnRightClick(Sender: TObject);
begin
lblY.Caption:=’tangan kanan ini namanya’;
end;

procedure TForm1.btnLeftClick(Sender: TObject);
begin
lblY.Caption:=’tangan kiri ini namanya’;
end;

procedure TForm1.btnRightkickClick(Sender: TObject);
begin
lblY.Caption:=’kaki kanan ini namanya’;
end;

procedure TForm1.btnLeftkickClick(Sender: TObject);
begin
lblY.Caption:=’kaki kiri ini namanya’;
end;

end.
[ pertama disini kita akan mencetak kalimat ini namanya kepala dengan mengganti label yang captionnya penjelasan menjadi kalimat tersebut yang diatasnya sudah ada procedure dimana form tersebut mengirim ke objek].
[pada button reset yang melakukan procedur ke objek dan dibawahnya adalah penjelasan objeknya itu dibawa ke label dan apabila button di click maka caption milik label akan berubah menjadi kosong].
[pada button body juga hampir sama dengan proses proses yang sebelumnya dengan mengganti caption dari labelnya]
[ dan untuk button right,left, rightkick dan rightkick sama dengan proses sebelumnya. Dan akhirnya program ditutup dengan end. Dan tiap button ada yang namanya blok statement yaitu setiap procedur baru diawali dengan begin lagi lagu diakhiri end tetapi penulisan end berbeda yaitu dengan menambahkan ;]

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s