PROGRAM SEDERHANA DELPHI

PROGRAM SEDERHANA DELPHI

LISTING PROGRAM

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin showmessage( 'Nama   :'+edit1.Text+#13#10+ 'NPM    :'+edit2.Text+#13#10+ 'Kelas  :'+edit3.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; end; procedure TForm1.Button3Click(Sender: TObject); begin Form1.Color := clYellow; end; procedure TForm1.Button4Click(Sender: TObject); begin Form1.Color := clBlue; end; procedure TForm1.Button5Click(Sender: TObject); begin close; end; end.

LOGIKA PROGRAM

Pada pemrograman kali ini akan membahas mengenai input data mahasiswa yang berupa nama,npm,dan kelas dan merubah warna form dengan menggunakan komponen edit dan button. Berikut adalah listingnya:

Berikutnya adalah menampilkan hasil data yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(

'Nama :'+edit1.Text+#13#10+

'NPM  :'+edit2.Text+#13#10+

'Kelas  :'+edit3.Text);

end;

Listing program diatas mengartikan bahwa semua data yang sudah di input di komponen edit lalu jika diklik button “OK” akan muncul messagebox dengan data yang sudah kita input.

Berikutnya adalah membersihkan coloums edit yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

end;

Pada pemrograman diatas berarti kita harus klik tombol button2 dua kali dan listing program di atas digunakan untuk membersihkan coloums atau membersihkan bagian edit1 sampai edit3 yang berupa nama,npm dan kelas.

Berikutnya adalah listing program untuk merubah warna form. Berikut adalah listing programnya:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Color:=clYellow;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Color:=clBlue;

end;

Dari listing program di atas kita harus mengklik setiap button3 dua kali untuk menuliskan listing. CLYELLOW berarti kita merubah warna form menjadi kuning, CLBLUE berarti kita merubah warna form menjadi biru.

Berikutnya adalah menutup aplikasi yang telah diinput, berikut adalah listingnya:

procedure TForm1.Button5Click(Sender: TObject);

begin

Close;

end;

Pada pemrograman diatas berarti kita harus klik tombol button5 dua kali dan listing program di atas digunakan untuk menutup aplikasi yang sedang berjalan.

OUTPUT PROGRAM

 1.

2. 

Posted in: PEMROGRAMAN