program pengenalan anggota tubuh menggunakan delphi

Wrote by Post Comment

alhamdulillah ..
baru banget kelar uas grafika komputer^^
tada soalnya itu kita suruh bikin program untuk menunjukan anggota tubuh, yahh hasilnya seperti dibawah lahh ...
----coding----
------------------------------------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    memo1: TMemo;
    Label2: TLabel;
    Label3: TLabel;
    procedure kaki;
    procedure tangan;
    procedure mulut;
    procedure mata;
    procedure telinga;
    procedure hide;     //untuk yang bertuliskan merah typenya kita input manual
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.kaki;
begin
Image2.Visible :=     true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image8.Visible := true;
Memo1.Clear;
Memo1.Lines.Add('Bahasa Indonesia : kaki');
Memo1.Lines.Add('Bahasa Inggris      : foot');
Memo1.Lines.Add('Fungsi                  : Berjalan');
Memo1.Visible:=true;
end;

procedure TForm1.tangan;
begin
Image2.Visible :=      true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image8.Visible := true;
Memo1.Clear;
Memo1.Lines.Add('Bahasa Indonesia : tangan');
Memo1.Lines.Add('Bahasa Inggris     : hand');
Memo1.Lines.Add('Fungsi                 : memegang benda');
Memo1.Visible:=true;
end;

procedure TForm1.mulut;
begin
Image2.Visible :=      true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image8.Visible := true;
Memo1.Clear;
Memo1.Lines.Add('Bahasa Indonesia : mulut');
Memo1.Lines.Add('Bahasa Inggris     : mouth');
Memo1.Lines.Add('Fungsi                 : Bicara');
Memo1.Visible:=true;
end;

procedure TForm1.telinga;
begin
Image2.Visible :=     true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image8.Visible := true;
Memo1.Clear;
Memo1.Lines.Add('Bahasa Indonesia : telinga');
Memo1.Lines.Add('Bahasa Inggris      : ears');
Memo1.Lines.Add('Fungsi                  : mendengar');
Memo1.Visible:=true;
end;

procedure TForm1.mata;
begin
Image2.Visible :=     true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image8.Visible := true;
Memo1.Clear;
Memo1.Lines.Add('Bahasa Indonesia : mata');
Memo1.Lines.Add('Bahasa Inggris      : eyes');
Memo1.Lines.Add('Fungsi                   : melihat');
Memo1.Visible:=true;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Hide;
end;

procedure TForm1.Hide;
begin
Image2.Visible :=      false;
Image3.Visible := false;
Image4.Visible := false;
Image5.Visible := false;
Image6.Visible := false;
Image7.Visible := false;
Image8.Visible := false;
Memo1.Visible :=     false;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
kaki; //ketika image2 di klik maka akan memanggil procedure kaki yang ada di atas
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
tangan; //ketika image3 di klik maka akan memanggil procedure tangan yang ada di atas
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
tangan; //ketika image4 di klik maka akan memanggil procedure tangan yang ada di atas
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
telinga; //ketika image5 di klik maka akan memanggil procedure telinga yang ada di atas
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
mata; //ketika image7 di klik maka akan memanggil procedure mata yang ada di atas
end;

procedure TForm1.Image6Click(Sender: TObject);
begin
mata; //ketika image6 di klik maka akan memanggil procedure mata yang ada di atas
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
hide; //ketika image1 di klik maka akan memanggil procedure hide yang ada di atas
end;

end.
------------------------------------------------------------------------------------------------------------


bagi yang ingin belajar silahkan download  filenya ^^ bagi yang ingin bertanya,masih bingung atau yang lainnya lets comment here... kita sama-sama belajar ajaa 
thanks a lot

Tags:

Share:

0 comments