LA AP2A (anggota tubuh)

Listing Program

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

  TformAnggotaTubuhManusia = class(TForm)

    btnKepala: TButton;

    btnTanganKiri: TButton;

    btnTanganKanan: TButton;

    btnBadan: TButton;

    btnKakiKiri: TButton;

    btnKakiKanan: TButton;

    lblHasil: TLabel;

    procedure btnKepalaClick(Sender: TObject);

    procedure btnTanganKiriClick(Sender: TObject);

    procedure btnBadanClick(Sender: TObject);

    procedure btnTanganKananClick(Sender: TObject);

    procedure btnKakiKiriClick(Sender: TObject);

    procedure btnKakiKananClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  formAnggotaTubuhManusia: TformAnggotaTubuhManusia;

implementation

{$R *.dfm}

procedure TformAnggotaTubuhManusia.btnKepalaClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Kepala';

end;

procedure TformAnggotaTubuhManusia.btnTanganKiriClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Tangan Kiri';

end;

procedure TformAnggotaTubuhManusia.btnBadanClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Badan';

end;

procedure TformAnggotaTubuhManusia.btnTanganKananClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Tangan Kanan';

end;

procedure TformAnggotaTubuhManusia.btnKakiKiriClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Kaki Kiri';

end;

procedure TformAnggotaTubuhManusia.btnKakiKananClick(Sender: TObject);

begin

lblHasil.Caption:='ini adalah Kaki Kanan';

end;

end.

Logika Program

Pada program kali ini kita akan membuat program “Anggota Tubuh Manusia” dengan menggunakan bahasa pemograman delphi. Langsung saja kita masuk ke dalam coding programnya, yaitu :

unit Unit1;

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 ‘Unit1’.

Lalu kita masuk pada koding selanjutnya :

type   TformAnggotaTubuh = class(TForm)    btnKepala: TButton;     btnBadan: TButton;     btnTanganKiri: TButton;     btnTanganKanan: TButton;     btnKakiKiri: TButton;     btnKakiKanan: TButton;     lblHasil: TLabel;     procedure btnKepalaClick(Sender: TObject);     procedure btnTanganKiriClick(Sender: TObject);     procedure btnTanganKananClick(Sender: TObject);     procedure btnBadanClick(Sender: TObject);     procedure btnKakiKiriClick(Sender: TObject);     procedure btnKakiKananClick(Sender: TObject);     procedure lblHasilClick(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 lblHasil yang merupakan komponen lebel. Lalu terdapat btnKepala, btnBadan, btnTanganKiri dan sebagainya itu semua merupakan tombol. Pada koding ini juga terdapat pendeklarasian. Pendeklarasiannya yaitu private dan public.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnKepalaClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Kepala'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat.  Koding ini jugaterdapat‘procedure TAnggotaTubuhManusia.btnKepalaClick(Sender: Tobject)’ ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnKepala, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick kepala maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan. Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah Kepala’ maka pada lblHasil akan tercetak ‘ini adalah Kepala’. Setelah hasil dicetak maka program akan selesai.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnTanganKiriClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Tangan Kiri'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat. Koding ini juga terdapat ‘procedure TAnggotaTubuhManusia.btnTanganKiriClick(Sender: TObject); ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnTanganKiri, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick tangan kiri maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan. Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah Tangan Kiri’ maka pada lblHasil akan tercetak ‘ini adalah Tangan Kiri’. Setelah hasil dicetak maka program selesai.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnTanganKananClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Tangan Kanan'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat. Koding ini juga terdapat  ‘procedure TAnggotaTubuhManusia.btnTanganKananClick(Sender: Tobject)’ ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnTanganKanan, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick tangan kanan maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan. Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah Tangan Kanan’ maka pada lblHasil akan tercetak ‘ini adalah Tangan Kanan’. Setelah hasil dicetak maka program selesai.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnBadanClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Badan'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat. Koding ini juga terdapat  ‘procedure TAnggotaTubuhManusia.btnBadanClick(Sender: Tobject)’ ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnBadan, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick badan maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan. Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah Badan’ maka pada lblHasil akan tercetak ‘ini adalah Badan’. Setelah hasil dicetak maka program selesai.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnKakiKiriClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Kaki Kiri'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat. Koding ini juga terdapat  ‘procedure TAnggotaTubuhManusia.btnKakiKiriClick(Sender: Tobject)’ ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnKakiKiri, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick kaki kiri maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan. Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah kaki kiri’ maka pada lblHasil akan tercetak ‘ini adalah kaki kiri’. Setelah hasil dicetak maka program selesai.

Lalu kita masuk pada koding selanjutnya:

procedure TAnggotaTubuhManusia.btnKakiKananClick(Sender: TObject); begin lblHasil.Caption:='Ini adalah Kaki Kanan'; end;

Maksud dari koding diatas adalah mendeskripsikan tentang fungsi Button yang telah kita buat. Koding ini juga terdapat  ‘procedure TAnggotaTubuhManusia.btnKakiKananClick(Sender: Tobject)’ ini berarti program yang kita jelaskan adalah button dalam form AnggotaTubuhManusia yang diberi nama btnKakiKanan, dan click pada koding diatas menandakan bahwa proses akan berjalan ketika kita mengclick button tersebut, contohnya jika kita menclick kaki kanan maka akan muncul kotak yang telah disediakan untuk kita membuat koding agar program berjalan dengan apa yang kita inginkan . Kemudian setelah button di click maka akan berlanjut pada perintah ‘lblHasil.Caption:=’ini adalah kaki kanan’ maka pada lblHasil akan tercetak ‘ini adalah kaki kanan’. Setelah hasil dicetak maka program selesai.